Макеты

Процедура Печать(ТабДок, Ссылка) Экспорт
    //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
    Макет = Документы.КупляПродажа1.ПолучитьМакет("Печать");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |   КупляПродажа1.Дата,
    |   КупляПродажа1.Номер,
    |   КупляПродажа1.Организация,
    |   КупляПродажа1.Покупатель,
    |   КупляПродажа1.СуммаКвартирыСПроцентами,
    |   КупляПродажа1.ТабКредит.(
    |       НомерСтроки,
    |       ДатаОплаты,
    |       СуммаОплаты,
    |       ОстатокДолга
    |   )
    |ИЗ
    |   Документ.КупляПродажа1 КАК КупляПродажа1
    |ГДЕ
    |   КупляПродажа1.Ссылка В (&Ссылка)";
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();
 
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    Шапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьТабКредитШапка = Макет.ПолучитьОбласть("ТабКредитШапка");
    ОбластьТабКредит = Макет.ПолучитьОбласть("ТабКредит");
    ТабДок.Очистить();
 
    ВставлятьРазделительСтраниц = Ложь;
    Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
 
        ТабДок.Вывести(ОбластьЗаголовок);
 
        Шапка.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(Шапка, Выборка.Уровень());
 
        ТабДок.Вывести(ОбластьТабКредитШапка);
        ВыборкаТабКредит = Выборка.ТабКредит.Выбрать();
        Пока ВыборкаТабКредит.Следующий() Цикл
            ОбластьТабКредит.Параметры.Заполнить(ВыборкаТабКредит);
            ТабДок.Вывести(ОбластьТабКредит, ВыборкаТабКредит.Уровень());
        КонецЦикла;
 
        ВставлятьРазделительСтраниц = Истина;
    КонецЦикла;
    //}}
    ОблПодвал = Макет.ПолучитьОбласть("Подвал");
    ТабДок.Вывести(ОблПодвал);
КонецПроцедуры

т=Новый Массив;
Т.Добавить(ПодвалДокумента);
ПустыхСтрок=0;
Пока ТабДок.ПроверитьВывод(Т) Цикл
Т.Добавить(СтрокаДокумента);
ПустыхСтрок=ПустыхСтрок+1;
КонецЦикла;