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