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

19.05.23

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

Скачать файл

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

+2 –

См. также

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

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

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

4000 руб.

11.02.2019 54933 424 194

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

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

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

2 стартмани

04.10.2024 400 15 steaom 0

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

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

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

2 стартмани

03.05.2024 799 8 napan 2

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

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

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

2 стартмани

13.03.2024 871 6 Klinov 1

Сквозная нумерация для всех документов

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

Начальство захотело уникальный номера документов в рамках одного года вне зависимости от вида? Вызывайте психиатров.

1 стартмани

26.02.2024 888 2 Teut_Vlad 2

Скопировать номер Счета в Реализацию

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

Расширение позволяет копировать номер из Счета на оплату в Реализацию при создании на основании.

1 стартмани

02.02.2024 1193 9 config 2

Номер на печать -> в системный номер для счетов-фактур выданных. БП 3.0

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

Простая внешняя обработка для перезаписи системного номера счета-фактуры выданного в БП 3.0.

16.01.2024 1830 39 RustIG 0

Обработка номеров (кодов) объектов

Перенумераторы Пользователь Платформа 1С v8.3 Абонемент ($m)

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

1 стартмани

15.01.2024 635 5 mrsmrv 2