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

19.05.23

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

Скачать файл

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

+3 –

См. также

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

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

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

4000 руб.

11.02.2019 55568 432 194

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

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

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

6000 руб.

18.05.2022 11097 28 0

Перенумерация документов по дате

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

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

1 стартмани

вчера в 08:30 84 1 diar01 0

Префикс даты в номерах счетов

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

Добавление даты в номер документа.

5 стартмани

16.01.2025 151 0 ipetrochenko 0

Перенумерация документов для 1С (БУХ 3, ЗУП 3.1, ERP, КА2, Розница, БГУ 3)

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

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

2 стартмани

04.10.2024 616 28 steaom 1

Обработка восстанавливает уникальную нумерацию кодов справочников

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

Обработка восстанавливает уникальную нумерацию кодов справочников.

2 стартмани

03.05.2024 906 8 napan 2

Сбилась нумерация счетов-фактур выданных? Решение.

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

Иногда при записи документа выходит ошибка: "Значение поля "Номер" неуникально". Это происходит, если каким-то образом корректировался номер документа. Если для других документов можно просто перенумеровать документы за период, то для счетов-фактур выданных, которые уже "ушли" к контрагентам, номер мы менять не можем. Поэтому было разработано данное расширение, которое помогает решить проблему и запустить автонумерацию.

2 стартмани

13.03.2024 998 7 Klinov 2