3_1_3_196

SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиент/Module.bsl

@@ -80,9 +80,9 @@
 	Если Не МестоположениеКомпонентыКорректно(Контекст.Местоположение) Тогда 
 		ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
 			НСтр("ru = 'Не удалось подключить внешнюю компоненту ""%1"" на клиенте
-			           |%2
 			           |по причине:
-			           |Не допустимо подключить компоненты из указанного местоположения.'"), 
+			           |указано некорректное местоположение внешней компоненты
+			           |%2'"),
 			Контекст.Идентификатор,
 			Контекст.Местоположение);
 	КонецЕсли;
@@ -137,8 +137,13 @@
 // Продолжение процедуры ПодключитьКомпоненту.
 Процедура ПодключитьКомпонентуОповеститьОбОшибке(ОписаниеОшибки, Контекст) Экспорт
 	
+	Если Не ПустаяСтрока(ОписаниеОшибки) Тогда
+		ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
+			НСтр("ru = 'Подключение внешней компоненты на клиенте'", ОбщегоНазначенияКлиент.КодОсновногоЯзыка()),
+			"Ошибка", ОписаниеОшибки,, Истина);
+	КонецЕсли;
+		
 	Оповещение = Контекст.Оповещение;
-	
 	Результат = РезультатПодключенияКомпоненты();
 	Результат.ОписаниеОшибки = ОписаниеОшибки;
 	ВыполнитьОбработкуОповещения(Оповещение, Результат);
@@ -518,13 +523,16 @@
 			ПодключитьКомпонентуНачатьУстановку(Контекст);
 		Иначе 
 			ТекстОшибки =  СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
-				НСтр("ru = 'Не удалось подключить внешнюю компоненту ""%1"" на клиенте
-				           |%2
-				           |по причине:
-				           |Метод НачатьПодключениеВнешнейКомпоненты вернул Ложь.'"),
+				НСтр("ru = 'Не удалось подключить внешнюю компоненту ""%1"".
+				           |Возможно компонента не предназначена для клиентского приложения: %2.
+						   |
+						   |Техническая информация:
+				           |%3
+						   |Метод НачатьПодключениеВнешнейКомпоненты вернул Ложь.'"),
 				Контекст.Идентификатор,
+				ВидПриложения(),
 				Контекст.Местоположение);
-			
+				
 			ПодключитьКомпонентуОповеститьОбОшибке(ТекстОшибки, Контекст);
 		КонецЕсли;
 		
@@ -532,6 +540,21 @@
 	
 КонецПроцедуры
 
+Функция ВидПриложения()
+
+	СистемнаяИнформация = Новый СистемнаяИнформация();
+	Результат = "";
+#Если ВебКлиент Тогда
+	Результат = НСтр("ru = 'Веб-клиент'") + СистемнаяИнформация.ИнформацияПрограммыПросмотра;
+#ИначеЕсли ТолстыйКлиентОбычноеПриложение Или ТолстыйКлиентУправляемоеПриложение Тогда
+	Результат = НСтр("ru = 'Толстый клиент'");
+#ИначеЕсли ТонкийКлиент Тогда
+	Результат = НСтр("ru = 'Тонкий клиент'");
+#КонецЕсли
+	Возврат Результат + " (" + СистемнаяИнформация.ТипПлатформы + ")";
+
+КонецФункции
+
 // Продолжение процедуры ПодключитьКомпоненту.
 Процедура ПодключитьКомпонентуНачатьУстановку(Контекст)