Как создать XML файл из XDTO пакета?

Question

[Иван Иванов]

Есть такой XDTO пакет



как по нему создать XML файл? Не могу понять как обратиться к элементу Контрагенты. Нашел в Интернете, что можно обратиться через Корневое свойство, но при сохранении файла выдает ошибку. Также не могу понять как создать элемент Руководитель.

Comments

[Константин Нагибович]

Пример кода можете показать?

[Иван Иванов]

Константин Нагибович:

&НаСервереБезКонтекста
Процедура КомандаНаСервере()
	Пакет = ФабрикаXDTO.Пакеты.Получить("http://www.package.org/contragents");
	КорневоеСвойство = Пакет.КорневыеСвойства.Получить("Контрагенты");
	
	Контрагенты = ФабрикаXDTO.Создать(КорневоеСвойство.Тип);
	КонтрагентТип = КорневоеСвойство.Тип.Свойства.Получить("Контрагент");
	Контрагенты.Контрагент = ФабрикаXDTO.Создать(КонтрагентТип.Тип);
	
	Контрагенты.Контрагент.Наименование = "ООО Компания";
	Контрагенты.Контрагент.ПолноеНаименование = "Общество с ограниченной ответственностью";
	Контрагенты.Контрагент.ИНН = "7717043213";
	Контрагенты.Контрагент.КПП = "771701001";
	Контрагенты.Контрагент.ОКПО = "01134139";

	
	РуководительТип = КонтрагентТип.Тип.Свойства.Получить("Руководитель");
	Контрагенты.Контрагент.Руководитель = ФабрикаXDTO.Создать(РуководительТип.Тип);
	
	Контрагенты.Контрагент.Руководитель.Фамилия = "Иванов";
	Контрагенты.Контрагент.Руководитель.Имя = "Иван";
	Контрагенты.Контрагент.Руководитель.Отчество = "Иванович";
	
	Запись = Новый ЗаписьXML();
	Запись.ОткрытьФайл("D:\test.xml");
	Запись.ЗаписатьОбъявлениеXML();
	ФабрикаXDTO.ЗаписатьXML(Запись, Контрагенты);
	Запись.Закрыть();
КонецПроцедуры

При вызове получаю ошибку Недопустимое значение параметра (параметр номер '3') Ошибка при вызове метода контекста (ЗаписатьXML).

Если же я укажу 3 параметром имя корневого элемента то все работает, но мне кажется что это не совсем правильно.

[Константин Нагибович]

Контрагенты.Контрагент = ФабрикаXDTO.Создать(КонтрагентТип.Тип);

Надо посмотреть, как это у меня сделано. Но на сколько я помню так делать нельзя.
Отдельно создаете Контрагент, заполняете его. Потом надо сделать что-то типа

Контрагенты.Добавить(Контрагент)

или

Контрагенты.Контрагент.Добавить(Контрагент)

Попробуйте какой из вариантов верный.

[Иван Иванов]

Константин Нагибович спасибо учту. А как правильно сделать создание корневого элемента и запись в файл?

При вызове получаю ошибку Недопустимое значение параметра (параметр номер '3') Ошибка при вызове метода контекста (ЗаписатьXML).
Если же я укажу 3 параметром имя корневого элемента то все работает, но мне кажется что это не совсем правильно.

[Константин Нагибович]

Yausi: так попробуйте запись с указанием корневого элемента. Это нормально, вы не должны нарушать структуру. Главное проверьте, что у вас все правильно читается из записанного файла.

Answer 1

[Дмитрий Кинаш]

Надеюсь, что эта коротенькая статья с примерами вам поможет:
infostart.ru/public/98019

Comments

[Иван Иванов]

Спасибо, за ссылку, но если Вы могли заметить вопрос не в том как в общем работать с XDTO пакетами, а именно как создать элементы с неявным указанием типа (Контрагенты и Руководитель)

[Дмитрий Кинаш]

Yausi: ни разу таким "извратом" не страдал - всегда перечислял типы списком. Тот же Контрагент может использоваться не только в типе-массиве Контрагенты, но и в типах, которые описывают десятки документов. С Руководителем вам бы тоже использовать отдельный тип ФизическоеЛицо, а не делать перечисление свойств....

Но, если нужно работать с тем что есть, то смотрите официальную документацию по XML Schema - https://www.w3.org/TR/xmlschema-2/

Насколько я понимаю, то в вашем случае тип Руководителя для создания новых объектов будет выглядеть как-то так:

РуководительТип = ФабрикаXDTO.Тип("http://www.package.org/contragents", "Контрагенты.Контрагент.Руководитель"); 
РуководительОбъект = ФабрикаXDTO.Создать(РуководительТип);

или возможно:

РуководительТип = ФабрикаXDTO.Тип(Новый РасширенноеИмяXML("http://www.package.org/contragents#Контрагенты.Контрагент.Руководитель"); 
РуководительОбъект = ФабрикаXDTO.Создать(РуководительТип);

Нужно поэкспериментировать. Если бы вы выложили схему, то я бы мог поиграться. Но надеюсь, что моих "подсказок" хватит для нахождения решения.

[Иван Иванов]

Дмитрий Кинаш:
моя схема

<xs:schema xmlns:tns="http://www.package.org/contragents" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://www.package.org/contragents" attributeFormDefault="unqualified" elementFormDefault="qualified">
	<xs:element name="Контрагенты">
		<xs:complexType>
			<xs:sequence>
				<xs:element name="Контрагент">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="Наименование" type="xs:string"/>
							<xs:element name="ПолноеНаименование" type="xs:string"/>
							<xs:element name="ИНН" type="xs:string"/>
							<xs:element name="КПП" type="xs:string"/>
							<xs:element name="ОКПО" type="xs:string"/>
							<xs:element name="Руководитель">
								<xs:complexType>
									<xs:sequence>
										<xs:element name="Фамилия" type="xs:string"/>
										<xs:element name="Имя" type="xs:string"/>
										<xs:element name="Отчество" type="xs:string"/>
									</xs:sequence>
								</xs:complexType>
							</xs:element>
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:sequence>
		</xs:complexType>
	</xs:element>
</xs:schema>

сейчас есть такой код

&НаСервереБезКонтекста
Процедура КомандаНаСервере()
	Пакет = ФабрикаXDTO.Пакеты.Получить("http://www.package.org/contragents");
	КорневоеСвойство = Пакет.КорневыеСвойства.Получить("Контрагенты");
	
	Контрагенты = ФабрикаXDTO.Создать(КорневоеСвойство.Тип);
	КонтрагентТип = КорневоеСвойство.Тип.Свойства.Получить("Контрагент");
	Контрагенты.Контрагент = ФабрикаXDTO.Создать(КонтрагентТип.Тип);
	
	Контрагенты.Контрагент.Наименование = "ООО Компания";
	Контрагенты.Контрагент.ПолноеНаименование = "Общество с ограниченной ответственностью";
	Контрагенты.Контрагент.ИНН = "7717043213";
	Контрагенты.Контрагент.КПП = "771701001";
	Контрагенты.Контрагент.ОКПО = "01134139";

	
	РуководительТип = КонтрагентТип.Тип.Свойства.Получить("Руководитель");
	Контрагенты.Контрагент.Руководитель = ФабрикаXDTO.Создать(РуководительТип.Тип);
	
	Контрагенты.Контрагент.Руководитель.Фамилия = "Иванов";
	Контрагенты.Контрагент.Руководитель.Имя = "Иван";
	Контрагенты.Контрагент.Руководитель.Отчество = "Иванович";
	
	Запись = Новый ЗаписьXML();
	Запись.ОткрытьФайл("D:\test.xml");
	Запись.ЗаписатьОбъявлениеXML();
	ФабрикаXDTO.ЗаписатьXML(Запись, Контрагенты);
	Запись.Закрыть();
КонецПроцедуры

При вызове получаю ошибку Недопустимое значение параметра (параметр номер '3') Ошибка при вызове метода контекста (ЗаписатьXML).

Если же я укажу 3 параметром имя корневого элемента то все работает, но мне кажется что это не совсем правильно.

Answer 2

[Антон Антон]

Там вся фишка во вложенных типах. Для более подробного анализа нужен XSD файл.