35 lines
1.7 KiB
Plaintext
35 lines
1.7 KiB
Plaintext
|
||
Функция ПодключениеУТ(ИБ) Экспорт
|
||
#Если не МобильноеПриложениеСервер Тогда
|
||
Соединение = Новый COMОбъект("V85.COMConnector");
|
||
//СтрокаСоединения = "File = ""C:\Base""; Usr = ; Pwd= ";
|
||
СтрокаСоединения = "Srvr=""TRM2:1541"";"+"Ref="""+ИБ.Наименование+""";Usr=""Админ"";Pwd=""A400943@!"";";
|
||
Попытка
|
||
Подключение = Соединение.Connect(СтрокаСоединения);
|
||
Исключение
|
||
Сообщение = Новый СообщениеПользователю;
|
||
Сообщение.Текст = "Не удалось подключиться" + ОписаниеОшибки();
|
||
Сообщение.Сообщить();
|
||
Возврат Неопределено;
|
||
КонецПопытки;
|
||
|
||
|
||
Возврат Подключение;
|
||
#Иначе
|
||
Возврат Неопределено;
|
||
#КонецЕСли
|
||
|
||
КонецФункции
|
||
|
||
|
||
Функция ТекущийМагазин() Экспорт
|
||
Магазин=Справочники.Магазины.НайтиПоРеквизиту("Логин",ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
|
||
Возврат Магазин;
|
||
КонецФункции
|
||
|
||
|
||
|
||
Функция ТекущийПользователь() Экспорт
|
||
Пользователь=Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().Имя,Истина);
|
||
Возврат Пользователь;
|
||
КонецФункции |