---

&НаСервере
Процедура ЗагрузитьФайлНаСервере()
	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьФайл(Команда)
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.МножественныйВыбор = Ложь;
	Если Диалог.Выбрать() Тогда
		ПутьКФайлу = Диалог.ПолноеИмяФайла;
		ПозицияПоследнейТочки = СтрНайти(ПутьКФайлу, ".", НаправлениеПоиска.СКонца,,1);
		ПозицияПоследнегоСлеша = СтрНайти(ПутьКФайлу, "\", НаправлениеПоиска.СКонца,,1);
		РасширениеФайлаДиалог = Прав(ПутьКФайлу, СтрДлина(ПутьКФайлу) - ПозицияПоследнейТочки);
		ИмяФайлаДиалог = Сред(ПутьКФайлу, ПозицияПоследнегоСлеша+1, ПозицияПоследнейТочки - ПозицияПоследнегоСлеша-1);
	КонецЕсли;
	Если Не ПутьКФайлу = "" Тогда
		ЗагрузитьФайлНаСервере();
	Иначе
		Сообщить("Файл не выбран");
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ОткрытьФайлНаСервере(НомерТекущейСтроки)
	ДокументОбъект = РеквизитФормыВЗначение("Объект");
	Путь = ПолучитьИмяВременногоФайла(ДокументОбъект.Документация[НомерТекущейСтроки-1].РасширениеФайла);
	Данные = ДокументОбъект.Документация[НомерТекущейСтроки-1].Файл.Получить();
	Данные.Записать(Путь);
	ЗапуститьПриложение(Путь);
	ЗначениеВРеквизитФормы(ДокументОбъект, "Объект");
КонецПроцедуры

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	НомерТекущейСтроки = Элементы.Документация.ТекущиеДанные.НомерСтроки;
	ОткрытьФайлНаСервере();
КонецПроцедуры