ФормаКлиентскогоПриложения.МодальныйРежим

Отличить описание реквизита от его значения и открытого окна

На сервере получаем описание только своего реквизита, возвращаем простой снимок и на клиенте сравниваем его с настоящим числовым значением и состоянием собственной формы.

Подготовка

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

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

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

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

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

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

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

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


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

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

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

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

1. ПолучитьРеквизиты доступен на сервере и возвращает массив описаний, а не массив текущих числовых значений.

2. В серверном помощнике ищем своё точное имя с пустым родительским путём. Объект внешней обработки и прочие стандартные реквизиты не считаем отсутствующими.

3. Из описания собираем простую структуру: имя, заголовок, путь, признак сохраняемости и факт включения числового типа.

4. На клиенте проверяем собственную открытую форму, её ЭтотОбъект, модальный признак и тип окна. Readonly-свойства не присваиваем.

5. Имена формы и используемый сервер выводим как фактические наблюдения, а не фиксированные значения всех конфигураций. Расчёт берёт числовой реквизит, а не описание.

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

1. При исходных 3 ожидаются восемь Истина, сумма 750 и фактические сведения своей формы. Измените количество на 5: описание не меняется, расчёт становится 1250.

2. В своём открытии через Файл → Открыть сопоставьте модальный признак и окно. Не путайте модальность окна с монопольным режимом всей базы.

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

Новичок различает метаописание своего реквизита, значение данных, объект формы и окно клиентского приложения.

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

1. ПолучитьРеквизиты не вызывается в тонком клиенте напрямую: используется серверная функция.

2. ТипЗначения описания — ОписаниеТипов, а не число 3. Проверка СодержитТип не вычисляет количество.

3. ИмяФормы, Окно, ИспользуемыйСерверФормы, ЭтотОбъект и МодальныйРежим — readonly; их нельзя менять для имитации другого состояния.

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