Имя: Пароль:
1C
1С v8
Выгрузка в YML из 1С 8.2
,
0 CHEBURECK
 
03.12.13
15:58
Кто нибудь делал выгрузку в YML. Поделитесь опытом Плииииз
1 МихаилМ
 
03.12.13
16:14
2 CHEBURECK
 
03.12.13
16:18
(1) там нет ничего путного. мне бы примерный код..
3 1sik
 
03.12.13
16:31
(0)могу на почту хороший пример кинуть
4 CHEBURECK
 
03.12.13
16:34
(3) кинь пожалуйста,спасибо большое
5 1sik
 
03.12.13
16:37
Адрес не видно. captcha глючит ввожу код с картинки а он не принимает.
6 CHEBURECK
 
03.12.13
16:38
7 1sik
 
03.12.13
16:43
Отправил
8 CHEBURECK
 
04.12.13
09:19
(7) Спасибо большое очень помогло. Оказалось все проще чем в шаблоне который яндекс предоставляет
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.Закрыть();
10 Eeelena
 
23.12.13
20:07
всем здравствуйте. не могли бы вы мне тоже скинуть такой пример. очень нужно
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший