0
prog-Igor
07.11.14
✎
13:02
|
Не могу понять почему через область "Подвал" дублируется печатная форма,
вот код
Макет = Документы.РеализацияТоваровУслуг.ПолучитьМакет("ПечатьЧек");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РеализацияТоваровУслуг.Дата,
| РеализацияТоваровУслуг.Номер,
| РеализацияТоваровУслуг.Контрагент,
| РеализацияТоваровУслуг.Организация,
| РеализацияТоваровУслуг.СуммаДокумента,
| РеализацияТоваровУслуг.Товары.(
| НомерСтроки,
| Номенклатура,
| Упаковка,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Ссылка В(&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.Номер=выборка.Номер;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.Дата=Формат(Выборка.Дата, "ДЛФ=DD");
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
КонецЦикла;
Подвал=Макет.ПолучитьОбласть(Подвал);
Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.СуммаДокумента=ЧислоПрописью(Выборка.СуммаДокумента,"Л=uk_UA","гривня, гривні, гривень, м, копійка, копійки, копійок, ж, 2");
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
|
|