В начало

Программный отбор в МДМ

 

 

Листинг. Пример использования программного отбора

&НаСервере

Функция бит_ПриОткрытииПослеНаСервере()

            Для Каждого Эл Из ЭтаФорма.Список.Отбор.Элементы Цикл

                        Если Эл.Представление = "Слава КПСС" Тогда

                                   ЭтаФорма.Список.Отбор.Элементы.Удалить(Эл);

                КонецЕсли;

            КонецЦикла;

           

           

            Если НЕ СлаваКПСС.ДоступнаРоль("АдминистраторСистемы") Тогда

                        Список.КомпоновщикНастроек.Настройки.Отбор.Элементы.Очистить();

                       

                        СписокОбъектовОграничения = СлаваКПСС.ПолучитьОбъектыПоАвторуИИсполнителю(Пользователи.АвторизованныйПользователь());

                       

                        ЭлементОтбора = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

                       

                        ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка");

                        ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

                        ЭлементОтбора.Использование = Истина;

                        ЭлементОтбора.Представление = "Слава КПСС";

                        ЭлементОтбора.ПравоеЗначение = СписокОбъектовОграничения;

                       

            КонецЕсли;  

КонецФункции