ЕстьСоединение = Ложь; Попытка Если ПараметрыСеанса.СтрокаСоединения<> "" Тогда мСоединение = ПолучитьИзВременногоХранилища(ПараметрыСеанса.СтрокаСоединения); ЕстьСоединение = Истина КонецЕсли; Исключение КонецПопытки; Если мСоединение = Неопределено Тогда ЕстьСоединение = Ложь; КонецЕсли; Если НЕ ЕстьСоединение Тогда Попытка Если мСоединение = Неопределено Тогда Коннектор = Новый COMObject("V81.COMConnector"); мСоединение = Коннектор.Connect("Srvr = ""serv""; Ref = ""UT""; Usr = ""ВнешнееСоединение""; Pwd = ""123"""); КонецЕсли; ПараметрыСеанса.СтрокаСоединения = ПоместитьВоВременноеХранилище(мСоединение, Новый УникальныйИдентификатор); дЗапрос = мСоединение.NewObject("Запрос"); Исключение Сообщить("Соединение с базой УТ не установлено. " + ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Возврат; КонецПопытки; КонецЕсли; ПараметрыСеанса.СтрокаСоединения = ПоместитьВоВременноеХранилище(мСоединение, Новый УникальныйИдентификатор);