вторник, 7 февраля 2012 г.

1C8 и xml


v8.x: Пример выгрузки списка документов в XML файл

http://help1c.com/faq8/cat/48.html


Код 1C v 8.х
Процедура ДействияФормыВыгрузить(Кнопка)

Запись=Новый ЗаписьXML;
Запись.ОткрытьФайл("c:\document.xml");
Запись.ЗаписатьОбъявлениеXML();
Запись.ЗаписатьНачалоЭлемента("Корневой");
Запись.ЗаписатьАтрибут("Доумент", "ПринятиеКУчтетуОС");
Запись.ЗаписатьКомментарий("Краткая информация о принятых к учету ОС");
//Выборка=Документы.ПринятиеКУчетуОС.Выбрать(); //это выгрузка всех документов в базе
// а нам нужно за определенный период:
Выборка=Документы.ПринятиеКУчетуОС.Выбрать(НачДата,КонДата);        
Пока Выборка.Следующий()Цикл
 Запись.ЗаписатьНачалоЭлемента("Элемент");
 Запись.ЗаписатьАтрибут("Номер", Строка(Выборка.Номер));
 Запись.ЗаписатьАтрибут("Дата", Строка(Выборка.Дата));
 Запись.ЗаписатьАтрибут("Организация", Строка(Выборка.Организация));
 Запись.ЗаписатьАтрибут("Склад", Строка(Выборка.Склад));    
 Запись.ЗаписатьАтрибут("ПодразделениеОрганизации", Строка(Выборка.ПодразделениеОрганизации));
 Запись.ЗаписатьАтрибут("МОЛ", Строка(Выборка.МОЛБУ));
 Запись.ЗаписатьАтрибут("Оборудование", Строка(Выборка.Номенклатура));
 Запись.ЗаписатьАтрибут("ОбъектСтроительства", Строка(Выборка.ОбъектСтроительства));
 Запись.ЗаписатьАтрибут("ПервоначальнаяСтоимость", Строка(Выборка.ПервоначальнаяСтоимостьНУ));
 Запись.ЗаписатьКонецЭлемента();
КонецЦикла;
Запись.ЗаписатьКонецЭлемента();
Запись.Закрыть();
КонецПроцедуры

Комментариев нет:

Отправка комментария