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

19.05.23

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Пример реализации дополнительной нумерации при печати документа .epf 7,31Kb 0	0	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

+4 –

См. также

Нумерация документов с префиксом по дате

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

Расширение конфигурации позволяет настроить нумерацию документов с префиксом по дате документа. Т.е. в течение дня документы одного вида будут иметь сквозную нумерацию. Возможны различные варианты настройки формата даты, в том числе с сохранением префиксации по организации и узлу информационной базы.

5500 руб.

11.02.2019 56456 435 195

Префиксация номеров документов в 1С (структурное подразделение: склад/магазин/подразделение)

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Расширение для отображения в номере документа структурной единицы (склад/магазин/подразделение), к которой относится данный документ. Визуально по номеру документа легко понять, к какому складу/магазину/подразделению относится документ. Пользователь самостоятельно выбирает, в каких документах и по каким полям префикс нужно добавлять. Нумерация документов не участвующих в префиксации, не затрагивается!

6000 руб.

18.05.2022 11532 30 0

Исправление нумерации документов

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 1С:Бухгалтерия 3.0 Абонемент ($m)

Обработка исправляет нумерацию документов в случае, если предыдущее значение поля «Номер» написано с нарушениями.

1 стартмани

24.03.2025 133 0 NVKom 1

Перенумерация счет-фактур в БП 3.0

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

Возникают ситуации, когда бухгалтер в течение месяца создает счета-фактуры на реализации в начале или в середине месяца, и чтобы выровнять номера, сделана эта обработка.

3 стартмани

20.03.2025 165 1 VadimBruce 0

Перенумерация документов для 1С

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

Полезная внешняя обработка "Перенумерация документов", подходит для любой конфигурации на управляемых формах с БСП.

2 стартмани

14.03.2025 329 6 steaom 1

Нумерация выданных счетов-фактур в пределах дня

Перенумераторы Бухгалтер Платформа 1С v8.3 1С:Бухгалтерия 3.0 Абонемент ($m)

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

3 стартмани

10.02.2025 221 4 Baszilio 2

Раздельный нумератор сотрудников (основной работник / совместитель)

Кадровый учет Перенумераторы Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Добавляет в конфигурацию возможность раздельной нумерации основных сотрудников от совместителей.

2 стартмани

03.02.2025 292 1 Allonos 0

Нумерация расходных накладных и счетов-фактур в разрезе одного дня

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

Подменяет типовой нумератор расходных накладных и счетов-фактур на "Префикс"-День+месяц+номер (999), нумерация происходит в течение дня до 999 номера.

2 стартмани

22.01.2025 244 5 Allonos 0