&НаКлиенте Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Фильтр = "*.xml|*.xml"; Если Диалог.Выбрать() Тогда Объект.ИмяФайла = Диалог.ПолноеИмяФайла; КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ЗапуститьПриложение(Объект.ИмяФайла); КонецПроцедуры &НаКлиенте Процедура Загрузить(Команда) СтрокаСоединения = СтрокаСоединенияИнформационнойБазы(); ws = НСтр(СтрокаСоединения, "ws"); ИмяСервера = НСтр(СтрокаСоединения, "Srvr"); Если ИмяСервера = "" Тогда Если ws = "" Тогда ПередачаФайлаНаСервер = Ложь; Иначе ПередачаФайлаНаСервер = Истина; КонецЕсли; Иначе ПередачаФайлаНаСервер = (ИмяКомпьютера() <> ИмяСервера); КонецЕсли; Если ПередачаФайлаНаСервер Тогда ПоместитьФайл(АдресХранилища, Объект.ИмяФайла,, Ложь, УникальныйИдентификатор); КонецЕсли; ЗагрузитьСервер(); КонецПроцедуры &НаСервере Процедура ЗагрузитьСервер() ЧтениеXML = Новый ЧтениеXML; Если ПередачаФайлаНаСервер Тогда ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml"); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища); ДвоичныеДанные.Записать(ИмяВременногоФайла); ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла); Иначе ЧтениеXML.ОткрытьФайл(Объект.ИмяФайла); КонецЕсли; ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML); ЧтениеXML.Закрыть(); /// Код загрузки Сообщить("Загрузка завершена"); КонецПроцедуры