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

19.05.23

–

> > > > >

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

Скачать файлы

	Наименование	Файл	Версия	Размер
	Пример реализации дополнительной нумерации при печати документа .epf 7,31Kb 0	.epf		7,31Kb		Скачать

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

–

См. также

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

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

После подключения расширения в 1С: Бухгалтерия предприятия 3.0 меняется механизм нумерации документов реализации и счетов фактур. Документы будут нумероваться по дате создания. Также изменится нумерация всех печатных форм, доступных из этих документов.

4000 руб.

24.11.2020 16522 6 2

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

Перенумераторы Платформа 1С v8.3 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

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

3600 руб.

18.05.2022 8968 16 0

Расширение для бухгалтерии - сквозная нумерация для документов Счет-Реализация-СчетФактура

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

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

5 стартмани

19.10.2023 405 3 AlexHelmer 5

Перенумерация кассовых ордеров. БП 3.0

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

Простенькая обработка по перенумерации кассовых ордеров в БП 3.0. Подойдет для использования от обычного пользователя до программиста. Если у вас сбилась нумерация кассовых документов, то эта обработка для вас.

1 стартмани

21.06.2023 1008 3 furman2000 3

Автоматическая нумерация договоров. УТ 11

Перенумераторы Платформа 1С v8.3 1С:Управление торговлей 11 Абонемент ($m)

Расширение для конфигурации Управление торговлей, редакция 11. Реализует возможность автоматического формирования номера и наименования договора в зависимости от Даты договора и Префикса организации.

1 стартмани

30.05.2023 1291 6 EvgeniyOlxovskiy 1

Восстановление нумерации документов Авансовый отчет, Поступление наличных, Выдача наличных в хронологическом порядке

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

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

1 стартмани

16.05.2023 1660 0 alfa112 0

Обновление нумерации в соответствии с номерами, записанными в базе данных

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

Бывает так, что после каких-то сбоев портится нумерация объектов. И когда номер меняется вручную, то при вводе новых объектов при автоматической нумерации 1С продолжает нумерацию старую. Эта коротенькая обработка обновляет внутренние счетчики. Она маленькая, но, может быть, кому-нибудь пригодится.

1 стартмани

19.04.2023 2110 2 user633783_Wladigor 1

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

Перенумераторы Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Обработка, устраняющая ошибку "Значение поля номер не уникально" в документах или справочниках. Предназначена для любых конфигураций, обычных и управляемых приложений.

1 стартмани

31.03.2023 2180 10 aret99 2