Добавлено подавление окна "Региональные настройки" для конфигураций с…

… подсистемой Мультиязычность БСП

epf/ЗакрытьПредприятие/ЗакрытьПредприятие/Forms/Форма/Ext/Form/Module.bsl

@@ -34,7 +34,10 @@
 
 	ПодключитьОбработчикОжидания("ПроверитьНеобходимостьЗавершенияПрограммы", 10, Истина);
 	ПодключитьОбработчикОжидания("ПроверитьЛегальностьОбновления", 2);
-
+	Если СуществуетПодсистемаМультиязычность() Тогда
+		ПодключитьОбработчикОжидания("ПроверитьРегиональныеНастройки", 2);
+	    ПроверитьРегиональныеНастройки();
+	КонецЕсли;
 	ПроверитьНеобходимостьЗавершенияПрограммы();
 	ПроверитьЛегальностьОбновления();
 КонецПроцедуры
@@ -187,7 +190,33 @@
 	КонецЦикла;
 
 КонецПроцедуры
-
+
+&НаКлиенте 
+Процедура ПроверитьРегиональныеНастройки() Экспорт
+	СтрокаРегиональныеНастройки = НРег(НСтр("ru='Региональные настройки'"));
+
+	Окна = ПолучитьОкна();
+	Для каждого Окн Из Окна Цикл
+		Если ТипЗнч(Окн) = Тип("ОкноКлиентскогоПриложения") Тогда
+			Содержимое = Окн.ПолучитьСодержимое();
+			Если Найти(НРег(Строка(Окн.Заголовок)), СтрокаРегиональныеНастройки) > 0 Тогда
+				Попытка
+					Если ТипЗнч(Содержимое) = Тип("УправляемаяФорма") Тогда  
+						Содержимое.Закрыть(Новый Структура("Отказ", Ложь));;
+						СчетчикОжиданияРезультатов = 0;
+					КонецЕсли; 
+				Исключение
+				    Сообщить(ОписаниеОшибки());
+				КонецПопытки;
+
+				ОтключитьОбработчикОжидания("ПроверитьРегиональныеНастройки");
+
+			КонецЕсли;
+		КонецЕсли;
+	КонецЦикла;
+
+КонецПроцедуры
+
 &НаКлиенте
 Процедура ЗавершитьРаботу() Экспорт 
 	ПрекратитьРаботуСистемы();
@@ -211,6 +240,16 @@
 	Возврат Рез;
 КонецФункции
 
+&НаКлиенте
+Функция СуществуетПодсистемаМультиязычность()
+	Рез = Ложь;
+	Попытка
+		Выполнить("Рез = ОбщегоНазначенияКлиент.ПодсистемаСуществует(""СтандартныеПодсистемы.Мультиязычность"");");
+	Исключение
+	КонецПопытки;
+	Возврат Рез;
+КонецФункции
+
 СчетчикОжиданияРезультатов = 0;
 МаксИтерацийОжиданияРезультатов = 5;
 ИндикаторВыполнения = 0;