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