answer42 0.4.65__tar.gz → 0.4.67__tar.gz

{answer42-0.4.65 → answer42-0.4.67}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.5
 Name: answer42
-Version: 0.4.65
+Version: 0.4.67
 Summary: Answer42 — The Answer to Life, Universe, and 1C — UI Driver. MCP-powered 1C:Enterprise UI automation: click, fill, navigate, test, and introspect managed forms through the test-client API
 Author: Marvin (AI Assistant), 42Clouds, and contributors
 Author-email: "Kosolapov Stanislav (proDOOMman)" <prodoomman@gmail.com>

{answer42-0.4.65 → answer42-0.4.67}/pyproject.toml

@@ -1,6 +1,6 @@
 [project]
 name = "answer42"
-version = "0.4.65"
+version = "0.4.67"
 description = "Answer42 — The Answer to Life, Universe, and 1C — UI Driver. MCP-powered 1C:Enterprise UI automation: click, fill, navigate, test, and introspect managed forms through the test-client API"
 readme = "README.md"
 requires-python = ">=3.11"

{answer42-0.4.65 → answer42-0.4.67}/src/cf/DataProcessors/MCPTestManager/Forms//320/244/320/276/321/200/320/274/320/260/Ext/Form/Module.bsl

@@ -2059,7 +2059,8 @@
 	// формы. После этого интерактивные действия по форме могут падать с
 	// "Недоступный пользователю элемент управления...". Возвращаем UI в форму:
 	// если нажимали кнопку раздела — нажимаем её повторно (переключатель панели),
-	// затем активизируем окно и первую найденную форму.
+	// закрываем случайно открытую панель/окно "Помощь", затем активизируем окно
+	// и первую найденную форму.
 	Если КнопкаРаздела <> Неопределено Тогда
 		Попытка
 			КнопкаРаздела.Нажать();
@@ -2067,6 +2068,7 @@
 			// Игнорируем: cleanup не должен ломать полезный результат команды.
 		КонецПопытки;
 	КонецЕсли;
+	ЗакрытьПанелиПомощиПослеКомандногоИнтерфейсаMCP(Окно);
 	Попытка
 		Окно.Активизировать();
 	Исключение
@@ -2080,6 +2082,44 @@
 	КонецПопытки;
 КонецПроцедуры
 
+&НаКлиенте
+Процедура ЗакрытьПанелиПомощиПослеКомандногоИнтерфейсаMCP(ЦелевоеОкно)
+	Попытка
+		АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+		Если ЭтоОкноПомощиКомандногоИнтерфейсаMCP(АктивноеОкно) Тогда
+			АктивноеОкно.Закрыть();
+		КонецЕсли;
+	Исключение
+	КонецПопытки;
+
+	Для Каждого ТекущееОкно Из ОкнаТестируемогоПриложения() Цикл
+		Если ЦелевоеОкно <> Неопределено И ТекущееОкно = ЦелевоеОкно Тогда
+			Продолжить;
+		КонецЕсли;
+		Если Не ЭтоОкноПомощиКомандногоИнтерфейсаMCP(ТекущееОкно) Тогда
+			Продолжить;
+		КонецЕсли;
+		Попытка
+			ТекущееОкно.Закрыть();
+		Исключение
+			// Игнорируем: cleanup не должен ломать полезный результат команды.
+		КонецПопытки;
+	КонецЦикла;
+КонецПроцедуры
+
+&НаКлиенте
+Функция ЭтоОкноПомощиКомандногоИнтерфейсаMCP(Окно)
+	Если Окно = Неопределено Тогда
+		Возврат Ложь;
+	КонецЕсли;
+	ЗаголовокОкна = НРег(БезопасноеСвойство(Окно, "Заголовок", ""));
+	ИмяОкна = НРег(БезопасноеСвойство(Окно, "Имя", ""));
+	НавигационнаяСсылка = НРег(БезопасноеСвойство(Окно, "НавигационнаяСсылка", ""));
+	Возврат СтрНайти(ЗаголовокОкна, "помощ") > 0
+		Или СтрНайти(ИмяОкна, "помощ") > 0
+		Или СтрНайти(НавигационнаяСсылка, "help") > 0;
+КонецФункции
+
 &НаКлиенте
 Функция КомандныйИнтерфейсЦелевоеОкно(Параметры)
 	ОкноЗаголовок = СвойствоСтруктуры(Параметры, "window_title", "");
@@ -2224,6 +2264,12 @@
 	Возврат Результат;
 КонецФункции
 
+&НаКлиенте
+Функция КомандныйИнтерфейсСлужебныйРазделMCP(ЗаголовокРаздела)
+	Заголовок = НРег(СокрЛП(ЗаголовокРаздела));
+	Возврат Заголовок = "помощь" Или Заголовок = "help";
+КонецФункции
+
 &НаКлиенте
 Функция КомандыВсехРазделовКомандногоИнтерфейса(АктивноеОкно, Интерфейс, СтрокаПоиска, Максимум, Тайминги)
 	Результат = Новый Массив;
@@ -2235,6 +2281,9 @@
 		Если ПустаяСтрока(ЗаголовокРаздела) Тогда
 			Продолжить;
 		КонецЕсли;
+		Если КомандныйИнтерфейсСлужебныйРазделMCP(ЗаголовокРаздела) Тогда
+			Продолжить;
+		КонецЕсли;
 		КнопкаРаздела = КомандныйИнтерфейсНайтиРаздел(Интерфейс, ЗаголовокРаздела);
 		Если КнопкаРаздела = Неопределено Тогда
 			Продолжить;
@@ -3027,7 +3076,7 @@
 		ЗаголовокТек = БезопасныйЗаголовокСКешемMCP(Кандидат, КешСериализации);
 		ТипТек = НормализованноеИмяТипа(Строка(ТипЗнч(Кандидат)));
 		Если ОбъектСоответствует(ИмяТек, ЗаголовокТек, ТипТек, Имя, "", ТипОбъектаСтрокой) Тогда
-			Найденные.Добавить(ОбъектВСтруктуру(Кандидат, 0, ПоказыватьСкрытые, Истина, Истина, Ложь, КешСериализации, ВключатьДанные, Ложь, Неопределено, Ложь));
+			Найденные.Добавить(ОбъектВСтруктуру(Кандидат, 0, ПоказыватьСкрытые, Истина, Истина, Ложь, КешСериализации, ВключатьДанные, Ложь, Неопределено, Ложь, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние));
 		КонецЕсли;
 	КонецЦикла;
 	Возврат Найденные;
@@ -9341,6 +9390,25 @@
 
 #Область Сериализация
 
+&НаКлиенте
+Функция ТипУзлаДереваИнтерфейсаКонтейнерMCP(ТипОбъекта)
+	ТипНорм = НРег(НормализованноеИмяТипа(ТипОбъекта));
+	Возврат СтрНайти(ТипНорм, "окно") > 0
+		Или ТипНорм = "тестируемаяформа"
+		Или ТипНорм = "тестируемаягруппаформы"
+		Или ТипНорм = "тестируемаятаблицаформы"
+		Или СтрНайти(ТипНорм, "команднаяпанель") > 0;
+КонецФункции
+
+&НаКлиенте
+Функция ЭтоГруппаСтраницДереваИнтерфейсаMCP(Объект, ТипОбъекта)
+	Если НРег(НормализованноеИмяТипа(ТипОбъекта)) <> "тестируемаягруппаформы" Тогда
+		Возврат Ложь;
+	КонецЕсли;
+	ВидГруппы = НРег(СтрЗаменить(ВидГруппыФормы(Объект), " ", ""));
+	Возврат ВидГруппы = "группастраниц" Или ВидГруппы = "группастраницы";
+КонецФункции
+
 &НаКлиенте
 Функция ОбъектВСтруктуру(Объект, ТекущаяГлубина, ПоказыватьСкрытые = Истина, РодительскаяВидимость = Истина, РодительскаяДоступность = Истина, РодительТолькоПросмотр = Ложь, КешСериализации = Неопределено, ВключатьДанные = Истина, СериализоватьДетей = Истина, СчетчикУзлов = Неопределено, ВключатьКомандныеПанели = Истина, ВключатьСостояниеВидимости = Истина, ВключатьСостояниеДоступности = Истина, ВключатьСостояниеТолькоПросмотр = Истина, ВключатьТекущееСостояние = Истина)
 	Если Объект = Неопределено Тогда
@@ -9377,8 +9445,14 @@
 		СобственноеТолькоПросмотр = Ложь;
 		Доступность = Ложь;
 		ТолькоПросмотр = Ложь;
-	ИначеЕсли ЭтоДекорация Или Не ВключатьСостояниеДоступности Тогда
-		// У декораций и легких профилей нет полезной доступности/только просмотра; не тратим время на platform calls.
+	ИначеЕсли ЭтоДекорация Тогда
+		// У декораций нет полезной доступности/только просмотра; не тратим время на platform calls.
+		СобственнаяДоступность = РодительскаяДоступность;
+		СобственноеТолькоПросмотр = Ложь;
+		Доступность = РодительскаяДоступность;
+		ТолькоПросмотр = РодительТолькоПросмотр;
+	ИначеЕсли Не ВключатьСостояниеДоступности Тогда
+		// Легким профилям доступность/только просмотр не нужны; не тратим время на platform calls.
 		СобственнаяДоступность = РодительскаяДоступность;
 		СобственноеТолькоПросмотр = Ложь;
 		Доступность = РодительскаяДоступность;
@@ -9460,24 +9534,31 @@
 		Возврат Результат;
 	КонецЕсли;
 
+	МассивДетей = Новый Массив;
+	Если Не ТипУзлаДереваИнтерфейсаКонтейнерMCP(ТипОбъекта) Тогда
+		Результат.Вставить("children", МассивДетей);
+		Возврат Результат;
+	КонецЕсли;
+
 	НачалоФазыСериализации = ТекущаяУниверсальнаяДатаВМиллисекундах();
 	Дети = БезопасныеПодчиненныеСКешемMCP(Объект, КешСериализации);
 	ДобавитьТаймингСериализацииMCP(КешСериализации, "serialize_children_fetch_ms", НачалоФазыСериализации);
-	МассивДетей = Новый Массив;
 	ИмяТекущейСтраницы = "";
 	ТекущаяСтраницаГруппы = Неопределено;
 	НачалоФазыСериализации = ТекущаяУниверсальнаяДатаВМиллисекундах();
-	Попытка
-		ТекущаяСтраницаГруппы = Объект.ПолучитьТекущуюСтраницу();
-		ИмяТекущейСтраницы = БезопасноеСвойствоСКешемMCP(ТекущаяСтраницаГруппы, "Имя", "", КешСериализации);
-		Если Не ПустаяСтрока(ИмяТекущейСтраницы) Тогда
-			Результат.Вставить("current_page_name", ИмяТекущейСтраницы);
-			Результат.Вставить("current_page", ОбъектВСтруктуру(ТекущаяСтраницаГруппы, ТекущаяГлубина + 1, ПоказыватьСкрытые, Видимость, Доступность, ТолькоПросмотр, КешСериализации, ВключатьДанные, Ложь, СчетчикУзлов, Ложь, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние));
-		КонецЕсли;
-	Исключение
-		ИмяТекущейСтраницы = "";
-		ТекущаяСтраницаГруппы = Неопределено;
-	КонецПопытки;
+	Если ЭтоГруппаСтраницДереваИнтерфейсаMCP(Объект, ТипОбъекта) Тогда
+		Попытка
+			ТекущаяСтраницаГруппы = Объект.ПолучитьТекущуюСтраницу();
+			ИмяТекущейСтраницы = БезопасноеСвойствоСКешемMCP(ТекущаяСтраницаГруппы, "Имя", "", КешСериализации);
+			Если Не ПустаяСтрока(ИмяТекущейСтраницы) Тогда
+				Результат.Вставить("current_page_name", ИмяТекущейСтраницы);
+				Результат.Вставить("current_page", ОбъектВСтруктуру(ТекущаяСтраницаГруппы, ТекущаяГлубина + 1, ПоказыватьСкрытые, Видимость, Доступность, ТолькоПросмотр, КешСериализации, ВключатьДанные, Ложь, СчетчикУзлов, Ложь, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние));
+			КонецЕсли;
+		Исключение
+			ИмяТекущейСтраницы = "";
+			ТекущаяСтраницаГруппы = Неопределено;
+		КонецПопытки;
+	КонецЕсли;
 	ДобавитьТаймингСериализацииMCP(КешСериализации, "serialize_current_page_ms", НачалоФазыСериализации);
 	Если Не ПустаяСтрока(ИмяТекущейСтраницы) Тогда
 		НачалоФазыСериализации = ТекущаяУниверсальнаяДатаВМиллисекундах();
@@ -9559,7 +9640,7 @@
 	Попытка
 		ПанельГруппы = КоманднаяПанельСКешемMCP(ПропущеннаяГруппа, КешСериализации);
 		Если ПанельГруппы <> Неопределено Тогда
-			ДобавитьПодчиненныеПропущеннойГруппыMCP(МассивДетей, ПанельГруппы, ТекущаяГлубина, ПоказыватьСкрытые, РодительскаяВидимость, РодительскаяДоступность, РодительТолькоПросмотр, КешСериализации, ВключатьДанные, СчетчикУзлов, ВключатьКомандныеПанели);
+			ДобавитьПодчиненныеПропущеннойГруппыMCP(МассивДетей, ПанельГруппы, ТекущаяГлубина, ПоказыватьСкрытые, РодительскаяВидимость, РодительскаяДоступность, РодительТолькоПросмотр, КешСериализации, ВключатьДанные, СчетчикУзлов, ВключатьКомандныеПанели, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние);
 		КонецЕсли;
 	Исключение
 	КонецПопытки;