Имя: Пароль:
1C
1С v8
Корректировка проведения документа
0 88g88
 
16.09.19
16:47
Здравствуйте форумчане.
В момент проведения документа необходимо скорректировать второе субконто.
Пробую сделать следующим образом.


            Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
            Набор.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка);
            Набор.Прочитать();
            Для каждого Запись из Набор Цикл
                
                Если Запись.СчетДт =  ПланыСчетов.Хозрасчетный.ТоварыНаСкладах Тогда
                    // для переборов субконто
                    Запись.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = ЭтотОбъект.Ссылка;
                    // указывая конкретное значение
                    //Запись.СубконтоКт.Договоры = Объект.ДоговорКонтрагента;
                КонецЕСли;
                
            КонецЦикла;
            Набор.Записать();  


подскажите как корректно сделать?
1 88g88
 
16.09.19
16:48
закоментарованный текст не берите во внимание.
2 zuza
 
16.09.19
16:56
У объекта есть Движения, их и перебирай. А вообще не правильно все это... Почему в момент формирования проводок их не скорректировать?
3 88g88
 
16.09.19
17:00
(2) В момент формирования и пытаюсь.
это все пытаюсь вписать в конец Процедура ОбработкаПроведения(Отказ, РежимПроведения)
4 88g88
 
16.09.19
17:02
строки видит читает но не переписывает значение при записи.
в отладчике значение "ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии" меняется после строки в условии если.
но не записывает.
5 zuza
 
16.09.19
17:03
Для Каждого ТекДвижение Из Движения.Хозрасчетный Цикл

КонецЦикла;
6 88g88
 
16.09.19
17:09
(5) Ага, спасибо!
7 88g88
 
16.09.19
17:18
по итогу выглядит так.

                Для каждого Запись из Движения.Хозрасчетный Цикл
            
            Если Запись.СчетДт =  ПланыСчетов.Хозрасчетный.ТоварыНаСкладах Тогда
                
                Запись.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = ЭтотОбъект.Ссылка;
                
            КонецЕсли;
            
        КонецЦикла;
        Движения.Хозрасчетный.Записать();

мало ли пригодится кому
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший