0
dll
17.01.15
✎
18:09
|
всем салют,
в общем при попытке записать созданный XML пишет ошибку - " Неизвестная ошибка"
помогите разобраться в чем дело...
//Выгружаем номенклатуры
Если Номенклатура = 1 Тогда
АнализаторНомен = СоздатьОбъект("AddIn.XMLParser");
КорневойРазделНомен = АнализаторНомен .СоздатьДокумент();
ДанныеXML = КорневойРазделНомен.СоздатьПодчиненныйЭлемент("SpravochnikNomenklatura");
Путь = КореньXML + Лев(Формат(ТекущаяДата(), "ДФ = " "дд-ММ-гггг"""), 10) + "\nomenclatures.xml";
Номен = СоздатьОбъект("Справочник.Номенклатура");
Номен.ВыбратьЭлементы();
Пока Номен.ПолучитьЭлемент() = 1 Цикл
Если Номен.ПометкаУдаления() = 0 Тогда
Ветка = ДанныеXML.СоздатьПодчиненныйЭлемент("ElementNomenklatura");
Ветка.УстановитьАтрибут("id_1C", СокрЛП(Номен.Код));
Ветка.УстановитьАтрибут("Name", СокрЛП(Номен.Наименование));
Ветка.УстановитьАтрибут("Unit", СокрЛП(Номен.ЕдИзмерения));
Ветка.УстановитьАтрибут("Upakovka", СокрЛП(Номен.КоличествоВУпаковке));
XMLКорневойРаздел.Записать(Путь);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Выгружаем Торг точки
Если ТТ = 1 Тогда
Пока ПолучитьСтроку() = 1 Цикл
АнализаторТТ = СоздатьОбъект("AddIn.XMLParser");
ДанныеСпрТТ = АнализаторТТ.СоздатьДокумент();
элСправочника = ДанныеСпрТТ.СоздатьПодчиненныйЭлемент("SpravochnikTT");
ПутьТ = КореньXML + Лев(Формат(ТекущаяДата(), "ДФ = " "дд-ММ-гггг"""), 10) + "\" + Контрагенты.Наименование + "\OutBox\" + "\salpot.xml";
Родитель = Контрагенты.Агент;
элСправочника.УстановитьАтрибут("id", Контрагенты.Код);
элСправочника.УстановитьАтрибут("name", Контрагенты.Наименование);
ДанныеСпрТТ.Записать(ПутьТ);
КонецЦикла;
КонецЕсли;
|
|