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