Добавлена настройка включения в проверку объектов метаданных по префи…

…ксу имени

Добавлена настройка исключения из проверки объектов метаданных
Исправлена ошибка падения теста если в настройках не указан параметр ОтборПоПрефиксу
Обновлен пример настроек теста

tests/smoke/smoke.example.json

@@ -756,7 +756,11 @@
     "Тесты_ПроверкаПраваИнтерактивногоУдаления": {
 
         "Используется": false,
-        "ПроверятьОсновныеРоли": true
+        "ПроверятьОсновныеРоли": true,
+        "Префикс": "",
+        "ОтборПоПрефиксу": false,
+        "ПрефиксИсключения": "",
+        "ИсключениеПоПрефиксу": false
 
     },
 

tests/smoke/Тесты_ПроверкаПраваИнтерактивногоУдаления/Тесты_ПроверкаПраваИнтерактивногоУдаления/Forms/Форма/Ext/Form/Module.bsl

@@ -12,6 +12,10 @@
 Перем ОтборПоПрефиксу;
 &НаКлиенте
 Перем ПрефиксОбъектов;
+&НаКлиенте
+Перем ИсключениеПоПрефиксу;
+&НаКлиенте
+Перем ПрефиксИсключенияОбъектов;
 
 #КонецОбласти
 
@@ -37,7 +41,7 @@
 		Возврат;
 	КонецЕсли;
 
-	ОбъектыМетаданных = ОбъектыМетаданных(ОтборПоПрефиксу, ПрефиксОбъектов);
+	ОбъектыМетаданных = ОбъектыМетаданных(ОтборПоПрефиксу, ПрефиксОбъектов, ИсключениеПоПрефиксу, ПрефиксИсключенияОбъектов);
 
 	Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл
 		Если ОбъектМетаданных.Значение.Количество() = 0 Тогда
@@ -66,6 +70,9 @@
 	КонецЕсли;
 
 	ПрефиксОбъектов = "";
+	ОтборПоПрефиксу = Ложь;
+	ПрефиксИсключенияОбъектов = "";
+	ИсключениеПоПрефиксу = Ложь;
 	ВыводитьИсключения = Ложь;
 	ПроверятьОсновныеРоли = Истина;
 	ПлагинНастроек = КонтекстЯдра.Плагин("Настройки");
@@ -89,6 +96,14 @@
 		ОтборПоПрефиксу = Настройки.ОтборПоПрефиксу;		
 	КонецЕсли;
 
+	Если Настройки.Свойство("ПрефиксИсключения") Тогда
+		ПрефиксИсключенияОбъектов = ВРег(Настройки.ПрефиксИсключения);
+	КонецЕсли;
+
+	Если Настройки.Свойство("ИсключениеПоПрефиксу") Тогда
+		ИсключениеПоПрефиксу = Настройки.ИсключениеПоПрефиксу;		
+	КонецЕсли;
+
 КонецПроцедуры
 
 #КонецОбласти
@@ -129,7 +144,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 &НаСервереБезКонтекста
-Функция ОбъектыМетаданных(ОтборПоПрефиксу, ПрефиксОбъектов)
+Функция ОбъектыМетаданных(ОтборПоПрефиксу, ПрефиксОбъектов, ИсключениеПоПрефиксу, ПрефиксИсключенияОбъектов)
 
 	СтроковыеУтилиты = СтроковыеУтилиты();
 	Пояснение = НСтр("ru = 'Проверка права интерактивного удаления'");
@@ -149,6 +164,9 @@
 			Если ОтборПоПрефиксу И Не СтрНачинаетсяС(ВРег(ОбъектМетаданных.Имя), ВРег(ПрефиксОбъектов)) Тогда
 				Продолжить;
 			КонецЕсли;
+			Если ИсключениеПоПрефиксу И СтрНачинаетсяС(ВРег(ОбъектМетаданных.Имя), ВРег(ПрефиксИсключенияОбъектов)) Тогда
+				Продолжить;
+			КонецЕсли;
 
 			ИмяТеста = СтроковыеУтилиты.ПодставитьПараметрыВСтроку("%1 [%2]", ОбъектМетаданных.ПолноеИмя(), Пояснение);
 			СтруктураЭлемента = Новый Структура;