ВключениеXS.Схема

Включить свой тип валюты из той же области имён

Две части имеют urn:guide:directives. Включение подключает Currency, разрешающий три заглавные латинские буквы.

Подготовка

1. Каждый урок выполните отдельно в учебной базе. Две XSD включены строками: основная схема и её собственная часть.

2. urn:guide:owned-xsd-part — условное расположение собственной части. РазрешеннаяСхема присваивается непосредственно, дополнительно передаётся собственный НаборСхемXML как разыменователь.

3. В коде нет файлового чтения, http URL, DTD или загрузки внешней XSD. Не заменяйте URN рабочими URL и не используйте непроверенную внешнюю схему.

4. Проверить проверяет схемы. Он не проверяет XML с фактической ценой или кодом; проверку экземпляра выполняйте отдельно.

Процедура ВыполнитьПример() Экспорт
    ОсновнаяXSD = "<xs:schema xmlns:xs=""http://www.w3.org/2001/XMLSchema"" xmlns:g=""urn:guide:directives"" targetNamespace=""urn:guide:directives""><xs:element name=""currency"" type=""xs:string""/></xs:schema>";
    ЧастьXSD = "<xs:schema xmlns:xs=""http://www.w3.org/2001/XMLSchema"" targetNamespace=""urn:guide:directives""><xs:simpleType name=""Currency""><xs:restriction base=""xs:string""><xs:pattern value=""[A-Z]{3}""/></xs:restriction></xs:simpleType></xs:schema>";
    Основная = ПрочитатьСвоюСхему(ОсновнаяXSD);
    Часть = ПрочитатьСвоюСхему(ЧастьXSD);
    Часть.РасположениеСхемы = "urn:guide:owned-xsd-part";
    Директива = Новый ВключениеXS;
    Директива.РасположениеСхемы = "urn:guide:owned-xsd-part";
    Директива.РазрешеннаяСхема = Часть;
    Если Основная.ПространствоИмен <> Часть.ПространствоИмен Тогда
        ВызватьИсключение "Для этого включения нужны одинаковые namespace";
    КонецЕсли;
    Сообщить(Основная.ПространствоИмен = Часть.ПространствоИмен);
    Аннотация = Новый АннотацияXS;
    Пояснение = Новый ДокументацияXS;
    Пояснение.Источник = "urn:guide:directive-note";
    Пояснение.Язык = "ru";
    Аннотация.Состав.Добавить(Пояснение);
    Директива.Аннотация = Аннотация;
    Основная.Содержимое.Вставить(0, Директива);
    Корень = Основная.ОбъявленияЭлементов.Получить("currency", "urn:guide:directives");
    Если Корень = Неопределено Тогда
        ВызватьИсключение "Не найден собственный корень currency";
    КонецЕсли;
    Корень.ИмяТипа = Новый РасширенноеИмяXML("urn:guide:directives", "Currency");
    Директива.ОбновитьЭлементDOM();
    Основная.ОбновитьЭлементDOM();
    Разыменователь = Новый НаборСхемXML;
    Разыменователь.Добавить(Часть);
    Набор = Новый НаборСхемXML;
    Набор.Добавить(Основная);
    Если Не Набор.Проверить(Разыменователь) Тогда
        ВызватьИсключение "Собственные связанные XSD не прошли проверку";
    КонецЕсли;
    Сообщить(Основная.Директивы.Количество() = 1);
    Сообщить(Директива.Контейнер = Основная);
    Сообщить(Директива.КорневойКонтейнер = Основная);
    Сообщить(Директива.Схема = Основная);
    Сообщить(Директива.ТипКомпоненты = ТипКомпонентыXS.Включение);
    Сообщить(Директива.ЭлементDOM <> Неопределено);
    Сообщить(Директива.Содержит(Директива.Аннотация));
    Сообщить(Директива.Компоненты.Количество() > 0);
    Сообщить(Директива.РазрешеннаяСхема = Часть);
    Сообщить(Директива.РасположениеСхемы = "urn:guide:owned-xsd-part");
    Сообщить(Корень.ИмяТипа.URIПространстваИмен = "urn:guide:directives" И Корень.ИмяТипа.ЛокальноеИмя = "Currency");
    ИсходныйТип = Часть.ОпределенияТипов.Получить("Currency", "urn:guide:directives");
    Если ИсходныйТип = Неопределено Тогда
        ВызватьИсключение "Не найден тип в собственной части";
    КонецЕсли;
    Копия = Директива.КлонироватьКомпоненту(Истина);
    Если ТипЗнч(Копия) <> Тип("ВключениеXS") Или Копия.Аннотация = Неопределено Тогда
        ВызватьИсключение "Не скопирована директива с аннотацией";
    КонецЕсли;
    Если Копия.Аннотация.Состав.Количество() <> 1 Тогда
        ВызватьИсключение "В копии должна быть одна собственная документация";
    КонецЕсли;
    ПояснениеКопии = Копия.Аннотация.Состав.Получить(0);
    Если ТипЗнч(ПояснениеКопии) <> Тип("ДокументацияXS") Тогда
        ВызватьИсключение "В копии получен не тот компонент";
    КонецЕсли;
    ПояснениеКопии.Источник = "urn:guide:directive-note:copy";
    ПояснениеКопии.Язык = "en";
    Сообщить(Пояснение.Источник = "urn:guide:directive-note" И Пояснение.Язык = "ru");
    Сообщить(ПояснениеКопии.Источник = "urn:guide:directive-note:copy" И ПояснениеКопии.Язык = "en");
    Сообщить(Основная.Директивы.Количество() = 1);
КонецПроцедуры

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

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

1. Основная и включаемая часть создаются из собственных строк с одинаковым targetNamespace.

2. ВключениеXS не имеет отдельного ПространствоИмен: namespace задаётся самими схемами и проверяется до включения.

3. Конструктор создаёт директиву, РазрешеннаяСхема получает собственную часть, Вставить(0, ...) располагает include перед элементом currency.

4. ИмяТипа корня становится QName Currency из той же области; проверка набора использует собственную часть.

5. Контейнер, КорневойКонтейнер и Схема описывают принадлежность директивы основной схеме, а РазрешеннаяСхема — подключаемую часть.

6. Копия пояснения получает другой источник и язык; исходная русская документация остаётся неизменной.

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

1. Если проверки проходят, все пятнадцать сообщений Истина; в основной схеме одна директива.

2. Для отдельной проверки экземпляров RUB подходит Currency; rub и RU не подходят шаблону. Эти строки не проверяются данным BSL-кодом автоматически.

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

Включение объединяет собственные части одной области имён.

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

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

2. Одинаковый namespace не означает, что можно дублировать одно глобальное имя.

3. Копия директивы не добавляется повторно в схему.

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