Макеты

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабКредитШапка = Макет.ПолучитьОбласть("ТабКредитШапка");
ОбластьТабКредит = Макет.ПолучитьОбласть("ТабКредит");
ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьТабКредитШапка);
ВыборкаТабКредит = Выборка.ТабКредит.Выбрать();
Пока ВыборкаТабКредит.Следующий() Цикл
ОбластьТабКредит.Параметры.Заполнить(ВыборкаТабКредит);
ТабДок.Вывести(ОбластьТабКредит, ВыборкаТабКредит.Уровень());
КонецЦикла;

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
ОблПодвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Вывести(ОблПодвал);
КонецПроцедуры