|
0
Alexey87
14.09.11
✎
12:54
|
Выгружаю данные из 7.7 в xml, обработку написал по подобию той, что в книге знаний
Процедура Сформировать()
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
Предупреждение("Компонента v7plus.dll не найдена!");
Возврат;
КонецЕсли;
XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
XMLКорневойРаздел = XMLАнализатор.СоздатьДокумент();
ДанныеXML = XMLКорневойРаздел.СоздатьПодчиненныйЭлемент("root");
Номенклатура = СоздатьОбъект("Справочник.Номенклатура");
Номенклатура.ВыбратьЭлементы();
Пока Номенклатура.ПолучитьЭлемент()=1 Цикл
Если Номенклатура.ТекущийЭлемент().ЭтоГруппа()=1 Тогда
Ветка = ДанныеXML.СоздатьПодчиненныйЭлемент("Группа");
Ветка.УстановитьАтрибут("Наименование",СокрЛП(Номенклатура.Наименование));
Ветка.УстановитьАтрибут("Код",СокрЛП(Номенклатура.Код));
Если ПустоеЗначение(Номенклатура.Родитель)=0 Тогда
Ветка.УстановитьАтрибут("Родитель","");
Иначе
Ветка.УстановитьАтрибут("Родитель",СокрЛП(Номенклатура.Родитель.Код));
КонецЕсли;
Иначе
Ветка = ДанныеXML.СоздатьПодчиненныйЭлемент("Элемент");
Ветка.УстановитьАтрибут("Наименование",СокрЛП(Номенклатура.Наименование));
Ветка.УстановитьАтрибут("Родитель",СокрЛП(Номенклатура.Родитель.Код));
КонецЕсли;
КонецЦикла;
XMLКорневойРаздел.Записать("C:\File.xml");
Предупреждение("ОК");
КонецПроцедуры
Выдает ошибку:
XMLКорневойРаздел.Записать("C:\File.xml");
{C:\...\ВЫГРУЗКА.ERT(95)}: Неизвестная ошибка
ЧЯДНТ?
|
|