&НаКлиенте

Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)



    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

    Диалог.Фильтр = "*.xml|*.xml";

    Если Диалог.Выбрать() Тогда

        Объект.ИмяФайла = Диалог.ПолноеИмяФайла;

    КонецЕсли;



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



&НаКлиенте

Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)



    СтандартнаяОбработка = Ложь;

    ЗапуститьПриложение(Объект.ИмяФайла);



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



&НаКлиенте

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



    СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();



    ws = НСтр(СтрокаСоединения, "ws");

    ИмяСервера = НСтр(СтрокаСоединения, "Srvr");

    Если ИмяСервера = "" Тогда

        Если ws = "" Тогда

            ПередачаФайлаНаСервер = Ложь;

        Иначе

            ПередачаФайлаНаСервер = Истина;

        КонецЕсли;

    Иначе

        ПередачаФайлаНаСервер = (ИмяКомпьютера() <> ИмяСервера);

    КонецЕсли;



    Если ПередачаФайлаНаСервер Тогда

        ПоместитьФайл(АдресХранилища, Объект.ИмяФайла,, Ложь, УникальныйИдентификатор);

    КонецЕсли;



    ЗагрузитьСервер();



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



&НаСервере

Процедура ЗагрузитьСервер()



    ЧтениеXML = Новый ЧтениеXML;



    Если ПередачаФайлаНаСервер Тогда

        ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");



        ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);

        ДвоичныеДанные.Записать(ИмяВременногоФайла);

        ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла);

    Иначе

        ЧтениеXML.ОткрытьФайл(Объект.ИмяФайла);

    КонецЕсли;



    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);

    ЧтениеXML.Закрыть();

    /// Код загрузки

    Сообщить("Загрузка завершена");

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

 //Возвращает Истина - скопирован, иначе Ложь 

Функция СкопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение, ВыдаватьСообщения = Ложь) Экспорт

	Попытка

		ПозицияСимвола = СтрДлина(ИмяФайлаНазначение);

		Пока ПозицияСимвола >= 1 Цикл

			Если Сред(ИмяФайлаНазначение, ПозицияСимвола, 1) = "\" Тогда

			Возврат ПозицияСимвола; 

			КонецЕсли;

		ПозицияСимвола = ПозицияСимвола - 1;	

		КонецЦикла;

		КаталогФайла=Сред(ИмяФайлаНазначение, 1, ПозицияСимвола - 1); 

		СоздатьКаталог(КаталогФайла);

		КопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение);

	Исключение

		Сообщение = "Ошибка при копировании: " + ОписаниеОшибки() + 

			" (источник: " + ИмяФайлаИсточник + "; приемник: " + ИмяФайлаНазначение + ")";

		Если ВыдаватьСообщения Тогда 

			Сообщить(Сообщение);

		КонецЕсли;					 

		Предупреждение(Сообщение);

		Возврат Ложь;

	КонецПопытки;

	Возврат Истина;

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