Расширены возможности запуска в режиме предприятия

packagedef

 
 Описание.Имя("deployka")
-		.Версия("0.1.2")
+		.Версия("0.2")
         .ВерсияСреды("1.0.16")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
-		.ЗависитОт("v8runner")
+		.ЗависитОт("v8runner", "0.9")
 		.ВключитьФайл("src")
 		.ИсполняемыйФайл("src/deployka.os", "deployka");

src/Классы/КомандаЗапуститьВРежимеПредприятия.os

@@ -31,6 +31,14 @@
 		"-execute", 
 		"Путь обработки для запуска");
 
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+		"-additional", 
+		"Дополнительные ключи запуска 1С");
+
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, 
+		"-thin-client", 
+		"Запускать тонкий клиент принудительно");
+
     Парсер.ДобавитьКоманду(ОписаниеКоманды);
     
 КонецПроцедуры
@@ -57,6 +65,10 @@
 		Пароль,
 		ИспользуемаяВерсияПлатформы);
 
+	Если ПараметрыКоманды["-thin-client"] Тогда
+		Конфигуратор.ПутьКПлатформе1С(Конфигуратор.ПутьКТонкомуКлиенту1С());
+	КонецЕслИ;
+	
 	Если Не ПустаяСтрока(КлючРазрешенияЗапуска) Тогда
 		Конфигуратор.УстановитьКлючРазрешенияЗапуска(КлючРазрешенияЗапуска);
 	КонецЕсли;
@@ -65,20 +77,21 @@
 		ПараметрЗапускаПредприятия = "";
 	КонецЕсли;
 	
-	ДополнительныеКлючи = "";
+	ДополнительныеКлючи = ""+ ПараметрыКоманды["-additional"] + " ";
 	Если Не ПустаяСтрока(ОбработкаДляЗапуска) Тогда
 		ДополнительныеКлючи = ДополнительныеКлючи + "/Execute"+ЗапускПриложений.ОбернутьВКавычки(ОбработкаДляЗапуска);
 	КонецЕсли;
 	
 	Лог.Информация("Запускаю в режиме предприятия");
 	Попытка
+		Конфигуратор.УстановитьОбработчикОжидания(ЭтотОбъект);
 		Конфигуратор.ЗапуститьВРежимеПредприятия(ПараметрЗапускаПредприятия, Неопределено, ДополнительныеКлючи);
 		Текст = Конфигуратор.ВыводКоманды();
 		Если Не ПустаяСтрока(Текст) Тогда
 			Лог.Информация(Текст);
 		КонецЕсли;
 	Исключение
-		Лог.Ошибка(Конфигуратор.ВыводКоманды());
+		Лог.Ошибка(ОписаниеОшибки());
 		Возврат ВозможныйРезультат.ОшибкаВремениВыполнения;
 	КонецПопытки;
 	
@@ -86,6 +99,13 @@
     
 КонецФункции
 
+Процедура ОбработкаОжиданияПроцесса(Отказ, Интервал) Экспорт
+	Лог.Отладка("Ожидаю завершения процесса 1С...");
+	Если Интервал < 60000 Тогда
+		Интервал = Интервал + 500;
+	КонецЕсли;
+КонецПроцедуры
+
 /////////////////////////////////////////////////////////////////////////////////
 СистемнаяИнформация = Новый СистемнаяИнформация;
 ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;