Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Наименование как имя,
| Контрагенты.НаименованиеПолное как полноеимя,
| Контрагенты.Код как код,
| Контрагенты.ИНН как инн,
| Контрагенты.КПП как кпп,
| Контрагенты.Ссылка,
| Контрагенты.Покупатель как покупатель,
| Контрагенты.Поставщик как поставщик
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
Результат = Запрос.Выполнить().Выбрать();
Запись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.ЗаписатьКонецЭлемента();
