Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл(ПутьКФайлу);
Пока Чтение.Прочитать() Цикл
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ИмяУзла = Чтение.Имя;
Если ИмяУзла = "ТоварнаяПозиция" Тогда
ТекСтрока = ТЗ.Добавить();
КонецЕсли;
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
Если ИмяУзла = "Грузополучатель" Тогда
ТекГрузополучатель = ЛЕВ(Чтение.Значение, Найти(Чтение.Значение, ",")-1);
//ТекСтрока.Грузополучатель = ТекГрузополучатель;
Сообщить(ТекГрузополучатель);
КонецЕсли;
Если ИмяУзла = "Товар" Тогда
//Сообщить(Чтение.Значение);
ТекСтрока.Товар = Чтение.Значение;
КонецЕсли;
Если ИмяУзла = "Количество" Тогда
//Сообщить(Чтение.Значение);
ТекСтрока.Количество = Чтение.Значение;
КонецЕсли;
Если ИмяУзла = "ЦенаОпт" Тогда
//Сообщить(Чтение.Значение);
ТекСтрока.ЦенаОпт = Чтение.Значение;
КонецЕсли;
Если ИмяУзла = "СуммаОпт" Тогда
//Сообщить(Чтение.Значение);
ТекСтрока.СуммаОпт = Чтение.Значение;
КонецЕсли;
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ИмяУзла = Чтение.Имя;
Если ИмяУзла = "Документ" Тогда
//Если ТекГрузополучатель = "Основной склад" Тогда
Сообщить(Строка(ТЗ.Количество()));
//Иначе
ПоступлениеТоваровУслугВНТТ(ТЗ);
//КонецЕсли;
//КонецДокумента = Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Выдает ошибку: Значение не является значением объектного типа (СуммаОпт) ТекСтрока.СуммаОпт = Чтение.Значение;
Причем ругается только на ТекСтрока.СуммаОпт = Чтение.Значение;, все другое заполянется норм.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший