&НаКлиенте
Функция ВывестиЭлем(ХМЛ,Знач Смещ);
    
    Рез=1;
    Попытка
        Пока ХМЛ.Прочитать() Цикл
            ТипУзла=ХМЛ.ТипУзла;
            Если (ТипУзла=ТипУзлаXML.НачалоЭлемента) Тогда
                Смещ=Смещ+"    ";
                Сообщить(Смещ+"Элемент "+ХМЛ.Имя+":",СтатусСообщения.Важное);
                
                Пока (ХМЛ.ПрочитатьАтрибут()) Цикл
                    Сообщить(Смещ+"Атрибут: "+ХМЛ.Имя+", значение: <"+ХМЛ.Значение+">");
                КонецЦикла;
            ИначеЕсли (ТипУзла=ТипУзлаXML.КонецЭлемента) Тогда 
                Смещ=Лев(Смещ,СтрДлина(Смещ)-4);
            ИначеЕсли (ТипУзла=ТипУзлаXML.Текст) Тогда 
                Сообщить(Смещ+"Текст элемента: <"+ХМЛ.Значение+">");
            ИначеЕсли (ТипУзла=ТипУзлаXML.СекцияCDATA) Тогда 
                Сообщить(Смещ+"CDATA: <"+ХМЛ.Значение+">");
            ИначеЕсли (ТипУзла=ТипУзлаXML.Комментарий) Тогда 
                Сообщить(Смещ+"Комментарий: <"+ХМЛ.Значение+">",СтатусСообщения.Информация);
            Иначе
                Сообщить(Смещ+"Элемент "+ХМЛ.Имя+":");
            	Сообщить(Смещ+"Тип: "+ХМЛ.Значение);
            КонецЕсли; 
            
        КонецЦикла; 
        
    Исключение
        Сообщить(ОписаниеОшибки());
        Рез=0;
    КонецПопытки;
    
    Возврат Рез;
КонецФункции


&НаКлиенте
Процедура ВыгрузитьХМЛ(ИмяФайла) Экспорт
    
    ХМЛ=Новый ЗаписьXML;
    ХМЛ.ОткрытьФайл(ИмяФайла,Новый ПараметрыЗаписиXML("windows-1251",,Ложь,Ложь));
    ХМЛ.ЗаписатьОбъявлениеXML();
    ХМЛ.ЗаписатьНачалоЭлемента("Файл");
    ХМЛ.ЗаписатьАтрибут("Атрибут_Файл_1","Здесь содержимое Атрибут_Файл_1");
    ХМЛ.ЗаписатьТекст("Здесь содержимое Файл");
    ХМЛ.ЗаписатьКомментарий("Далее следует содержимое файла");
    ХМЛ.ЗаписатьНачалоЭлемента("СодержимоеФайла");
    ХМЛ.ЗаписатьАтрибут("Атрибут_СодержимоеФайла_1","Здесь содержимое Атрибут_СодержимоеФайла_1");
    ХМЛ.ЗаписатьТекст("Здесь содержимое СодержимоеФайла");
    ХМЛ.ЗаписатьСекциюCDATA("Это секция CDATA");
    ХМЛ.ЗаписатьКонецЭлемента();
    ХМЛ.ЗаписатьКонецЭлемента();


    ХМЛ.Закрыть();
    ХМЛ=Неопределено;
    
    ХМЛ=Новый ЧтениеXML;
    ХМЛ.ОткрытьФайл(ИмяФайла,Новый ПараметрыЧтенияXML(,,,ТипПроверкиXML.НетПроверки));
    ВывестиЭлем(ХМЛ,"");
    ХМЛ.Закрыть();
    ХМЛ=Неопределено;
КонецПроцедуры
   

 Функция СоздатьФайлСхемы()

    ФайлСхемы = Новый Файл(КаталогВременныхФайлов() + "schema.xsd");
    Если ФайлСхемы.Существует() Тогда
        УдалитьФайлы(ФайлСхемы.ПолноеИмя);
    КонецЕсли;

    Ссылка = ПолучитьМакет("schema_xsd");
    Ссылка.Записать(ФайлСхемы.ПолноеИмя);

    Возврат ФайлСхемы.ПолноеИмя;

КонецФункции

Функция ВыгрузитьДокументы()

    ФайлыXSD = Новый Массив();
    ФайлыXSD.Добавить(СоздатьФайлСхемы());
    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);

    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));

    Пока Выборка.Следующий() Цикл

        Документ = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "Документ"));
        Документ.ID = Строка(Док.УникальныйИдентификатор());
        Документ.ВидДокумента = Док.Метаданные().Имя;
        Документ.Дата = Док.Дата;
        Документ.Номер = Док.Номер;
        Документ.Статус = ?(Док.Проведен, "Проведен", ?(Док.ПометкаУдаления, "ПометкаУдаления", "НеПроведен"));
        Документ.Комментарий = Док.Комментарий;

    КонецЦикла

    ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML("UTF-8", "1.0", Ложь);

    МойXML = Новый ЗаписьXML;
    МойXML.ОткрытьФайл(ИмяФайла, ПараметрыЗаписиXML);
    МойXML.ЗаписатьОбъявлениеXML();
    Фабрика.ЗаписатьXML(МойXML, ФайлОбмена);
    МойXML.Закрыть();

    ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Создан файл обмена " + ИмяФайла);

КонецФункции

Процедура ЗагрузитьДокументы()

    ФайлыXSD = Новый Массив();
    ФайлыXSD.Добавить(СоздатьФайлСхемы());
    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);

    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));

    ОбменXML = Новый ЧтениеXML;
    ОбменXML.ОткрытьФайл(ИмяФайла);
    ФайлОбмена = Фабрика.ПрочитатьXML(ОбменXML, Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));

    Для Каждого Документ Из ФайлОбмена.Документ Цикл

        ОбработкаПрерыванияПользователя();

        Если Документ.ВидДокумента = "ПоступлениеТоваров" И
             ЗначениеЗаполнено(Поставщик) И
             Документ.Контрагент.ИНН  Поставщик.ИНН Тогда

        КонецЕсли;

    КонецЦикла

    ФайлОбмена = "";
    ОбменXML.Закрыть();
    УдалитьФайлы(ИмяФайла);

КонецПроцедуры