Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 сен 2021, 23:19

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

Автор matroskin, 02 июл 2013, 16:13

0 Пользователей и 1 гость просматривают эту тему.

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


Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск