Конвертация данных 2. Два документа в один
По теме из базы знаний
- 1С: Конвертация данных 2. Разработка с "нуля" на простых примерах разработки
- Механизмы и транспорт обмена данными. Пример создания в КД 2.1 правил обмена данными ЗУП 2.5 -> БП 3.0. Выгрузка ведомостей и банковских счетов. Передача параметров обмена из Источника в Приемник. ВыгрузитьПоПравилу(). ПередатьОдинПараметрВПриемник().
- Пример создания в КД 2.1 правил выгрузки данных регистра «Лицевые счета работников» из ЗУП 2.5 в справочник «Банковские счета» БП 3.0. Подробно, ясно и просто.
- Конвертация данных 2. Использование исходящих и входящих данных. Свойство "Получить из входящих данных"
- Универсальный обмен XML (КД 2) + RabbitMQ – простая и комфортная работа вместе
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)А зачем в приемнике? Делайте объединяющий запрос в ПВД Перед выгрузкой
Переопределяем Объект и всего делоф
Переопределяем Объект и всего делоф
Запрос = Новый Запрос("ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка КАК Ссылка,
| &Дата КАК Дата,
| ПоступлениеТоваровУслуг.Организация КАК Организация,
| ПоступлениеТоваровУслуг.Контрагент КАК Контрагент,
| ПоступлениеТоваровУслуг.ДоговорКонтрагента КАК ДоговорКонтрагента,
| ПоступлениеТоваровУслуг.Номер КАК НомерДокумента,
| ПоступлениеТоваровУслуг.СуммаДокумента КАК СуммаДокумента
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| НАЧАЛОПЕРИОДА(ПоступлениеТоваровУслуг.Дата, ДЕНЬ) = &Дата
| И ПоступлениеТоваровУслуг.Организация = &Организация
| И ПоступлениеТоваровУслуг.ДоговорКонтрагента = &ДоговорКонтрагента
|ИТОГИ
| МИНИМУМ(Ссылка),
| МАКСИМУМ(Организация),
| МАКСИМУМ(Контрагент),
| МАКСИМУМ(ДоговорКонтрагента)
|ПО
| Дата");
Запрос.УстановитьПараметр("Дата",НачалоДня(Объект.Дата));
Запрос.УстановитьПараметр("Организация",НачалоДня(Объект.Организация));
Запрос.УстановитьПараметр("ДоговорКонтрагента",НачалоДня(Объект.ДоговорКонтрагента));
//Переопределяем объект выгрузки в структуру для передачи в ПКО
//Структура должна содержать рекизиты документа приемника
Объект = Новый Структура("Ссылка,Дата,Организация,Контрагент,ДоговорКонтрагента,Документы");
Объект.Документы = Новый ТаблицаЗначений;
Объект.Документы.Колонки.Добавить("НомерДокумента");
Объект.Документы.Колонки.Добавить("СуммаДокумента");
ВыборкаДокумент = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ВыборкаДокумент.Следующий();
ЗаполнитьЗначенияСвойств(Объект,ВыборкаДокументы);
ВыборкаСтроки = ВыборкаДокумент.Выбрать();
Пока ВыборкаСтроки.Следующий() Цикл
ЗаполнитьЗначенияСвойств(Объект.Документы.Добавить(),ВыборкаСтроки);
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот