upd 0.9.2.7

Author: dsdred

README.md

@@ -23,10 +23,7 @@
 	Если Не ПустаяСтрока(ТекстОшибки) Тогда
 
 		Отказ = Истина;
-		Сообщение 		= Новый СообщениеПользователю;
-		Сообщение.Текст = ТекстОшибки;
-		Сообщение.Поле 	= "Объект.Наименование";
-		Сообщение.Сообщить();
+		PAPI_ОбщегоНазначенияКлиентСервер.КраткоеСообщениеПользователю(ТекстОшибки, "Объект.Наименование");
 
 	КонецЕсли;
 

assets/exls/СоставПодсистем.xlsx

@@ -20,10 +20,7 @@
 	Если Не ПустаяСтрока(ТекстОшибки) Тогда
 
 		Отказ = Истина;
-		Сообщение 		= Новый СообщениеПользователю;
-		Сообщение.Текст	= ТекстОшибки;
-		Сообщение.Поле 	= "Объект.Код";
-		Сообщение.Сообщить();
+		PAPI_ОбщегоНазначенияКлиентСервер.КраткоеСообщениеПользователю(ТекстОшибки, "Объект.Код");
 
 	КонецЕсли;
 

src/ПодсистемаPAPI/Catalogs/PAPI_Участники/Ext/ObjectModule.bsl

@@ -1,7 +1,7 @@
 
 &НаКлиенте
 Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
-
-	ОткрытьФорму("ОбщаяФорма.PAPI_Настройки");
-
+	
+	PAPI_ОбщегоНазначенияКлиентСервер.ЕслиФормаУжеОткрытаАктивировать("ОбщаяФорма.PAPI_Настройки", "ОбщаяФормаPAPIНастройки", "Настройки");	
+	
 КонецПроцедуры

src/ПодсистемаPAPI/Catalogs/PAPI_ШаблоныСообщений/Ext/ObjectModule.bsl

@@ -105,3 +105,42 @@
 КонецПроцедуры       
 
 #КонецОбласти 
+
+#Область РаботаСФормой
+
+&НаКлиенте
+Процедура ЕслиФормаУжеОткрытаАктивировать(ПутьКФорме, КлючУникальности, Заголовок) Экспорт 
+	
+	ВсеОкна = ПолучитьОкна();
+	ФормаНайдена = Ложь;
+	Для Каждого ТекущаяОкно Из ВсеОкна Цикл 
+		Если ВРег(ТекущаяОкно.Заголовок) = ВРег(Заголовок) 
+			И ТипЗнч(ТекущаяОкно.Содержимое) = Тип("ФиксированныйМассив") Тогда 
+			
+			Для Каждого ТекущаяФорма Из ТекущаяОкно.Содержимое Цикл 
+				
+				Если ТипЗнч(ТекущаяФорма) = Тип("ФормаКлиентскогоПриложения") 
+					И ТекущаяФорма.КлючУникальности = КлючУникальности Тогда 
+					ФормаНайдена = Истина;
+					Прервать;
+				КонецЕсли;
+				
+			КонецЦикла;
+			
+		КонецЕсли;
+		
+		Если ФормаНайдена Тогда 
+			Прервать;
+		КонецЕсли;	
+		
+	КонецЦикла;
+	
+	Если ФормаНайдена Тогда 
+		ТекущаяФорма.Активизировать();	
+	Иначе
+		ОткрытьФорму(ПутьКФорме,,, КлючУникальности);	
+	КонецЕсли;	
+	
+КонецПроцедуры	
+
+#КонецОбласти