Несколько групп для одной номенклатуры в УТ 11

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

&НаСервере
Процедура аэ_ПриЗаписиНаСервереПосле(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	
	Если Объект.ЭтоГруппа Тогда
		Возврат;
	КонецЕсли;
	
	НЗ = РегистрыСведений.аэ_ГруппыНоменклатуры.СоздатьНаборЗаписей();
	НЗ.Отбор.Номенклатура.Установить(ТекущийОбъект.Ссылка);
	
	Для каждого СтрГр Из ГруппыНоменклатуры Цикл
		СтрНЗ = НЗ.Добавить();
		СтрНЗ.Номенклатура = ТекущийОбъект.Ссылка;
		СтрНЗ.ГруппаНоменклатуры = СтрГр.ГруппаНоменклатуры;
	КонецЦикла;
	
	НЗ.Записать(Истина);
	
КонецПроцедуры

&НаКлиенте
Процедура аэ_ГруппыНоменклатурыПриИзмененииПосле(Элемент)
	ЭтаФорма.Модифицированность = Истина;
КонецПроцедуры

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

Функция ПолучитьСписокНоменклатурыПоДополнительнымГруппам(ГруппаНоменклатуры) Экспорт
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	Номенклатура.Ссылка КАК Ссылка
	               |ПОМЕСТИТЬ втГруппыНоменклатуры
	               |ИЗ
	               |	Справочник.Номенклатура КАК Номенклатура
	               |ГДЕ
	               |	Номенклатура.ЭтоГруппа
	               |	И Номенклатура.Ссылка В ИЕРАРХИИ(&ГруппаНоменклатуры)
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ РАЗЛИЧНЫЕ
	               |	аэ_ГруппыНоменклатуры.Номенклатура КАК Номенклатура
	               |ИЗ
	               |	РегистрСведений.аэ_ГруппыНоменклатуры КАК аэ_ГруппыНоменклатуры
	               |ГДЕ
	               |	аэ_ГруппыНоменклатуры.ГруппаНоменклатуры В
	               |			(ВЫБРАТЬ
	               |				втГруппыНоменклатуры.Ссылка КАК Ссылка
	               |			ИЗ
	               |				втГруппыНоменклатуры КАК втГруппыНоменклатуры)";
	Запрос.УстановитьПараметр("ГруппаНоменклатуры", ГруппаНоменклатуры);
	РезультатЗапроса = Запрос.Выполнить();
	
	ТЗ = РезультатЗапроса.Выгрузить();
	Возврат ТЗ.ВыгрузитьКолонку("Номенклатура");
	
КонецФункции


Функция ЭтоДополнительнаяГруппа(ГруппаНоменклатуры) Экспорт
	
	Если ЗначениеЗаполнено(ГруппаНоменклатуры) Тогда
		Возврат ГруппаНоменклатуры.аэ_ДополнительнаяГруппа; 	
		
	Иначе
		Возврат Ложь;
	КонецЕсли;
	
КонецФункции