Форма выбора программно

ФормаВыбораПрограммно.1с

&НаКлиенте
Процедура РаспределениеНоменклатураНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	 
	ПараметрыВФорму = Новый Структура("ТекущаяСтрока", ПолучитьОсновнуюГруппуВыбораНоменклатуры());
	
	СтруктураПараметровОповещения = Новый Структура();
	СтруктураПараметровОповещения.Вставить("ПараметрДляТеста", "craft1c");

	ОписаниеВыбора  = Новый ОписаниеОповещения("ОбработкаВыбораНоменклатуры", ЭтаФорма, СтруктураПараметровОповещения);
	
	ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора" ,ПараметрыВФорму , , , , , ОписаниеВыбора, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
	
КонецПроцедуры

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

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