Выгрузка списка контрагентов в XML (1C 8.2)
Достаточно простой код, используя обьект 1С ЗаписьXML:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Контрагенты.Наименование как имя, | Контрагенты.НаименованиеПолное как полноеимя, | Контрагенты.Код как код, | Контрагенты.ИНН как инн, | Контрагенты.КПП как кпп, | Контрагенты.Ссылка, | Контрагенты.Покупатель как покупатель, | Контрагенты.Поставщик как поставщик |ИЗ | Справочник.Контрагенты КАК Контрагенты"; Результат = Запрос.Выполнить().Выбрать(); ЗаписьXML = Новый ЗаписьXML; ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8"); ЗаписьXML.ЗаписатьОбъявлениеXML(); ЗаписьXML.ЗаписатьНачалоЭлемента("export"); пока Результат.Следующий() цикл ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart"); ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>"); ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>"); ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>"); ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>"); ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>"); ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>"); ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>"); ЗаписьXML.ЗаписатьКонецЭлемента(); конеццикла; ЗаписьXML.ЗаписатьКонецЭлемента(); |