Запись движений при записи документа

При записи реализации должна проходить запись в регистр накопления. УТ10.3

Движения автоматически не удаляются, запись идет модифицированных. Движения соответсвенно удаляются при перепроведении и отмене проведения, а мне этого не нужно, должны удалятся при пометке удаления.

Не хочется городить лишний документ, не хочется сильно менять   конфигурацию. Есть мысль при удалении движений делать исключения. Не могу понять  немного суть процедуры.

Процедура УдалитьДвиженияРегистратора(ДокументОбъект, Отказ, МассивИсключений = Неопределено) Экспорт

    МассивОбрабатываемыхСтрокТаблицыДвижений = Новый Массив();

    // получение списка регистров, по которым существуют движения
    ТаблицаДвижений = ПолныеПрава.ОпределитьНаличиеДвиженийПоРегистратору(ДокументОбъект.Ссылка);
    ТаблицаДвижений.Колонки.Добавить("НаборЗаписей");
    ТаблицаДвижений.Колонки.Добавить("БезусловноеУдаление", Новый ОписаниеТипов("Булево"));

    Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл
        // имя регистра передается как значение, полученное с помощью
        // функции ПолноеИмя() метаданных регистра
        ПозицияТочки = Найти(СтрокаДвижения.Имя, ".");
        ТипРегистра = Лев(СтрокаДвижения.Имя, ПозицияТочки - 1);
        ИмяРегистра = СокрП(Сред(СтрокаДвижения.Имя, ПозицияТочки + 1));

        Если МассивИсключений <> Неопределено и МассивИсключений.Найти(ИмяРегистра) <> Неопределено тогда
            Продолжить;
        КонецЕсли;

        МассивОбрабатываемыхСтрокТаблицыДвижений.Добавить(СтрокаДвижения);

        Если ТипРегистра = "РегистрНакопления" Тогда
            Набор = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();

        ИначеЕсли ТипРегистра = "РегистрСведений" Тогда
            Набор = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();

        КонецЕсли;

        Если НЕ ПравоДоступа("Изменение", Набор.Метаданные()) Тогда
            // отсутствуют права на всю таблицу регистра
            СообщитьОбОшибке("Нарушение прав доступа", Отказ, СтрокаДвижения.Имя);
            Возврат;
        КонецЕсли;

        Набор.Отбор.Регистратор.Установить(ДокументОбъект.Ссылка);

        // набор не записывается сразу, чтобы не откатывать транзакцию, если впоследствии
        // выяснится, что на один из регистров не хватает прав.
        СтрокаДвижения.НаборЗаписей = Набор;

    КонецЦикла;

    Для Каждого СтрокаДвижения ИЗ МассивОбрабатываемыхСтрокТаблицыДвижений Цикл
        Если СтрокаДвижения.БезусловноеУдаление Тогда
            ПолныеПрава.ЗаписатьНаборЗаписейНаСервере(СтрокаДвижения.НаборЗаписей, ДокументОбъект.Ссылка);
        Иначе
            Попытка
                СтрокаДвижения.НаборЗаписей.Записать();
            Исключение
                // возможно «сработал» RLS или механизм даты запрета изменения
                СообщитьОбОшибке(ОписаниеОшибки(), Отказ, СтрокаДвижения.Имя);
                ВызватьИсключение "Операция не выполнена";
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;

    //ОчисткаКоллекцииДвиженийДокумента(ДокументОбъект);

    // Удаление записей регистрации из всех последовательностей
    УдалитьРегистрациюДокументаВПоследовательностях(ДокументОбъект, Истина);

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

// Процедура очищает коллекцию движений документа

Процедура ОчисткаКоллекцииДвиженийДокумента(ДокументОбъект) Экспорт

    Для Каждого Движение ИЗ ДокументОбъект.Движения Цикл
        Если Движение.Количество() > 0 Тогда
            Движение.Очистить();
        КонецЕсли;
    КонецЦикла;

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