Процедура КнопкаВыполнитьНажатие(Кнопка)
ИмяСхемы="D:\Отчеты\Схемы\pharmacy";
ИмяФайла="D:\Rez\test.xml";
//-----------------------------Попітка создать парсер
Попытка
ДокЭкспорт=Новый COMОбъект("Msxml2.DOMDocument.4.0");
Сообщить("Парсер подключен");
Исключение
Сообщить("Парсер не установлен");
КонецПопытки;
pi =ДокЭкспорт.createProcessingInstruction("xml", "version=""1.0"" encoding=""windows-1251""");
ДокЭкспорт.insertBefore(pi, ДокЭкспорт.childNodes.item(0));
элДокумента = ДокЭкспорт.createElement("Apteki");
ДокЭкспорт.appendChild(элДокумента);
элДокумента.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema");
элДокумента.setAttribute("xsi:noNamespaceSchemaLocation",ИмяСхемы+".xsd");
//------Создоем Элемент тела
Тело=ДокЭкспорт.createElement("Apteka");
//------Заполняем елемент тела
элДокумента.appendChild(Тело);
ТТочеи=Справочники.ТорговыеТочки.Выбрать();
Пока ТТочеи.Следующий() Цикл
//------Создаем поле ID/Adres
Если ТТочеи.ЭтоГруппа Тогда продолжить КонецЕсли;
ИД=ДокЭкспорт.createElement("ID");
Адрес=ДокЭкспорт.createElement("Adres");
//------Добавляем в тело XML документа строки для полей ИЛ и Адрес
Тело.appendChild(ИД);
Тело.appendChild(Адрес);
//------Заполняем строки значениями
ИД.text = ТТочеи.Код;
Адрес.text = СокрЛП(ТТочеи.Адрес);
КонецЦикла;
ДокЭкспорт.Save(ИмяФайла);
Попытка
фОшибка = 0;
ДокЭкспорт.validateOnParse = Истина;
ДокЭкспорт.async = Ложь;
ДокЭкспорт.Load(ИмяФайла);
Error = ДокЭкспорт.parseError;
Если Error.errorCode<>0 Тогда
// есть ошибка
фОшибка = 1;
Сообщить(НСтр("ru = 'Ошибка:'; uk = 'Помилка:'"));
Сообщить(Error.reason);
КонецЕсли;
Исключение
фОшибка = 1;
Сообщить(ОписаниеОшибки());
КонецПопытки;
Сообщить(НСтр("ru='-- Проверка завершена!';uk='-- Перевірка завершена!'"), ?(фОшибка = 1,СтатусСообщения.Важное, СтатусСообщения.Обычное));
КонецПроцедуры