Обновить мобильное приложение без гугл плей

&НаСервере
Функция ЗагрузитьФайлНаСервере()
	лСтруктураЗапроса = Новый Структура;
	лСтруктураЗапроса.Вставить("method","get_releases");
	лСтруктураЗапроса.Вставить("nomer",НовыйРелиз);
	лОтвет = ОбщийМодуль2.ВыполнитьЗапросКБазе(лСтруктураЗапроса);
	Если лОтвет.Свойство("success") И
		лОтвет.success = "true" Тогда
		лКаталог = КаталогВременныхФайлов();
		
		лИмя = "app.shk-arm.apk";
		Попытка
			УдалитьФайлы(лКаталог+лИмя);
		Исключение КонецПопытки;
		Попытка
			лДвоичныеДанные = ОбщийМодуль2.ЗначениеИзСтрокиXML(лОтвет.data_file);
			лДвоичныеДанные.Записать(лКаталог+лИмя);
			
			Возврат лКаталог + лИмя;
		Исключение
			Сообщить(ОписаниеОшибки());
		    Возврат "";
		КонецПопытки;
	КонецЕсли;
	Возврат "";
КонецФункции

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

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