Имя: Пароль:
1C
1С v8
Подписака на событие. Ничего не происходит
0 r1000
 
04.06.15
11:18
Нужно откорректировать проводки документа в БП 3.0 после создания стандартных проводок.
Создал подписку:
источник - ДокументОбъект.РегламентнаяОперация,
событие - ОбработкаПроведения
Обработчик подписки поместил в серверный модуль.
Провожу документ РегламентнаяОперация и ничего не происходит. Новых проводок не создается. Вообще ничего не происходит.
В чем дело ?
Вот код код обработчика:
ДвиженияБУ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
ДвиженияБУ.Отбор.Регистратор.Установить(Источник.Ссылка);
ДвиженияБУ.Прочитать();
    
Счет2001 = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;                        
НовоеДвижениеБУ = ДвиженияБУ.Добавить();
НовоеДвижениеБУ.Период = Источник.Дата;
НовоеДвижениеБУ.Организация = Источник.Организация;
НовоеДвижениеБУ.Регистратор = Источник.Ссылка;
НовоеДвижениеБУ.Содержание = "Корректировка выпуска продукции (услуг)";
    
НовоеДвижениеБУ.СчетДт = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
НовоеДвижениеБУ.СчетКт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
НовоеДвижениеБУ.Сумма = 100;
ДвиженияБУ.Записать();
1 r1000
 
04.06.15
11:18
Тот же код в 8.2 исправно работал...
2 Fragster
 
гуру
04.06.15
11:19
ДвиженияБУ = Источник.Движения.Хозрасчетный;
....
Движения.Записывать = Истина;
3 Fragster
 
гуру
04.06.15
11:20
Прочитать, отбор - этого не надо
4 r1000
 
04.06.15
11:33
Не работает. Сейчас вот так:

    Если Отказ Тогда
        Возврат;
    КонецЕсли;
    
    ДвиженияБУ = Источник.Движения.Хозрасчетный;
    ДвиженияБУ.Записывать = Истина;
    
    //Счет2001 = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    //Субконто1Счет2001 = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000002");
    //                    
    НовоеДвижениеБУ = ДвиженияБУ.Добавить();
    НовоеДвижениеБУ.Период = Источник.Дата;
    НовоеДвижениеБУ.Организация = Источник.Организация;
    НовоеДвижениеБУ.Регистратор = Источник.Ссылка;
    НовоеДвижениеБУ.Содержание = "Корректировка выпуска продукции (услуг)";
    
    
    НовоеДвижениеБУ.СчетДт = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;    
    НовоеДвижениеБУ.СчетКт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;;    
    НовоеДвижениеБУ.Сумма = 111;    
    ДвиженияБУ.Записать();
5 Fragster
 
гуру
04.06.15
11:35
сейчас я может и фигню скажу, но этот документ он вообще проводится?
6 Fragster
 
гуру
04.06.15
11:35
или записывается с Проведен=Истина?