Имя: Пароль:
1C
1С v8
Скрыть элементы и группы справочника
0 zenon46
 
03.02.26
10:52
Доброго дня!
Конфигурация на УФ, у справочника номенклатура - есть реквизит НеАктуальная - типа булево, реквизит для групп и элементов, нужно скрыть в форме списка - все элементы и группы у которых реквизит Истина, динамический список формируется без запроса.
Сделал в процедуре ПриСозданииНаСервере, следующий код :

ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
Список, "НеАктуальная", Ложь, , , );

Вроде работает как надо - но скрываются только элементы - группы продолжают отображаться, причем даже те у которых в подчинении все элементы с реквизитом НеАктуальная = Истина...как скрыть и группы ?
1 PR
 
03.02.26
11:05
Только RLS
2 Галахад
 
гуру
03.02.26
11:09
(0) Попробуй через условное оформление.
3 arsik
 
гуру
03.02.26
11:25
(0) В модуле менеджера
&После("ОбработкаПолученияДанныхВыбора")
Процедура кмн_ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка)
	Параметры.Отбор.Вставить("ВАрхиве", Ложь);
КонецПроцедуры


ну и в форме списка для того что бы показать архивные
Процедура АрхивированиеЭлементовСписокПереключитьОтбор(Кнопка, Список) Экспорт

	Кнопка.Пометка = НЕ Кнопка.Пометка;

	скдПолеВАрхиве = Новый ПолеКомпоновкиДанных("ВАрхиве");
	ЭлементОтбора = Неопределено;
	
	Для Каждого СтрокаОтбора Из Список.Отбор.Элементы Цикл
		Если СтрокаОтбора.ЛевоеЗначение = скдПолеВАрхиве Тогда
			ЭлементОтбора = СтрокаОтбора;
		КонецЕсли;	
	КонецЦикла;
	
	Если ЭлементОтбора = Неопределено Тогда
		ЭлементОтбора = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
		ЭлементОтбора.ЛевоеЗначение = скдПолеВАрхиве;
	КонецЕсли;

	ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
	ЭлементОтбора.Использование = Кнопка.Пометка;
	ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
	ЭлементОтбора.ПравоеЗначение = Ложь;

КонецПроцедуры
4 PR
 
03.02.26
11:41
Пойду налью кофе, подожду сообщений "А, так не работает, а я думал, что работает, а оно на самом деле так не работает, значит нужно сделать так, как работает, а как же это сделать-то"
5 Галахад
 
гуру
03.02.26
11:45
(4) Скептик.
6 Гений 1С
 
гуру
03.02.26
11:47
(1) Да, я как раз придумал универсальный RLS:
https://geniy1s.ru/kak-by-nam-uprostit-rls/
7 PR
 
03.02.26
11:50
(5) Смешно
Напиши точно работающий вариант, но без RLS
И это, лучше проверь сначала
8 Галахад
 
гуру
03.02.26
11:54
(7) Настройка списка. Условное оформление. Видимость = нет. Нужное условие.
9 PR
 
03.02.26
12:09
(8) О как, проверил, работает, ниче се
Отстал от жизни, раньше (давным давно) не работало, платформа не стоит на месте
Приношу мои извинения за налитый прилюдно кофе в (4) :))
10 Галахад
 
гуру
03.02.26
12:15
(9) 🤝
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс