Имя: Пароль:
1C
1С v8
Проблема с ВПФ
0 demous
 
19.01.12
14:57
УПП 8.2 к ЗаявкеНаРасходованиеСредств создана впф, как вот в эту функцию добавить СуммаНДС ( ЗаявкаНаРасходованиеСредств-Реквизиты-ТабличнаяЧасть-РасшифровкаПлатежа-СуммаНДС )


Функция ПечатьЗаявки(ВыбДокумент)

   ТабДокумент  = Новый ТабличныйДокумент;
   
   // Зададим параметры макета
       
   Если ВыбДокумент.ФормаОплаты=Перечисления.ВидыДенежныхСредств.Безналичные тогда
       Макет = ПолучитьМакет("МакетБезнал");
       ОбластьМакета = Макет.ПолучитьОбласть("Шапка");    
       ОбластьМакета.Параметры.Поставщик = ВыбДокумент.Контрагент;
       ОбластьМакета.Параметры.НомерСчета = ВыбДокумент.НомерСчета;
       ОбластьМакета.Параметры.ДатаСчета = Формат(ВыбДокумент.ДатаСчета,"ДЛФ=Д");
       ОбластьМакета.Параметры.Сумма = ВыбДокумент.СуммаДокумента;
       //ОбластьМакета.Параметры.Основание = ВыбДокумент.Комментарий;
       ОбластьМакета.Параметры.Комментарий = ВыбДокумент.Комментарий;
       ОбластьМакета.Параметры.Ответственный = ВыбДокумент.Ответственный;
       ОбластьМакета.Параметры.Обоснование = ВыбДокумент.Описание;
       ОбластьМакета.Параметры.Подразделение = ВыбДокумент.ЦФО;
       ОбластьМакета.Параметры.Дата = формат(ВыбДокумент.Дата,"ДЛФ=Д");
       ОбластьМакета.Параметры.Номер = ВыбДокумент.Номер;
   иначе    
       Макет = ПолучитьМакет("МакетНал");
       ОбластьМакета = Макет.ПолучитьОбласть("Шапка");    
       ОбластьМакета.Параметры.Сумма = ВыбДокумент.СуммаДокумента;
       ОбластьМакета.Параметры.Дата = формат(ВыбДокумент.Дата,"ДЛФ=Д");
       //ОбластьМакета.Параметры.Обоснование = ВыбДокумент.Описание;
       ОбластьМакета.Параметры.Подразделение = ВыбДокумент.ЦФО;        
   КонецЕсли;    
   
   ТабДокумент.Вывести(ОбластьМакета);
   
   ТабДокумент.ОриентацияСтраницы      = ОриентацияСтраницы.Портрет;
   ТабДокумент.ПолеСверху              = 5;
   ТабДокумент.ПолеСлева               = 10;
   ТабДокумент.ПолеСнизу               = 5;
   ТабДокумент.ПолеСправа              = 5;    
   ТабДокумент.АвтоМасштаб             = Истина;
   
   ТабДокумент.Показать("Печать заявки");
   
   Возврат ТабДокумент;

КонецФункции // ПечатьЗаявки()
1 demous
 
19.01.12
15:07
чтобы на печатную форму ее вывести
2 demous
 
19.01.12
15:16
плз
3 demous
 
19.01.12
15:28
ну тко-нибудь плиз
4 Поpyчик-4
 
19.01.12
15:35
Запрос к табличной части или ВыбДокумент.РасшифровкаПлатежа.Итог("СуммаНДС")