БизнесПроцессСписок.<Имя бизнес-процесса>.Колонки

Процессы: начальный период сентября, точные границы и настройки списка

На четырёх настоящих своих записях разберём источник списка, месячный отбор и UI без выполнения задач или запуска процессов.

Подготовка

1. НОВАЯ отдельная файловая база 8.5.1.1343, конфигурация УчебныеСпискиПроцессов85, совместимость НеИспользовать, обычное приложение, толстый клиент. Не рабочая база и не её копия. Нет расширений, разделителей, общих реквизитов, подписок, внешних/фоновых обработчиков; одна учебная сессия. runtimeVerifiedScenarios=0.

2. Задача Уч85Задача: номер Строка(9), автонумерация, наименование 100. Дополнительные Уч85Ключ Строка(8) и Уч85Текст Строка(100), оба Индексировать, без проверки заполнения. Реквизит адресации Уч85Исполнитель типа СправочникСсылка.Уч85Сотрудники, основной реквизит адресации. Модули задачи пустые.

3. Бизнес-процесс Уч85Процесс: номер Строка(9), автонумерация; собственные Уч85Ключ Строка(8) и Уч85Текст Строка(100), оба Индексировать. В свойстве Задача выберите Уч85Задача. Маршрут: Старт → одиночное действие Уч85Действие → Финиш. Никаких обработчиков/групповых/условных/вложенных точек. Процессы НЕ запускать, задачи НЕ выполнять.

4. Справочник Уч85Сотрудники: неиерархический, код Строка(8), имя 100, без реквизитов/обработчиков. Вручную сохраните только A/Учебный сотрудник A и B/Учебный сотрудник B, без пометок удаления. Это собственные справочные записи, не пользователи информационной базы.

5. Регистр сведений Уч85Адресация: независимый, непериодический, единственное измерение Уч85Исполнитель типа СправочникСсылка.Уч85Сотрудники, без ресурсов/реквизитов/обработчиков. В Задача → Адресация выберите этот регистр; у реквизита адресации Уч85Исполнитель свойство ИзмерениеАдресации свяжите с одноимённым измерением. Регистр оставьте пустым: все учебные задачи имеют непустое персональное назначение, ролевую адресацию здесь не испытываем.

6. Параметр сеанса Уч85ТекущийИсполнитель типа СправочникСсылка.Уч85Сотрудники; в метаданных задачи ТекущийИсполнитель укажите этот параметр. Модуль сеанса пустой. В варианте задач общий модуль явно инициализирует только этот собственный параметр перед открытием; это будущая настройка своей сессии, не запись сотрудников/задач и не смена пользователя ИБ.

7. Для каждого вида вручную сохраните ровно четыре записи без запуска/выполнения/пометок: A — 01.09.2026 00:00:00, Уч85Текст=01. Первая учебная запись; B — 15.09.2026 12:00:00, текст=02. Вторая учебная запись; C — 30.09.2026 23:59:59, текст=03. Граница сентября; D — 01.10.2026 00:00:00, текст=04. Первый октябрьский. Уч85Ключ A/B/C/D. У задач Наименование равно Уч85Текст; персональный Уч85Исполнитель A у A/C/D, B у B. Задачи самостоятельные, не созданы запуском маршрута. Показывайте секунды даты.

8. Общий модуль УчебныеСписки85: неглобальный, Клиент (обычное приложение)=Да, Сервер=Нет, Привилегированный=Нет, другие клиентские флаги=Нет. Полный общий модуль ниже, основной блок — модуль списка. Вставляйте один вариант, не оба общих модуля одновременно.

9. Обработка УчебныеСписки85 → обычная основная форма Пульт → кнопка Выполнить, действие ВыполнитьНажатие; полный модуль формы отдельно. F7 и обновление только своего стенда. Примеры не вызывают Записать/Старт/ВыполнитьЗадачу/удаление/сеть/почту/файлы/печать.

10. Обработка Уч85СписокПроцессов → обычная основная форма Список. Реквизит СписокРасчетов типа БизнесПроцессСписок.Уч85Процесс; поле Виды связано с ним. Колонки Дата/Уч85Текст/Уч85Ключ связаны с одноимёнными полями. ТолькоПросмотр=Да, стандартных команд записи/создания/выполнения/старта/удаления нет.

11. Кнопки ТолькоB, Восстановить, Фиксированный, Настраиваемый, АвтоОбновление, РазрешитьПериод, ЗапретитьПериод, Закрыть: назначьте действия *Нажатие и ПриОткрытии. Оставьте стандартный диалог настройки списка в контекстном меню поля. Основной полный блок вставьте в модуль списка.

Перем Подготовлено;
Перем СвоиЗаписи;
Перем РазрешалисьИзмененияПериода;

Процедура ПодготовитьДоОткрытия() Экспорт
    Подготовлено = Ложь;
    РазрешалисьИзмененияПериода = Ложь;
    Если ЭтаФорма.Открыта() Или ТипЗнч(СписокРасчетов) <> Тип("БизнесПроцессСписок.Уч85Процесс") Тогда
        ВызватьИсключение "Нужен настоящий реквизит списка своей закрытой обычной формы";
    КонецЕсли;
    СвоиЗаписи = УчебныеСписки85.ПрочитатьСвоюПодготовку();
    Колонки = СписокРасчетов.Колонки;
    Для Каждого Имя Из СтрРазделить("Дата,Уч85Текст,Уч85Ключ", ",") Цикл
        Если Колонки.Найти(Имя) = Неопределено Тогда
            Колонки.Добавить(Имя);
        КонецЕсли;
    КонецЦикла;
    Поле = ЭлементыФормы.Виды;
    НастроитьПоле(Ложь);
    Настройка = Новый НастройкаПериода;
    Настройка.РедактироватьКакИнтервал = Истина;
    Настройка.РедактироватьКакПериод = Ложь;
    Настройка.УстановитьПериод(Дата(2026, 9, 1, 0, 0, 0), Дата(2026, 9, 30, 23, 59, 59), Ложь);
    Настройка.ВариантНастройки = ВариантНастройкиПериода.Интервал;
    Если Настройка.ПолучитьДатуНачала() <> Дата(2026, 9, 1, 0, 0, 0)
        Или Настройка.ПолучитьДатуОкончания() <> Дата(2026, 9, 30, 23, 59, 59) Тогда
        ВызватьИсключение "Неверные границы начального периода своего списка";
    КонецЕсли;
    Поле.СтандартныйПериод = Настройка;
    Если ТипЗнч(Поле.СтандартныйПериод) <> Тип("НастройкаПериода") Тогда
        ВызватьИсключение "Нужна НастройкаПериода, не одноимённый СтандартныйПериод";
    КонецЕсли;
    УстановитьДоступностьПериода(Ложь);
    УстановитьСентябрь();
    Подготовлено = Истина;
КонецПроцедуры

Процедура ПриОткрытии()
    Если Подготовлено <> Истина Тогда
        ВызватьИсключение "Открывайте свой список через Пульт после подготовки";
    КонецЕсли;
    УстановитьСентябрь();
    СписокРасчетов.Обновить();
    Сообщить("Проверьте сентябрьские A,B,C. C в 30.09 23:59:59 включена, D в 01.10 00:00:00 исключена.");
КонецПроцедуры

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

Процедура ПроверитьФиксированныйПериод()
    Если РазрешалисьИзмененияПериода = Истина Тогда
        ВызватьИсключение "После разрешения ручного интервала откройте новый собственный опыт для фиксированных ожиданий";
    КонецЕсли;
КонецПроцедуры

Процедура УстановитьСентябрь()
    ПроверитьФиксированныйПериод();
    СписокРасчетов.Отбор.Сбросить();
    ДатаОтбора = СписокРасчетов.Отбор.Найти("Дата");
    Если ДатаОтбора = Неопределено Тогда
        ВызватьИсключение "В своём списке нет стандартного отбора Дата";
    КонецЕсли;
    ДатаОтбора.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;
    ДатаОтбора.ЗначениеС = Дата(2026, 9, 1, 0, 0, 0);
    ДатаОтбора.ЗначениеПо = Дата(2026, 9, 30, 23, 59, 59);
    ДатаОтбора.Использование = Истина;
    СписокРасчетов.Порядок.Установить("Дата Возр");
    Если ДатаОтбора.ВидСравнения <> ВидСравнения.ИнтервалВключаяГраницы Или Не ДатаОтбора.Использование
        Или ДатаОтбора.ЗначениеС <> Дата(2026, 9, 1, 0, 0, 0) Или ДатаОтбора.ЗначениеПо <> Дата(2026, 9, 30, 23, 59, 59) Тогда
        ВызватьИсключение "Не подтверждены точные границы своего сентября";
    КонецЕсли;
КонецПроцедуры

Процедура ТолькоBНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();

    УстановитьСентябрь();
    СписокРасчетов.Отбор.Уч85Ключ.Установить("B", Истина);
    СписокРасчетов.Обновить();
    Сообщить("Проверьте только свою B с датой 15.09 и учебным ключом B.");
КонецПроцедуры

Процедура ВосстановитьНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();

    УстановитьСентябрь();
    СписокРасчетов.Обновить();
    Сообщить("Проверьте снова A,B,C за сентябрь; октябрьская D скрыта, но не удалена.");
КонецПроцедуры

Процедура РазрешитьПериодНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    УстановитьДоступностьПериода(Истина);
    Сообщить("Команда Установить интервал дат разрешена даже при недоступном ручном отборе Дата. После ручного опыта закройте окно и запустите новый Пульт для исходных границ.");
КонецПроцедуры

Процедура ЗапретитьПериодНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    УстановитьДоступностьПериода(Ложь);
КонецПроцедуры

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

Процедура ЗакрытьНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    ЭлементыФормы.Виды.АвтоОбновление = Ложь;
    ЭтаФорма.Закрыть();
КонецПроцедуры

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

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

Процедура НастраиваемыйНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    НастроитьПоле(Истина);
    Сообщить("Откройте стандартный диалог настройки списка: отбор по ключу, порядок даты и настройки автообновления доступны. Запись строк по-прежнему запрещена настройкой ТолькоПросмотр.");
КонецПроцедуры

Процедура ФиксированныйНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    НастроитьПоле(Ложь);
    ВосстановитьНажатие(Неопределено);
    Сообщить("Фиксированный профиль восстановлен. Программный отбор кнопкой ТолькоB работает независимо от запрета его интерактивного изменения.");
КонецПроцедуры

Процедура АвтоОбновлениеНажатие(Кнопка)
    ПроверитьСвойОткрытыйСписок();
    Поле = ЭлементыФормы.Виды;
    Поле.ИзменятьАвтоОбновление = Ложь;
    Поле.ПериодАвтоОбновления = 10;
    Поле.АвтоОбновление = Не Поле.АвтоОбновление;
    Сообщить(СтрШаблон("АвтоОбновление=%1, период=%2 секунд, интерактивное изменение=%3",
        Поле.АвтоОбновление, Поле.ПериодАвтоОбновления, Поле.ИзменятьАвтоОбновление));
КонецПроцедуры

Процедура ВыполнитьНажатие(Кнопка)
    УчебныеСписки85.ВыполнитьПример();
КонецПроцедуры

Процедура ВыполнитьПример() Экспорт
    Свои = ПрочитатьСвоюПодготовку();

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

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

Функция ПрочитатьСвоюПодготовку() Экспорт
    ПроверитьСвойКонтекст();

    Ожидания = Новый Структура;
    Ожидания.Вставить("A", Новый Структура("Дата,Текст,Исполнитель", Дата(2026, 9, 1, 0, 0, 0), "01. Первая учебная запись", "A"));
    Ожидания.Вставить("B", Новый Структура("Дата,Текст,Исполнитель", Дата(2026, 9, 15, 12, 0, 0), "02. Вторая учебная запись", "B"));
    Ожидания.Вставить("C", Новый Структура("Дата,Текст,Исполнитель", Дата(2026, 9, 30, 23, 59, 59), "03. Граница сентября", "A"));
    Ожидания.Вставить("D", Новый Структура("Дата,Текст,Исполнитель", Дата(2026, 10, 1, 0, 0, 0), "04. Первый октябрьский", "A"));
    Ссылки = Новый Структура;
    Выборка = БизнесПроцессы.Уч85Процесс.Выбрать(, , , "Дата Возр");
    Пока Выборка.Следующий() Цикл
        Ключ = Выборка.Уч85Ключ;
        Ожидание = Неопределено;
        Если Не Ожидания.Свойство(Ключ, Ожидание) Или Ссылки.Свойство(Ключ) Тогда
            ВызватьИсключение "В своём наборе неизвестный или повторный учебный ключ";
        КонецЕсли;
        Если Выборка.Дата <> Ожидание.Дата Или Выборка.Уч85Текст <> Ожидание.Текст
            Или Выборка.ПометкаУдаления Тогда
            ВызватьИсключение "Не совпали дата, текст или пометка своей записи";
        КонецЕсли;
        Если Выборка.Стартован Или Выборка.Завершен Тогда
            ВызватьИсключение "Собственные процессы должны быть сохранены без запуска маршрута";
        КонецЕсли;
        Ссылки.Вставить(Ключ, Выборка.Ссылка);
    КонецЦикла;
    Если Ссылки.Количество() <> 4 Тогда
        ВызватьИсключение "Вручную подготовьте ровно четыре собственные записи A/B/C/D";
    КонецЕсли;
    Возврат Новый Структура("Ссылки,Сотрудники", Ссылки, Неопределено);
КонецФункции

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

1. Свой набор A/B/C/D содержит две точные границы месяца: C на последней секунде сентября и D в первую секунду октября. Общий модуль читает даты/тексты/ключи и незапущенное/невыполненное состояние, не создавая новых записей.

2. Источник СписокРасчетов имеет конкретный прикладной тип списка, Виды — визуальное поле. Колонки источника добавляются по именам собственных полей, визуальные колонки заранее связаны с ними в своей обычной форме.

3. Пульт получает новую закрытую форму по уникальному ключу. Основной полный блок вставляется в модуль Список, отдельные блоки — в общий модуль и Пульт. ПриОткрытии отклоняет неподготовленный прямой запуск.

4. УстановитьСентябрь использует настоящий ЭлементОтбора Дата: ИнтервалВключаяГраницы, ЗначениеС 01.09 00:00:00, ЗначениеПо 30.09 23:59:59 и Использование=Истина. Проверяет назначенные границы, затем Обновить перечитывает базу.

5. СтандартныйПериод поля принимает НастройкаПериода. Он задаётся ДО открытия и содержит проверенные обе границы; ВариантНастройки имеет Только запись, поэтому его не читаем. У задачи этого свойства в расширении нет: туда оно не копируется.

6. Порядок процессов Дата Возр совпадает с A/B/C/D. Наличие записанного процесса не означает Стартован: состояние проверяется, Старт и завершение маршрута не вызываются.

7. Ожидаем A/B/C, не D. ТолькоB добавляет собственный индексированный ключ; Восстановить возвращает сентябрь. Сообщения — инструкции будущей ручной проверки, а не доказательство отображённых строк.

8. НастройкаОтбора и НастройкаПорядка readonly как свойства поля. Найти может вернуть Неопределено. Их Доступность относится к ручной настройке, а Отбор источника — к фактической фильтрации.

9. РазрешитьНастройкуПериода отдельно управляет командой Установить интервал дат, даже когда ручная настройка Дата недоступна. После разрешения ручного интервала действия с фиксированным сентябрём блокируются до нового собственного окна, даже если человек ещё не изменил даты; прежние ожидания не выдаются за доказательство.

10. Фиксированный/Настраиваемый меняют доступность настройки автообновления и режима редактирования. ТолькоПросмотр остаётся включённым; настройка проверки новой строки не выдаётся за выполненный ввод или испытанное сообщение.

11. АвтоОбновление переключается программно при периоде 10 секунд; native-минимум 5. ИзменятьАвтоОбновление не запрещает программное изменение. ВосстанавливатьТекущуюСтроку выключен для нового независимого окна.

12. Закрыть выключает таймер своего поля и закрывает только свой список. Задачи не выполняются, маршрут не стартует, сотрудники/записи/адресация не записываются. Никакого запуска 1С здесь не было.

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

1. Будущий тест: три полных блока вставить в разные указанные модули, назначить действия/ПриОткрытии и связать колонки, F7, открыть через свой Пульт.

2. Сентябрь: реальные A,B,C; C 30.09 23:59:59 включена, D 01.10 00:00:00 отсутствует. Осмотреть поле, не только строку Сообщить.

3. ТолькоB: одна B. Восстановить: три сентябрьские записи. Все четыре по-прежнему существуют в стандартном списке своего вида.

4. РазрешитьПериод/ЗапретитьПериод: проверить доступность отдельной команды при недоступной ручной настройке Дата. После разрешения ручного интервала Восстановить отклоняется; закрыть окно и повторить с новым уникальным ключом.

5. Настраиваемый/Фиксированный и АвтоОбновление: сверить фактические флаги, период 10 и диалог. Реальная работа таймера и восстановление позиции не объявляются проверенными.

6. Закрыть своё окно; записи без пометок и в исходном состоянии. Никаких новых задач маршрута, выполнений или сохранений из кода нет.

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

Будущий список показывает A/B/C за сентябрь, не октябрьскую D; задачи дополнительно фильтруются по настоящему собственному сотруднику A. Данные не записываются, UI и 1С здесь не запускались.

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

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

2. Readonly свойства коллекций не заменяются; изменяются элементы/методы полученных объектов. Доступность UI и ТолькоПросмотр не являются правами базы.

3. Сравнение ИнтервалВключаяГраницы корректно для дат, но не для ссылочных данных. Конец месяца задан до последней секунды, не 30.09 00:00:00.

4. Разрешение ручной смены периода может изменить реальный состав списка. Уже после разрешения нужен новый собственный опыт для фиксированных ожиданий; прежние строки сообщения не доказывают новый результат.

5. Настройка способа редактирования/автонумерации/проверки строки не означает выполненный ввод. Таймер/UI и 1С здесь не запускались: runtimeVerifiedScenarios=0.

6. Собственные сотрудники не равны пользователям ИБ. Персональная и ролевая адресация отличаются; рабочие задачи, маршруты и регистры не использовать.

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