E
ech
Добрый день! Подскажите пож-та, как из файла .xml загрузить данные в поля ввода и табличную часть документа? Вот код, который наваял.
Процедура КнопкаВыполнитьНажатие(Кнопка)
ИмяФайла= "С:\s4et.xml";
Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл(ИмяФайла);
Имя = Чтение.Имя;
Массив = Новый Структура(Имя);
Пока Чтение.Прочитать() Цикл
ПолучитьXMLТип(Чтение);
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Имя = Чтение.Имя;
Пока Чтение.ПрочитатьАтрибут() Цикл
Атрибут = Чтение.Значение;
КонецЦикла;
КонецЕсли;
Если Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
Массив.Вставить(Имя,Чтение.Значение);
КонецЕсли;
Если Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ДобавитьЭлемент(Массив);
КонецЕсли;
КонецЦикла
КонецПроцедуры
Записывает только номер счета, на остальные тэги ругаеться, что не обнаружены.
Процедура КнопкаВыполнитьНажатие(Кнопка)
ИмяФайла= "С:\s4et.xml";
Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл(ИмяФайла);
Имя = Чтение.Имя;
Массив = Новый Структура(Имя);
Пока Чтение.Прочитать() Цикл
ПолучитьXMLТип(Чтение);
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Имя = Чтение.Имя;
Пока Чтение.ПрочитатьАтрибут() Цикл
Атрибут = Чтение.Значение;
КонецЦикла;
КонецЕсли;
Если Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
Массив.Вставить(Имя,Чтение.Значение);
КонецЕсли;
Если Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ДобавитьЭлемент(Массив);
КонецЕсли;
КонецЦикла
КонецПроцедуры
Записывает только номер счета, на остальные тэги ругаеться, что не обнаружены.