Доработка теста КомандныйИнтерфейс (#839)

* fix Оптимизация клиент-сервер

* fix Оптимизация получения окна предупреждения add Проверка что появилось окно предупреждения с текстом

* fix тесты_КомандныйИнтерфейс

* fix Поиск ТекстИсключенияДляПроверки

plugins/ТестКлиенты/ТестКлиенты/Forms/Форма/Ext/Form/Module.bsl

@@ -50,7 +50,7 @@
 КонецПроцедуры
 
 &НаКлиенте
-Процедура ПодключитьТестКлиент_ПакетныйРежим(Параметры_xddTestClient, ДопПараметры) Экспорт
+Процедура ПодключитьТестКлиент_ПакетныйРежим(Параметры_xddTestClient, ДопПараметры = Неопределено) Экспорт
 
 	Если ЗначениеЗаполнено(Параметры_xddTestClient) И ТипЗнч(Параметры_xddTestClient[0]) <> Тип("ФиксированныйМассив") 
 				Тогда
@@ -265,6 +265,21 @@
 
 КонецПроцедуры
 
+&НаКлиенте
+Функция ПоявилосьОкноПредупрежденияСТекстом(Знач ТестКлиент, Знач ТекстИсключенияДляПроверки) Экспорт
+
+	ОкноПредупреждение = ОкноПредупреждение(ТестКлиент);
+
+	Если ТипЗнч(ОкноПредупреждение) <> Тип("ТестируемоеОкноКлиентскогоПриложения") Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
+	ТекстИсключения = ТекстИсключения(ОкноПредупреждение);
+
+	Возврат Найти(ВРег(ТекстИсключения), ВРег(ТекстИсключенияДляПроверки)) > 0;
+
+КонецФункции
+
 &НаКлиенте
 Функция ОкноПредупреждение(ТестКлиент)
 
@@ -283,8 +298,12 @@
 		КонецЕсли;
 
 		Попытка
-			ТестируемаяФорма = ПодчиненныйОбъект.НайтиОбъект(Тип("ТестируемаяФорма"));
-			Если ТестируемаяФорма = Неопределено Тогда
+			Если ПодчиненныеОбъекты.ПолучитьПодчиненныеОбъекты().Количество() Тогда
+				ТестируемаяФорма = ПодчиненныйОбъект.НайтиОбъект(Тип("ТестируемаяФорма"));
+				Если ТестируемаяФорма = Неопределено Тогда
+					Продолжить;
+				КонецЕсли;
+			Иначе
 				Продолжить;
 			КонецЕсли;
 		Исключение