Изменить движения документов

не могу понять, почему не меняются движения. Какими были, такими и остаются

&НаСервере
Процедура ИзменитьПроводкиНаСервере()

    НачалоПериода = Дата("20150101000000");
    КонецПериода =  Дата("20151231235959");


    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ОтчетОРозничныхПродажах.Ссылка
        |ИЗ
        |    Документ.ОтчетОРозничныхПродажах КАК ОтчетОРозничныхПродажах
        |ГДЕ
        |    ОтчетОРозничныхПродажах.Проведен
        |    И НЕ ОтчетОРозничныхПродажах.ПометкаУдаления
        |    И ОтчетОРозничныхПродажах.Дата >= &НачалоПериода
        |    И ОтчетОРозничныхПродажах.Дата <= &КонецПериода";

    Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
    Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
    РезультатЗапроса = Запрос.Выполнить();

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

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


    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА



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

&НаСервере
Процедура ИзменитьДвижения(ДокументОбъект,Отказ)
    Движения = ДокументОбъект.Движения;
    ПрочиеРасчеты = Движения.ПрочиеРасчеты;
    ПрочиеРасчеты.Прочитать();
    Если Движения.ПрочиеРасчеты.Количество() > 0 Тогда
        Отказ = Истина;
    Иначе
        Движения.Хозрасчетный.Очистить();
        Движения.КнигаУчетаДоходовИРасходов.Очистить();
    КонецЕсли;



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