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

	
Возврат Подключение;  
	#Иначе
Возврат Неопределено;
	#КонецЕСли

КонецФункции    


Функция ТекущийМагазин() Экспорт 
	Магазин=Справочники.Магазины.НайтиПоРеквизиту("Логин",ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
	Возврат Магазин;
КонецФункции   



Функция ТекущийПользователь() Экспорт 
	Пользователь=Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().Имя,Истина);
	Возврат Пользователь;
КонецФункции