Доброго дня! конфигурация УТ 10.3.13.2
может у кого есть какой либо механизм автоматического заполнения даты и номера платежно-расчетного документа в счет-фактуре выданной на основании реализации???
СчетФактураВыданный
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения, ОбновитьПараметры = Истина)
...............
Если НЕ ДокументОснование = Неопределено Тогда
Если ДокументОснование.ДокументыРасчетовСКонтрагентом.Количество() > 0 Тогда
ДатаНомерДокументовОплаты.Очистить();
Для каждого стр Из ДокументОснование.ДокументыРасчетовСКонтрагентом Цикл
НовСтр = ДатаНомерДокументовОплаты.Добавить();
Если ТипЗнч(стр.ДокументРасчетовСКонтрагентом)=Тип("ДокументСсылка.ДокументРасчетовСКонтрагентом") или ТипЗнч(стр.ДокументРасчетовСКонтрагентом)=Тип("ДокументСсылка.ПлатежноеПоручениеВходящее") Тогда
Если ПустаяСтрока(стр.ДокументРасчетовСКонтрагентом.НомерВходящегоДокумента) Тогда
НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Номер;
Иначе
НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.НомерВходящегоДокумента;
КонецЕсли;
Если стр.ДокументРасчетовСКонтрагентом.ДатаВходящегоДокумента = Дата(1,1,1,0,0,0) Тогда
НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Дата;
Иначе
НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.ДатаВходящегоДокумента;
КонецЕсли;
Иначе
НовСтр.ДатаПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Дата;
НовСтр.НомерПлатежноРасчетногоДокумента = стр.ДокументРасчетовСКонтрагентом.Номер;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;