fixed #328 - открытие инструментов в режиме запрета синхронных вызовов

epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -1636,8 +1636,7 @@
 // { Внешние интерфейсные инструменты
 &НаКлиенте
 Процедура ОткрытьИнструмент(Знач ИмяИнструмента, Знач ПутьИнструмента = "", Знач ИмяФормы = "Форма")
-	Перем АдресХранилища;
-
+
 	// Для встроенного в состав конфигурации браузера тестов
 	// инструменты находятся также в составке конфигурации
 	Если Объект.ЭтоВстроеннаяОбработка Тогда
@@ -1656,17 +1655,38 @@
 		Иначе
 			ПутьКВнешнимИнструментам = ПолучитьПутьКВнешнимИнструментам();
 		КонецЕсли;
+
 		ПутьИнструмента = ПутьКВнешнимИнструментам + ИмяИнструмента + ".epf";
 		ФайлИнструмента = Новый Файл(ПутьИнструмента);
-		Если Не ФайлИнструмента.Существует() Тогда
-			Сообщить("Инструмент <" + ИмяИнструмента + "> не найден в каталоге <" + ФайлИнструмента.Путь + ">");
-			Возврат;
-		КонецЕсли;
+		ФайлИнструмента.НачатьПроверкуСуществования(Новый ОписаниеОповещения("ОткрытьИнструментПроверкаСуществованияКонец",
+			ЭтаФорма,
+			Новый Структура("ИмяИнструмента, ИмяФормы, ФайлИнструмента",
+				ИмяИнструмента,
+				ИмяФормы,
+				ФайлИнструмента)
+				)
+			);
 
-		Оповещение = Новый ОписаниеОповещения("ОткрытьИнструментЗавершение", ЭтаФорма, Новый Структура("ИмяИнструмента, ИмяФормыИнструмента", ИмяИнструмента, ИмяФормы));
-		НачатьПомещениеФайла(Оповещение, АдресХранилища, ФайлИнструмента.ПолноеИмя , Ложь, ЭтаФорма.УникальныйИдентификатор);
+	КонецЕсли;
+КонецПроцедуры
 
+&НаКлиенте
+Процедура ОткрытьИнструментПроверкаСуществованияКонец(Существует, ДополнительныеПараметры) Экспорт
+
+	Перем АдресХранилища, ИмяФормы;
+
+	ИмяИнструмента  = ДополнительныеПараметры.ИмяИнструмента;
+	ИмяФормы        = ДополнительныеПараметры.ИмяФормы;
+	ФайлИнструмента = ДополнительныеПараметры.ФайлИнструмента;
+
+	Если Не Существует Тогда
+		Сообщить("Инструмент <" + ИмяИнструмента + "> не найден в каталоге <" + ФайлИнструмента.Путь + ">");
+		Возврат;
 	КонецЕсли;
+
+	Оповещение = Новый ОписаниеОповещения("ОткрытьИнструментЗавершение", ЭтаФорма, Новый Структура("ИмяИнструмента, ИмяФормыИнструмента", ИмяИнструмента, ИмяФормы));
+	НачатьПомещениеФайла(Оповещение, АдресХранилища, ФайлИнструмента.ПолноеИмя , Ложь, ЭтаФорма.УникальныйИдентификатор);
+
 КонецПроцедуры
 
 &НаКлиенте