Привязать учебную заметку к DOCTYPE и ссылке

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

Пользовательские данные — временная аннотация объекта DOM, не атрибут и не объявление DTD. Используем только собственную строку A-01.

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

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  1. Документы и все узлы создаются в памяти на сервере. Внешние XML, DTD, сетевые схемы и файлы не загружаются.

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

  3. DOCTYPE создан собственным конструктором с пустыми PUBLIC/SYSTEM. Внутренних сущностей/нотаций нет; guideProduct — намеренно неопределённая ссылка, а не загруженный товар.

  4. Этот документ исследуется только в памяти. Не сохраняйте и не передавайте его как готовый XML обмена: ссылка guideProduct не объявлена.

  5. XPath namespace::g возвращает специализированный узел, а не строку URI и не обычный атрибут xmlns.

ОписаниеТипа = Новый ОпределениеТипаДокументаDOM("products", "", "");
Документ = Новый ДокументDOM("urn:guide:special", "g:products", ОписаниеТипа);
Корень = Документ.ЭлементДокумента;
Корень.УстановитьСоответствиеПространстваИмен("g", "urn:guide:special");
Ссылка = Документ.СоздатьСсылкуНаСущность("guideProduct");
Корень.ДобавитьДочерний(Ссылка);
Разыменователь = Документ.СоздатьРазыменовательПИ();
Результат = Документ.ВычислитьВыражениеXPath("namespace::g", Корень,
    Разыменователь, ТипРезультатаDOMXPath.НеупорядоченныйСнимокУзлов);
Если Результат.РазмерСнимка <> 1 Тогда
    ВызватьИсключение "Ожидался ровно один собственный namespace g";
КонецЕсли;
Пространство = Результат.ЭлементСнимка(0);
Если ТипЗнч(Пространство) <> Тип("ПространствоИменXPath") Тогда
    ВызватьИсключение "Ожидался настоящий узел ПространствоИменXPath";
КонецЕсли;
Узлы = Новый Массив;
Узлы.Добавить(ОписаниеТипа);
Узлы.Добавить(Ссылка);
Узлы.Добавить(Пространство);
Помечаемые = Новый Массив;
Помечаемые.Добавить(ОписаниеТипа);
Помечаемые.Добавить(Ссылка);
Для Каждого Узел Из Помечаемые Цикл
    Сообщить(Узел.ПолучитьПользовательскиеДанные("guideCode") = Неопределено);
    Узел.УстановитьПользовательскиеДанные("guideCode", "A-01");
    Сообщить(Узел.ПолучитьПользовательскиеДанные("guideCode") = "A-01");
    Сообщить(Не Узел.ЕстьАтрибуты());
КонецЦикла;
Сообщить(ОписаниеТипа.Сущности.Количество() = 0);
Сообщить(Ссылка.ДочерниеУзлы.Количество() = 0);

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

  1. До установки у собственного ключа нет значения.

  2. Устанавливаем заметку отдельно на двух объектах; содержание дерева не меняем.

  3. Проверяем, что не появились XML-атрибуты, объявления сущностей или потомки ссылки.

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

  1. По три сравнения в двух итерациях дают Истина.

  2. Два финальных сравнения Истина: коллекция сущностей и содержимое ссылки остались пустыми.

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

К объектам прикреплена собственная аннотация в памяти.

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

  1. Не храните здесь пароль и не ожидайте перенос аннотации в XML обмена.

  2. Пользовательские данные нельзя считать доказательством существования объявления guideProduct.

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

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

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

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

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