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

1С v8

d4rkmesa, Волшебник, Злоп, Amra, Мультук, Seriy_Volk, Serg_1960, palsergeich, Климов Сергей, Vstur

21.03.25

✎

10:14

Добрый день! Появилась задача - отдельная нумерация для определенного контрагента(добавлять к номеру букву "К" , и что бы нумерация была отдельная и не пересекалась со стандартным нумератором. Я сделал регистр для хранения номера нужного контрагента, для которого требуется отдельная нумерация. В итоге при создании документа продажи с другими контрагентами, на первый взгляд с нумерацией все впорядке (она вида ХХ00-000044), но после создания документа с определенным контрагентом(который с буквой К и отдельной нумерацией, вида ХХ00-0001К) , ВСЕ последующие документы по другим контрагентам, выглядят так ХХ00-К00001 , не понимаю в чем дело, так же не получается достать последний номер из стандартного нумератора (нумератор документа РеализацияТоваровУслуг) . Уже всю голову сломал, мб кто укажет на ошибку?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Добавил этот код в модуль документа РеализацияТоваровУслуг. Я так понимаю проблема в том,что я не могу получить последний номер из стандартного нумератора?

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

Я пока только изучающий азы,поэтому другого способа не нашел.

1 Климов Сергей

21.03.25

✎