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