галочки отражения в учете 83

сделана попытка универсализации:
Процедура ОбработкаПроведения(Отказ, Режим)
    Для каждого Набор Из Движения Цикл

        ИмяРегистра =  Набор.Метаданные().Имя;

        ЭтоРБ = Метаданные.РегистрыБухгалтерии.Найти(ИмяРегистра)<>Неопределено;
        ЭтоРН = Метаданные.РегистрыНакопления.Найти(ИмяРегистра)<>Неопределено;
        ЭтоРС = Метаданные.РегистрыСведений.Найти(ИмяРегистра)<>Неопределено;

        Если ЭтоРБ Тогда
            ВидРегистра = "РегистрБухгалтерии";
        ИначеЕсли ЭтоРН Тогда
            ВидРегистра = "РегистрНакопления";
        ИначеЕсли ЭтоРС Тогда
            ВидРегистра = "РегистрСведений";
        Иначе
            ВидРегистра = "РегистрРасчета";
        КонецЕсли;

        Если ВидРегистра = "РегистрНакопления" И ОтражатьВУправленческомУчете Тогда

            Набор.Записывать = Истина;
        ИначеЕсли ВидРегистра = "РегистрБухгалтерии" И ОтражатьВБухгалтерскомУчете Тогда

            Набор.Записывать = Истина;

        Иначе
            Набор.Очистить();
            Набор.Записать();
        КонецЕсли;

    КонецЦикла;

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

КонецПроцедуры