Подписака на событие. Ничего не происходит

1С v8

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

или записывается с Проведен=Истина?