Процедура КнопкаВыполнитьНажатие(Кнопка)
    ИмяСхемы="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,СтатусСообщения.Важное, СтатусСообщения.Обычное));    
КонецПроцедуры