add
This commit is contained in:
parent
20e8dcf68e
commit
ce017381b6
@ -0,0 +1,46 @@
|
|||||||
|
---
|
||||||
|
title: Параметры выбора программно
|
||||||
|
---
|
||||||
|
|
||||||
|
```bsl
|
||||||
|
|
||||||
|
#Область ОбработчикиСобытийФормы
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||||||
|
УстановитьПараметрВыбораПоляВидОбъекта();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
#КонецОбласти
|
||||||
|
|
||||||
|
#Область СлужебныеПроцедурыИФункции
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура УстановитьПараметрВыбораПоляВидОбъекта()
|
||||||
|
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
"ВЫБРАТЬ
|
||||||
|
| УДК_ВидыОбъектовМетаданных.Ссылка КАК Ссылка
|
||||||
|
|ИЗ
|
||||||
|
| Справочник.УДК_ВидыОбъектовМетаданных КАК УДК_ВидыОбъектовМетаданных
|
||||||
|
|ГДЕ
|
||||||
|
| УДК_ВидыОбъектовМетаданных.Ссылка <> ЗНАЧЕНИЕ(Справочник.УДК_ВидыОбъектовМетаданных.Подсистема)
|
||||||
|
| И НЕ УДК_ВидыОбъектовМетаданных.ЭтоГруппа";
|
||||||
|
|
||||||
|
МассивДопустимыхВидов = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
|
||||||
|
ФиксированныйМассив = Новый ФиксированныйМассив(МассивДопустимыхВидов);
|
||||||
|
|
||||||
|
НовыйПараметр = Новый ПараметрВыбора("Отбор.Ссылка", ФиксированныйМассив);
|
||||||
|
|
||||||
|
МассивПараметров = Новый Массив;
|
||||||
|
МассивПараметров.Добавить(НовыйПараметр);
|
||||||
|
|
||||||
|
НовыеПараметры = Новый ФиксированныйМассив(МассивПараметров);
|
||||||
|
|
||||||
|
Элементы.ВидОбъекта.ПараметрыВыбора = НовыеПараметры;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
#КонецОбласти
|
||||||
|
```
|
Loading…
x
Reference in New Issue
Block a user