Расширение табличного поля отбора

Управлять редактированием: Отбор

В своей обычной форме получаем НастройкаОтбора из настоящего типизированного табличного поля. Меняем разрешения, не удаляя сами данные.

Подготовка

1. Отдельная собственная конфигурация УчебнаяКонфигурацияСинтаксиса, платформа 8.5.1.1343, толстый клиент с обычными формами. Не управляемая форма и не мобильный клиент.

2. Создайте отдельную учебную внешнюю обработку и её обычную основную форму. В реквизитах формы добавьте УчебныеДанные с типом Отбор; это реквизит формы, не реквизит документа.

3. В редакторе формы добавьте ТабличноеПоле с именем ТаблицаНастроек. Свойство Данные свяжите с УчебныеДанные. Расширение определяется типом этих данных, а не ручным созданием класса расширения.

4. Добавьте обычную кнопку УчебнаяКоманда, назначьте действие УчебнаяКоманда. Событие формы ПриОткрытии свяжите с процедурой ПриОткрытии. Вставьте полный модуль на уровне формы.

5. Откройте форму и до нажатия кнопки проверьте доступность СвойПорог и СвояКатегория. Нажатие учебной кнопки показывает операции коллекции разрешений и затем очищает только эти разрешения.

6. Правила доступности интерфейса не являются правами на данные, RLS или запретом программного изменения. Код не записывает базу, не читает рабочие каталоги и не меняет чужие формы.

7. Это поле связано с Отбор собственного построителя, не с СправочникСписок или ДокументСписок. Для настройки отбора динамического списка Добавить недоступен; данный урок туда не переносить.

Перем ИсходноеКоличество;
Перем Построитель;

Процедура ПриОткрытии()
    Данные = Новый ТаблицаЗначений;
    Данные.Колонки.Добавить("Категория", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
    Данные.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
    Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
    Образцы = Новый Массив;
    Образцы.Добавить(Новый Структура("Категория,Наименование,Количество,Цена", "Канцелярия", "Книга", 3, 250));
    Образцы.Добавить(Новый Структура("Категория,Наименование,Количество,Цена", "Канцелярия", "Ручка", 1, 50));
    Образцы.Добавить(Новый Структура("Категория,Наименование,Количество,Цена", "Упаковка", "Коробка", 2, 30));
    Для Каждого Образец Из Образцы Цикл
        СтрокаДанных = Данные.Добавить();
        ЗаполнитьЗначенияСвойств(СтрокаДанных, Образец);
        СтрокаДанных.Сумма = СтрокаДанных.Количество * СтрокаДанных.Цена;
    КонецЦикла;
    Описание = Новый ОписаниеИсточникаДанных(Данные);
    Для Каждого Колонка Из Описание.Колонки Цикл
        Колонка.Поле = Истина;
        Колонка.Отбор = Истина;
        Колонка.Порядок = Истина;
        Колонка.Измерение = Колонка.Имя = "Категория";
    КонецЦикла;
    Построитель = Новый ПостроительОтчета;
    Построитель.ИсточникДанных = Описание;
    Построитель.ЗаполнитьНастройки();
    Построитель.ИзмеренияСтроки.Очистить();
    Построитель.ИзмеренияКолонки.Очистить();
    Построитель.ВыбранныеПоля.Очистить();
    Построитель.ВыбранныеПоля.Добавить("Наименование", "Товар");
    Построитель.ВыбранныеПоля.Добавить("Количество", "Количество");
    Построитель.ВыбранныеПоля.Добавить("Сумма", "Сумма");
    УчебныеДанные = Построитель.Отбор;
    Порог = УчебныеДанные.Добавить("Количество", "СвойПорог", "Количество от двух");
    Категория = УчебныеДанные.Добавить("Категория", "СвояКатегория", "Только канцелярия");
    Если Порог = Неопределено Или Категория = Неопределено Тогда
        ВызватьИсключение "Не созданы собственные условия отбора";
    КонецЕсли;
    Порог.ВидСравнения = ВидСравнения.БольшеИлиРавно;
    Порог.Установить(2, Истина);
    Категория.Установить("Канцелярия", Истина);
    ИсходноеКоличество = 0;
    Для Каждого СобственныйЭлемент Из УчебныеДанные Цикл
        ИсходноеКоличество = ИсходноеКоличество + 1;
    КонецЦикла;
    Поле = ЭтаФорма.ЭлементыФормы.ТаблицаНастроек;
    Управление = Поле.НастройкаОтбора;
    Управление.Очистить();
    Управление.Добавить("СвойПорог", Ложь);
    Управление.Добавить("СвояКатегория", Истина);
    Сообщить("До кнопки: СвойПорог недоступно для интерактивного изменения, СвояКатегория доступно");
КонецПроцедуры

Процедура УчебнаяКоманда(Кнопка)
    Поле = ЭтаФорма.ЭлементыФормы.ТаблицаНастроек;
    Управление = Поле.НастройкаОтбора;
    Первое = Управление.Найти("СвойПорог");
    Второе = Управление.Найти("СвояКатегория");
    Если Первое = Неопределено Или Второе = Неопределено Тогда
        ВызватьИсключение "Откройте свою форму заново: собственные разрешения уже очищены";
    КонецЕсли;
    Сообщить(Управление.Количество() = 2);
    Сообщить(Первое.Имя = "СвойПорог");
    Сообщить(НЕ Первое.Доступность);
    Сообщить(Второе.Доступность);
    Сообщить(Управление.Индекс(Второе) = 1);
    Сообщить(Управление.Получить(0) = Первое);
    Сообщить(Управление.Найти("НетТакойУчебнойНастройки") = Неопределено);
    Первое.Доступность = Истина;
    Сообщить(Первое.Доступность);
    Управление.Удалить(Второе);
    Сообщить(Управление.Количество() = 1);
    Управление.Очистить();
    Сообщить(Управление.Количество() = 0);
    ТекущееКоличество = 0;
    Для Каждого СобственныйЭлемент Из УчебныеДанные Цикл
        ТекущееКоличество = ТекущееКоличество + 1;
    КонецЦикла;
    Сообщить(ТекущееКоличество = ИсходноеКоличество);
    Сообщить("Очистили только коллекцию разрешений, собственные исходные настройки сохранились");
    Построитель.Выполнить();
    Результат = Построитель.Результат.Выгрузить();
    Сообщить(Результат.Количество() = 1);
    Сообщить(Результат[0].Наименование = "Книга");
    Сообщить(Результат.Итог("Сумма") = 750);
КонецПроцедуры

Разбор по шагам

1. Создать собственные данные нужного типа и связать их с обычным табличным полем через свойство Данные в редакторе формы.

2. Получить настоящий объект управления из расширения поля: у этого класса нет конструктора. Добавить своё запрещённое и разрешённое имя.

3. После ручной проверки интерфейса нажать кнопку. Найти свои элементы по именам, проверить позиции и включить доступность первого.

4. Удалить второй элемент разрешения, затем очистить только коллекцию разрешений. Сверить количество исходных настроек, а не принимать Очистить за удаление данных.

5. Повторный запуск требует заново открыть только свою форму: кнопка уже очистила созданные правила доступности.

Как проверить результат

1. Одиннадцать проверок коллекции разрешений и сохранения исходных настроек дают Истина.

2. До кнопки проверьте недоступность первого и доступность второго собственного элемента в реальном обычном поле. После кнопки ограничения очищены; исходные данные не удалены.

3. Ещё три проверки настоящего результата дают Истина: после очистки разрешений условия отбора остаются, результат содержит только Книгу на 750.

Ожидаемый результат

Полный подключённый к обычному редактору пример доступности с собственной типизированной формой и сохранением исходных настроек.

На что обратить внимание

1. Класс управления и класс исходных данных разные. У элемента управления Имя только читается, Доступность изменяется.

2. Свойство расширения поля только читается как ссылка на коллекцию. Не присваивайте Поле.НастройкаОтбора = Новый ... и не создавайте несуществующий конструктор.

3. Очистить разрешения не отключает существующий отбор и не удаляет исходные правила, области или параметры.

4. Статические проверки пособия подтверждают имена API и структуру кода, но не поведение конкретного редактора обычной формы: его проверяет пользователь в своей учебной базе.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.