Заполнение таблицы перерасчета

Здравствуйте. Необходимо заполнить таблицу перерасчета при перезаписи регистра сведения. Написал следующую процедуру, однако таблица пуста. проверял запрос в консоли работает.

&НаСервереБезКонтекста
Процедура ПередЗаписьюНаСервере()

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

    РезультатЗапроса = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    Перерасчет = РегистрыРасчета.РегистрРасчетаНачислениеУслуг.Перерасчеты.ПерерасчетНачислениеУслуг;
    Пока РезультатЗапроса.Следующий() Цикл
        НаборЗаписей = Перерасчет.СоздатьНаборЗаписей();
        НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = РезультатЗапроса.Регистратор;
        Выборка = РезультатЗапроса.Выбрать();
        Пока Выборка.Следующий() Цикл
            Запись = НаборЗаписей.Добавить();
            Запись.ЛицевойСчета = Выборка.ЛицевойСчета;
            Запись.ТарифН = Выборка.ТарифН;
        КонецЦикла;

        НаборЗаписей.Записать(Ложь);

    КонецЦикла;

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