Задвоение движений документа (да-да, снова)

Платформа 8.2.15.289
SQL: 2000

У документа установлено: Удаление движений автоматически
Режим блокировки: Автоматический

В модуле документа, в процедуре ОбработкаПроведения перед записью движений следующий код:

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

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

Если РучнаяКорректировка Тогда
Набор = ДокументОбъект.Движения[ИмяРегистра];
Набор.Прочитать();
Набор.УстановитьАктивность(Ложь);

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

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

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

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

КонецЕсли;

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

Набор.Отбор.Регистратор.Установить(ДокументОбъект.Ссылка);
// набор не записывается сразу, чтобы не откатывать транзакцию, если впоследствии
// выяснится, что на один из регистров не хватает прав.
КонецЕсли;

СтрокаДвижения.НаборЗаписей = Набор;

КонецЦикла;

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

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

И всё равно, эта сволочь дублирует движения по регистру. Вообще не понимаю. Что не так делаю?
Погуглил на эту тему. Попробовал код вроде
Движения.Записывать = ИСТИНА
Движения.Очистить()

Системе монопенисуально. Движения двоит. Снимаешь с проведения, ставишь обратно - двоит.