Создание наборов из спецификаций в 1С:УНФ

Пользователь какое-то время в конфигурации «1С:Управление нашей фирмой, редакция 1.6» (далее по тексту УНФ) использовал спецификации. Но когда узнал про возможность ведения в УНФ наборов, то принял волевое решение перейти на них. Включили в Администрировании «Наборы и комплекты».

После этого в карточке номенклатуры попробовали включить «Это набор/комплект», но не получилось. Проблема заключалась в том, что одновременное использование в номенклатуре спецификаций и наборов ограничено на уровне кода УНФ. Создание расширения к УНФ и внесение изменений в процедуру «МожноИзменитьПризнакНабора» решило этот вопрос:

&НаСервере
&Вместо("МожноИзменитьПризнакНабора")
Функция ДельтаНаборы_МожноИзменитьПризнакНабора()
	
	Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
		Возврат Истина;
	КонецЕсли; 
	
	МожноИзменять = Истина;
	НовоеЗначение = Неопределено;
	
	//дельта стало теперь НАЧАЛО
	//Если Объект.ЭтоНабор И ЕстьДвиженияЗапасов(Объект.Ссылка) Тогда
	//	ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
	//	НСтр("ru = 'Номенклатура участвует в движениях, использование в качестве набора невозможно'"));
	//	МожноИзменять = Ложь;
	//	НовоеЗначение = Ложь;
	//КонецЕсли;
	//дельта стало теперь КОНЕЦ
	
	Если Объект.ЭтоНабор Тогда
		
		ПроверкаПодчиненныхСправочников = ЕстьСпецификацииПартииСерийныеНомера(Объект.Ссылка);
		
		//дельта стало теперь НАЧАЛО
		//Если ((ПолучитьФункциональнуюОпцию("ИспользоватьПодсистемуПроизводство") И Объект.ТипНоменклатуры=Перечисления.ТипыНоменклатуры.Запас)
		//	ИЛИ (ПолучитьФункциональнуюОпцию("ИспользоватьПодсистемуРаботы") И Объект.ТипНоменклатуры=Перечисления.ТипыНоменклатуры.Работа)) 
		//	И ПроверкаПодчиненныхСправочников.ЕстьСпецификации Тогда
		//	ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
		//	НСтр("ru = 'Для номенклатуры созданы спецификации, использование в качестве набора невозможно'"));
		//	МожноИзменять = Ложь;
		//	НовоеЗначение = Ложь;
		//КонецЕсли;
		//дельта стало теперь НАЧАЛО
		
		Если ПолучитьФункциональнуюОпцию("ИспользоватьПартии") И ПроверкаПодчиненныхСправочников.ЕстьПартии Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Для номенклатуры созданы партии, использование в качестве набора невозможно'"));
			МожноИзменять = Ложь;
			НовоеЗначение = Ложь;
		КонецЕсли;
		Если ПолучитьФункциональнуюОпцию("ИспользоватьСерийныеНомера") И ПроверкаПодчиненныхСправочников.ЕстьСерийныеНомера Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Для номенклатуры созданы серийные номера, использование в качестве набора невозможно'"));
			МожноИзменять = Ложь;
			НовоеЗначение = Ложь;
		КонецЕсли;
		Если ПроверкаПодчиненныхСправочников.ЕстьАналоги Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Для номенклатуры заданы аналоги, использование в качестве набора невозможно'"));
			МожноИзменять = Ложь;
			НовоеЗначение = Ложь;
		КонецЕсли;
		Если ПроверкаПодчиненныхСправочников.ЕстьУправлениеЗапасами Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Для номенклатуры используется управление запасами, использование в качестве набора невозможно'"));
			МожноИзменять = Ложь;
			НовоеЗначение = Ложь;
		КонецЕсли;
		
	КонецЕсли; 

	Если НовоеЗначение<>Неопределено Тогда
		Объект.ЭтоНабор = НовоеЗначение;
	КонецЕсли; 	
	Возврат МожноИзменять;
	
КонецФункции

После этих изменений стало возможным включать в номенклатуре реквизит «Это набор/комплект» при существующих у этой номенклатуры спецификациях.

Теперь осталось скопировать спецификации в наборы. Это можно сделать вручную путём переноса данных из спецификации в набор. Или автоматически, создав соответствующую обработку, например, такую:

В обработке необходимо выбрать те параметры, которые будут установлены в наборе. Затем следует заполнить существующими в программе спецификациями (кнопка «Заполнить»), установить пометки напротив нужной номенклатуры и создать наборы (кнопка «Создать наборы»).

Представленная обработка позволяет:
- получить список всей номенклатуры в базе УНФ, имеющей спецификации;
- пользователю выбрать только определённую номенклатуру (со спецификациями), для которой будут созданы наборы;
- установить у номенклатуры, имеющей спецификации, признак набора;
- установить способ расчета цены и вариант печати набора;
- заполнить состав набора аналогично составу указанной спецификации.

Примечание по обработке:
1) после установки признака набора работа со спецификациями номенклатуры становится недоступной;
2) если у номенклатуры уже создан набор, то новый набор из спецификации создан не будет;
3) номенклатура и спецификации, помеченные на удаление, в выборку при заполнении не попадают;
4) если у номенклатуры несколько спецификаций, то в выборку попадут все спецификации (с условием из п.3);
5) пометка в значение ИСТИНА в выборке автоматически ставится для основных спецификаций (из регистра сведений «СпецификацииПоУмолчанию», с выполнением п.3 и п.4).

Так как работа обработки подразумевает её одноразовое использование, то она не добавляется во внешние обработки, а просто запускается через меню «Файл – Открыть». Разработка и тестирование осуществлялись на базе типовой  «1С:Управление нашей фирмой, редакция 3.0 (1.6.16.132)» и платформе 1С:Предприятие 8.3 (8.3.16.1063).