3_0_1_204

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

@@ -455,6 +455,13 @@
 		КонецЕсли;
 	КонецЕсли;
 	
+	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВнешниеКомпонентыВМоделиСервиса") Тогда
+		МодульВнешниеКомпонентыВМоделиСервисаСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ВнешниеКомпонентыВМоделиСервисаСлужебныйКлиент");
+		Если МодульВнешниеКомпонентыВМоделиСервисаСлужебныйКлиент.ЭтоКомпонентаИзХранилища(Местоположение) Тогда
+			Возврат Истина;
+		КонецЕсли;
+	КонецЕсли;
+	
 	Возврат ЭтоМакет(Местоположение);
 	
 КонецФункции
@@ -562,7 +569,9 @@
 	ФайлИнфо = Контекст.ФайлИнфо;
 	
 	Если РасширениеПодключено Тогда
-		Оповещение = Новый ОписаниеОповещения("ОткрытьПроводникПослеПроверкиСуществования", ЭтотОбъект, Контекст);
+		Оповещение = Новый ОписаниеОповещения(
+			"ОткрытьПроводникПослеПроверкиСуществования", ЭтотОбъект, Контекст, 
+			"ОткрытьПроводникПриОбработкеОшибки", ЭтотОбъект);
 		ФайлИнфо.НачатьПроверкуСуществования(Оповещение);
 	Иначе
 		ОписаниеОшибки = НСтр("ru = 'Расширение для работы с файлами не установлено, открытие папки не возможно.'");
@@ -577,7 +586,9 @@
 	ФайлИнфо = Контекст.ФайлИнфо;
 	
 	Если Существует Тогда 
-		Оповещение = Новый ОписаниеОповещения("ОткрытьПроводникПослеПроверкиЭтоФайл", ЭтотОбъект, Контекст);
+		Оповещение = Новый ОписаниеОповещения(
+			"ОткрытьПроводникПослеПроверкиЭтоФайл", ЭтотОбъект, Контекст, 
+			"ОткрытьПроводникПриОбработкеОшибки", ЭтотОбъект);
 		ФайлИнфо.НачатьПроверкуЭтоФайл(Оповещение);
 	Иначе 
 		ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -594,7 +605,7 @@
 	
 	ФайлИнфо = Контекст.ФайлИнфо;
 	
-	Оповещение = Новый ОписаниеОповещения("ОткрытьПроводникПослеОткрытияКаталога", ЭтотОбъект);
+	Оповещение = Новый ОписаниеОповещения(,,, "ОткрытьПроводникПриОбработкеОшибки", ЭтотОбъект);
 	Если ЭтоФайл Тогда
 		Если ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда
 			НачатьЗапускПриложения(Оповещение, "explorer.exe /select, """ + ФайлИнфо.ПолноеИмя + """");
@@ -608,13 +619,14 @@
 КонецПроцедуры
 
 // Продолжение процедуры ОбщегоНазначенияКлиент.ОткрытьПроводник.
-Процедура ОткрытьПроводникПослеОткрытияКаталога(КодВозврата, Контекст) Экспорт 
+Процедура ОткрытьПроводникПриОбработкеОшибки(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт 
 	
-	Возврат;
+	СтандартнаяОбработка = Ложь;
+	ОткрытьПроводникОповеститьОбОшибке("", Контекст);
 	
 КонецПроцедуры
 
-// Продолжение процедуры ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку.
+// Продолжение процедуры ОбщегоНазначенияКлиент.ОткрытьПроводник.
 Процедура ОткрытьПроводникОповеститьОбОшибке(ОписаниеОшибки, Контекст)
 	
 	Если Не ПустаяСтрока(ОписаниеОшибки) Тогда 
@@ -633,8 +645,9 @@
 	ФайлИнфо = Контекст.ФайлИнфо;
 	
 	Если РасширениеПодключено Тогда
-		Оповещение = Новый ОписаниеОповещения("ОткрытьФайлВПрограммеПросмотраПослеПроверкиСуществования",
-			ЭтотОбъект, Контекст);
+		Оповещение = Новый ОписаниеОповещения(
+			"ОткрытьФайлВПрограммеПросмотраПослеПроверкиСуществования", ЭтотОбъект, Контекст,
+			"ОткрытьФайлВПрограммеПросмотраПриОбработкеОшибки", ЭтотОбъект);
 		ФайлИнфо.НачатьПроверкуСуществования(Оповещение);
 	Иначе
 		ОписаниеОшибки = НСтр("ru = 'Расширение для работы с файлами не установлено, открытие файла невозможно.'");
@@ -649,8 +662,9 @@
 	ФайлИнфо = Контекст.ФайлИнфо;
 	
 	Если Существует Тогда 
-		Оповещение = Новый ОписаниеОповещения("ОткрытьФайлВПрограммеПросмотраПослеПроверкиЭтоФайл",
-			ЭтотОбъект, Контекст);
+		Оповещение = Новый ОписаниеОповещения(
+			"ОткрытьФайлВПрограммеПросмотраПослеПроверкиЭтоФайл", ЭтотОбъект, Контекст,
+			"ОткрытьФайлВПрограммеПросмотраПриОбработкеОшибки", ЭтотОбъект);
 		ФайлИнфо.НачатьПроверкуЭтоФайл(Оповещение);
 	Иначе 
 		ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -690,7 +704,8 @@
 		Оповещение          = Контекст.Оповещение;
 		ДождатьсяЗавершения = (Оповещение <> Неопределено);
 		
-		Оповещение = Новый ОписаниеОповещения("ОткрытьФайлВПрограммеПросмотраПослеЗапускаПриложения", ЭтотОбъект, Контекст,
+		Оповещение = Новый ОписаниеОповещения(
+			"ОткрытьФайлВПрограммеПросмотраПослеЗапускаПриложения", ЭтотОбъект, Контекст,
 			"ОткрытьФайлВПрограммеПросмотраПриОбработкеОшибки", ЭтотОбъект);
 		НачатьЗапускПриложения(Оповещение, ФайлИнфо.ПолноеИмя,, ДождатьсяЗавершения);
 		
@@ -925,7 +940,8 @@
 		
 		ДождатьсяЗавершения = (Оповещение <> Неопределено);
 		
-		Оповещение = Новый ОписаниеОповещения("ЗапуститьПрограммуПослеЗапускаПриложения", ЭтотОбъект, Контекст,
+		Оповещение = Новый ОписаниеОповещения(
+			"ЗапуститьПрограммуПослеЗапускаПриложения", ЭтотОбъект, Контекст,
 			"ЗапуститьПрограммуПриОбработкеОшибки", ЭтотОбъект);
 		НачатьЗапускПриложения(Оповещение, СтрокаКоманды, ТекущийКаталог, ДождатьсяЗавершения);
 		
@@ -971,7 +987,7 @@
 КонецПроцедуры
 
 // Продолжение процедуры ОбщегоНазначенияКлиент.ЗапуститьПрограмму.
-Процедура ЗапуститьПрограммуОповеститьОбОшибке(ОписаниеОшибки, Контекст) Экспорт
+Процедура ЗапуститьПрограммуОповеститьОбОшибке(ОписаниеОшибки, Контекст)
 	
 	Оповещение = Контекст.Оповещение;
 	
@@ -999,17 +1015,6 @@
 	
 КонецФункции
 
-// Проверяет содержит ли строка команды опасные действия
-Функция СодержитНебезопасныеДействия(СтрокаКоманды) Экспорт
-	
-	Возврат СтрНайти(СтрокаКоманды, "$") <> 0
-		Или СтрНайти(СтрокаКоманды, "`") <> 0
-		Или СтрНайти(СтрокаКоманды, "|") <> 0
-		Или СтрНайти(СтрокаКоманды, ";") <> 0
-		Или СтрНайти(СтрокаКоманды, "&") <> 0;
-	
-КонецФункции
-
 #КонецОбласти
 
 #Область СоздатьВременныйКаталог
@@ -1019,8 +1024,9 @@
 	
 	Если РасширениеПодключено Тогда
 		
-		Оповещение = Новый ОписаниеОповещения("СоздатьВременныйКаталогПослеПолученияВременногоКаталога",
-			ЭтотОбъект, Контекст);
+		Оповещение = Новый ОписаниеОповещения(
+			"СоздатьВременныйКаталогПослеПолученияВременногоКаталога", ЭтотОбъект, Контекст,
+			"СоздатьВременныйКаталогПриОбработкеОшибки", ЭтотОбъект);
 		
 		НачатьПолучениеКаталогаВременныхФайлов(Оповещение);
 		
@@ -1048,6 +1054,15 @@
 	
 КонецПроцедуры
 
+// Продолжение процедуры ОбщегоНазначенияКлиент.СоздатьВременныйКаталог.
+Процедура СоздатьВременныйКаталогПриОбработкеОшибки(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт 
+	
+	СтандартнаяОбработка = Ложь;
+	ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
+	СоздатьВременныйКаталогОповеститьОбОшибке(ОписаниеОшибки, Контекст);
+	
+КонецПроцедуры
+
 // Продолжение процедуры ОбщегоНазначенияКлиент.СоздатьВременныйКаталог.
 Процедура СоздатьВременныйКаталогОповеститьОбОшибке(ОписаниеОшибки, Контекст)
 	
@@ -1171,7 +1186,6 @@
 	Если Параметры = Неопределено Тогда
 		Возврат;
 	КонецЕсли;
-	ПараметрыПриложения["СтандартныеПодсистемы.ПараметрыПодтвержденияЗакрытияФормы"] = Неопределено;
 	
 	Оповещение = Новый ОписаниеОповещения("ПодтвердитьЗакрытиеФормыЗавершение", ЭтотОбъект, Параметры);
 	Если ПустаяСтрока(Параметры.ТекстПредупреждения) Тогда
@@ -1187,8 +1201,11 @@
 
 Процедура ПодтвердитьЗакрытиеФормыЗавершение(Ответ, Параметры) Экспорт
 	
+	ПараметрыПриложения["СтандартныеПодсистемы.ПараметрыПодтвержденияЗакрытияФормы"] = Неопределено;
+	
 	Если Ответ = КодВозвратаДиалога.Да Тогда
 		ВыполнитьОбработкуОповещения(Параметры.ОповещениеСохранитьИЗакрыть);
+		
 	ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
 		Форма = Параметры.ОповещениеСохранитьИЗакрыть.Модуль;
 		Форма.Модифицированность = Ложь;