|
| РеализацияТоваровУслуг.СерияНоменклатуры ЯК Серія,
| РеализацияТоваровУслуг.СтавкаНДС,
| РеализацияТоваровУслуг.Цена * & Курс/& Кратність ЯК Ціна,
| СУМА (РеализацияТоваровУслуг.Количество) ЯК Кількість,
|
| СУМА (РеализацияТоваровУслуг.Сумма * & Курс/& Кратність) ЯК Сума,
| СУМА (РеализацияТоваровУслуг.СуммаНДС * & Курс/& Кратність) ЯК
Якщо ІтогоМест> 0 Тоді
ОбластьМакета.Параметры.ВсегоМестПрописью = ЧіслоПропісью (ІтогоМест,, ",,,,,,,, 0");
КонецЕсли;
Якщо (НомерСтраніци> 10) І (НомерСтраніци <20) Тоді
Слово = "аркушах";
Інакше
ПоследняяЦіфра = НомерСтраніци% 10;
Якщо ПоследняяЦіфра = 1 Тоді
Слово = "аркуші";
Інакше
Слово = "аркушах";
КонецЕсли;
КонецЕсли;
ОбластьМакета.Параметры.СуммаПрописью = СформіроватьСуммуПропісью (ІтогоСуммаСНДС, мВалютаРегламентированногоУчета);
ТабДокумент.Вивесті (ОбластьМакета);
// Задамо параметри макета
ТабДокумент.ПолеСверху = 0;
ТабДокумент.ПолеСлева = 0;
ТабДокумент.ПолеСнізу = 0;
ТабДокумент.ПолеСправа = 0;
ТабДокумент.РазмерКолонтитулаСверху = 0;
ТабДокумент.РазмерКолонтитулаСнизу = 0;
ТабДокумент.АвтоМасштаб = Істина;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Повернення ТабДокумент;
КонецФункции// ПечатьТОРГ12 ()
****************************************** ***************
Процедура ОбработкаЗаполненія (Підстава)
Якщо ТіпЗнч (Підстава) = Тип ("ДокументСсылка.ЗаказПокупателя")
АБО ТіпЗнч (Підстава) = Тип ("ДокументСсылка.СчетНаОплатуПокупателю") Тоді
// Заповнимо реквізити шапки по документу основи.
АдресДоставкі = Основан...