v8: Работа с макетом

 Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)

    ТабДок = Новый ТабличныйДокумент;

    Макет=ПолучитьМакет("Макет");

    ОбластьМакета=Макет.ПолучитьОбласть("Шапка");

    Областьмакета.Параметры.НазваниеТемы="Список льготников по" + " " + Регион;

    ТабДок.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");

    ТабДок.Вывести(ОбластьМакета);

    

    Запрос = Новый Запрос;

    ТекстЗапроса =

    "ВЫБРАТЬ

    |   ЛицевыеСчетаАбонентовЛьготники.Ссылка,

    |   ЛицевыеСчетаАбонентовЛьготники.Льгота,

    |   ЛицевыеСчетаАбонентов.Регион,

    |   ЛицевыеСчетаАбонентовЛьготники.ФИО.Наименование КАК ИмяЛьготник,

    |   ЛицевыеСчетаАбонентовЛьготники.ФИО.ДатаРождения КАК РожденияЛьготник,

    |   ЛицевыеСчетаАбонентов.Наименование КАК Адрес,

    |   ЛицевыеСчетаАбонентов.Код

    |ИЗ

    |   Справочник.ЛицевыеСчетаАбонентов.Льготники КАК ЛицевыеСчетаАбонентовЛьготники

    |       ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЛицевыеСчетаАбонентов КАК ЛицевыеСчетаАбонентов

    |       ПО ЛицевыеСчетаАбонентовЛьготники.Ссылка = ЛицевыеСчетаАбонентов.Ссылка";

    

    Если ЗначениеЗаполнено(Регион) Тогда

        ТекстЗапроса=ТекстЗапроса+"

        |ГДЕ

        |   ЛицевыеСчетаАбонентов.Регион=&Регион";

        Запрос.УстановитьПараметр("Регион",Регион);

    КонецЕсли;  

    Запрос.Текст=ТекстЗапроса;

    Результат = Запрос.Выполнить().Выбрать();

    Номер = 0;

    Пока Результат.Следующий() Цикл

        Номер = Номер + 1;

        Областьмакета=Макет.ПолучитьОбласть("Строка");

        ОбластьМакета.Параметры.Номер = Номер;

        ОбластьМакета.Параметры.ЛС = Результат.Код;

        ОбластьМакета.Параметры.ФИО = Результат.ИмяЛьготник;

        ОбластьМакета.Параметры.Дата = Формат(Результат.РожденияЛьготник,"ДЛФ=Д");

        ОбластьМакета.Параметры.Адрес = Результат.Адрес;

        ОбластьМакета.Параметры.КодЛьгот = Результат.Льгота.Код;

        ТабДок.Вывести(ОбластьМакета);

        Состояние("Количество льготников =" + " " + Номер);

    КонецЦикла;

    ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Портрет;

    ТабДок.АвтоМасштаб=Истина;

    ТабДок.ОтображатьСетку = Ложь;

    ТабДок.Защита = Ложь;

    ТабДок.ТолькоПросмотр = Истина;

    ТабДок.ОтображатьЗаголовки = Ложь; 

    ТабДок.ПовторятьПриПечатиСтроки=ТабДок.Область("R4:R5");  

    ТабДок.Показать();

    

КонецПроцедуры