Программное изменение регистра бухгалтерии

Добрый день!
Нужно в регистре бухгалтерии субконто "Axel_ВидыПД" с типом Неопределено заменить на тип Перечисления.Axel_ВидыПД.КомнатаПриемаПищи
Записи регистра выбираю запросом, далее
Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ОперацияБух.Ссылка
    |ИЗ
    |    Документ.ОперацияБух КАК ОперацияБух
    |ГДЕ
    |    ОперацияБух.Дата МЕЖДУ &ДатаНач И &ДатаКон";
    Запрос.УстановитьПараметр("ДатаНач", ЭлементыФормы.НачПериода.Значение);
    Запрос.УстановитьПараметр("ДатаКон", ЭлементыФормы.КонПериода.Значение);

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

        Набор = РегистрыБухгалтерии.ЕПСБУ.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Установить(Док);
        Набор.Прочитать();
        Для каждого Запись из Набор Цикл
            Если Запись.СчетКт=ЭлементыФормы.СчетВыбр.Значение Тогда
                Если Запись.СубконтоКт.Контрагенты=ЭлементыФормы.КонтрВыбр.Значение Тогда
                    УстановитьСубконто(Запись.СчетКт,Запись.СубконтоКт,"Axel_ВидыПД",Перечисления.Axel_ВидыПД.КомнатаПриемаПищи);
                    КонецЕсли;
            КонецЕсли;
        Набор.Записать();
        КонецЦикла;

    КонецЦикла;

Но что-то никак не меняется?Может кто что подскажет!