Сделать JSON-паспорт последовательности, не выдавая Неопределено за код модуля

Экспортируем в строку только понятные скалярные сведения схемы. МодульНабораЗаписей по справке всегда Неопределено и не возвращает исходный BSL.

Подготовка

1. Последовательность ПартионныйУчет взята из C:\claude\UT10_3\XML_UT_10_3\Sequences\ПартионныйУчет.xml. Используйте отдельную учебную копию именно этой УТ 10.3 на установленной платформе 8.5.1.1343, не рабочую базу.

2. Для первых двух уроков о режимах конфигурации используйте отдельную копию КА2 Progress. Для последующих пяти — копию указанной УТ 10.3. Не смешивайте имена и настройки разных конфигураций.

3. В серверном общем модуле УчебныеЗадачи разместите полный модуль одного урока и вызовите ВыполнитьПример() из своей серверной команды. В обычной конфигурации можно вызвать серверную процедуру из собственной учебной обработки.

4. Только чтение схемы и собственные значения в памяти: нет проведения, восстановления последовательности, изменения границ, назначения номеров или переключения совместимости.

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

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

1. МодульНабораЗаписей — метаданные свойства, для которого во встроенном языке не предусмотрено значение; по установленной справке оно всегда Неопределено.

2. Исходный BSL читают из выгрузки конфигурации, например из соответствующего Module.bsl. Данное свойство не является способом выгрузить код.

3. В собственную Структура помещаются только строка и числа. Не пытаемся сериализовать объект метаданных со всем графом ссылок.

4. ЗаписьJSON направлена в строку. Закрыть возвращает результат после ЗаписатьJSON; файл не создаётся.

5. Паспорт описывает 23 вида документов, 2 регистра и 0 измерений, а не состояние остатков или границы.

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

1. Две контрольные Истина. JSON содержит Имя=ПартионныйУчет, ВидовДокументов=23, ЗависимыхРегистров=2, Измерений=0.

2. Порядок полей не используйте как контракт; в результате отсутствует текст выдуманного модуля.

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

Получен читаемый JSON-снимок настоящей схемы последовательности в памяти.

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

1. Неопределено свойства модуля не означает, что в конфигурации отсутствует BSL-модуль.

2. Такой JSON-паспорт не является резервной копией базы или экспортом записей последовательности.

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