ТабДокумент = ИнициализироватьТабДокумент(ЭтотОбъект,Макет,"АктПриемаПередачи",ПечатьШК);
ТекстЗаголовка = "Акт сдачи работ № "+Номер+" от " + Формат(Дата, "ДЛФ=DD");
ТабДокумент = ИнициализироватьТабДокумент(ЭтотОбъект,Макет,"АктСдачиРабот",ПечатьШК);
ОбластьМакета = Макет.ПолучитьОбласть("АктРаботы");
ОбластьМакета.Параметры.Номер=Номер;
ОбластьМакета.Параметры.Дата=Формат(Дата,"ДЛФ=DD");
ОбластьМакета.Параметры.ДатаСдачи=Формат(ДатаОтгружен,"ДЛФ=DD");
ОбластьМакета.Параметры.ОрганизацияПолноеНаименование = Организация.НаименованиеПолное;
ОбластьМакета.Параметры.ДолжностьРуководителя = Организация.ДолжностьРуководителя;
ОбластьМакета.Параметры.Руководитель = Организация.Руководитель;
ОбластьМакета.Параметры.ВЛице = Организация.ВЛице;
ОбластьМакета.Параметры.ВЛицеДолжность = Организация.ВЛицеДолжность;
ОбластьМакета.Параметры.ВЛицеОснование = Организация.ВЛицеОснование;
ОбластьМакета.Параметры.КонтрагентПолноеНаименование = Контрагент.НаименованиеПолное;
ОбластьМакета.Параметры.ДолжностьСотрудника = Менеджер.СотрудникДолжность;
ОбластьМакета.Параметры.НаименованиеСотрудника = Менеджер.Наименование;
ОбластьМакета.Параметры.Модель=Автомобиль.Модель;
ОбластьМакета.Параметры.ГосНомер=ГосНомер;
ОбщаяСумма=Товары.Итог("ВСЕГО")+Материалы.Итог("Всего")+Услуги.Итог("ВСЕГО");
ОбластьМакета.Параметры.Стоимость="Стоимость работ составила "+Формат(ОбщаяСумма,"ЧДЦ=2")+" ("+ЧислоПрописью(ОбщаяСумма,"L=ru_RU", ВалютаДокумента.ПараметрыПрописиНаРусском)+")";
Если УчитыватьНДС Тогда
ОбластьМакета.Параметры.Стоимость=ОбластьМакета.Параметры.Стоимость+Символы.ПС+"В т.ч. НДС: "+Формат(Услуги.Итог("СуммаНДС")+Товары.Итог("СуммаНДС")+Материалы.Итог("СуммаНДС"),"ЧДЦ=2")+" "+ВалютаДокумента.Наименование;
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
//Печать АктАвтомобиль
ОбластьМакета = Макет.ПолучитьОбласть("АктАвтомобиль");
ОбластьМакета.Параметры.ДатаСдачи=Формат(ДатаОтгружен,"ДЛФ=DD");
ОбластьМакета.Параметры.ОрганизацияПолноеНаименование = Организация.НаименованиеПолное;
ОбластьМакета.Параметры.ДолжностьРуководителя = Организация.ДолжностьРуководителя;
ОбластьМакета.Параметры.Руководитель = Организация.Руководитель;
ОбластьМакета.Параметры.ВЛице = Организация.ВЛице;
ОбластьМакета.Параметры.ВЛицеДолжность = Организация.ВЛицеДолжность;
ОбластьМакета.Параметры.ВЛицеОснование = Организация.ВЛицеОснование;
ОбластьМакета.Параметры.КонтрагентПолноеНаименование = Контрагент.НаименованиеПолное;
ОбластьМакета.Параметры.ДолжностьСотрудника = Менеджер.СотрудникДолжность;
ОбластьМакета.Параметры.НаименованиеСотрудника = Менеджер.Наименование;
ОбластьМакета.Параметры.Модель=Автомобиль.Модель;
ОбластьМакета.Параметры.ГосНомер=ГосНомер;
ТабДокумент.Вывести(ОбластьМакета);
ВывестиТабДокумент(ТабДокумент,НаПринтер,ТекстЗаголовка);
|
