Подключение к базе 1С 7.7 Com-соединение

Код извлечения данных из 7-ки в 8-ку:
Попытка
ТЗСравнения77 = Новый ТаблицаЗначений;
ТЗСравнения77.Колонки.Добавить("КодФирмы");
//ТЗСравнения77.Колонки.Добавить("ИНН");
ТЗСравнения77.Колонки.Добавить("НомерДокумента");
ТЗСравнения77.Колонки.Добавить("ПредставлениеНомДок");
ТЗСравнения77.Колонки.Добавить("ВидДокумента");
ТЗСравнения77.Колонки.Добавить("ПредставлениеВидаДокумента");
ТЗСравнения77.Колонки.Добавить("Вид");
ТЗСравнения77.Колонки.Добавить("ДатаДокумента");
ТЗСравнения77.Колонки.Добавить("Организация");
ТЗСравнения77.Колонки.Добавить("Сумма");
ТЗСравнения77.Колонки.Добавить("Контрагент");
ТЗСравнения77.Колонки.Добавить("ДокОснНомер");
ТЗСравнения77.Колонки.Добавить("ДокОснВид");
ТЗСравнения77.Колонки.Добавить("ДокСчет");
ТЗСравнения77.Колонки.Добавить("Счет");

V7Фирма = в7.CreateObject("Справочник.НашиФирмы");
Если НЕ (Организация = Справочники.Организации.ПустаяСсылка()) Тогда
Если V7Фирма.НайтиПоКоду(СокрЛП(Организация.Код)) = 1 Тогда
V7Фирма = V7Фирма.ТекущийЭлемент();
ИНН = СокрЛП(V7Фирма.ИНН.Получить(ТекущаяДата()));
Если ИНН = СокрЛП(Организация.ИНН) Тогда
V7Организация = V7Фирма;
КонецЕсли;
КонецЕсли;
Иначе
V7Организация = в7.CreateObject("СписокЗначений");
V7Фирма.ВыбратьЭлементы();
Пока V7Фирма.ПолучитьЭлемент() > 0 Цикл
Если ПустаяСтрока(V7Фирма.Префикс) = 0 Тогда
V7Организация.ДобавитьЗначение(V7Фирма.ТекущийЭлемент());
КонецЕсли;
КонецЦикла;
КонецЕсли;

V7Фирма = 0;

Для каждого ЭлементСпсЗнач Из Счет77 Цикл
V7Счет = в7.CreateObject("Счет");
V7Счет.НайтиПоКоду(ЭлементСпсЗнач.Значение);

V7БИ = в7.CreateObject("БухгалтерскиеИтоги");
V7БИ.ИспользоватьСубконто(V7Счет.ВидСубконто(1), V7Организация);
V7БИ.ИспользоватьСубконто(V7Счет.ВидСубконто(2));
Если ЭлементСпсЗнач.Значение = "РКН" Тогда
V7БИ.ИспользоватьСубконто(V7Счет.ВидСубконто(3));
КонецЕсли;

V7БИ.ВыполнитьЗапрос(НачДата, КонецДня(КонДата), ЭлементСпсЗнач.Значение, "", "", 3, "Проводка", "С");

V7БИ.ВыбратьСчета();
Пока V7БИ.ПолучитьСчет() = 1 Цикл
СчКод = V7БИ.Счет.Код;

V7БИ.ВыбратьСубконто(1);
Пока V7БИ.ПолучитьСубконто(1) = 1 Цикл
Код = СокрЛП(V7БИ.Субконто(1).Код);
НаименованиеОрганизации = V7БИ.Субконто(1).Наименование;

V7БИ.ВыбратьПериоды();
Пока V7БИ.ПолучитьПериод() = 1 Цикл
V7Операция = V7БИ.Операция;
Документ = V7Операция.Документ;
ДокВид = Документ.Вид();
ДокПредставлениеВида = Документ.ПредставлениеВида();
ДокНомер = Документ.НомерДок;
ДокДата = Документ.ДатаДок;
ДокОснНомер = ?(ДокВид = "КурсовыеРазницы", СокрЛП(Документ.ДокументОснование.НомерДок), "");
ДокОснВид = ?(ДокВид = "КурсовыеРазницы", Документ.ДокументОснование.Вид(), "");

Состояние("Получение данных из основной базы, документ: " + ДокПредставлениеВида + " № " + СокрЛП(ДокНомер) + " от " + Формат(ДокДата, "ДФ=dd.MM.yyyy"));

V7БИ.ВыбратьСубконто(2);
Пока V7БИ.ПолучитьСубконто(2) = 1 Цикл
//ИНН = СокрЛП(V7БИ.Субконто(2).ИНН);
Контрагент = СокрЛП(V7БИ.Субконто(2).Код);

НоваяСтрока = ТЗСравнения77.Добавить();
НоваяСтрока.ВидДокумента = ДокВид;
НоваяСтрока.ПредставлениеВидаДокумента = ДокПредставлениеВида;
НоваяСтрока.ДатаДокумента = ДокДата;
НоваяСтрока.КодФирмы = Код;
//НоваяСтрока.ИНН = ИНН;
НоваяСтрока.Организация = НРег(НаименованиеОрганизации);
НоваяСтрока.ДокОснНомер = ДокОснНомер;
НоваяСтрока.ДокОснВид = ДокОснВид;
НоваяСтрока.Счет = СчКод;
НоваяСтрока.ПредставлениеНомДок = СокрЛП(ДокНомер);

Если ДокВид = "ПоступлениеТМЦ" Тогда
НоваяСтрока.Вид = Документ.ПолучитьАтрибут("Вид");
Если НоваяСтрока.Вид = 1 Тогда
НоваяСтрока.НомерДокумента = "ОБ-" + РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 8, "0", 0);
ИначеЕсли НоваяСтрока.Вид = 2 Тогда
НоваяСтрока.ВидДокумента = "ПоступлениеНМА";
НоваяСтрока.НомерДокумента = РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 11, "0", 0);
ИначеЕсли НоваяСтрока.Вид = 4 Тогда
НоваяСтрока.НомерДокумента = "М-" + РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 9, "0", 0);
ИначеЕсли НоваяСтрока.Вид = 5 Тогда
НоваяСтрока.НомерДокумента = "Т-" + РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 9, "0", 0);
ИначеЕсли НоваяСтрока.Вид = 6 Тогда
НоваяСтрока.НомерДокумента = "РБП-" + РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 7, "0", 0);
Иначе
НоваяСтрока.НомерДокумента = СокрЛП(ДокНомер);
КонецЕсли;
ИначеЕсли НоваяСтрока.ВидДокумента = "ОприходованиеУслуг" Тогда
НоваяСтрока.НомерДокумента = "У-" + РегламентированнаяОтчетность.ДополнитьСтроку(СокрЛП(ДокНомер), 9, "0", 0);
ИначеЕсли (НоваяСтрока.ВидДокумента = "ВыпискаИзБанка") Тогда
НоваяСтрока.НомерДокумента = СокрЛП(ПреобразованиеНомера(ДокНомер, 48));
ИначеЕсли (НоваяСтрока.ВидДокумента = "ПереоценкаВалюты") Тогда
НоваяСтрока.НомерДокумента = СокрЛП(Формат(ДокДата ,"ДФ=dd.MM.yyyy"));
Иначе
НоваяСтрока.НомерДокумента = СокрЛП(ДокНомер);
КонецЕсли;

НоваяСтрока.Сумма = V7БИ.ДО() - V7БИ.КО();
НоваяСтрока.Контрагент = Контрагент;
Если ЭлементСпсЗнач.Значение = "РКН" Тогда
V7БИ.ВыбратьСубконто(3);
Пока V7БИ.ПолучитьСубконто(3) = 1 Цикл
ДокСчет = V7БИ.Субконто(3);
НоваяСтрока.ДокСчет = СокрЛП(ДокСчет.НомерДок);
КонецЦикла;
КонецЕсли;

КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
V7БИ = 0;
//V7Организация = Неопределено;
КонецЦикла;
V7Счет = 0;
//V7Фирма = Неопределено;
V7Организация = 0;

Состояние("Обработка информации, полученной из основной базы...");

СоотвВидовДок = Новый Соответствие;
СоотвВидовДок.Вставить("БухПереброскаСредств", "Бух. переброска средств");
СоотвВидовДок.Вставить("ВыпискаИзБанка", "Выписка из банка");

Для каждого Стр Из ТЗСравнения77 Цикл
Если (Стр.ДокОснВид <> "") И (Стр.ДокОснНомер <> "") Тогда
СтруктураОтбора = Новый Структура();
СтруктураОтбора.Вставить("Контрагент", Стр.Контрагент);
СтруктураОтбора.Вставить("ДокСчет", Стр.ДокСчет);
СтруктураОтбора.Вставить("ВидДокумента", Стр.ДокОснВид);
СтруктураОтбора.Вставить("ПредставлениеНомДок", Стр.ДокОснНомер);

СтрокиКурсРазницы = ТЗСравнения77.НайтиСтроки(СтруктураОтбора);

Если СтрокиКурсРазницы.Количество() > 0 Тогда
Для каждого Элемент Из СтрокиКурсРазницы Цикл
Стр.ПредставлениеНомДок = СокрЛП(Элемент.ПредставлениеНомДок);
Стр.НомерДокумента = СокрЛП(Элемент.НомерДокумента);
Стр.ВидДокумента = Элемент.ВидДокумента;
Стр.ПредставлениеВидаДокумента = СоотвВидовДок.Получить(Стр.ДокОснВид);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;

ТЗВспом77 = "";
Если НЕ (ТЗДок77 = Неопределено) Тогда
ТЗВспом77 = ТЗДок77.Скопировать();
ТЗДок77.Очистить();
КонецЕсли;

ТЗДок77 = ТЗСравнения77.Скопировать(, "НомерДокумента, ПредставлениеНомДок, ПредставлениеВидаДокумента");

Если НЕ (ТЗВспом77 = "") Тогда
Для каждого Стр Из ТЗВспом77 Цикл
НоваяСтрока = ТЗДок77.Добавить();
НоваяСтрока.НомерДокумента = Стр.НомерДокумента;
НоваяСтрока.ПредставлениеНомДок = Стр.ПредставлениеНомДок;
НоваяСтрока.ПредставлениеВидаДокумента = Стр.ПредставлениеВидаДокумента;
КонецЦикла;
КонецЕсли;
ТЗДок77.Свернуть("НомерДокумента, ПредставлениеНомДок, ПредставлениеВидаДокумента");

ТЗСравнения77.Свернуть("КодФирмы, НомерДокумента, ВидДокумента, ПредставлениеВидаДокумента, ДатаДокумента,
|Организация, Счет, Контрагент", "Сумма");
Исключение
//Закрытие базы после получения данных
ЗакрытьВ7(в7, параметры);
КонецПопытки;

в7 = 0;
ЗакрытьВ7(в7, параметры);

Возврат ТЗСравнения77;