Глобальный контекст.ВвестиСтроку

ВвестиСтроку: показать локальную строку после булевого подтверждения

В собственной совместимой базе получаем название через изменённую локальную переменную. Принято отвечает на вопрос OK/Отмена, а не содержит название.

Подготовка

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

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

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

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

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

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

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

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

9. Только для синхронного варианта создайте отдельную пустую учебную конфигурацию с техническим именем УчебныеДиалоги85 и заранее разрешённой модальностью. Читайте её режим в конфигураторе; не меняйте рабочую базу ради урока. При ином имени или НеИспользовать пример откажется до диалога.

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


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

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

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

&НаКлиенте
Процедура ПроверитьСобственноеКоличество()
    Если ТипЗнч(ЗначениеПримера) <> Тип("Число") Тогда
        ВызватьИсключение "Собственное количество должно быть числом";
    КонецЕсли;
    Если ЗначениеПримера < 1 ИЛИ ЗначениеПримера > 10 ИЛИ ЗначениеПримера <> Цел(ЗначениеПримера) Тогда
        ВызватьИсключение "Нужно собственное целое количество от 1 до 10";
    КонецЕсли;
КонецПроцедуры

&НаСервереБезКонтекста
Функция РазрешёнСобственныйСинхронныйВвод()
    Возврат Метаданные.РежимИспользованияМодальности <> Метаданные.СвойстваОбъектов.РежимИспользованияМодальности.НеИспользовать;
КонецФункции

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

1. Проверить имя своей конфигурации и режим модальности, исключить веб-клиент синхронной ветки.

2. Подготовить отдельную строку Введено=Книга. ВвестиСтроку может изменить именно эту переменную, но до подтверждения она не присваивается заголовку.

3. При Принято=Ложь выйти без изменений. При Истина читать Введено, а не преобразовывать Булево в название.

4. Проверить актуальное количество и нормализованное название: непустое, не больше 32 символов, без переводов строк.

5. Назначить подпись своего поля и рассчитать числовую сумму. Ни режим базы, ни рабочие товары не изменяются.

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

1. OK с Азбука: две Истина, сумма 750, новое название только в собственной подписи. Отмена не изменяет её.

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

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

Булево управление и фактический строковый результат разделены на законченной собственной задаче.

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

1. ВвестиСтроку в веб-клиенте генерирует исключение, несмотря на упоминание веб-клиента в перечне доступности: учитывается явное примечание.

2. Начальное название Книга задано явно; неизвестный реквизит чужой формы не требуется.

3. Обрезка строки и проверка количества не являются записью номенклатуры в базу.

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