способ "красиво" спрятать часть справочника ч-з RLS.

Иногда возникает потребность скрыть от пользователей некоторую часть справочника.
Использование отбора с условием ВСпискеПоИерархии перед открытием формы списка
не позволяет это сделать достаточно красиво: видна иерархическая структура справочника
с "лишними" группами.

Удалось решить проблему, используя RLS. В качестве примера рассмотрим справ. Номенклатура
Потребовалось:

1. 3 параметра сеанса
ИспользоватьФильтрациюНоменклатуры - булево, флажок использования фильтрации
РасширенныйФильтрПоНоменклатуре - ФиксированныйМассив - список групп номенклатуры,
подлежащих визуализации
ПустойФильтрПоНоменклатуре - ФиксированныйМассив - пустой список групп номенклатуры
для служебных целей

2. В роли пользователя для права Чтение справ. Номенклатура для поля Ссылка ограничиваем
доступ условием:

Номенклатура ГДЕ ВЫБОР
КОГДА &ИспользоватьФильтрациюНоменклатуры И Номенклатура.ЭтоГруппа
ТОГДА Номенклатура.Ссылка В (&РасширенныйФильтрПоНоменклатуре)
ИЛИ Номенклатура.Родитель В (&ПустойФильтрПоНоменклатуре)
ИНАЧЕ ИСТИНА
КОНЕЦ

3. Для храненения списка групп, с которыми разрешено работать пользователям филиала в нашей конфигурации
создана ТЧ НоменклатураФилиала в плане обмена Филиалы - т. сказать, "местные" условия ;)

4. В МодулеПриложения вот таким извращенным способом определяем значения ПараметровСеанса

Процедура НазначитьПараметрыСеанса ()

ПараметрыСеанса.ИспользоватьФильтрациюНоменклатуры = Ложь;

ГлавныйУзел = ПланыОбмена.ГлавныйУзел();
Если ГлавныйУзел = Неопределено Тогда
ПараметрыСеанса.ГлавныйУзелРИБ = Истина;
//Возврат;
Иначе
ГлавныйУзелРИБ = Ложь;
КонецЕсли;

// Для подчиненного узла РИБ анализируем наличие фильтра по номенклатуре
Если ПланыОбмена.Филиалы.ЭтотУзел().НоменклатураФилиала.Количество() = 0 Тогда
Возврат;
Иначе
ПараметрыСеанса.ИспользоватьФильтрациюНоменклатуры = Истина;

МассивГруппФильтрации = ПланыОбмена.Филиалы.ЭтотУзел().НоменклатураФилиала.ВыгрузитьКолонку("Номенклатура");
ПараметрыСеанса.РасширенныйФильтрПоНоменклатуре = Новый ФиксированныйМассив ( МассивГруппФильтрации);
ПараметрыСеанса.ПустойФильтрПоНоменклатуре = Новый ФиксированныйМассив ( МассивГруппФильтрации);

СписокГруппФильтрацииНоменклатуры = Новый СписокЗначений;
СписокГруппФильтрацииНоменклатуры.ЗагрузитьЗначения(МассивГруппФильтрации);

СписокГруппНижнегоУровня = Новый СписокЗначений;
СписокГруппНижнегоУровня.ЗагрузитьЗначения(МассивГруппФильтрации);
КонецЕсли;

// В цикле формируем список групп ВЕРХНЕГО УРОВНЯ, подлежащих фильтрации
Пока Истина Цикл

ДобавленыГруппыВСписокФильтрации = Ложь;
Для Каждого Элемент ИЗ МассивГруппФильтрации Цикл
Если Элемент.Родитель.Пустая() Тогда
Продолжить;
ИначеЕсли СписокГруппФильтрацииНоменклатуры.НайтиПоЗначению(Элемент.Родитель) = Неопределено Тогда
СписокГруппФильтрацииНоменклатуры.Добавить(Элемент.Родитель);
ДобавленыГруппыВСписокФильтрации = Истина;
КонецЕсли;
КонецЦикла;

Если НЕ ДобавленыГруппыВСписокФильтрации Тогда
Прервать;
КонецЕсли;

ПараметрыСеанса.РасширенныйФильтрПоНоменклатуре = Новый ФиксированныйМассив ( СписокГруппФильтрацииНоменклатуры.ВыгрузитьЗначения());

КонецЦикла;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа
| И Номенклатура.Родитель В(&ГруппаРодителей)";

// В цикле формируем список групп НИЖНЕГО УРОВНЯ, подлежащих фильтрации
Пока Истина Цикл

Запрос.УстановитьПараметр( "ГруппаРодителей", СписокГруппНижнегоУровня);
ВыборкаГруппНижнегоУровня = Запрос.Выполнить().Выбрать();

Если ВыборкаГруппНижнегоУровня.Количество() = 0 Тогда
Прервать;
КонецЕсли;

СписокГруппНижнегоУровня.Очистить();
ДобавленыГруппыВСписокФильтрации = Ложь;
Пока ВыборкаГруппНижнегоУровня.Следующий() Цикл

Если СписокГруппФильтрацииНоменклатуры.НайтиПоЗначению(ВыборкаГруппНижнегоУровня.Ссылка) = Неопределено Тогда
СписокГруппФильтрацииНоменклатуры.Добавить(ВыборкаГруппНижнегоУровня.Ссылка);
ДобавленыГруппыВСписокФильтрации = Истина;
КонецЕсли;

Если СписокГруппНижнегоУровня.НайтиПоЗначению(ВыборкаГруппНижнегоУровня.Ссылка) = Неопределено Тогда
СписокГруппНижнегоУровня.Добавить(ВыборкаГруппНижнегоУровня.Ссылка);
КонецЕсли;

КонецЦикла;

Если НЕ ДобавленыГруппыВСписокФильтрации Тогда
Прервать;
КонецЕсли;

ПараметрыСеанса.РасширенныйФильтрПоНоменклатуре = Новый ФиксированныйМассив ( СписокГруппФильтрацииНоменклатуры.ВыгрузитьЗначения());
ПараметрыСеанса.ПустойФильтрПоНоменклатуре = Новый ФиксированныйМассив ( СписокГруппФильтрацииНоменклатуры.ВыгрузитьЗначения());

КонецЦикла;

ПустойМассив = Новый Массив();
ПараметрыСеанса.ПустойФильтрПоНоменклатуре = Новый ФиксированныйМассив (ПустойМассив);

КонецПроцедуры // НазначитьПараметрыСеанса