Выделить и снять выделение меток по идентификаторам

Учебные задачи

Получаем идентификаторы конкретных Книга и Ручка. Меняем только выделение, не значения, порядок или количество меток.

Где и как запускать

Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.

Подготовка

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

  2. Не добавляйте вручную реквизит ЗначениеПримера, поле ПолеПримера и команду УчебноеДействие: их создаст код.

  3. В свойствах формы → События свяжите ПриСозданииНаСервере с одноимённой процедурой. Вставьте весь модуль, включая клиентские и серверные процедуры.

  4. Сохраните учебную EPF и откройте через Файл → Открыть в тонком или толстом клиенте Windows. Рабочие данные не читаются и не записываются.

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Новые = Новый Массив;
    ТипРеквизита = Новый ОписаниеТипов("СписокЗначений");
    Новые.Добавить(Новый РеквизитФормы("ЗначениеПримера", ТипРеквизита));
    ЭтаФорма.ИзменитьРеквизиты(Новые);
    ЭтаФорма.ЗначениеПримера = Новый СписокЗначений;
    Поле = Элементы.Добавить("ПолеПримера", Тип("ПолеФормы"));
    Поле.Вид = ВидПоляФормы.ПолеВвода;
    Поле.ПутьКДанным = "ЗначениеПримера";
    Поле.Заголовок = "Выделение учебных меток";
    ЭтаФорма.ЗначениеПримера.Добавить("book", "Книга");
    ЭтаФорма.ЗначениеПримера.Добавить("pen", "Ручка");
    Поле.РасширенноеРедактированиеМножественныхЗначений = Истина;
    Поле.РазрешитьДублированиеМножественныхЗначений = Ложь;
    Поле.РазрешитьВводПустыхМножественныхЗначений = Ложь;
    Поле.ГиперссылкаМножественныхЗначений = Ложь;
    Поле.КнопкаОткрытия = Истина;
    Поле.Ширина = 60;

    КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
    КомандаДействия.Действие = "УчебноеДействие";
    КомандаДействия.Заголовок = "Проверить выделение";
    КомандаДействия.Подсказка = "Действие только над данными учебной формы";
    КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
    Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
    Кнопка.ИмяКоманды = КомандаДействия.Имя;
    Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры

&НаКлиенте
Процедура УчебноеДействие(Команда)
    Если ЗначениеПримера.Количество() <> 2 Тогда
        Сообщить("Для проверки исходных двух меток переоткройте свою форму");
        Возврат;
    КонецЕсли;
    Книга = ЗначениеПримера.НайтиПоЗначению("book");
    Ручка = ЗначениеПримера.НайтиПоЗначению("pen");
    Если Книга = Неопределено Или Ручка = Неопределено Тогда
        ВызватьИсключение "Не найдены две собственные метки book и pen";
    КонецЕсли;
    Поле = Элементы.ПолеПримера;
    ИдентификаторКниги = Книга.ПолучитьИдентификатор();
    ИдентификаторРучки = Ручка.ПолучитьИдентификатор();
    Идентификаторы = Новый Массив;
    Идентификаторы.Добавить(ИдентификаторКниги);
    Поле.УстановитьВыделенныеМножественныеЗначения(Идентификаторы);
    Выделенные = Поле.ПолучитьВыделенныеМножественныеЗначения();
    Сообщить(Выделенные.Количество() = 1 И Выделенные.Найти(ИдентификаторКниги) <> Неопределено);
    Идентификаторы.Очистить();
    Идентификаторы.Добавить(ИдентификаторРучки);
    Поле.УстановитьВыделенныеМножественныеЗначения(Идентификаторы);
    Выделенные = Поле.ПолучитьВыделенныеМножественныеЗначения();
    Сообщить(Выделенные.Количество() = 1 И Выделенные.Найти(ИдентификаторРучки) <> Неопределено);
    Идентификаторы.Очистить();
    Поле.УстановитьВыделенныеМножественныеЗначения(Идентификаторы);
    Сообщить(Поле.ПолучитьВыделенныеМножественныеЗначения().Количество() = 0);
    Сообщить(ЗначениеПримера.Количество() = 2);
    Сообщить(Книга.Значение = "book" И Ручка.Значение = "pen");
КонецПроцедуры

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

  1. Находим элементы по значению и проверяем результат до получения идентификаторов.

  2. ПолучитьИдентификатор возвращает идентификатор элемента, не индекс 0 или 1.

  3. УстановитьВыделенныеМножественныеЗначения получает массив числовых идентификаторов.

  4. ПолучитьВыделенныеМножественныеЗначения проверяется через Найти: порядок возвращённого массива не предполагается.

  5. Пустой массив снимает выделение. Исходные значения и количество остаются прежними.

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

  1. Пять сообщений Истина.

  2. После команды ни одна метка не выделена, обе по-прежнему присутствуют.

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

Безопасно проверены установка, чтение и сброс выделения множественных значений.

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

  1. Методы выделения доступны Windows/веб-клиенту; не переносите клиентский обработчик в мобильный клиент без проверки доступности.

  2. После удаления элемента его старый идентификатор нельзя использовать как идентификатор нового элемента.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.