ОперацияБух в Бухгалтерии предприятия: дозапись в регистры

Добрый день!
Прошу не кидать помидоры.
Если задача сформулирована неверно - просьба ткнуть/указать, где именно.
В Бухгалтерии предприятия есть некоторые ручные операции, которые должны попасть в книгу учёта доходов и расходов. Для таких операций нужно делать автоматически запись в регистр КУДИР.
И что-то не получается.
ОбработкиПроведения я не нашёл (она есть в подписке на события, но управления туда не передаётся, Сообщить("Ко ко ко") не отрабатывает).
В ПриЗаписи совать вроде как неправильно, но больше некуда... в итоге код отрабатывает, но по результатам записей в регистре - нет:
Процедура ПриЗаписи()
    // Необходимо доформировать КУДИР
    Если Организация.Код="000000001" Тогда // нельзя так делать, а что делать?
    набор=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        набор.Отбор.регистратор.установить(ЭтотОбъект.Ссылка);
        набор.Прочитать();
        суммаКУДИР=0;
        Для каждого текстр из набор цикл
            Если текстр.СчетКт.ПринадлежитЭлементу(ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками) и текстр.СчетДТ=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда Тогда
                суммаКУДИР=суммаКУДИР+1;
            КонецЕсли;
        КонецЦикла;

        Если СуммаКудир>0 Тогда
            новКУДИР=ЭтотОбъект.Движения.КнигаУчетаДоходовИРасходов.Добавить();
            новКУДИР.Организация=Организация;
            новКУДИР.Графа6=суммаКУДИР;
            новКУДИР.Графа7=суммаКУДИР;
            новКУДИР.Содержание="Выплата зарплаты";
            новКУДИР.РеквизитыПервичногоДокумента=ЭтотОбъект;
            новКУДИР.ВидРасхода=Перечисления.ВидыРасходовУСН.Зарплата;
            новКУДИР.Период=ЭтотОбъект.Дата;
            новкудир.Активность=Истина;

        КонецЕсли;
    КонецЕсли;
КонецПроцедуры