Разработка на 1С29 ноября 2009 г.Актуальность проверена: 15 сентября 2026 г.Время чтения: 1 мин
1С8 Макет пример
1С8 Макет пример
Процедура по заполнению макета:
Процедура ПечатьКурсаУЕ(Кнопка)
Набор=РегистрыСведений.Курсы.СоздатьНаборЗаписей();
Набор.Прочитать();
к=Набор.Количество();
Для н=0 по к-1 Цикл
ТекСтрока=Набор[н];
Сообщить(""+ТекСтрока.Период+Символы.Таб+ТекСтрока.Курс);
КонецЦикла;
ТабДок=Новый ТабличныйДокумент();
Макет=ПолучитьОбщийМакет("КурсУЕ");
Область=Макет.ПолучитьОбласть("Заголовок");
Область.Параметры.НаименованиеОрганизации=Константы.НаименованиеОрганизации.Получить();
ТабДок.Вывести(Область);
Область=Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Область);
Область=Макет.ПолучитьОбласть("Строка");
Набор=Регистрысведений.Курсы.СоздатьНаборЗаписей();
Набор.Прочитать();
к=Набор.Количество();
Для н=0 по к-1 Цикл
ТекСтрока=Набор[н];
Область.Параметры.Дата=ТекСтрока.Период;
Область.Параметры.Значение=ТекСтрока.Курс;
ТабДок.Вывести(Область);
КонецЦикла;
ТабДок.ИмяПараметровПечати = "ПараметрыКурсаУЕ";
ТабДок.ИмяСохраненияПоложенияОкна = "ОкноКурсаУЕ";
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.СохранятьСвойстваОтображения = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ФиксацияСверху = 3;
ТабДок.Показать("История курса УЕ");
КонецПроцедуры
Сам макет содержит параметры Дата и Значение.