Импорт и экспорт из 1С в файл формата XML

//процедура выгружает элементы справочника "Физические лица" в файл формата XML

Процедура Лица_Выгрузить()

     //справочник

     С=СоздатьОбъект("Справочник.Лица");

     //анализатор

     Анализатор=СоздатьОбъект("AddIn.XMLParser");

     Корень=Анализатор.СоздатьДокумент();

     //данные

     Данные=Корень.СоздатьПодчиненныйЭлемент("Данные");

     Данные.УстановитьАтрибут("Дата",ТекущаяДата());

     Данные.УстановитьАтрибут("Время",ТекущееВремя());

     Данные.УстановитьАтрибут("Автор",гПользователь.Наименование);

     //наполнение

     Группа=Данные;

     С.ВыбратьЭлементы();

     Пока С.ПолучитьЭлемент()=1 Цикл

          Если С.ЭтоГруппа()=1 Тогда

               Группа=Данные.СоздатьПодчиненныйЭлемент(С.Наименование);

          Иначе

               Э=Группа.СоздатьПодчиненныйЭлемент("Лицо");

               Э.Значение=С.Код;

               Э.УстановитьАтрибут("Наименование",С.Наименование);

          КонецЕсли;

     КонецЦикла;

     //запись

     Корень.Записать("C:\People.xml");

     Предупреждение("ОК");

КонецПроцедуры

//процедура формирует печатную таблицу с данными, содержащимися в файле формата XML

Процедура Сформировать()

     Перем Файл,Каталог;

     Если ФС.ВыбратьФайл(0,Файл,Каталог,"Открытие документа XML","Документы XML|*.xml")=0 Тогда

          Возврат;

     КонецЕсли;

     //таблица

     Т=СоздатьОбъект("Таблица");

     Т.ИсходнаяТаблица("");

     Т.ВывестиСекцию("Шапка");

     //документ

     Анализатор=СоздатьОбъект("AddIn.XMLParser");

     Д=Анализатор.СоздатьДокумент();

     Д.Загрузить(Каталог+Файл);

     //узлы

     Узел=Д.ВыбратьУзел("Данные");

     Для i=1 По Узел.КоличествоПодчиненных() Цикл

          ТекУзел=Узел.ПолучитьПодчиненныйПоНомеру(i);

          Состояние(ТекУзел.Текст);

          //строка

          тЭлемент=ТекУзел.Наименование;

          тЗначение=ТекУзел.Значение;

          Т.ВывестиСекцию("Строка");

     КонецЦикла;

     //таблица

     Т.Опции(1,1,1,0);

     Т.ПовторятьПриПечатиСтроки(1,1);

     Т.ТолькоПросмотр(1);     Т.Показать("XML");

КонецПроцедуры