Перенос остатков по счету в Операцию

БП 3.0

Подскажите, что не так с кодом? Пытаюсь перенести кредитовые остатки с одного счета на другой - в документ "Операция" но при записи выдает ошибку.

Ниже код:

&НаСервере
Процедура ПереносНаСервере()

    ДатаОпераций = ТекущаяДата();

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

    Попытка
        НачатьТранзакцию();
        Операция = Документы.ОперацияБух.СоздатьДокумент();
        Операция.Дата = ДатаОпераций;
        Операция.Содержание = "ТЕСТ: перенос кредитового остатка со счета 76.09" + ДатаОпераций;
        Операция.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        Операция.Ответственный = ПараметрыСеанса.ТекущийПользователь;
        Операция.Записать(РежимЗаписиДокумента.Запись);

        НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        НаборЗаписей.Отбор.Регистратор.Установить(Операция.Ссылка);
        НаборЗаписей.Прочитать();

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

            НСтрока = НаборЗаписей.Добавить();
            НСтрока.Регистратор = Операция.Ссылка;
            НСтрока.Период = ДатаОпераций;
            НСтрока.Организация = Операция.Организация;

            НСтрока.СчетДт = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетДт, НСтрока.СубконтоДт, "Контрагенты", Выборка.Субконто1);
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетДт, НСтрока.СубконтоДт, "Договоры", Выборка.Субконто2);
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетДт, НСтрока.СубконтоДт, "ДокументыРасчетовСКонтрагентами", Выборка.ДокументРасчетов);

            НСтрока.СчетКт = ПланыСчетов.Хозрасчетный.ВзаиморасчетыССКТранзитный;
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетКт, НСтрока.СубконтоКт, "Контрагенты", Выборка.Субконто1);
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетКт, НСтрока.СубконтоКт, "Договоры", Выборка.Субконто2);
            БухгалтерскийУчет.УстановитьСубконто(НСтрока.СчетКт, НСтрока.СубконтоКт, "ДокументыРасчетовСКонтрагентами", Выборка.ДокументРасчетов);

            НСтрока.Сумма = Выборка.Сумма;
            НСтрока.СуммаНУДт = Выборка.Сумма;
            НСтрока.СуммаНУКт = Выборка.Сумма;

        КонецЕсли;
        НаборЗаписей.Записать();
        ЗафиксироватьТранзакцию();
        ТекстВозврата = ТекстВозврата + ?(ТекстВозврата = "", "", Символы.пс) + ": Создана операция """ + Строка(Операция.Ссылка) + """";
    Исключение
        ОтменитьТранзакцию();
        ЗаписьЖурналаРегистрации("ТЕСТ: перенос кредитового остатка со счета 76.09", УровеньЖурналаРегистрации.Ошибка, , , ОписаниеОшибки());
        ТекстВозврата = ТекстВозврата + ?(ТекстВозврата = "", "", Символы.пс) + ": " + ОписаниеОшибки();
    КонецПопытки;

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

&НаКлиенте
Процедура Перенос(Команда)
    ПереносНаСервере();
КонецПроцедуры