поддержка асинхронности

vanessa-opensource#409

epf/ЗагрузитьРасширениеВРежимеПредприятия/ЗагрузитьРасширениеВРежимеПредприятия/Forms/Форма/Ext/Form/Module.bsl

@@ -70,11 +70,10 @@
 			Символы.ПС, ОписаниеОшибки);
 		Лог(Ошибка);
 
+		Если ЗавершитьРаботуСистемы Тогда
+			ЗавершитьРаботу();
+		КонецЕсли;
 	КонецПопытки;
-
-	Если ЗавершитьРаботуСистемы Тогда
-		ЗавершитьРаботу();
-	КонецЕсли;
 
 КонецПроцедуры
 
@@ -109,43 +108,69 @@
 Процедура ЗагрузитьРасширения(ПутьРасширения, Знач ИмяРасширения, Перезаписывать, 
 						БезопасныйРежим, ЗащитаОтОпасныхДействий,
 						ЗавершитьРаботуСистемы)
-
-	Попытка
-		Файлы = НайтиФайлы(ПутьРасширения, "*.cfe");
-		Нашли = ЗначениеЗаполнено(Файлы);
-	Исключение
-		Нашли = Ложь;
-	КонецПопытки;
+
+	ДопПараметры = Новый Структура;
+	ДопПараметры.Вставить("ПутьРасширения", ПутьРасширения);
+	ДопПараметры.Вставить("ИмяРасширения", ИмяРасширения);
+	ДопПараметры.Вставить("Перезаписывать", Перезаписывать);
+	ДопПараметры.Вставить("БезопасныйРежим", БезопасныйРежим);
+	ДопПараметры.Вставить("ЗащитаОтОпасныхДействий", ЗащитаОтОпасныхДействий);
+	ДопПараметры.Вставить("ЗавершитьРаботуСистемы", ЗавершитьРаботуСистемы);
 
-	Если Не Нашли Тогда
-		Файлы = Новый Массив;
-		Файл = Новый Файл(ПутьРасширения);
-		Файлы.Добавить(Файл);
-	КонецЕсли;
+	Обработчик = Новый ОписаниеОповещения("ОбработкаПоискаРасширенийВКаталоге", ЭтаФорма, ДопПараметры);
+	НачатьПоискФайлов(Обработчик, ПутьРасширения, "*.cfe", Истина);
+
+КонецПроцедуры
 
-	Если Не ЗначениеЗаполнено(Файлы) Тогда
-		ВызватьИсключение "Не найдено расширений для пути " + ПутьРасширения;
-	КонецЕсли;
+&НаКлиенте
+Процедура ОбработкаПоискаРасширенийВКаталоге(Знач НайденныеФайлы, Знач ДопПараметры) Экспорт
 
-	Для Каждого Файл Из Файлы Цикл
-		ПутьФайла = Файл.ПолноеИмя;
-		ДвоичныеДанные = Новый ДвоичныеДанные(ПутьФайла);
+	Попытка
 
-		Если ПустаяСтрока(ИмяРасширения) Тогда
-			ИмяРасширения = Файл.ИмяБезРасширения;
+		ПутьРасширения = ДопПараметры.ПутьРасширения;
+		ИмяРасширения = ДопПараметры.ИмяРасширения;
+		Перезаписывать = ДопПараметры.Перезаписывать;
+		БезопасныйРежим = ДопПараметры.БезопасныйРежим;
+		ЗащитаОтОпасныхДействий = ДопПараметры.ЗащитаОтОпасныхДействий;
+		ЗавершитьРаботуСистемы = ДопПараметры.ЗавершитьРаботуСистемы;
+
+		Если Не ЗначениеЗаполнено(НайденныеФайлы) Тогда
+			НайденныеФайлы = Новый Массив;
+			Файл = Новый Файл(ПутьРасширения);
+			НайденныеФайлы.Добавить(Файл);
+		КонецЕсли;
+
+		Если Не ЗначениеЗаполнено(НайденныеФайлы) Тогда
+			ВызватьИсключение "Не найдено файлов-расширений для пути " + ПутьРасширения;
 		КонецЕсли;
 
-		Попытка
-			УстановитьРасширение(ИмяРасширения, ДвоичныеДанные, Перезаписывать, 
-				БезопасныйРежим, ЗащитаОтОпасныхДействий);
-		Исключение
-			ВызватьИсключение ПутьФайла + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
-		КонецПопытки;
+		Для Каждого Файл Из НайденныеФайлы Цикл
+			ПутьФайла = Файл.ПолноеИмя;
+			ДвоичныеДанные = Новый ДвоичныеДанные(ПутьФайла);
+
+			Если ПустаяСтрока(ИмяРасширения) Тогда
+				ИмяРасширения = Файл.ИмяБезРасширения;
+			КонецЕсли;
+
+			Попытка
+				УстановитьРасширение(ИмяРасширения, ДвоичныеДанные, Перезаписывать, 
+					БезопасныйРежим, ЗащитаОтОпасныхДействий);
+			Исключение
+				ВызватьИсключение ПутьФайла + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+			КонецПопытки;
+
+		КонецЦикла;
+
+		ОбновитьПараметрыРаботыВерсийРасширений();
+	Исключение
+		ОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+
+		Ошибка = СтрШаблон("Неудача при выполнении основного кода %1%2 %1",
+			Символы.ПС, ОписаниеОшибки);
+		Лог(Ошибка);
+
+	КонецПопытки;
 
-	КонецЦикла;
-
-	ОбновитьПараметрыРаботыВерсийРасширений();
-
 КонецПроцедуры
 
 &НаСервере