0
гыргыр
06.04.17
✎
09:50
|
Добрый день.
вылезает ошибка, как обойти вообще не понимаю....
Метод объекта не обнаружен (Следующий)
Пока Выборка.Следующий() Цикл
Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, редакция 5.1 (5.1.04.04)
&НаСервере
Процедура СохранитьКакXML()
Запись = Новый ЗаписьXML();
Запись.ОткрытьФайл("\\Server1c\луптюг\doc.xml");
Запись.ЗаписатьНачалоЭлемента("Root");
Выборка = Документы.ПоступлениеТоваров;
Пока Выборка.Следующий() Цикл
Если Выборка.Контрагент.Код = "ЦБ000018" тогда
Запись.ЗаписатьНачалоЭлемента("Приходная");
Запись.ЗаписатьАтрибут("Номер", Строка(Выборка.Номер));
Запись.ЗаписатьАтрибут("Дата", Строка(Выборка.Дата));
Запись.ЗаписатьНачалоЭлемента("ТабличнаяЧасть");
Для Каждого ТекущаяСтрока Из Выборка.Товары Цикл
Запись.ЗаписатьНачалоЭлемента("Номенклатура");
Запись.ЗаписатьАтрибут("Номенклатура", Строка(ТекущаяСтрока.Номенклатура));
Запись.ЗаписатьАтрибут("КодНоменклатуры", Строка(ТекущаяСтрока.Номенклатура.Код));
Запись.ЗаписатьАтрибут("Количество", Строка(ТекущаяСтрока.Количество));
Запись.ЗаписатьАтрибут("Цена", Строка(ТекущаяСтрока.Цена));
Запись.ЗаписатьАтрибут("Сумма", Строка(ТекущаяСтрока.Сумма));
Запись.ЗаписатьКонецЭлемента();
КонецЦикла;
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьКонецЭлемента();
КонецЕсли;
КонецЦикла;
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьКонецЭлемента();
Запись.Закрыть();
Сообщить("выгружено!");
КонецПроцедуры
|
|