Автоматическое продолжение сценария, если появился системный диалог и…

… возможно его закрыть и продолжить сценарий #2242

VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -7073,20 +7073,36 @@
 Процедура ПродолжитьВыполнениеШагов(Знач ШагУпал = Ложь, ОписаниеОшибки = "") Экспорт
 	Если ОстановитьВыполнениеШагов <> Истина Тогда
 		ВызватьИсключение Локализовать("Вызвано продолжение шагов, но не было остановки выполения шагов.");
-	КонецЕсли;	 
+	КонецЕсли;
 
 	ОстановитьВыполнениеШагов = Ложь;
 
 	ШагУпалВСекцииПопыткаИсключение = Ложь;
 	ТекШаг = Неопределено;
 	ИдСледующегоаШага = Неопределено;
+
 	Если МассивСценариевДляВыполнения <> Неопределено
 		И ТекИД_СценарияВМассиве <> Неопределено
 		И ТекИД_ШагаВМассиве <> Неопределено
 		И ТекИД_СценарияВМассиве >=0
 		И ТекИД_ШагаВМассиве >= 0
 		И (МассивСценариевДляВыполнения.Количество() - 1) >= ТекИД_СценарияВМассиве Тогда
 
+		Если ШагУпал Тогда
+			Если НаЭкранеСистемныйДиалогКоторыйМожноЗакрытьИПродолжитьСценарий() Тогда
+				Если ЗакрытьСистемныйДиалогКоторыйМешаетПродолжитьСценарий() Тогда
+					sleep(1);
+					ДанныеСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве];
+					ТекШаг = ДанныеСценария.Шаги[ТекИД_ШагаВМассиве];
+					СлужебныеДанные = Новый Структура;
+					СлужебныеДанные.Вставить("ИД", ТекШаг.ИдСтроки);
+					СлужебныеДанные.Вставить("ИскатьПоИдСтроки", Истина);
+					ПерейтиКВыполнениюСледующегоШага(Истина, Истина, СлужебныеДанные);
+					Возврат;
+				КонецЕсли;	
+			КонецЕсли;		
+		КонецЕсли;
+
 		Если (МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги.Количество() - 1) >= ТекИД_ШагаВМассиве Тогда
 			ДанныеСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве];
 			ТекШаг = ДанныеСценария.Шаги[ТекИД_ШагаВМассиве];