Имя: Пароль:
1C
1С v8
КД реквизит записывается только со второго раза
0 НикДляЗапросов
 
23.03.14
16:03
СчетУчета, СпособПогашенияЗадолженности  записываются только, если только при повторной загрузке, т.е. с двумя реквезитами ТЧ проблемы

Процедура ПКО_ПриЗагрузке_РасходныйКассовыйОрдер(ФайлОбмена, ОбъектНайден, Объект, НеЗамещатьОбъект, ОбъектМодифицирован) Экспорт

        Для Каждого Стр Из Объект.РасшифровкаПлатежа Цикл
            Стр.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически    
        КонецЦикла;
        
        Объект.Проведен = Ложь;
        СпрОрг = Справочники.Организации;
        НайденнаяСсылка = СпрОрг.НайтиПоКоду("000000001");
    
        Объект.Организация = НайденнаяСсылка;
        
        СпрВал = Справочники.Валюты;
        НайденнаяСсылка = СпрВал.НайтиПоКоду("643");
        Объект.ВалютаДокумента = НайденнаяСсылка;
        
        ОбъектМодифицирован = Истина;

КонецПроцедуры

Процедура ПКО_ПриЗагрузке_ПоступлениеТоваровУслуг(ФайлОбмена, ОбъектНайден, Объект, НеЗамещатьОбъект, ОбъектМодифицирован) Экспорт

        СпрОрг = Справочники.Организации;
        НайденнаяСсылка = СпрОрг.НайтиПоКоду("000000001");
        Объект.Организация = НайденнаяСсылка;
        
        СпрВал = Справочники.Валюты;
        НайденнаяСсылка = СпрВал.НайтиПоКоду("643");
        Объект.ВалютаДокумента = НайденнаяСсылка;
        
        Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
        
        Для каждого Стр из Объект.Товары Цикл
            Стр.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
        КонецЦикла;
        ОбъектМодифицирован = Истина;

КонецПроцедуры
1 zak555
 
23.03.14
16:15
используй типовые функции
2 НикДляЗапросов
 
23.03.14
16:16
ничего не понял
3 zak555
 
23.03.14
16:22
типа, в обработчике после загрузки

Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаРасчетов(Объект);
Программист всегда исправляет последнюю ошибку.