Дополнительная нумерация при печати документа

19.05.23

Используется для реализации функционала присвоения номера документа только при создании печатной формы. Для использования необходима подсистема "Свойства" БСП.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Пример реализации дополнительной нумерации при печати документа .epf 7,31Kb 0	0	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Задача - присваивать номер документу только после создания печатной формы.

Для решения задачи было решено использовать дополнительное сведение документа.

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

Дополнительное сведение

Во время создания печатной формы необходимо проверить значение дополнительного сведения и установить его при отсутствии

Значение дополнительного сведения у документа

Для этого был использован следующий код:

Функция УстановитьНовыйНомерДопСоглашения(Документ)

	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	КадровыйПеревод.Ссылка КАК Ссылка
		|ПОМЕСТИТЬ врДокументы
		|ИЗ
		|	Документ.КадровыйПеревод КАК КадровыйПеревод
		|ГДЕ
		|	КадровыйПеревод.Дата >= НАЧАЛОПЕРИОДА(&ТекущаяДата, ГОД)
		|	И КадровыйПеревод.Дата <= КОНЕЦПЕРИОДА(&ТекущаяДата, ГОД)
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ДополнительныеСведения.Свойство КАК Свойство,
		|	МАКСИМУМ(ДополнительныеСведения.Значение) КАК Значение
		|ИЗ
		|	РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
		|ГДЕ
		|	ДополнительныеСведения.Объект В
		|			(ВЫБРАТЬ
		|				врДокументы.Ссылка КАК Ссылка
		|			ИЗ
		|				врДокументы КАК врДокументы)
		|	И ДополнительныеСведения.Свойство = &ДопСвойство
		|
		|СГРУППИРОВАТЬ ПО
		|	ДополнительныеСведения.Свойство";
	
	Запрос.УстановитьПараметр("ДопСвойство", ДопСведение);
	Запрос.УстановитьПараметр("ТекущаяДата", Документ.Дата);
	
	Выборка = Запрос.Выполнить().Выбрать();
	
	Если Выборка.Следующий() Тогда
		НомерДопСоглашения = Выборка.Значение + 1;	
	Иначе
		НомерДопСоглашения = 1;
	КонецЕсли;
	
	ТаблицаСвойств = Новый ТаблицаЗначений;
	ТаблицаСвойств.Колонки.Добавить("Свойство");
	ТаблицаСвойств.Колонки.Добавить("Значение");
	НоваяСтрока = ТаблицаСвойств.Добавить();
	НоваяСтрока.Свойство = ДопСведение;
	НоваяСтрока.Значение = НомерДопСоглашения;
	
	УправлениеСвойствами.ЗаписатьСвойстваУОбъекта(Документ, ТаблицаСвойств);
	
	Возврат НомерДопСоглашения;
	
КонецФункции

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

Сам код заполнения табличного документа

ДополнительныйНомер = УстановитьНовыйНомерДопСоглашения(Выборка.Ссылка);

Функция формирования табличного документа

Перем ДопСведениеИмя; 
Перем ДопСведениеЗаголовок;
Перем ДопСведение;

Функция ПечатьВнешнейПечатнойФормы(МассивОбъектов, ОбъектыПечати) Экспорт
	
	ТабДок  = Новый ТабличныйДокумент; 
	ТабДок.АвтоМасштаб = Истина;

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

ДопСведениеИмя = "X_ДополнительныйНомер";
ДопСведениеЗаголовок = "Дополнительный номер";

ПроверитьДопСведение();  

ДопСведение = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", ДопСведениеИмя);

В обработке пример реализации для конфигурации Зарплата и управление персоналом 3.1.25.36 и документа КадровыйПеревод.

Вступайте в нашу телеграмм-группу Инфостарт

БСП печатная форма нумерация

+4 –

См. также

Автонумератор для документов в ЗУП 3.1

Перенумераторы Бухгалтер Пользователь 1С 8.3 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Позволяет настроить нумерацию документов в 1С под любые требования бизнеса — от простых номеров до сложных форматов с учётом организации и периода.

2 стартмани

21.04.2026 376 4 nosok7201 1

Единая нумерация внутренних документов для УТ 11.5 и ERP 2.5

Перенумераторы Бухгалтер Пользователь 1С 8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Россия Абонемент ($m)

Расширение, которое даёт возможность вести внутренние складские документы с единой нумерацией.

1 стартмани

23.03.2026 500 1 user213093test 0

Обработка номера документа для печати в 1С:БП 3.0

Перенумераторы Программист Пользователь 1С 8.3 1С:Бухгалтерия 3.0 Бухгалтерский учет НДС Абонемент ($m)

Расширение предназначено для кастомизации формата отображения номеров документов при печати в конфигурации "Бухгалтерия предприятия 3.0". Реализует гибкие правила преобразования номеров документов перед выводом на печатные формы.

1 стартмани

26.01.2026 616 4 buger68 4

Нумерация счетов-фактур как в БП для УНФ 3.0

Перенумераторы Бухгалтер Пользователь 1С 8.3 1С:Управление нашей фирмой 3.0 Россия Абонемент ($m)

Расширение, которое даёт возможность автоматически проставлять номера для счетов-фактур наподобие алгоритма БП. Если исправление или номер счета-фактуры отредактирован, префикс равен "И". Если корректировка, префикс равен "К". Если "Аванс, аванс комитента или корректировка аванса, префикс равен "А". В других случаях без префикса. Ведущие нули убираются.

3 стартмани

19.01.2026 707 8 user213093test 0

Установка префикса у документов по условию

Перенумераторы Бухгалтер Пользователь 1С 8.3 1С:Библиотека стандартных подсистем Абонемент ($m)

Расширение позволит автоматически исходя из настроек устанавливать префиксы у документов.

5 стартмани

15.01.2026 1104 5 Rassel8911 0

Исправление ошибки "Значение поля Номер не уникально"

Перенумераторы Пользователь 1С 8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Абонемент ($m)

Обработка для исправления ошибки «Значение поля номер не уникально» в 1С. Синхронизирует внутренний кэш нумератора с реальными данными в базе после ручного изменения номеров или восстановления из SQL.

1 стартмани

16.12.2025 1188 12 d_shaymardanov 6