Подсветка кликов по строке таблиц при использовании UI Automation. #1953

Pr-Mex · May 8, 2023 · 2681c7b · 2681c7b
1 parent 75380b9
commit 2681c7b
Showing 1 changed file with 54 additions and 0 deletions.
diff --git a/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl b/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl
@@ -16068,6 +16068,60 @@
 
 КонецПроцедуры 
 
+// Пытается найти на форме строку таблицы с помощью UI Automation и отрисовать двойно клик мышкой
+&НаКлиенте
+Процедура ВыборТекущейСтрокиТаблицыUIAutomation(ТаблицаФормы) Экспорт
+
+	ТекущиеДанныеКлиентаТестирования = ТекущиеДанныеКлиентаТестирования();
+
+	Если ЭмуляцияДвиженияМышкиКомпонентаUIAutomation() Тогда
+		Попытка              
+
+			ВыделенныеСтроки = ТаблицаФормы.ПолучитьВыделенныеСтроки();
+			Если ВыделенныеСтроки.Количество() > 0 Тогда
+				ТекСтрока = ВыделенныеСтроки[0];
+
+				ТекстЯчейки = ТаблицаФормы.ПолучитьТекстЯчейки();
+				Для Каждого ТекКолонкаКлючЗначение Из ТекСтрока Цикл
+					Если ТекстЯчейки = ТекКолонкаКлючЗначение.Значение Тогда
+						СтрокаПоиска = ТекКолонкаКлючЗначение.Значение + " " + ТекКолонкаКлючЗначение.Ключ;
+
+						ДанныеПолей = НайтиЭлементыПроцессаUIAutomation(
+							ТекущиеДанныеКлиентаТестирования.PIDКлиентаТестирования, СтрокаПоиска);
+
+						Если ТипЗнч(ДанныеПолей) = Тип("Массив") И ДанныеПолей.Количество() = 1 Тогда
+							ПереместитьМышкуПоКоординатамUIAutomation(ДанныеПолей[0].Size);
+							МодульРаботаСБраузером().АнимацияКлика(ТаблицаФормы);
+							Возврат;
+						КонецЕсли;	
+
+					КонецЕсли;	
+				КонецЦикла;	
+
+				Для Каждого ТекКолонкаКлючЗначение Из ТекСтрока Цикл
+					Если НЕ ЗначениеЗаполнено(ТекКолонкаКлючЗначение.Значение) Тогда
+						Продолжить;
+					КонецЕсли;
+
+					СтрокаПоиска = ТекКолонкаКлючЗначение.Значение + " " + ТекКолонкаКлючЗначение.Ключ;
+
+					ДанныеПолей = НайтиЭлементыПроцессаUIAutomation(
+						ТекущиеДанныеКлиентаТестирования.PIDКлиентаТестирования, СтрокаПоиска);
+
+					Если ТипЗнч(ДанныеПолей) = Тип("Массив") И ДанныеПолей.Количество() = 1 Тогда
+						ПереместитьМышкуПоКоординатамUIAutomation(ДанныеПолей[0].Size);
+						МодульРаботаСБраузером().АнимацияКлика(ТаблицаФормы);
+						Возврат;
+					КонецЕсли;	
+
+				КонецЦикла;	
+			КонецЕсли;	
+		Исключение
+		КонецПопытки;
+	КонецЕсли;
+
+КонецПроцедуры
+
 //Делает выбор точного значения из выпадающего списка
 &НаКлиенте
 Процедура ВыполнитьВыборИзВыпадающегоСписка(ПолеРеквизит, ВыбираемоеЗначение, ДопПараметры = Неопределено) Экспорт