Имя: Пароль:
1C
 
Автоматическое заполнение платежно-расчетного документа в счет-фактуре
0 Banderoles
 
30.05.11
13:41
Доброго дня! конфигурация УТ 10.3.13.2
может у кого есть какой либо механизм автоматического заполнения даты и номера платежно-расчетного документа в счет-фактуре выданной на основании реализации???
1 Zolotko
 
30.05.11
13:43
а как платежное поручение привязано у вас к реализации?
2 Любопытная
 
30.05.11
13:43
дата\номер платежно-расчетного документа заполняются только для счет-фактур на аванс
3 comp2006
 
30.05.11
13:47
СчетФактураВыданный
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения, ОбновитьПараметры = Истина)
...............
   Если НЕ ДокументОснование = Неопределено Тогда
       Если ДокументОснование.ДокументыРасчетовСКонтрагентом.Количество() > 0 Тогда
           ДатаНомерДокументовОплаты.Очистить();
           Для каждого стр Из ДокументОснование.ДокументыРасчетовСКонтрагентом Цикл
               НовСтр =  ДатаНомерДокументовОплаты.Добавить();
               Если ТипЗнч(стр.ДокументРасчетовСКонтрагентом)=Тип("ДокументСсылка.ДокументРасчетовСКонтрагентом") или ТипЗнч(стр.ДокументРасчетовСКонтрагентом)=Тип("ДокументСсылка.ПлатежноеПоручениеВходящее") Тогда
                   Если ПустаяСтрока(стр.ДокументРасчетовСКонтрагентом.НомерВходящегоДокумента) Тогда
                       НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Номер;
                   Иначе
                       НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.НомерВходящегоДокумента;
                   КонецЕсли;
                   Если стр.ДокументРасчетовСКонтрагентом.ДатаВходящегоДокумента = Дата(1,1,1,0,0,0) Тогда
                       НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Дата;
                   Иначе
                       НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.ДатаВходящегоДокумента;
                   КонецЕсли;
               Иначе
                   НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Дата;
                   НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Номер;
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;
   КонецЕсли;

...............
КонецПроцедуры
AdBlock убивает бесплатный контент. 1Сергей