До сих пор в платформе 1С не исправлен баг, когда после создания фабрики на основе схемы XML импортированные типы из других пространств некорректно конвертируются в простейшие типы XMLSchema. Для решения этой проблемы необходимо создавать фабрику на основе модели XDTO. Многие сервисы документооборота предоставляют схемы XML регламентированных документов.
Предлагаю обработку для получения модели xdto из схемы XML. В обработке имеется проверка на пространство имен в схеме XML, если пространство имен не заполнено, тогда оно добавляется принудительно = XSDToModel. После конвертации необходимо переименовать это пространство по умолчанию.
Код модуля объекта:
#Область ОписаниеПеременных
Перем ПространствоИмен;
#КонецОбласти
#Область ПрограммныйИнтерфейс
Процедура Конвертировать() Экспорт
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(XSDСхема);
ПостроительДОМ = Новый ПостроительDOM;
ДокументДОМ = ПостроительДОМ.Прочитать(ЧтениеXML);
ИнициализироватьПространствоИмен(ДокументДОМ);
ПостроительСхемXML = Новый ПостроительСхемXML;
СхемаXML = ПостроительСхемXML.СоздатьСхемуXML(ДокументДОМ);
НаборСхемXML = Новый НаборСхемXML;
НаборСхемXML.Добавить(СхемаXML);
Фабрика = Новый ФабрикаXDTO(НаборСхемXML);
ОбъектМоделиXDTO = Фабрика.ЭкспортМоделиXDTO(ПространствоИмен);
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку();
Фабрика.ЗаписатьXML(ЗаписьXML, ОбъектМоделиXDTO,,,, НазначениеТипаXML.Явное);
МодельXDTO = ЗаписьXML.Закрыть();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ИнициализироватьПространствоИмен(ДокументДОМ)
АтрибутПространстваИмен = ДокументДОМ.ПервыйДочерний.Атрибуты.ПолучитьИменованныйЭлемент(targetNamespace());
Если АтрибутПространстваИмен = Неопределено Тогда
АтрибутПространстваИмен = ДокументДОМ.СоздатьАтрибут(targetNamespace());
АтрибутПространстваИмен.Значение = ПространствоИменПоУмолчанию();
ДокументДОМ.ПервыйДочерний.Атрибуты.УстановитьИменованныйЭлемент(АтрибутПространстваИмен);
КонецЕсли;
ПространствоИмен = АтрибутПространстваИмен.Значение;
КонецПроцедуры
Функция targetNamespace()
Возврат "targetNamespace";
КонецФункции
Функция ПространствоИменПоУмолчанию()
Возврат "XSDToModel";
КонецФункции
#КонецОбласти
Код модуля формы:
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура Конвертировать(Команда)
Если Не ЗначениеЗаполнено(Объект.XSDСхема) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = НСтр("ru='Схема XSD не заполнена. Конвертация невозможна'");
Сообщение.Сообщить();
Возврат;
КонецЕсли;
КонвертироватьНаСервере();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура КонвертироватьНаСервере()
ОбъектОбработки = РеквизитФормыВЗначение("Объект");
ОбъектОбработки.Конвертировать();
ЗначениеВРеквизитФормы(ОбъектОбработки, "Объект");
КонецПроцедуры
#КонецОбласти
Проверено на следующих конфигурациях и релизах:
- Управление торговлей, редакция 11, релизы 11.5.20.58
Вступайте в нашу телеграмм-группу Инфостарт
