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