2025-06-16 21:38:11 +05:00

2.1 KiB
Raw Blame History

title, slug
title slug
Параметры выбора программно 1с-1-общие-управляемые-формы/параметры-выбора-программно

#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	УстановитьПараметрВыбораПоляВидОбъекта();
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаСервере
Процедура УстановитьПараметрВыбораПоляВидОбъекта()

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

#КонецОбласти