Fix 475

tests/smoke/тесты_ОткрытиеФормКонфигурации/Тесты_ОткрытиеФормКонфигурации/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -491,55 +491,58 @@
 &НаСервереБезКонтекста
 Функция ДобавитьИменаМетаФормДляОдногоОбъектаМетаданного(CписокИменМетаФорм, ОсновнойОбъект, МетаОбъект,
 		ТолькоУправляемыеФормы, СписокИсключений, ИменаОсновныхФорм)
+
 	Если СписокИсключений = Ложь Или СписокИсключений.НайтиПоЗначению(МетаОбъект.Имя) <> Неопределено Тогда
 		Возврат Ложь;
 	КонецЕсли;
 
+	Если Не ПравоДоступа("Просмотр", МетаОбъект) Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Мета_ПолноеИмя = МетаОбъект.ПолноеИмя();
-
+	
 	Результат = Ложь;
-	Если ПравоДоступа("Просмотр", МетаОбъект) Тогда
-		МетаФормы = ОсновнойОбъект.ПолучитьМетаФормыОбъектаДляПроверки(МетаОбъект, ИменаОсновныхФорм);
-
-		ФормыДобавлены = ЛОЖЬ;
-
-		Для каждого МетаФорма Из МетаФормы Цикл
-
-			МетаФорма_ПолноеИмя = МетаФорма.ПолноеИмя();
-			Если Метаданные.ОсновнаяФормаОтчета = МетаФорма Тогда
-				МетаФорма_ПолноеИмя = МетаОбъект.ПолноеИмя() + ".Форма";
-			ИначеЕсли Метаданные.ОсновнаяФормаНастроекОтчета = МетаФорма Тогда
-				МетаФорма_ПолноеИмя = МетаОбъект.ПолноеИмя() + ".ФормаНастроек";
-			КонецЕсли;
-
-			//МетаОбъект.Имя <Отчет1>, МетаФорма_ПолноеИмя <Отчет.Отчет1.Форма.УправляемаяФормаОтчета>
-			//МетаОбъект.Имя <Отчет2>, МетаФорма_ПолноеИмя <ОбщаяФорма.ФормаОтчета> // в ОФ Отчет.Отчет2.Форма
-
-			Если ТолькоУправляемыеФормы Тогда
-				Если Не ЭтоУправляемаяФорма(МетаФорма) Тогда
-					Продолжить;
-				КонецЕсли;
-			КонецЕсли;
-
-			// исторически в списке исключений имя формы без имени коллекции объектов метаданных
-			// "Справочник1.Форма.ФормаЭлемента", а не "Справочник.Справочник1.Форма.ФормаЭлемента"
-			Если СписокИсключений.НайтиПоЗначению(Сред(МетаФорма_ПолноеИмя, Найти(МетаФорма_ПолноеИмя, ".") + 1))
-					<> Неопределено Тогда
-				Продолжить;
-			КонецЕсли;
-
-			// TODO Бессмысленно открывать для отчетов основную форму отчета, настроек, варианта из конфигурации
-			Если НРег(Лев(МетаФорма_ПолноеИмя, СтрДлина(Мета_ПолноеИмя))) <> НРег(Мета_ПолноеИмя) Тогда
+
+	МетаФормы = ОсновнойОбъект.ПолучитьМетаФормыОбъектаДляПроверки(МетаОбъект, ИменаОсновныхФорм);
+
+	ФормыДобавлены = Ложь;
+
+	Для каждого МетаФорма Из МетаФормы Цикл
+
+		МетаФорма_ПолноеИмя = МетаФорма.ПолноеИмя();
+		Если Метаданные.ОсновнаяФормаОтчета = МетаФорма Тогда
+			МетаФорма_ПолноеИмя = МетаОбъект.ПолноеИмя() + ".Форма";
+		ИначеЕсли Метаданные.ОсновнаяФормаНастроекОтчета = МетаФорма Тогда
+			МетаФорма_ПолноеИмя = МетаОбъект.ПолноеИмя() + ".ФормаНастроек";
+		КонецЕсли;
+
+		//МетаОбъект.Имя <Отчет1>, МетаФорма_ПолноеИмя <Отчет.Отчет1.Форма.УправляемаяФормаОтчета>
+		//МетаОбъект.Имя <Отчет2>, МетаФорма_ПолноеИмя <ОбщаяФорма.ФормаОтчета> // в ОФ Отчет.Отчет2.Форма
+
+		Если ТолькоУправляемыеФормы Тогда
+			Если Не ЭтоУправляемаяФорма(МетаФорма) Тогда
 				Продолжить;
 			КонецЕсли;
-
-			ФормыДобавлены = Истина;
-
-			CписокИменМетаФорм.Добавить(МетаФорма_ПолноеИмя);
-			Результат = Истина;
-		КонецЦикла;
-
-	КонецЕсли;
+		КонецЕсли;
+
+		// исторически в списке исключений имя формы без имени коллекции объектов метаданных
+		// "Справочник1.Форма.ФормаЭлемента", а не "Справочник.Справочник1.Форма.ФормаЭлемента"
+		Если СписокИсключений.НайтиПоЗначению(Сред(МетаФорма_ПолноеИмя, Найти(МетаФорма_ПолноеИмя, ".") + 1))
+			<> Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+
+		// TODO Бессмысленно открывать для отчетов основную форму отчета, настроек, варианта из конфигурации
+		Если Лев(НРег(МетаФорма_ПолноеИмя), СтрДлина(Мета_ПолноеИмя)) <> НРег(Мета_ПолноеИмя) Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ФормыДобавлены = Истина;
+
+		CписокИменМетаФорм.Добавить(МетаФорма_ПолноеИмя);
+		Результат = Истина;
+	КонецЦикла;
 
 	// TODO Бессмысленно открывать для отчетов основную форму отчета, настроек, варианта из конфигурации.
 	// Также нужно добавить стандартные формы для всяких объектов - справочники, документы
@@ -549,6 +552,7 @@
 	КонецЕсли;
 
 	Возврат Результат;
+
 КонецФункции
 
 //}