выгрузка данных в xml в 1С 7.7

Перем ИмяФайлаXML;

//*******************************************
Процедура ПрочитатьXML()

ТекстОшибки = "";
Если ФС.СуществуетФайл(ИмяФайлаXML) <> 1 Тогда
ТекстОшибки = "Файл """ + ИмяФайлаXML + """ не найден!";
ИначеЕсли ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
ТекстОшибки = "Компонента v7plus.dll не найдена!";
КонецЕсли;

Если ПустаяСтрока(ТекстОшибки) <> 1 Тогда
Предупреждение(ТекстОшибки);
Возврат;
КонецЕсли;

XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
XMLДокумент = XMLАнализатор.СоздатьДокумент();
XMLДокумент.Загрузить(ИмяФайлаXML);
XMLКорневойРаздел = XMLДокумент.ВыбратьУзлы("*");
XMLКорневойРаздел = XMLКорневойРаздел.ПолучитьУзел(0);
ДанныеXML = XMLКорневойРаздел.ВыбратьУзлы("*");
Для Сч1 = 0 По ДанныеXML.КоличествоУзлов() - 1 Цикл
Ветка = ДанныеXML.ПолучитьУзел(Сч1);
ДанныеДата = Ветка.ПолучитьАтрибут("Дата");
ДанныеВремя = Ветка.ПолучитьАтрибут("Время");
Сообщить("Узел: """ + Ветка.Наименование + """, Дата: " + ДанныеДата + ", Время: " + ДанныеВремя);

Элементы = Ветка.ВыбратьУзлы("*");
Для Сч2 = 0 По Элементы.КоличествоУзлов() - 1 Цикл
Элемент = Элементы.ПолучитьУзел(Сч2);
Сообщить(" Элемент: """ + Элемент.Наименование + """, Значение: " + Элемент.Значение);
КонецЦикла;

КонецЦикла;

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

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

//*******************************************
Процедура ЗаписатьXML()

Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
Предупреждение("Компонента v7plus.dll не найдена!");
Возврат;
КонецЕсли;

XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
XMLКорневойРаздел = XMLАнализатор.СоздатьДокумент();
ДанныеXML = XMLКорневойРаздел.СоздатьПодчиненныйЭлемент("root");

Для Сч1 = 1 По 3 Цикл
Ветка = ДанныеXML.СоздатьПодчиненныйЭлемент("Данные" + Сч1);
Ветка.УстановитьАтрибут("Дата", ТекущаяДата());
Ветка.УстановитьАтрибут("Время", ТекущееВремя());
Для Сч2 = 1 По 5 Цикл
Элемент = Ветка.СоздатьПодчиненныйЭлемент("Элемент" + Сч2);
Элемент.Значение = "Значение" + Сч2;
КонецЦикла;
КонецЦикла;

XMLКорневойРаздел.Записать(ИмяФайлаXML);

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

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

ИмяФайлаXML = "C:\ПримерФайлаXML.xml";