1С КА проблема нумерацией

Процедура ПриЗаписи(Отказ)
    Попытка
        Сообщить("Начало процедуры ПриЗаписи");

        // контрагент
        Если НЕ ЗначениеЗаполнено(Контрагент) Тогда
            Сообщить("Контрагент не указан. Прекращение обработки.");
            Возврат;
        КонецЕсли;

        // фильтр по контрагенту
        КонтрагентКлев = Справочники.Контрагенты.НайтиПоНаименованию("ООО КЛЕВ");

        // првоерка
        Если КонтрагентКлев <> Неопределено И Контрагент = КонтрагентКлев Тогда
            Сообщить("Контрагент совпадает: ООО КЛЕВ");

            
            Запрос = Новый Запрос;
            Запрос.Текст = 
                "ВЫБРАТЬ
                |   ПоследнийНомер
                |ИЗ
                |   РегистрСведений.НумерацияКлев
                |ГДЕ
                |   Контрагент = &Контрагент
                |ORDER BY ПериодДата DESC";

            Запрос.УстановитьПараметр("Контрагент", Контрагент);
            Результат = Запрос.Выполнить();
            ТаблицаРезультатов = Результат.Выгрузить();

            
            Если ТаблицаРезультатов.Количество() > 0 Тогда
                ПоследнийНомер = ТаблицаРезультатов[0].ПоследнийНомер + 1; // Увеличиваем на 1
            Иначе
                ПоследнийНомер = 1; // Если нет записей, начинаем с 1
            КонецЕсли;

            Сообщить("Последний номер для ООО КЛЕВ: " + ПоследнийНомер);

            // добавить нули,не работает
            НомерДокумента = "НЛ00-" + Формат(ПоследнийНомер, "ЧЦ=5; ЧН=") + "К";
            Сообщить("Номер документа: " + НомерДокумента);

            
            ЭтотОбъект.Номер = НомерДокумента;

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

            Сообщить("Номер сохранен в регистр сведений");
        Иначе
            // Для других контрагентов используем стандартную нумерацию
            Сообщить("Контрагент не ООО КЛЕВ. Используется стандартная нумерация.");

            // Получаем номер из стандартного нумератора
            НомерДокумента = Документы.РеализацияТоваровУслуг.ПолучитьНовыйНомер();
            Сообщить("Номер документа: " + НомерДокумента);

            //  номер 
            ЭтотОбъект.Номер = НомерДокумента; // Переопределяем номер документа
        КонецЕсли;

        // Вызовы дополнительных процедур
        ПроведениеДокументов.ПриЗаписиДокумента(ЭтотОбъект, Отказ);
        РеализацияТоваровУслугЛокализация.ПриЗаписи(ЭтотОбъект, Отказ);

    Исключение
        // Обработка ошибки
        Сообщить("Ошибка: " + ОписаниеОшибки());
        Отказ = Истина;
    КонецПопытки;

    Сообщить("Конец процедуры ПриЗаписи");
КонецПроцедуры