ПоказатьВводЧисла не возвращает новое количество обычным ответом. Собственный UUID отличает актуальный запрос от запоздавшего ответа.
Где и как запускать
Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.
Подготовка
В отдельной учебной базе платформы 8.5.1.1343 создайте внешнюю обработку УчебнаяФорма85 с пустой управляемой основной формой. Используйте тонкий клиент Windows.
В свойствах формы → События назначьте ПриСозданииНаСервере. Вставьте полный модуль урока, включая клиентские и серверные помощники, на уровне модуля.
Не создавайте вручную ЗначениеПримера, ПолеПримера и кнопку: код создаёт их полностью. Каждый урок запускайте в отдельной копии своей формы.
Сохраните свою EPF и откройте её в учебной базе. Собственное количество начинается с 3, цена книги задана в коде как 250; исходный расчёт равен 750.
Связанный реквизит помечен как СохраняемыеДанные для изучения поведения формы. Это признак реквизита формы, а не автоматическая запись книги, файла или документа в базу.
Команда расчёта имеет ИзменяетСохраняемыеДанные = Ложь. Уроки изменяют только свой интерфейс и значения собственной формы, не конфигурацию и не рабочие данные.
Запуск и вид в 1С не проверены. Компоновку, сочетания клавиш и расположение команд осмотрите вручную в указанном клиенте; не переносите настройки на рабочие формы без отдельной проверки.
В этой партии каждое окно ввода запускает собственная кнопка УчебноеДействие. Изучайте один полный модуль за раз; никакие значения ввода не исполняются как код.
Перем АктивныйЗапрос;
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Новые = Новый Массив;
ТипРеквизита = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(2, 0, ДопустимыйЗнак.Неотрицательный));
Новые.Добавить(Новый РеквизитФормы("ЗначениеПримера", ТипРеквизита, "", "Количество книг", Истина));
ЭтаФорма.ИзменитьРеквизиты(Новые);
ЭтаФорма.ЗначениеПримера = 3;
Поле = Элементы.Добавить("ПолеПримера", Тип("ПолеФормы"));
Поле.Вид = ВидПоляФормы.ПолеВвода;
Поле.ПутьКДанным = "ЗначениеПримера";
Поле.Заголовок = "Количество собственных книг";
КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
КомандаДействия.Действие = "УчебноеДействие";
КомандаДействия.Заголовок = "Выполнить собственный учебный шаг";
КомандаДействия.Подсказка = "Действие только над данными учебной формы";
КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
Кнопка.ИмяКоманды = КомандаДействия.Имя;
Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры
&НаКлиенте
Процедура УчебноеДействие(Команда)
ДоВвода = ЗначениеПримера;
Маркер = Новый УникальныйИдентификатор;
КонтекстВвода = Новый Структура("Маркер,ДоВвода", Маркер, ДоВвода);
АктивныйЗапрос = Маркер;
Оповещение = Новый ОписаниеОповещения("ПослеСобственногоВвода", ЭтаФорма, КонтекстВвода);
Попытка
ПоказатьВводЧисла(Оповещение, ЗначениеПримера, "Сколько собственных книг: целое число от 1 до 10", 2, 0);
Исключение
АктивныйЗапрос = Неопределено;
ВызватьИсключение;
КонецПопытки;
Сообщить("Запрос ввода сделан; результат обрабатывается только в процедуре завершения");
КонецПроцедуры
&НаКлиенте
Процедура ПослеСобственногоВвода(Введено, ДополнительныеПараметры) Экспорт
Если Не ЭтаФорма.Открыта() Тогда
Возврат;
КонецЕсли;
Если ДополнительныеПараметры.Маркер <> АктивныйЗапрос Тогда
Сообщить("Устаревший ответ собственного диалога не применяется");
Возврат;
КонецЕсли;
АктивныйЗапрос = Неопределено;
ДоВвода = ДополнительныеПараметры.ДоВвода;
Если Введено = Неопределено Тогда
Сообщить("Отмена: собственные данные не менялись");
Возврат;
КонецЕсли;
Если ЗначениеПримера <> ДоВвода Тогда
Сообщить("Количество изменилось за время диалога. Повторите ввод для актуальной заявки");
Возврат;
КонецЕсли;
Если ТипЗнч(Введено) <> Тип("Число") Тогда
ВызватьИсключение "Введённое количество должно быть числом";
КонецЕсли;
Если Введено < 1 ИЛИ Введено > 10 ИЛИ Введено <> Цел(Введено) Тогда
ВызватьИсключение "Для собственной заявки нужно целое количество от 1 до 10";
КонецЕсли;
Цена = 250;
Сумма = Введено * Цена;
ЗначениеПримера = Введено;
Сообщить(Сумма >= 250 И Сумма <= 2500);
Сообщить(Сумма / Цена = ЗначениеПримера);
Сообщить(СтрШаблон("Собственные книги: %1 × %2 = %3", ЗначениеПримера, Цена, Сумма));
КонецПроцедуры
Разбор по шагам
Сохранить число 3 в дополнительной структуре вместе с новым собственным маркером. Назначить эту структуру третьим аргументом ОписаниеОповещения.
Вызвать ПоказатьВводЧисла с пятью аргументами. Следующий Сообщить означает только, что запрос выполнен, не что пользователь уже подтвердил число.
ПослеСобственногоВвода объявлен на клиенте с Экспорт и двумя параметрами: число/Неопределено и дополнительная структура.
В обработчике проверить открытость своей формы, актуальность маркера, отмену и неизменность количества. Только актуальный допустимый ответ может изменить реквизит.
Выбранное число проверяется по правилу 1–10, затем участвует в реальном расчёте. Здесь нет ожидания точного времени и нет блокировки кнопки до вечного callback.
Как проверить результат
Введите 5: обработчик выводит 1250 и две Истина. Отмена не изменяет прежнее количество.
Проверьте точкой останова два аргумента обработчика и Маркер структуры. При повторном запросе старый маркер не может примениться к новому состоянию.
Ожидаемый результат
Показан полный немодальный контракт с владельцем обработчика и сохранённым контекстом исходной заявки.
На что обратить внимание
Не присваивайте результат ПоказатьВводЧисла переменной: введённое число приходит в обработчик, не в обычный Возврат.
Обработчик должен быть экспортным и находиться в переданной ЭтаФорма. Не передавайте неизвестный объект-владелец.
Если окно по внешним причинам не открылось, пример не оставляет отключённую кнопку. Не рассчитывайте на callback после закрытия формы как на запись данных.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.