Ручная оперция без НУ

Создаю программно ручные операции с целью переноса остатков с одного счета на другой. В итоге Суммы переносятся только по БУ. Если открыть документ, изменить сумму в строке табличной части и снова провести, то по НУ суммы тоже проводятся.
Что я мог упустить при создании этих документов ?

                док = Документы.ОперацияБух.СоздатьДокумент();
        док.Дата = ДатаДокументовПереносаОстатков;
        док.Комментарий = "Перенос остатков";
        док.Организация = Справочники.Организации.НайтиПоКоду("00000001");
        док.Ответственный = ПараметрыСеанса.ТекущийПользователь;
        док.Записать();
        ДЛЯ КАЖДОГО выб ИЗ Выбор ЦИКЛ
            ЕСЛИ выб.Контрагент = Контр.Контрагент ТОГДА
                Проводка = док.Движения.Хозрасчетный.Добавить();
                Проводка.Организация = док.Организация;
                Проводка.ПодразделениеДт = выб.Подразделение;
                Проводка.ПодразделениеКт = выб.Подразделение;
                Проводка.Содержание = "Перенос остатков";
                Проводка.Период = док.Дата;
                ЕСЛИ выб.СуммаОстаток >= 0 ТОГДА
                    Проводка.СчетДт = НовыйСчетД;
                    Проводка.СчетКт = СтарыйСчет;
                    Проводка.Сумма = выб.СуммаОстаток;
                ИНАЧЕЕСЛИ выб.СуммаОстаток < 0 ТОГДА
                    Проводка.СчетДт = СтарыйСчет;
                    Проводка.СчетКт = НовыйСчетК;
                    Проводка.Сумма = -выб.СуммаОстаток;
                КОНЕЦЕСЛИ;
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, 1, выб.Контрагент);
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, 2, выб.Договор);
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, 3, выб.Документ);
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, 1, выб.Контрагент);
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, 2, выб.Договор);
                БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, 3, выб.Документ);
            КОНЕЦЕСЛИ;
        КОНЕЦЦИКЛА;
        док.Движения.Записать();
        док.Записать(РежимЗаписиДокумента.Запись);
        Сообщить(док);