ПеречислениеМенеджер.<Имя перечисления>.ПолучитьФормуВыбора

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

Синтаксис

ПолучитьФормуВыбора(<Форма>, <Владелец>, <КлючУникальности>)

Примеры платформы

ВидыТоваров = Перечисления.ВидыТоваров;
ФормаВыбора= ВидыТоваров.ПолучитьФормуВыбора();
Если Не ФормаВыбора.Открыта() Тогда
    ФормаВыбора.Открыть();
КонецЕсли;

Полное описание, параметры и ограничения

ПеречислениеМенеджер.<Имя перечисления>.ПолучитьФормуВыбора (EnumManager.<Enumeration name>.GetChoiceForm)

ПеречислениеМенеджер.<Имя перечисления> (EnumManager.<Enumeration name>)

ПолучитьФормуВыбора (GetChoiceForm)

Доступен, начиная с версии 8.0.

Синтаксис:
ПолучитьФормуВыбора(<Форма>, <Владелец>, <КлючУникальности>)
Параметры:

<Форма> (необязательный)
Тип: Строка, ОбъектМетаданных: Форма.
Имя формы, как оно задано в конфигураторе, или объект описания метаданного требуемой формы. Если параметр не указан, то используется основная форма, заданная в конфигураторе.

<Владелец> (необязательный)
Тип: Форма; Элемент управления.
Объект, который будет являться владельцем открываемой формы.

<КлючУникальности> (необязательный)
Тип: Произвольный.
В данном параметре может быть задан некоторый ключ, значение которого будет использоваться для поиска уже открытых форм.
При поиске учитываются значения свойств открытых форм соответствующим значениям параметров метода. Если найдена открытая форма (по совпадению всех параметров), то она будет возвращена вместо новой формы.
Если из некой формы (один и тот же владелец) требуется открывать новые экземпляры другой формы, то при каждом вызове метода значение данного параметра должно быть уникально (в рамках соответствующих значений свойств открытых форм).
Значение параметра присваивается свойству открываемой формы КлючУникальности.
Следует учитывать, что при получении формы из "объекта" система получает форму для конкретного экземпляра объекта с учетом совокупности переданных параметров, в то время как для "ссылки" всегда существует только один объект в базе данных и форма получается одна (для одинаковой совокупности параметров).
Возвращаемое значение:
Тип: Форма, Неопределено.
Неопределено - если в обработчике ПриСозданииНаСервере установлен признак отказа от создания формы.
Описание:

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

Доступность:

Толстый клиент.

Пример:

ВидыТоваров = Перечисления.ВидыТоваров;
ФормаВыбора= ВидыТоваров.ПолучитьФормуВыбора();
Если Не ФормаВыбора.Открыта() Тогда
ФормаВыбора.Открыть();
КонецЕсли;

Использование в версии:

Доступен, начиная с версии 8.0.

Методическая информация

Практические примеры

Смета в памяти: выбрать статус и проверить300→150 в таблице, дереве и numeric макете

Создадим три статуса сметы в собственной новой учебной конфигурации. Суммы100/150/50 хранятся только в памяти: полная сумма300, после выбора Оплачено —150. Научимся выбирать статус, сравнивать плоскую таблицу и дерево, проверять итог, сбрасывать отбор и отменять выбор без записей в базу.

Где и как запускать

Платформа8.5.1.1343 Windows, толстый клиент, обычное приложение, отдельная файловая учебная база. Код и макет описаны полностью; запуск в1С и компиляция конфигурации здесь не выполнялись.

Подготовка

Задача: научиться отличать metadata-перечисление от таблицы бизнес-данных. Статусы фиксированы в конфигурации, а суммы существуют только в памяти. Мы не создаем и не записываем документы, справочники или регистры.
Вручную создайте НОВУЮ пустую File-базу только C:\1c-labs\OwnEnumerationQuote85_5ef123f4-8b12-4e49-bc26-6d1c8a745d86\IB. UUID здесь — имя своего каталога стенда, НЕ UUID информационной базы. Не копируйте рабочую базу и не используйте путь пользователя к УТ/КА/УНФ/БП. Здесь мы не создаем каталог, базу, CF, пользователей или окна: это инструкция для будущего ручного запуска.
Платформа8.5.1.1343 Windows, толстый клиент, ОбычноеПриложение. Свойства конфигурации: Имя УчебнаяСметаСтатусов85, РежимСовместимости НеИспользовать, режимы запуска УправляемоеПриложениеИОбычноеПриложение, основной режим запуска ОбычноеПриложение. Эта отдельная настройка режимов нужна, чтобы в свойствах общего модуля были доступны флаги клиента обычного и управляемого приложения; ниже включаем только обычный клиент. Единственный пользователь Смета85Ученик с собственной полной ролью, включая право Администрирование для ПолучитьПользователей. Аутентифицируйтесь этим пользователем. Не устанавливайте расширения БД и не подключайте расширения сеанса; автоматический guard проверяет только источникБазаДанных, отсутствие session extensions — отдельное ручное prerequisite.
Перечисления→Добавить→СтатусыСметы85. В этом порядке добавьте Черновик85 (синоним Черновик), Оплачено85 (Оплачено), Отгружено85 (Отгружено). СпособВыбора=ОбоимиСпособами. Значения перечисления создаются ТОЛЬКО в metadata-конфигураторе, а не командой записи из 1С:Предприятия. В новой конфигурации не должно быть других перечислений, документов, справочников, обработок, отчетов и четырех семейств регистров.
ОбщиеМодули→СметаСтатусов85: КлиентОбычноеПриложениеДа, КлиентУправляемоеПриложениеНет, СерверНет, ВнешнееСоединениеНет, ВызовСервераНет, ГлобальныйНет, ПривилегированныйНет. COMMON_MODULE целиком вставьте в его Модуль. Это будущий клиентский in-memory код, не общий server helper.
ОбщиеФормы→Смета85→обычная форма, НЕ управляемая. HUB_MODULE целиком в Модуль. Реквизиты: Статус85 ПеречислениеСсылка.СтатусыСметы85; Таблица85 ТаблицаЗначений; Дерево85 ДеревоЗначений; Вывод85 ТабличныйДокумент; Состояние85 Строка2000. Исходная85/ПринятыйСтатус85/ОжидаемыйВыбор85/КлючВыбора85/Остановка85 — private module variables из кода, не реквизиты формы.
Смета85: ПолеВвода Статус85 Данные=Статус85, тип только собственная EnumRef. ПриИзменении→СтатусПриИзменении85(Элемент), ровно1formal по ordinary event104. ДоступныеЗначения задаются кодом только Черновик/Оплачено. Удалите стандартное изменение данных вне поля выбора; Состояние85 readonly. Не устанавливайте input/table control владельцем подчиненной формы: native extension properties тогда недоступны; owner всегда ЭтаФорма.
Смета85: ТабличноеПоле Таблица85 Данные=Таблица85. Колонки Код85/Статус85/Сумма85: их Имя и Данные совпадают с именем. Сумма85 должна иметь numeric тип из actual table. Картинка85 и Маркер85 — скрытые колонки данных, не строки картинки и не непрочитанный attachment. Native ДанныеКартинки у колонки Статус85 будет Картинка85, итоговый подвал у numeric колонки Сумма85 включается кодом. Удалите команды добавления/изменения/удаления и настройку колонок.
Смета85: ТабличноеПоле Дерево85 Данные=Дерево85. Видимые колонки Код85/Статус85/Сумма85 с соответствующими Имя/Данные, hidden data Картинка85/Маркер85. Дерево показывает группу статуса и вложенную собственную строку; это разные уровни, их суммы нельзя складывать вместе. ИзменятьПорядокСтрокFalse, readonly и запрет изменения состава задаются кодом. Раскройте собственные группы штатным плюс/стрелкой, чтобы увидеть вложенные строки; не выдаем это за проверенный renderer.
Смета85: ПолеТабличногоДокумента Вывод85 Данные=Вывод85, ТолькоПросмотрДа. Кнопки Сбросить85/Вид85/СписокСтатусов85/Выбрать85/Памятка85. Для каждой Нажатие свяжите с одноименной процедурой(Элемент), ровно1actual Кнопка по ordinary event104. Форма ПриОткрытии→ПриОткрытии(), ОбработкаВыбора→ОбработкаВыбора(ЗначениеВыбора,Источник), ровно2безElement. Не вызывайте event-handlers вручную из кода.
У СтатусыСметы85 через ФОРМЫ→Добавить мастер ordinary формы создайте Список85 типа формы списка и Выбор85 типа формы выбора. В каждой системе поручается создать main requisite типа ПеречислениеСписок.СтатусыСметы85; назовите его Список85 и установите ОсновнойРеквизитДа. Не создавайте Новый ПеречислениеСписок — native конструктора нет. ОсновнаяФормаСписка=Список85, ОсновнаяФормаДляВыбора=Выбор85. В каждой LIST_MODULE целиком в Модуль; модули независимы, не зовут друг друга.
В обеих enum формах: ТабличноеПоле Статусы85 Данные=Список85; ровно одна visible колонка ИмяСсылка/ДанныеСсылка. Это actual EnumList control: ТекущаяСтрока имеет native EnumRef, а не Структура и не row index. readonly поле Состояние85 Строка2000. Уберите стандартное изменение enum значений, команды записи и интерактивную настройку отбора. Отбор и НастройкаОтбора являются RO контейнерами; childСсылка меняется допустимыми native методами.
Обе enum формы: ПередОткрытием→ПередОткрытием(Отказ,СтандартнаяОбработка)2, ПриЗакрытии→ПриЗакрытии()0; у Статусы85 Выбор→СтатусыВыбор85(Элемент,ВыбраннаяСтрока,Колонка,СтандартнаяОбработка)4. NativeSelection35 имеет3formals, ordinaryevent104 добавляет actual первыйcontrol. СтандартнаяОбработка=False первой строкой исключает скрытый native выбор. ОповеститьОВыборе вызывается ТОЛЬКО в режиме собственной choice формы. NativeClose/X не посылает выбор; ПриЗакрытии вызывает обычную экспортную business процедуру отмены владельца, не event handler.
СтатусыСметы85→Формы→обычная произвольная Памятка85 (НЕ управляемая). MEMO_MODULE целиком в Модуль. Реквизит Вывод85 ТабличныйДокумент, одно ПолеТабличногоДокумента Вывод85 Данные=Вывод85/ТолькоПросмотрДа. ПередОткрытием2 по модулю. Памятка получает именно текущий проверенный numeric документ своей сметы из actual enum manager GetForm3, не стороннюю форму и не новый фальшивый объект.
СтатусыСметы85→Макеты→Итоги85→ТабличныйДокумент. Ровно3строки×2колонки, без объединений и ячеек внеR1C1:R3C2. Полный copyable six-cell asset CELLS ниже описывает КАЖДУЮ ячейку. Через штатный редактор внесите labels и numeric параметры: Всего85/Количество85/Отбор85, ЗаполнениеПараметр, numericЗначение0, СодержитЗначениеДа, ТипЗначенияЧисло12,0 неотрицательное, ЗащитаДа ВСЕХ6cells. JSON asset — спецификация ручной подготовки, НЕ формат импорта CF. Нельзя подменить numeric0 текстом0 или менять ContainsValue runtime, чтобы скрыть ошибку макета.
В модуль обычного приложения своей CF вставьте APPLICATION_MODULE ПриНачалеРаботыСистемы()0. Обновите конфигурацию своей учебной БД вручную и запустите именно ее в толстом обычном клиенте своим единственным пользователем. Штатный собственный app-start opens ОбщаяФорма.Смета85; не нужно меню или подсистема рабочей конфигурации.
Ручной тест1: при старте две memory views содержат3строки/3группы со своим дочерним листом, исходные100/150/50; numeric report readback поR1C2/R2C2/R3C2 равно300/3/300. Вкладка/пиксели/цвет картинки/подвал относятся к будущей manual UI проверке. Сумма дерева по группам300, по деталям300, НЕ600.
Ручной тест2: БыстрыйВыбор показывает только Черновик/Оплачено. Выберите Оплачено: actual flat1row150, tree1group+1leaf150, numeric readback300/1/150. Черновик дает300/1/100. Сбросить85 возвращает300/3/300. Вид85 переключает дерево/иерархический список без смены3или1actualrows/сумм. Памятка85 показывает те же actual numeric клетки в своем readonly поле.
Ручной тест3: СписокСтатусов85 opens own EnumList с childFilterСсылка InList двух refs и initial positionОплачено. Факт actualcurrent row после показа проверяется выбором собственной enum строки, но renderer/пиксели здесь не запускались. Выбрать85 opens own native choice; выберитеОплачено actual double-click/Enter, не прямой вызов handler. Платформа вызовет Selection4→NotifyChoice1→ownerChoiceProcessing2→новый candidate result.
Ручной тест4: открыть Выбрать85 и закрытьX без выбора. Native Close0 должен очистить только ожидаемый choice handle; предыдущие flat/tree/numeric клетки сохраняются. Foreignsource/foreignref/Отгружено/array/unknownkey/измененный источник/нечисловой макет — отказ. После исключения stickystop не позволяет продолжать текущую форму; ее надо закрыть и исправить подготовку. Последовательные присваивания не являются транзакцией и не обещают rollback/атомарность UI.

Перем Исходная85;
Перем ПринятыйСтатус85;
Перем ОжидаемыйВыбор85;
Перем КлючВыбора85;
Перем Остановка85;

Процедура ПриОткрытии()
    Остановка85 = Ложь;
    Попытка
        СметаСтатусов85.ПроверитьСтенд85();
        Если ТипЗнч(Перечисления) <> Тип("ПеречисленияМенеджер") Тогда
            ВызватьИсключение "Нужен собственный системный менеджер перечислений";
        КонецЕсли;
        ВсеСсылки = Перечисления.ТипВсеСсылки();
        Если ВсеСсылки.Типы().Количество() <> 1 Или Не ВсеСсылки.СодержитТип(Тип("ПеречислениеСсылка.СтатусыСметы85")) Тогда
            ВызватьИсключение "В стенде должно быть только собственное перечисление";
        КонецЕсли;
        Исходная85 = СметаСтатусов85.ИсходнаяСмета85();
        ПринятыйСтатус85 = Перечисления.СтатусыСметы85.ПустаяСсылка();
        Поле = ЭлементыФормы.Статус85;
        Если ТипЗнч(Поле) <> Тип("ПолеВвода") Или Поле.Имя <> "Статус85" Или Поле.Данные <> "Статус85"
            Или Поле.ТипЗначения.Типы().Количество() <> 1 Или Не Поле.ТипЗначения.СодержитТип(Тип("ПеречислениеСсылка.СтатусыСметы85")) Тогда
            ВызватьИсключение "Поле выбора должно быть связано только со своим enum реквизитом";
        КонецЕсли;
        Поле.БыстрыйВыбор = Истина;
        Поле.ДоступныеЗначения = СметаСтатусов85.ДоступныеСтатусы85();
        Поле = ЭлементыФормы.Статус85;
        Если Не Поле.БыстрыйВыбор Тогда
            ВызватьИсключение "Быстрый выбор не установлен";
        КонецЕсли;
        СметаСтатусов85.ПроверитьДоступные85(Поле.ДоступныеЗначения);
        ПрименитьСтатус85(ПринятыйСтатус85);
    Исключение
        Остановка85 = Истина;
        Состояние85 = "СТОП: закройте форму и проверьте подготовку стенда";
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПроверитьРаботу85()
    Если Остановка85 <> Ложь Тогда
        ВызватьИсключение "После ошибки нельзя продолжать работу этой формы";
    КонецЕсли;
    Попытка
        СметаСтатусов85.ПроверитьСтенд85();
        СметаСтатусов85.ПроверитьИсходную85(Исходная85);
        СметаСтатусов85.ПроверитьВидимую85(Таблица85, ПринятыйСтатус85);
        СметаСтатусов85.ПроверитьДерево85(Дерево85, Таблица85, ПринятыйСтатус85);
        СметаСтатусов85.ПроверитьИтоги85(Вывод85, СметаСтатусов85.Числа85(Исходная85, Таблица85, ПринятыйСтатус85));
    Исключение
        Остановка85 = Истина;
        Состояние85 = "СТОП: исходные данные или текущий результат изменены";
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПроверитьКнопку85(Элемент, Имя)
    Если ТипЗнч(Элемент) <> Тип("Кнопка") Или Элемент.Имя <> Имя Или Элемент <> ЭлементыФормы[Имя] Тогда
        ВызватьИсключение "Команда вызвана не своей кнопкой";
    КонецЕсли;
    ПроверитьРаботу85();
КонецПроцедуры

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

Процедура НастроитьПредставление85(ПоказыватьДерево)
    ПлоскоеПоле = ЭлементыФормы.Таблица85;
    ДревовидноеПоле = ЭлементыФормы.Дерево85;
    Если ТипЗнч(ПлоскоеПоле) <> Тип("ТабличноеПоле") Или ПлоскоеПоле.Данные <> "Таблица85" Или ПлоскоеПоле.Значение <> Таблица85
        Или ТипЗнч(ДревовидноеПоле) <> Тип("ТабличноеПоле") Или ДревовидноеПоле.Данные <> "Дерево85" Или ДревовидноеПоле.Значение <> Дерево85 Тогда
        ВызватьИсключение "Нужны собственные табличные поля actual TV и actual ValueTree";
    КонецЕсли;
    Если ПлоскоеПоле.Колонки.Найти("Статус85") = Неопределено Или ПлоскоеПоле.Колонки.Найти("Сумма85") = Неопределено
        Или ДревовидноеПоле.Колонки.Найти("Статус85") = Неопределено Тогда
        ВызватьИсключение "Создайте собственные колонки Статус85 и Сумма85";
    КонецЕсли;
    Если ПлоскоеПоле.Колонки.Статус85.Данные <> "Статус85" Или ПлоскоеПоле.Колонки.Сумма85.Данные <> "Сумма85"
        Или ДревовидноеПоле.Колонки.Статус85.Данные <> "Статус85" Тогда
        ВызватьИсключение "Картинка должна относиться к статусу, а footer только к собственной numeric сумме";
    КонецЕсли;
    ПлоскоеПоле.ТолькоПросмотр = Истина;
    ПлоскоеПоле.ИзменятьСоставСтрок = Ложь;
    ПлоскоеПоле.Подвал = Истина;
    ПлоскоеПоле.Колонки.Статус85.ДанныеКартинки = "Картинка85";
    ПлоскоеПоле.Колонки.Сумма85.ОтображатьИтогиВПодвале = Истина;
    ДревовидноеПоле.ТолькоПросмотр = Истина;
    ДревовидноеПоле.ИзменятьСоставСтрок = Ложь;
    ДревовидноеПоле.Дерево = ПоказыватьДерево;
    ДревовидноеПоле.ИзменятьПорядокСтрок = Ложь;
    ДревовидноеПоле.Колонки.Статус85.ДанныеКартинки = "Картинка85";
    ЭлементыФормы.Вывод85.ТолькоПросмотр = Истина;
    ПлоскоеПоле = ЭлементыФормы.Таблица85;
    ДревовидноеПоле = ЭлементыФормы.Дерево85;
    Если ПлоскоеПоле.Значение <> Таблица85 Или Не ПлоскоеПоле.ТолькоПросмотр Или ПлоскоеПоле.ИзменятьСоставСтрок Или Не ПлоскоеПоле.Подвал
        Или ПлоскоеПоле.Колонки.Статус85.ДанныеКартинки <> "Картинка85" Или Не ПлоскоеПоле.Колонки.Сумма85.ОтображатьИтогиВПодвале
        Или ДревовидноеПоле.Значение <> Дерево85 Или Не ДревовидноеПоле.ТолькоПросмотр Или ДревовидноеПоле.ИзменятьСоставСтрок
        Или ДревовидноеПоле.Дерево <> ПоказыватьДерево Или ДревовидноеПоле.ИзменятьПорядокСтрок
        Или ДревовидноеПоле.Колонки.Статус85.ДанныеКартинки <> "Картинка85"
        Или ЭлементыФормы.Вывод85.Значение <> Вывод85 Или Не ЭлементыФормы.Вывод85.ТолькоПросмотр Тогда
        ВызватьИсключение "Фактические свойства повторно полученных собственных полей не совпали";
    КонецЕсли;
КонецПроцедуры

Процедура СтатусПриИзменении85(Элемент)
    Если Элемент <> ЭлементыФормы.Статус85 Или ТипЗнч(Элемент) <> Тип("ПолеВвода") Тогда
        ВызватьИсключение "Значение изменено не собственным enum полем";
    КонецЕсли;
    ПрименитьСтатус85(Элемент.Значение);
КонецПроцедуры

Процедура Сбросить85(Элемент)
    ПроверитьКнопку85(Элемент, "Сбросить85");
    ПрименитьСтатус85(Перечисления.СтатусыСметы85.ПустаяСсылка());
КонецПроцедуры

Процедура Вид85(Элемент)
    ПроверитьКнопку85(Элемент, "Вид85");
    Попытка
        НастроитьПредставление85(Не ЭлементыФормы.Дерево85.Дерево);
        ПроверитьРаботу85();
    Исключение
        Остановка85 = Истина;
        Состояние85 = "СТОП: не удалось проверить переключение дерева";
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

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

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

Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)
    Если ТипЗнч(Источник) <> Тип("Форма") Или Источник <> ОжидаемыйВыбор85 Или Источник.ВладелецФормы <> ЭтаФорма
        Или Источник.КлючУникальности <> КлючВыбора85 Или Не Источник.РежимВыбора Или Не Источник.ЗакрыватьПриВыборе Тогда
        ВызватьИсключение "Результат пришел не из собственного ожидаемого выбора";
    КонецЕсли;
    ПроверитьРаботу85();
    СметаСтатусов85.ПроверитьСтатус85(ЗначениеВыбора);
    ПрименитьСтатус85(ЗначениеВыбора);
    ОжидаемыйВыбор85 = Неопределено;
КонецПроцедуры

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

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

Полный собственный common client module

ОбщиеМодули → СметаСтатусов85 → Модуль