Почему при повторном проведении документа движения удаляются?

Процедура ОбработкаПроведения(Отказ, Режим)

    // Запросом получили только те записи регистра сведений, у которых плательщик=истина
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ПлательщикиСрезПоследних.ФизЛицо КАК ФизЛицо,
        |    ДопРегистрДолгиПоВзносамПрихСрезПоследних.ФизЛицо КАК ФизЛицо1,
        |    ДопРегистрДолгиПоВзносамПрихСрезПоследних.Долг КАК Долг,
        |    ДопРегистрДолгиПоВзносамПрихСрезПоследних.Период КАК Период,
        |    ПлательщикиСрезПоследних.Плательщик КАК Плательщик,
        |    РАЗНОСТЬДАТ(ДопРегистрДолгиПоВзносамПрихСрезПоследних.Период, &Дата, ГОД) КАК РазнДат,
        |    ДопРегистрДолгиПоВзносамПрихСрезПоследних.Регистратор КАК Регистратор
        |ИЗ
        |    РегистрСведений.Плательщики.СрезПоследних(&Дата, ) КАК ПлательщикиСрезПоследних
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДопРегистрДолгиПоВзносамПрих.СрезПоследних КАК ДопРегистрДолгиПоВзносамПрихСрезПоследних
        |        ПО ПлательщикиСрезПоследних.ФизЛицо = ДопРегистрДолгиПоВзносамПрихСрезПоследних.ФизЛицо
        |ГДЕ
        |    ПлательщикиСрезПоследних.Плательщик = ИСТИНА";


    Запрос.УстановитьПараметр("Дата", Дата);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    //Запрос2 Получение размера ежегодного взноса
    Запрос2 = Новый Запрос;
    Запрос2.Текст =
        "ВЫБРАТЬ
        |    РазмерЕжегодногоВзносаСрезПоследних.РазмерВзноса КАК РазмерВзноса
        |ИЗ
        |    РегистрСведений.РазмерЕжегодногоВзноса.СрезПоследних КАК РазмерЕжегодногоВзносаСрезПоследних";

    РезультатЗапроса2 = Запрос2.Выполнить();

    Если НЕ РезультатЗапроса2.Пустой() Тогда  //проверка существования размера взноса

        ВыборкаДетальныеЗаписи2 = РезультатЗапроса2.Выбрать();

        ВыборкаДетальныеЗаписи2.Следующий();

        Движения.ДолгиПоВзносам.Записывать = Истина;
        Движения.ДопРегистрДолгиПоВзносамПрих.Записывать = Истина;
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

            Если ВыборкаДетальныеЗаписи.Долг = NULL ИЛИ ВыборкаДетальныеЗаписи.РазнДат >= 1 ИЛИ
                                                        ВыборкаДетальныеЗаписи.Регистратор = Ссылка Тогда

                Если ВыборкаДетальныеЗаписи.РазнДат = NULL Тогда
                    ПеременнаяСч = 1;
                Иначе ПеременнаяСч = Число(Строка(ВыборкаДетальныеЗаписи.РазнДат));
                КонецЕсли;

                ДатаПериод = Дата;

                Для Счетчик = 1 ПО ПеременнаяСч Цикл

                    // регистр ДолгиПоВзносам Приход
                    Движение = Движения.ДолгиПоВзносам.Добавить();
                    Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
                    Движение.Период = НачалоГода(ДатаПериод);
                    Движение.ФизЛицо = ВыборкаДетальныеЗаписи.ФизЛицо;
                    Движение.ВидВзноса = Справочники.ВидыВзносов.ВзносЕжегодный;
                    Движение.Долг =ВыборкаДетальныеЗаписи2.РазмерВзноса;

                    // регистр ДопРегистрДолгиПоВзносамПрих
                    Движение = Движения.ДопРегистрДолгиПоВзносамПрих.Добавить();
                    Движение.Период = НачалоГода(ДатаПериод);
                    Движение.ФизЛицо = ВыборкаДетальныеЗаписи.ФизЛицо;
                    Движение.ВидВзноса = Справочники.ВидыВзносов.ВзносЕжегодный;
                    Движение.Долг = ВыборкаДетальныеЗаписи2.РазмерВзноса;
                    ДатаПериод = ДобавитьМесяц(ДатаПериод, -12);
                КонецЦикла;

            КонецЕсли;
        КонецЦикла;
    Иначе
        Сообщить("Вы ни разу не установили размер ежегодного взноса. Перейдите в раздел ""Операции""
        |и создайте соответствующий документ.");
        Отказ = Истина;
    КонецЕсли;

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