Есть файл выгруженный:
Цитата
<?xml version="1.0" encoding="UTF-8"?>
<Выгрузка>
<Выгрузка Номер="000000001" Дата="05.02.2013 12:51:14" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Никулин К.В." Принтер="OKI B431d (MB491)" Склад="Основной" Описание="ввввв"/>
<Выгрузка Номер="000000002" Дата="25.02.2013 19:17:03" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Мусаев С.А." Принтер="Canon MF4410 (МФУ)" Склад="Основной" Описание="авввв"/>
<Выгрузка Номер="000000003" Дата="26.02.2013 15:49:38" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Васильев Ю.В." Принтер="Samsung 3050 (ML-D3050B)" Склад="Основной" Описание="пппп"/>
</Выгрузка>
<Выгрузка>
<Выгрузка Номер="000000001" Дата="05.02.2013 12:51:14" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Никулин К.В." Принтер="OKI B431d (MB491)" Склад="Основной" Описание="ввввв"/>
<Выгрузка Номер="000000002" Дата="25.02.2013 19:17:03" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Мусаев С.А." Принтер="Canon MF4410 (МФУ)" Склад="Основной" Описание="авввв"/>
<Выгрузка Номер="000000003" Дата="26.02.2013 15:49:38" СотрудникаГруппы="Ахметов Л.И." СотрудникОтдела="Васильев Ю.В." Принтер="Samsung 3050 (ML-D3050B)" Склад="Основной" Описание="пппп"/>
</Выгрузка>
Есть код: КОТОРЫЙ ВЫДАЕТ ОШИБКУ: Преобразование значения к типу Дата не может быть выполнено.
Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл("C:\downloads\itog.xml");
Док="";
// чтение осуществляется по одному тегу
Пока Чтение.Прочитать() Цикл
// анализируем тип элемента и его имя
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если Чтение.Имя="Выгрузка" Тогда
// создаем новый элемент документа
Док = Документы.АктПриемаКартриджа.СоздатьДокумент();
// читаем атрибуты
Пока Чтение.ПрочитатьАтрибут() Цикл
Если Чтение.Имя="Номер" Тогда
Док.Дата = Дата(Чтение.Значение); //ошибка
КонецЕсли;
КонецЦикла;
КонецЕсли;
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
// заполняем наименование созданного ранее элемента
Док.Номер = Чтение.Значение;
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
// требуется записать информацию про клиента
Док.Записать();
КонецЕсли;
i | Выделяйте код |