0
demous
19.01.12
✎
14:57
|
УПП 8.2 к ЗаявкеНаРасходованиеСредств создана впф, как вот в эту функцию добавить СуммаНДС ( ЗаявкаНаРасходованиеСредств-Реквизиты-ТабличнаяЧасть-РасшифровкаПлатежа-СуммаНДС )
Функция ПечатьЗаявки(ВыбДокумент)
ТабДокумент = Новый ТабличныйДокумент;
// Зададим параметры макета
Если ВыбДокумент.ФормаОплаты=Перечисления.ВидыДенежныхСредств.Безналичные тогда
Макет = ПолучитьМакет("МакетБезнал");
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ОбластьМакета.Параметры.Поставщик = ВыбДокумент.Контрагент;
ОбластьМакета.Параметры.НомерСчета = ВыбДокумент.НомерСчета;
ОбластьМакета.Параметры.ДатаСчета = Формат(ВыбДокумент.ДатаСчета,"ДЛФ=Д");
ОбластьМакета.Параметры.Сумма = ВыбДокумент.СуммаДокумента;
//ОбластьМакета.Параметры.Основание = ВыбДокумент.Комментарий;
ОбластьМакета.Параметры.Комментарий = ВыбДокумент.Комментарий;
ОбластьМакета.Параметры.Ответственный = ВыбДокумент.Ответственный;
ОбластьМакета.Параметры.Обоснование = ВыбДокумент.Описание;
ОбластьМакета.Параметры.Подразделение = ВыбДокумент.ЦФО;
ОбластьМакета.Параметры.Дата = формат(ВыбДокумент.Дата,"ДЛФ=Д");
ОбластьМакета.Параметры.Номер = ВыбДокумент.Номер;
иначе
Макет = ПолучитьМакет("МакетНал");
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ОбластьМакета.Параметры.Сумма = ВыбДокумент.СуммаДокумента;
ОбластьМакета.Параметры.Дата = формат(ВыбДокумент.Дата,"ДЛФ=Д");
//ОбластьМакета.Параметры.Обоснование = ВыбДокумент.Описание;
ОбластьМакета.Параметры.Подразделение = ВыбДокумент.ЦФО;
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ТабДокумент.ПолеСверху = 5;
ТабДокумент.ПолеСлева = 10;
ТабДокумент.ПолеСнизу = 5;
ТабДокумент.ПолеСправа = 5;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.Показать("Печать заявки");
Возврат ТабДокумент;
КонецФункции // ПечатьЗаявки()
|
|