Внешняя обработка между базой данной SQL и 1С 10.3 УТ

Процедура КнЗапуститьЗагрузкуНажатие(Элемент)
    _Логин=СокрЛП(Логин);
    _Пароль=СокрЛП(Пароль);
 
    _БазаДанныхИмя=СокрЛП(БазаДанныхИмя);
    _СерверИмя=СокрЛП(СерверИмя);
    
    Если (_Логин="") ИЛИ (_БазаДанныхИмя="") ИЛИ (_СерверИмя="") Тогда
        Предупреждение("Данных соединения не обнаружено!"+Символы.ПС+
        "На вкладке ""Настройка"" введите правильные параметры подключения"+Символы.ПС+
        "или загрузите их из файла.");
        
        ТекстСоединение = СокрЛП("Соединение не установлено: данных соединения не обнаружено!"+Символы.ПС+
        "Введите правильные параметры подключения или загрузите их из файла."+Символы.ПС+
        "Файл настроек подключения формируется в ""MASSA-K: Менеджер регистраций"""+Символы.ПС+
        "вызовом команды меню ""Файл""/""Параметры подключения базы данных"".");
        
        ЭлементыФормы.ТекстСоединение.ЦветТекста = новый Цвет(255,0,0);
 
        ЭлементыФормы.Панель.ТекущаяСтраница=ЭлементыФормы.Панель.Страницы[2];
        Возврат;
    КонецЕсли; 
 
    СтрокаСоединения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID="+_Логин+";Password="""+_Пароль+""";Initial Catalog="+_БазаДанныхИмя+
    ";Data Source="+_СерверИмя;
    //
    Соединение = Новый ComObject("ADODB.Connection");
    Соединение.ConnectionString=СтрокаСоединения;
    //
    
    Попытка
        Соединение.Open();
        Соединение.CommandTimeout = 0;
        Состояние ("Подключение к серверу SQL...");
        ЭлементыФормы.ТекстСоединение.ЦветТекста = Новый Цвет(30,200,133);
        ТекстСоединение = "Соединение установлено";
        
        ПравильнаяНастройка = Новый Структура("СерверИмя,БазаДанныхИмя,Логин,Пароль",СокрЛП(СерверИмя),СокрЛП(БазаДанныхИмя),СокрЛП(Логин),СокрЛП(Пароль));
 
    Исключение
        ОписаниеОш = ОписаниеОшибки();
        //Сообщить(ОписаниеОш);
        Соединение = "";
        ЭлементыФормы.ТекстСоединение.ЦветТекста = Новый Цвет(255,0,0);
        //ТекстСоединение = СокрЛП("Соединение не установлено! "+ОписаниеОш);
        
        Предупреждение("Указаны неверные настройки подключения!"+Символы.ПС+
        "На вкладке ""Настройка"" введите правильные параметры подключения"+Символы.ПС+
        "или загрузите их из файла.");
        
        ТекстСоединение = СокрЛП("Соединение не установлено: указаны неверные настройки подключения!"+Символы.ПС+
        "Введите правильные параметры подключения или загрузите их из файла."+Символы.ПС+
        "Файл настроек подключения формируется в ""MASSA-K: Менеджер регистраций"""+Символы.ПС+
        "вызовом команды меню ""Файл""/""Параметры подключения базы данных"".");
        
        ЭлементыФормы.ТекстСоединение.ЦветТекста = новый Цвет(255,0,0);
        
        ЭлементыФормы.Панель.ТекущаяСтраница=ЭлементыФормы.Панель.Страницы[2];
        Возврат;
    КонецПопытки;
    
    //Инициализируем таблицу
    ТЗЭСсылкиНаОбъекты.Очистить();
    ТЗЭСсылкиНаОбъекты.Колонки.Очистить();
        
    МассТипы=Справочники.ТипВсеСсылки().Типы();
    МассТипы.Добавить(Тип("Строка"));
        
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("Объект",Новый ОписаниеТипов(МассТипы));
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("Имя",Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(100,ДопустимаяДлина.Переменная)));
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("ИдМассаК",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10)));
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("Штрихкод",Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(100)));
    
    //Вспомогательные поля - заполняются только для номенклатуры
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("ШтрихкодОсновнойЕИ",Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(100)));
    ТЗЭСсылкиНаОбъекты.Колонки.Добавить("КодВесовогоТовара",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10)));
            
    ДатаВремяНачалаЗагрузки = ТекущаяДата();
    
    МожноВыгружать=Истина;
    Если НЕ ПроверкаНаЗагрузку("Транзакции") Тогда
        МожноВыгружать=Ложь;
    КонецЕсли; 
    
    Если НЕ МожноВыгружать Тогда
        Соединение.Close();
        Соединение="";
  
        Предупреждение("В данный момент транзакции заняты другим приложением! Попробуйте повторить попытку позже.");
        Возврат;
    КонецЕсли;
    
    Если СбросФлагаЗаписи("Транзакции") Тогда
        ЗагрузкаТранзакций();
        УстановкаФлагаЗаписи("Транзакции");
        Соединение.Close();
        Соединение="";
    Иначе
        Соединение.Close();
        Соединение="";
        Предупреждение("Не получено разрешения на загрузку транзакций!");
    КонецЕсли; 
    
КонецПроцедуры