Массовое назначение PLU кода

[aka_grad]

Доброе время суток. Может кто уже сталкивался, необходимо массово назначить PLU код для весового товара. С помощью групповой обработки выбираю весовой товар, но не знаю как сгенерировать код PLU.

Пытаюсь сделать так, но что то не присваивается код PLU

Код Выделить Развернуть

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

[aka_grad]

Сделал так

Код Выделить Развернуть

Запрос = Новый Запрос(
    "ВЫБРАТЬ
    |   МАКСИМУМ(Регистр.Код) КАК Код
    |ИЗ
    |   РегистрСведений.КодыВесовогоТовара КАК Регистр");
    Выборка = Запрос.Выполнить().Выбрать();
   
    Результат = 1;
    Если Выборка.Количество() > 0 Тогда
        Выборка.Следующий();
        Если ЗначениеЗаполнено(Выборка.Код) Тогда
            Результат = Выборка.Код + 1;
        КонецЕсли;
    КонецЕсли;

менЗаписи = РегистрыСведений.Цены.СоздатьМенеджерЗаписи();
менЗаписи.Номенклатура = Объект.Ссылка;
менЗаписи.Код = Результат;
менЗаписи.Записать();