3_1_5_237

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

@@ -852,24 +852,46 @@
 
 Функция ЭтоМакет(Местоположение)
 	
-	ШагиПути = СтрРазделить(Местоположение, ".");
-	Если ШагиПути.Количество() < 2 Тогда 
+	Если СтрНайти(Местоположение, "/") > 0 Тогда
 		Возврат Ложь;
 	КонецЕсли;
 	
-	Путь = Новый Структура;
-	Попытка
-		Для каждого ШагПути Из ШагиПути Цикл 
-			Путь.Вставить(ШагПути);
-		КонецЦикла;
-	Исключение
+	ШагиПути = СтрРазделить(Местоположение, ".");
+	Количество = ШагиПути.Количество();
+	
+	Если Не Количество = 2 И Не Количество = 4 Тогда
 		Возврат Ложь;
-	КонецПопытки;
+	КонецЕсли;
+	
+	Если Количество = 2 И Не ВРег(ШагиПути[0]) = "ОБЩИЙМАКЕТ" Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
+	Если Количество = 4 И Не ВРег(ШагиПути[2]) = "МАКЕТ" Тогда
+		Возврат Ложь;
+	КонецЕсли;
+	
+	Для каждого ШагПути Из ШагиПути Цикл
+		Если Не ИмяСоответствуетТребованиямИменованияСвойств(ШагПути) Тогда
+			Возврат Ложь;
+		КонецЕсли;
+	КонецЦикла;
 	
 	Возврат Истина;
 	
 КонецФункции
 
+Функция ИмяСоответствуетТребованиямИменованияСвойств(Имя)
+	Буквы = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ";
+	Цифры = "1234567890";
+	
+	Если Имя = "" Или СтрНайти(Буквы + "_", ВРег(Лев(Имя, 1))) = 0 Тогда
+		Возврат Ложь;
+	КонецЕсли;
+	
+	Возврат СтрРазделить(ВРег(Имя), Буквы + Цифры + "_", Ложь).Количество() = 0;
+КонецФункции
+
 // Получает из кэша символическое имя внешней компоненты, если она была ранее подключена.
 Функция ПолучитьСимволическоеИмяКомпонентыИзКэша(КлючОбъекта)
 	
@@ -962,7 +984,7 @@
 				ОбщегоНазначенияСлужебныйКлиент, Контекст);
 			
 			ТекстВопроса = 
-				НСтр("ru = 'Для завершения перерегистрации компоненты comcntr необходимо перезапустить программу.
+				НСтр("ru = 'Для завершения перерегистрации компоненты comcntr перезапустите программу.
 				           |Перезапустить сейчас?'");
 			
 			ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);