Как выгрузить данные из другой базы с помощью com соединения?

[matroskin]

Ребят, есть конфигурация ЖКХ, есть обработка, которая просто выводит в таблицу квартиру и ответственное лицо по квартире.
Задача: подключиться к этой базе из конфигурации БГУ запустить в ней эту обработку и выгрузить эти данные в БГУ.

Код Выделить Развернуть


V82 = Новый COMобъект("V82.ComConnector");

СтрокаПодключения = "file='" + "C:\Users\maksi_000\Desktop\Работа\1c\ЖКХ_пустая"
+ "'; usr='" + "ЖКХ" + "'; pwd='" + "" + "';";

Попытка

Соединение = V82.Connect(СтрокаПодключения);
Сообщить("Соединение успешно установленно");

Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

ДокНайти = Соединение.Обработки.АБ_ВыгрузкаПроживающих.Create();



[matroskin]

Справился с задачей.

Код Выделить Развернуть

V82 = Новый COMобъект("V82.ComConnector");

СтрокаПодключения = "file='" + "C:\Users\maksi_000\Desktop\Работа\1c\ЖКХ_пустая"
+ "'; usr='" + "ЖКХ" + "'; pwd='" + "" + "';";

Попытка

Соединение = V82.Connect(СтрокаПодключения);
Сообщить("Соединение успешно установленно");

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

ВыборкаЛицевогоСчета = Соединение.РегистрыСведений.КВП_ЛицевыеСчета.SliceLast(ТекущаяДата());

ВыборкаОтвественные  = Соединение.РегистрыСведений.УПЖКХ_ОтветственныйСобственникНанимательЛицевогоСчета.SliceLast(ТекущаяДата());

Для каждого стр из ВыборкаЛицевогоСчета цикл

Для каждого стр2 из ВыборкаОтвественные цикл

Если стр.ЛицевойСчет.Code = стр2.ЛицевойСчет.Code Тогда

стртб     = ТабличнаяЧасть1.Добавить();
стртб.Квартира = стр.Объект.Description;
стртб.ФизЛицо  = стр2.ОтветственныйВладелец.ФизЛицо.Description;

ПроверитьОтветственных(стртб);

КонецЕсли;

конеццикла;

КонецЦикла;


[MuI_I_Ika]

Отлично, выкладывай в репозитарий обработок https://forum-baza.ru/index.php?board=89.0