Добрый день. БП 3.0. Сделал подписку на событие при записи в регистр бухгалтерии, чтобы делались записи по взаиморасчетам с контрагентами в добавленный регистр. Запись в регистр происходит через раз. Провели док, делающий движения в регистр бухгалтерии первый раз - проводки в новый регистр записались. Перепровели - проводки исчезли. Если отменить проведение и провести - отрабатывает. Привожу код общего модуля:

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

Помогите, пожалуйста, уже не знаю куда копать.

ты внутри подписки ПриЗаписи записываешь тот же набор, на котрый подписка выполняется?

РегистрыНакопления.АТБ_ВзаиморасчетыСКонтрагентами.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(Источник.Отбор.Регистратор.Значение);
    ВзаиморасчетыСКонтрагентами.Записывать = Истина;

Это что за хрень?

(1) Подписка выполняется на событие ПриЗаписи регистра бухгалтерии. То есть, когда проводки записываются в РБ, я пишу свои проводки в свой регистр.

(2) Без отбора ошибка- "не установлен отбор по регистратору"

(4) Интересует, в 1-й и 3-й строке один и тот же регистр?

(4) Подозреваю, что вопрос все же в том - кто такой "Набор" и откуда взялся. Ну и кто такой "ВзаиморасчетыСКонтрагентами" тоже. И на кой ему ставить флаг "Записывать", если ты не в обработке проведения

(5) Да, один и тот же, Простите, я сплю.
Вот нормальный код
УстановитьПривилегированныйРежим(Истина);
Набор = РегистрыНакопления.АТБ_ВзаиморасчетыСКонтрагентами.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(Источник.Отбор.Регистратор.Значение);
    АТБ_ВзаиморасчетыСКонтрагентами.Записывать = Истина;
    Для Каждого стр из Источник Цикл
        Если стр.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСРозничнымиПокупателями Тогда            
            Движение = Набор.Добавить();
            Движение.ВидДвижения=ВидДвиженияНакопления.Приход;
            Движение.Регистратор = Источник.Отбор.Регистратор.Значение;
            Движение.Контрагент = Источник.Отбор.Регистратор.Значение.Контрагент;
            Движение.Договор = Источник.Отбор.Регистратор.Значение.ДоговорКонтрагента;        
            Движение.Сумма = стр.Сумма;
            Движение.Период = стр.Период;
        ИначеЕсли стр.СчетКт = ПланыСчетов.Хозрасчетный.РасчетыСРозничнымиПокупателями Тогда
            Движение = Набор.Добавить();
            Движение.ВидДвижения=ВидДвиженияНакопления.Расход;
            Движение.Регистратор = Источник.Отбор.Регистратор.Значение;
            Движение.Контрагент = Источник.Отбор.Регистратор.Значение.Контрагент;
            Движение.Договор = Источник.Отбор.Регистратор.Значение.ДоговорКонтрагента;        
            Движение.Сумма = стр.Сумма;
            Движение.Период = стр.Период;    
        КонецЕсли;
    КонецЦикла;
    Набор.Записать(Истина);
    УстановитьПривилегированныйРежим(Ложь);

(0) >Провели первый раз - проводки в новый регистр записались. Перепровели - проводки исчезли. Если отменить и провести - отрабатывает.

а подписка-то эта вызывается в тех случаях, когда новые движения не делаются?

(8) Судя по всему нет, если проводки через раз пишутся. Как отловить это событие?

(7) все равно это не рабочий код
вот это все же что за хрень
АТБ_ВзаиморасчетыСКонтрагентами.Записывать = Истина;

и у набора записей нет такого события "При изменении"

(10) Так вешаю на событие ПриЗаписи а не на ПриИзменении
РегистрыНакопления.АТБ_ВзаиморасчетыСКонтрагентами.Записывать = Истина;
Снова извиняюсь.

смотри отладчиком когда и в каком случае вызывается

(11) ну это  

РегистрыНакопления.АТБ_ВзаиморасчетыСКонтрагентами.Записывать = Истина;  зачем пишешь? выкинь

(13) Даже если это выкинуть - отрабатывает абсолютно также.

(12) Не помогает отладчик.

(15) ну так напиши

АТБ_ВзаиморасчетыСКонтрагентами.Записывать = Ложь;

тебе же жизненно важно, чтобы там была ложь.

Заработало, правда по-другому пришлось сделать, через оппу.