ВвестиЧислоАсинх: пересчитать свои книги после подтверждённого ввода

Ожидаем конкретное число через Ждать. Отмена, неверный диапазон и изменившееся исходное количество не заменяются фиктивным успешным расчётом.

Подготовка

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

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

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

4. Сохраните свою EPF и откройте её в учебной базе. Собственное количество начинается с 3, цена книги задана в коде как 250; исходный расчёт равен 750.

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

6. Команда расчёта имеет ИзменяетСохраняемыеДанные = Ложь. Уроки изменяют только свой интерфейс и значения собственной формы, не конфигурацию и не рабочие данные.

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

8. В этой партии каждое окно ввода запускает собственная кнопка УчебноеДействие. Изучайте один полный модуль за раз; никакие значения ввода не исполняются как код.

Перем Занято;

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


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

&НаКлиенте
Асинх Процедура УчебноеДействие(Команда)
    Если Занято = Истина Тогда
        Возврат;
    КонецЕсли;
    Занято = Истина;
    Элементы.КнопкаУчебноеДействие.Доступность = Ложь;
    ДоВвода = ЗначениеПримера;
    Попытка
        Введено = Ждать ВвестиЧислоАсинх(ЗначениеПримера, "Сколько собственных книг: целое число от 1 до 10", 2, 0);
    Исключение
        Занято = Ложь;
        Элементы.КнопкаУчебноеДействие.Доступность = Истина;
        ВызватьИсключение;
    КонецПопытки;
    Занято = Ложь;
    Элементы.КнопкаУчебноеДействие.Доступность = Истина;
    Если Введено = Неопределено Тогда
        Сообщить("Отмена: собственные данные не менялись");
        Возврат;
    КонецЕсли;
    Если ЗначениеПримера <> ДоВвода Тогда
        Сообщить("Количество изменилось за время диалога. Повторите ввод для актуальной заявки");
        Возврат;
    КонецЕсли;
    Если ТипЗнч(Введено) <> Тип("Число") Тогда
        ВызватьИсключение "Введённое количество должно быть числом";
    КонецЕсли;
    Если Введено < 1 ИЛИ Введено > 10 ИЛИ Введено <> Цел(Введено) Тогда
        ВызватьИсключение "Для собственной заявки нужно целое количество от 1 до 10";
    КонецЕсли;
    Цена = 250;
    Сумма = Введено * Цена;
    ЗначениеПримера = Введено;
    Сообщить(Сумма >= 250 И Сумма <= 2500);
    Сообщить(Сумма / Цена = ЗначениеПримера);
    Сообщить(СтрШаблон("Собственные книги: %1 × %2 = %3", ЗначениеПримера, Цена, Сумма));

КонецПроцедуры

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

1. Начальное количество 3 передаётся в окно как число. Длина 2 и точность 0 описывают число ввода, а не ширину окна в пикселях.

2. Клиентская процедура имеет Асинх. Ждать возвращает введённое число либо Неопределено; само Обещание не присваивается реквизиту.

3. На время ожидания отключить только свою кнопку. При исключении сбросить флаг и восстановить кнопку перед повторным исключением.

4. До изменения собственных данных обработать отмену и сравнить текущее количество со снимком. Чужой устаревший расчёт не должен затирать новое значение.

5. Проверить числовой тип, целочисленность и 1–10. Только затем установить свой реквизит и вычислить стоимость по цене 250.

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

1. Введите 5: количество 5, две Истина и сумма 1250. Отмена оставляет прежнее количество и возвращает доступность своей кнопки.

2. Введите 0/11: появляется исключение до присваивания. После исправления можно вызвать диалог повторно. Не обещайте, что ввод 1.5 при точности 0 сохранится как дробь: интерфейс может ограничить или преобразовать его.

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

Есть завершённый расчёт и безопасное возвращение в интерфейс после каждого исхода ожидания.

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

1. Для ВвестиЧислоАсинх установленная справка 8.5.1 не указывает веб-клиент. Урок рассчитан на тонкий клиент Windows, не на обещанную универсальную доступность.

2. Неопределено означает отказ, но 0 — введённое число, которое отвергает своё бизнес-правило. Не подменяйте это одной проверкой ЗначениеЗаполнено.

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

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