Включить подарочную упаковку булевым тумблером

Тумблер меняет своё булево значение. Режим Текст отображает Да/Нет; код вычисляет собственную доплату 50, не анализируя видимую подпись.

Подготовка

1. В отдельной учебной базе платформы 8.5.1.1343 создайте внешнюю обработку УчебныеЭлементы85, пустую управляемую форму и назначьте её основной. Используйте тонкий клиент Windows.

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

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

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

5. Реквизит формы хранит значение, а ПолеФормы его отображает. ПутьКДанным связывает две части; неизвестного свойства Поле.Значение здесь нет.

6. Расчёты используют собственные 3 книги по 250 и учебные условия. Они ничего не записывают в базу, не создают файлов и не вызывают сеть.

7. Запуск и вид в 1С не проверены. Учитывайте интерфейс вашей учебной базы: Версия8_5 и Такси по-разному используют некоторые свойства.

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

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

&НаКлиенте
Процедура УчебноеДействие(Команда)
    Поле = Элементы.УчебныйПереключатель;
    Если ТипЗнч(УчебныйВыбор) <> Тип("Булево") Тогда
        ВызватьИсключение "Учебный выбор должен быть булевым";
    КонецЕсли;
    Доплата = 0;
    Если УчебныйВыбор Тогда
        Доплата = 50;
    КонецЕсли;
    СуммаКниг = 3 * 250;
    Итого = СуммаКниг + Доплата;
    Сообщить(СуммаКниг = 750);
    Сообщить(Итого - Доплата = СуммаКниг);
    Сообщить(СтрШаблон("Книги: %1; доплата: %2; итого: %3", СуммаКниг, Доплата, Итого));
    Сообщить(Поле.СписокВыбора.Количество() = 2);
    Сообщить(Поле.ОдинаковаяШиринаКолонок = Истина);
    Сообщить(Поле.ШиринаЭлемента = 18);
КонецПроцедуры

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

1. Создаём булевый реквизит, начальное Ложь. Список содержит именно Ложь и Истина, а не строковые слова Да и Нет.

2. ВидПереключателя.Тумблер включает другой режим этого же поля. ОтображениеТумблера.Текст в 8.5.1 задаёт подписи Да/Нет.

3. ШиринаЭлемента используется для тумблера только при ОдинаковаяШиринаКолонок = Истина. Поэтому обе настройки задаются вместе.

4. ВысотаЭлемента задаётся в строках, нулевая ВысотаЗаголовкаЭлемента означает автоматический выбор. Размеры не объявляются пикселями.

5. Нажатие кнопки рассчитывает 750 при выключенной упаковке или 800 при включённой. Фиксированные 50 — собственный учебный тариф.

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

1. При Ложь ожидаются итог 750 и пять Истина; при Истина — доплата 50, итог 800 и те же проверки.

2. В Версия8_5 осмотрите тумблер и его сегменты. В Такси свойство РастягиватьПоГоризонтали игнорируется; точный внешний вид проверяется вручную.

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

Булевый выбор влияет на учебный расчёт независимо от подписей и геометрии тумблера.

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

1. Текст Да/Нет — представление режима, а не введённые пользователем строковые данные.

2. Неопределено для ОдинаковаяШиринаКолонок трактуется как Ложь: при нём ширина сегмента не используется.

3. Настройки размера задаём на сервере создания формы; изменение ряда свойств на клиенте требует обращения к серверу.

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