Различить именованную обычную форму регистра и форму его списка

Учебные задачи

Толстоклиентский контракт принимает явное имя формы и настоящую ЭтаФорма владельца. Для каждого результата отдельно проверяется отказ создания.

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

Полный модуль своей ОБЫЧНОЙ формы обработки, толстый клиент с обычным приложением 8.5.1.1343; только свои два определения форм и пустой регистр. Здесь не запускался.

Подготовка

  1. Создайте НОВУЮ пустую файловую базу, имя корневой конфигурации УчебныеОстатки85. Не добавляйте эти объекты в УТ/КА2/УНФ/БП. Режим управления блокировкой данных конфигурации — Управляемый.

  2. Документы → Добавить: УчебноеДвижение85. Номер: Строка длиной 40, автонумерация выключена. Модули объекта и менеджера оставьте пустыми; не добавляйте обработчики, подписки и обязательные пользовательские реквизиты.

  3. Регистры накопления → Добавить: УчебныеОстатки85. Вид регистра Остатки. Единственное измерение КодТовара: Строка 50, индексировать, проверка заполнения Показывать ошибку. Единственный ресурс Количество: Число 12,3, неотрицательное. Дополнительных реквизитов нет.

  4. В списке регистраторов выберите только собственный документ УчебноеДвижение85. Оставьте модули регистра пустыми, использование итогов включённым. Планы обмена, разделители, историю данных и фоновые задания для урока не создавайте.

  5. Корневой режим совместимости Не использовать; платформа именно 8.5.1.1343. Единственный регистр — собственный УчебныеОстатки85 вида Остатки, единственный документ — УчебноеДвижение85. База новая пустая, не копия рабочей.

  6. Для этого блока никакие документы и движения не создавайте. Запрос проверяет отсутствие записей своего регистра до административного вызова. Других пользователей, обменов, расширений и фоновых заданий нет.

  7. Это операции настройки/обслуживания регистра, не проведение документа. Откат движений не обещает восстановить все настройки/внутренние таблицы итогов.

  8. Урок с границами сознательно меняет диапазон в собственном одноразовом пустом стенде. Он не восстанавливает исходный диапазон и не предназначен для рабочего регистра. Перед таким ручным опытом сохраните резервную копию собственной учебной базы.

  9. При переключении булевых флагов исходное значение читается заранее и восстанавливается при успехе/ошибке. Если восстановление само завершилось ошибкой, код сообщает об этом явно; успешное восстановление не выдумывается.

  10. Примеры здесь не запускались в 1С. Ваши настройки, документы и итоги этим заполнением не изменялись.

  11. У своего УчебныеОстатки85 добавьте макет УчебнаяПамяткаИтогов типа Текстовый документ: первая строка OWN-TOTALS-85, вторая Пустой учебный регистр, не рабочая база. Обновите БД.

  12. В своём УчебныеОстатки85 добавьте ОБЫЧНУЮ произвольную форму УчебнаяПамяткаФорма с надписью Пустой собственный регистр; добавьте ОБЫЧНУЮ форму списка УчебныйПустойСписок. Модули пустые.

  13. У списка отключите кнопки добавления/удаления/записи и внешние обработчики. Ожидается пустой список, поскольку движений в собственной схеме нет.

  14. Толстый клиент, обычное приложение. В обычной форме своей обработки создайте кнопку с действием ПоказатьСвоиФормы, весь модуль вставьте в её модуль. Это НЕ серверный общий модуль; ЭтаФорма — реальный владелец.

  15. Закрывайте окна вручную без изменений. Две разные переменные/UUID не подменяют формы одна другой; чужой транзакции нет.

Процедура ПоказатьСвоиФормы(Кнопка)
    Если Метаданные.Документы.Количество() <> 1
        Или Метаданные.РегистрыНакопления.Количество() <> 1
        Или Метаданные.Документы.Найти("УчебноеДвижение85") = Неопределено Тогда
        ВызватьИсключение "Разрешены только собственный учебный документ и регистр";
    КонецЕсли;
    Описание = Метаданные.РегистрыНакопления.Найти("УчебныеОстатки85");
    Если Описание = Неопределено Тогда
        ВызватьИсключение "Сначала создайте собственный учебный регистр";
    КонецЕсли;
    Если Описание.ВидРегистра <> Метаданные.СвойстваОбъектов.ВидРегистраНакопления.Остатки
        Или Описание.Измерения.Количество() <> 1
        Или Описание.Ресурсы.Количество() <> 1
        Или Описание.Реквизиты.Количество() <> 0
        Или Описание.Измерения.Найти("КодТовара") = Неопределено
        Или Описание.Ресурсы.Найти("Количество") = Неопределено Тогда
        ВызватьИсключение "Нужен регистр остатков с КодТовара и Количество";
    КонецЕсли;
    Менеджер = РегистрыНакопления.УчебныеОстатки85;
    Если Метаданные.РежимСовместимости <> Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать Тогда
        ВызватьИсключение "Нужен собственный стенд без старого режима совместимости";
    КонецЕсли;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Не вызывайте административный опыт внутри чужой транзакции";
    КонецЕсли;
    Проверка = Новый Запрос;
    Проверка.Текст = "ВЫБРАТЬ КОЛИЧЕСТВО(*) КАК Строк
    |ИЗ РегистрНакопления.УчебныеОстатки85";
    Данные = Проверка.Выполнить().Выгрузить();
    Если Данные.Количество() <> 1 Тогда
        ВызватьИсключение "Не получена собственная контрольная строка";
    КонецЕсли;
    Если Данные[0].Строк <> 0 Тогда
        ВызватьИсключение "В собственном регистре уже есть движения: этот пустой административный опыт запрещён";
    КонецЕсли;

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

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

  1. Подготовить две свои обычные формы и пустой регистр.

  2. Проверить точную платформу, схему, совместимость, ноль движений и отсутствие чужой транзакции.

  3. Получить именованную произвольную форму с новым ключом и реальным владельцем; при Неопределено не открывать.

  4. Получить именованную форму списка с другим новым ключом; её отказ обработать отдельно.

  5. Открыть лишь реально полученные формы; ничего не записывать.

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

  1. Открыта своя обычная памятка и свой пустой обычный список.

  2. Для каждого окна Неопределено обработано до Открыть.

  3. В коде нет setter итогов, записи движений, удаления и удержания транзакции.

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

Оба клиентских метода формы применены к явно подготовленным собственным определениям.

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

  1. ПолучитьФорму требует имя формы; не переносите необязательность первого параметра ПолучитьФормуСписка.

  2. Это обычные формы толстого клиента, не управляемое ОткрытьФорму.

  3. Отказ второго окна не делает первое окно несуществующим — закрыть его нужно вручную.

  4. Здесь окна не открывались в 1С; HTML показывает только полный модуль.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.