Функция ВыгрузитьТЗ_в_XML(пТЗ,пФайлИмя)

	ЗаписьXML = Новый ЗаписьXML;

	ЗаписьXML.ОткрытьФайл(пФайлИмя);

	ЗаписьXML.ЗаписатьОбъявлениеXML();

	ЗаписьXML.ЗаписатьНачалоЭлемента("Root");

	Для А=0 По пТЗ.Количество()-1 Цикл

		ЗаписьXML.ЗаписатьНачалоЭлемента("item");

		Для Каждого Колонка Из пТЗ.Колонки Цикл

			ИмяАтрибута=Колонка.Имя;

			ЗначениеАтрибута=пТЗ[А][Колонка.Имя];

			ЗаписьXML.ЗаписатьАтрибут(ИмяАтрибута,Строка(ЗначениеАтрибута));

		КонецЦикла;

		ЗаписьXML.ЗаписатьКонецЭлемента();

	КонецЦикла;

	ЗаписьXML.ЗаписатьКонецЭлемента();

	ЗаписьXML.Закрыть();

КонецФункции   

 Запись = Новый ЗаписьXML;

//Путь к формируемому XML-документу указан в переменной ПутьКФайлу

Запись.ОткрытьФайл(ПутьКФайлу);



Запись.ЗаписатьОбъявлениеXML();

Запись.ЗаписатьНачалоЭлемента("Корневой");

Запись.ЗаписатьАтрибут("Справочник", "Номенклатура");

Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре");



Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	Если Выборка.ЭтоГруппа Тогда

		Продолжить;

	КонецЕсли;	

	Запись.ЗаписатьНачалоЭлемента("Элемент");

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул));

	Запись.ЗаписатьТекст(Выборка.Наименование);

	Запись.ЗаписатьКонецЭлемента();

КонецЦикла;	



Запись.ЗаписатьКонецЭлемента();

Запись.Закрыть();