Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Выгрузка в XML
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
XBrut
Требуется отобразить некие данные в формате XML.
Подскажите навскидку, с какой стороны подобраться. Есть ли что-либо полуготовое на эту тему ?
pablo
    
        ФайлXML=новый ЗаписьXML;
    ФайлXML.ОткрытьФайл("/var/samba_share/buh/All1.xml","UTF-8");
    ФайлXML.Отступ=Истина;
        
        //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Валюты.Код,
        |    Валюты.Наименование,
        |    Валюты.Ссылка
        |ИЗ
        |    Справочник.Валюты КАК Валюты";

    Результат = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    ФайлXML.ЗаписатьНачалоЭлемента("CatalogObject.Валюты");
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ФайлXML.ЗаписатьНачалоЭлемента("Валюта");
        ФайлXML.ЗаписатьНачалоЭлемента("Наименование");
        ФайлXML.ЗаписатьТекст(ВыборкаДетальныеЗаписи.Наименование);
        ФайлXML.ЗаписатьКонецЭлемента();
        ФайлXML.ЗаписатьНачалоЭлемента("Код");
        ФайлXML.ЗаписатьТекст(ВыборкаДетальныеЗаписи.Код);
        ФайлXML.ЗаписатьКонецЭлемента();
        ЗаписатьXML(ФайлXML,ВыборкаДетальныеЗаписи.Ссылка);
        ФайлXML.ЗаписатьКонецЭлемента();        
    КонецЦикла;
    ФайлXML.ЗаписатьКонецЭлемента();
    ФайлXML.Закрыть();
Vofka
Поиск по форуму отменили?
XBrut
Цитата(Vofka @ 08.11.11, 14:13) необходимо зарегистрироваться для просмотра ссылки
Поиск по форуму отменили?

Вы наверное хотели написать "Пожалуйста, пользуйтесь поиском".
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.