0
Dmitriy_
Kolesnikov
29.03.12
✎
05:20
|
Здравствуйте. Что-то в 5 часов утра не могу найти ошибку.
Есть XML-файл с документами. Есть функция, которая читает их оттуда:
Перем ФлагМодифицированности;
перем ит; // итератор
Процедура КнопкаЗагрузитьНажатие(Кнопка)
ЧтениеXML = Новый ЧтениеXML();
ЧтениеXML.ОткрытьФайл(ПутьКФайлу);
//Пока ЧтениеXML.Прочитать() цикл
Для ит=0 по 9999999 Цикл
Если ВозможностьЧтенияXML(ЧтениеXML) Тогда
ТекущийОбъект = ПрочитатьXML(ЧтениеXML);
Если ТекущийОбъект = Неопределено тогда Прервать; КонецЕсли;
Наряд = ТекущийОбъект.Ссылка.ПолучитьОбъект();
Сообщить("Заказ " + ТекущийОбъект.ррНомер + ", В файле " + ТекущийОбъект + ", в базе " + Наряд);
ФлагМодифицированности = ложь;
Для каждого стрТЧМатериалы из Наряд.Материалы цикл
если стрТЧМатериалы.Материал.ВидНоменклатуры = Справочники.ВидыНоменклатуры.Плёнка Тогда
ФлагМодифицированности = истина;
ИндексСтроки = Наряд.Материалы.Индекс(стрТЧМатериалы);
стрТЧМатериалы.План = ТекущийОбъект.Материалы[ИндексСтроки].План;
стрТЧМатериалы.Факт = ТекущийОбъект.Материалы[ИндексСтроки].Факт;
Сообщить("Материал = " + стрТЧМатериалы.Материал + ", План = " + стрТЧМатериалы.План + ", Факт = " + стрТЧМатериалы.Факт);
КонецЕсли;
КонецЦикла;
Если ФлагМодифицированности Тогда
Наряд.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
КонецЕсли;
//ТекущийОбъект.Записать();
КонецЕсли;
КонецЦикла;
ЧтениеXML.Закрыть();
===============================
Но документы из XML-файла читаются через один, т. е. первый, третий, пятый и т. д.
Подскажите, где я ошибся?
|
|