|
9
CHEBURECK
04.12.13
✎
09:20
|
СтандартнаяОбработка=ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.Заголовок = "Выберите путь для сохранения прайса в xml";
Диалог.МножественныйВыбор = Ложь;
Фильтр = "Текстовый файл (*.xml)|*.xml";
Диалог.Фильтр = Фильтр;
Если Диалог.Выбрать() Тогда
XML_Путь = Диалог.ПолноеИмяФайла;
Иначе
Сообщить("Не выбран путь для сохранения!");
Возврат;
КонецЕсли;
Попытка
Файл_XML = Новый ЗаписьXML();
Файл_XML.ОткрытьФайл(XML_Путь, "windows-1251");
Исключение
Сообщить("Ошибка при создание XML файла! " + Символы.ПС + ОписаниеОшибки());
КонецПопытки;
Файл_XML.ЗаписатьОбъявлениеXML();
Файл_XML.ЗаписатьНачалоЭлемента("offers");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ...";
Запрос.УстановитьПараметр("ПроцентСкидки", СкидкаОтРозничнойЦены);
Запрос.УстановитьПараметр("Подразделение", Подразделение);
Запрос.УстановитьПараметр("Склады", Склады);
Запрос.УстановитьПараметр("ГруппаНоменклатуры", ГруппаНоменклатуры);
Запрос.УстановитьПараметр("ТипЦен", РозничнаяЦена);
Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());
ТЗ_З = Запрос.Выполнить().Выбрать();
Пока ТЗ_З.Следующий() цикл
Файл_XML.ЗаписатьНачалоЭлемента("offer");
Файл_XML.ЗаписатьАтрибут("Производитель", Строка(ТЗ_З.БрендПодразделения));
Файл_XML.ЗаписатьАтрибут("Артикул", Строка(ТЗ_З.Артикул));
Файл_XML.ЗаписатьАтрибут("Наименование", Строка(ТЗ_З.Наименование));
Файл_XML.ЗаписатьАтрибут("Количество",Строка(ТЗ_З.Количество));
Файл_XML.ЗаписатьАтрибут("Цена", Строка(ТЗ_З.Цена));
Файл_XML.ЗаписатьКонецЭлемента();
КонецЦикла;
Файл_XML.ЗаписатьКонецЭлемента();
Файл_XML.Закрыть();
|
|
