Предлагаю Вашему вниманию "васянский" способ переноса данных, но рабочий. Уже не раз выручал меня, когда времени на разбор премудростей конвертации данных не остается, а решение задачи не терпит отлагательств. Суть метода в следующем: на стороне базы-источника описываем набор полей данных в запросе первой вспомогательной обработки.
Эти данные будут выгружены в макет табличного документа. Необходимо скопировать содержимое полученного макета (из режима 1С Предприятие) и перенести его в макет второй вспомогательной обработки на стороне базы-приёмника(вставляем содержимое скопированного макета в макет второй обработки в режиме Конфигуратор). Далее на стороне базы-приёмника остается только загрузить входные данные. Данные будут считаны построчно из загруженного через конфигуратор макета таб.документа и на основе их создадут необходимые в конечной базе элементы.Здесь ниже привожу пример по загрузке документов ПриходныйКассовыйОрдер и РасходныйКассовыйОрдер за выбранный период из Бухгалтерии КОРП 3 в Комплексную автоматизацию 2.4. По необходимости Вам не составит труда адаптировать перенос под Ваши потребности, описав на стороне базы источника запрос к данным, а на стороне приёмника считать входные поля.
Работа проводилась на платформе (8.3.18.1208), на актуальных релизах Бухгалтерии(3.0) и Комплексной автоматизации (2.4.12.102)
Ниже фрагмент кода первой обработки по выгрузке данных из исходной базы:
Функция ТабДокДокументы() Экспорт //функция модуля объекта обработки
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Запрос = Новый Запрос;
Запрос.Текст =
""; //ЗДЕСЬ БУДЕТ ТЕКСТ ВАШЕГО ЗАПРОСА
Запрос.УстановитьПараметр("ДатаН", ДатаНачала);
Запрос.УстановитьПараметр("ДатаК", КонецДня(ДатаОкончания));
РезультатЗапроса = Запрос.Выполнить();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ОбластьЗаголовок.Параметры.ДатаНачала = Формат(ДатаНачала, "ДЛФ=D");
ОбластьЗаголовок.Параметры.ДатаОкончания = Формат(ДатаОкончания, "ДЛФ=D");
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
Возврат ТабДок;
КонецФункции
На форме обработки:
&НаКлиенте
Процедура ВыгрузитьДокументыВТабДок(Команда)
ВыгрузитьДокументыВТабДокНаСервере().Показать();
КонецПроцедуры
&НаСервере
Функция ВыгрузитьДокументыВТабДокНаСервере()
Возврат РеквизитФормыВЗначение("Объект").ТабДокДокументы();
КонецФункции
Вступайте в нашу телеграмм-группу Инфостарт
