0
НикДляЗапросов
23.03.14
✎
16:03
|
СчетУчета, СпособПогашенияЗадолженности записываются только, если только при повторной загрузке, т.е. с двумя реквезитами ТЧ проблемы
Процедура ПКО_ПриЗагрузке_РасходныйКассовыйОрдер(ФайлОбмена, ОбъектНайден, Объект, НеЗамещатьОбъект, ОбъектМодифицирован) Экспорт
Для Каждого Стр Из Объект.РасшифровкаПлатежа Цикл
Стр.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически
КонецЦикла;
Объект.Проведен = Ложь;
СпрОрг = Справочники.Организации;
НайденнаяСсылка = СпрОрг.НайтиПоКоду("000000001");
Объект.Организация = НайденнаяСсылка;
СпрВал = Справочники.Валюты;
НайденнаяСсылка = СпрВал.НайтиПоКоду("643");
Объект.ВалютаДокумента = НайденнаяСсылка;
ОбъектМодифицирован = Истина;
КонецПроцедуры
Процедура ПКО_ПриЗагрузке_ПоступлениеТоваровУслуг(ФайлОбмена, ОбъектНайден, Объект, НеЗамещатьОбъект, ОбъектМодифицирован) Экспорт
СпрОрг = Справочники.Организации;
НайденнаяСсылка = СпрОрг.НайтиПоКоду("000000001");
Объект.Организация = НайденнаяСсылка;
СпрВал = Справочники.Валюты;
НайденнаяСсылка = СпрВал.НайтиПоКоду("643");
Объект.ВалютаДокумента = НайденнаяСсылка;
Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
Для каждого Стр из Объект.Товары Цикл
Стр.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
КонецЦикла;
ОбъектМодифицирован = Истина;
КонецПроцедуры
|
|