Есть табличная часть документа. В ней могут повторяться следующие данные:
- дата отгрузки
- контрагент
- адрес доставки
Поэтому задача такая: при печати, в печатную форму должны попасть итоговые данные по каждому контрагенту (сумма доставки, сумма заказов, вес заказов), но в поля состояние сборки, примечание, комментарий, должны попасть комментарии из всех строк. например состояние сборки должно будет выглядеть так: отгрузка/отгрузка/не собран. в случае если по контрагенту было 3 заказа. тоже самое должно быть и с примечаниями и комментариями.) как можно это реализовать?
- дата отгрузки
- контрагент
- адрес доставки
Поэтому задача такая: при печати, в печатную форму должны попасть итоговые данные по каждому контрагенту (сумма доставки, сумма заказов, вес заказов), но в поля состояние сборки, примечание, комментарий, должны попасть комментарии из всех строк. например состояние сборки должно будет выглядеть так: отгрузка/отгрузка/не собран. в случае если по контрагенту было 3 заказа. тоже самое должно быть и с примечаниями и комментариями.) как можно это реализовать?
Прикрепленные файлы:

По теме из базы знаний
Найденные решения
ТЗ = ТЧДокумента.Выгрузить();
ТЗ.Свернуть("ДатаОтгрузки,Контрагент,АдресДоставки", "СуммаДоставки,СуммаЗаказов,ВесЗаказов");
Для Каждого СтрокаТЗ Из ТЗ Цикл
СостояниеОбщ = "";
ПримечаниеОбщ = "";
КомментарийОбщ = "";
НайдСтроки = ТЧДокумента.НайтиСтроки(Новый Структура("ДатаОтгрузки,Контрагент,АдресДоставки",
СтрокаТЗ.ДатаОтгрузки, СтрокаТЗ.Контрагент, СтрокаТЗ.АдресДоставки));
Для Каждого НайдСтрока Из НайдСтроки Цикл
СостояниеОбщ = СостояниеОбщ + "/" + НайдСтрока.Состояние;
ПримечаниеОбщ = ПримечаниеОбщ + "/" + НайдСтрока.Примечание;
КомментарийОбщ = КомментарийОбщ + "/" + НайдСтрока.Комментарий;
КонецЦикла;
СостояниеОбщ = Сред(СостояниеОбщ,2);
ПримечаниеОбщ = Сред(ПримечаниеОбщ,2);
КомментарийОбщ = Сред(КомментарийОбщ,2);
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ОбластьМакета.Параметры.Заполнить(СтрокаТЗ);
ОбластьМакета.Параметры.Состояние = СостояниеОбщ;
ОбластьМакета.Параметры.Примечание = ПримечаниеОбщ;
ОбластьМакета.Параметры.Комментарий = КомментарийОбщ;
ТабДокумент.Вывести(ОбластьМакета);
КонецЦикла;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
ТЗ = ТЧДокумента.Выгрузить();
ТЗ.Свернуть("ДатаОтгрузки,Контрагент,АдресДоставки", "СуммаДоставки,СуммаЗаказов,ВесЗаказов");
Для Каждого СтрокаТЗ Из ТЗ Цикл
СостояниеОбщ = "";
ПримечаниеОбщ = "";
КомментарийОбщ = "";
НайдСтроки = ТЧДокумента.НайтиСтроки(Новый Структура("ДатаОтгрузки,Контрагент,АдресДоставки",
СтрокаТЗ.ДатаОтгрузки, СтрокаТЗ.Контрагент, СтрокаТЗ.АдресДоставки));
Для Каждого НайдСтрока Из НайдСтроки Цикл
СостояниеОбщ = СостояниеОбщ + "/" + НайдСтрока.Состояние;
ПримечаниеОбщ = ПримечаниеОбщ + "/" + НайдСтрока.Примечание;
КомментарийОбщ = КомментарийОбщ + "/" + НайдСтрока.Комментарий;
КонецЦикла;
СостояниеОбщ = Сред(СостояниеОбщ,2);
ПримечаниеОбщ = Сред(ПримечаниеОбщ,2);
КомментарийОбщ = Сред(КомментарийОбщ,2);
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ОбластьМакета.Параметры.Заполнить(СтрокаТЗ);
ОбластьМакета.Параметры.Состояние = СостояниеОбщ;
ОбластьМакета.Параметры.Примечание = ПримечаниеОбщ;
ОбластьМакета.Параметры.Комментарий = КомментарийОбщ;
ТабДокумент.Вывести(ОбластьМакета);
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот