Merge pull request #2464 from alkoleft/feature/2463

2463 / исправление ошибки чтения расширений без права доступа

Author: Pr-Mex

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

@@ -46584,38 +46584,50 @@
 		НадоУстановитьПустойПуть = Истина;
 		Если ДопПараметры.Свойство("ПараметрыЗапуска") И НЕ ДопПараметры.ЗапускИзСППР Тогда
 			НадоУстановитьПустойПуть = Ложь;
-		КонецЕсли;	 
+		КонецЕсли;
 
 		Если НадоУстановитьПустойПуть Тогда
 			ОбъектСервер.КаталогФич = "";
-		КонецЕсли;	 
-	КонецЕсли;	 
+		КонецЕсли;
+	КонецЕсли;
 
 	ЗначениеВРеквизитФормы(ОбъектСервер, "Объект");
 
 	Если Объект.ОтображатьЗакладкиСверху Тогда
 		Элементы.ФункциональностьЗакладки.ОтображениеСтраниц = ОтображениеСтраницФормы.ЗакладкиСверху;
-	КонецЕсли;	 
+	КонецЕсли;
 
 	ДоступностьКнопокОтката = Ложь;
 
-	Если ДопПараметры.РежимСовместимостиБольшеИлиРавен837  Тогда
-		Для Каждого РасширениеКонфигурации Из РасширенияКонфигурации.Получить() Цикл    
-		  	Если РасширениеКонфигурации.Имя = "ОткатИзмененийДанных" Тогда
-	          	РезультатСравнения = СравнитьВерсии(РасширениеКонфигурации.Версия, "1.0.0.4");
-			  	Если РезультатСравнения >= 0 Тогда 
-					ДоступностьКнопокОтката = Истина;
-			        Прервать;
-				КонецЕсли;
-		   КонецЕсли;
-		КонецЦикла;  
+	Если ДопПараметры.РежимСовместимостиБольшеИлиРавен837 Тогда
+		РасширениеКонфигурации = РасширениеКонфигурации("ОткатИзмененийДанных");
+		Если РасширениеКонфигурации <> Неопределено И СравнитьВерсии(РасширениеКонфигурации.Версия, "1.0.0.4") >= 0 Тогда
+			ДоступностьКнопокОтката = Истина;
+		КонецЕсли;
 	КонецЕсли;
 
 	Элементы.ВыгрузитьВСистемуОтката.Доступность = ДоступностьКнопокОтката;  
 	Элементы.ЗагрузитьИзСистемыОтката.Доступность = ДоступностьКнопокОтката;
 
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция РасширениеКонфигурации(ИмяРасширения)
+	
+	Если НЕ ПравоДоступа("АдминистрированиеРасширенийКонфигурации", Метаданные) Тогда 
+		 Возврат Неопределено;
+	КонецЕсли;
 
-КонецПроцедуры 
+	КлючПоиска = НРег(ИмяРасширения);
+	Для Каждого РасширениеКонфигурации Из РасширенияКонфигурации.Получить() Цикл
+		Если НРег(РасширениеКонфигурации.Имя) = КлючПоиска Тогда
+			Возврат РасширениеКонфигурации;
+		КонецЕсли;
+	КонецЦикла;
+	
+	Возврат Неопределено;
+	
+КонецФункции
 
 &НаКлиенте
 Процедура ОбновитьВидимостьЭлементовПослеЗагрузкиНастроек()