Шаблон вывода макета в 1с 8.2

Говорят когда Энштейна спросили «Чему равна скорость света ?», то он ответил- «Надо в справочнике посмотреть».

Если долгое время не делаешь разные отчеты, то забывается как выводить макет, сразу начинаешь перекапывать свои старые обработки. Чтобы это збежать вот образец:

ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(«МакетДефектовка»);

Область=Макет.ПолучитьОбласть(«Титул»);
Область.Параметры.НаимРабота=ЭтотОбъект.НаименованиеРабот1;
Область.Параметры.НаимОбъект=ЭтотОбъект.НаименованиеРабот2;
ТабДок.Вывести(Область);

Область=Макет.ПолучитьОбласть(«Шапка»);
ТабДок.Вывести(Область);
порНом=1;

Для каждого стр Из ЭтотОбъект.ПереченьОборудования Цикл
Область=Макет.ПолучитьОбласть(«Строка»);
Область.Параметры.ном=порНом;
Область.Параметры.наим=стр.Наименование.ПолноеНаименование;
Область.Параметры.едизм=стр.Наименование.ЕдИзм.Отображаемая;
Область.Параметры.колво=Формат((стр.Количество*стр.Наименование.ЕдИзм.Корректировка),»ЧДЦ=2; ЧРД=.; ЧН=; ЧГ=»);
ТабДок.Вывести(Область);
порНом=порНом+1;
КонецЦикла;

Область=Макет.ПолучитьОбласть(«Подписи»);
ТабДок.Вывести(Область);

ТабДок.АвтоМасштаб=Истина;
ТабДок.ПолеСлева=20;
ТабДок.ПолеСправа=10;
ТабДок.ПолеСверху=10;
ТабДок.ПолеСнизу=10;
ТабДок.Показать(«Печать дефектной ведомости»);

Запись опубликована в рубрике Программирование и сопровождение 1с. Добавьте в закладки постоянную ссылку.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

*

code