answer42 0.5.7__tar.gz → 0.5.8__tar.gz

{answer42-0.5.7 → answer42-0.5.8}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.5
 Name: answer42
-Version: 0.5.7
+Version: 0.5.8
 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.5.7 → answer42-0.5.8}/pyproject.toml

@@ -1,6 +1,6 @@
 [project]
 name = "answer42"
-version = "0.5.7"
+version = "0.5.8"
 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.5.7 → answer42-0.5.8}/src/cf/DataProcessors/MCPTestManager/Forms//320/244/320/276/321/200/320/274/320/260/Ext/Form/Module.bsl

@@ -1,5 +1,10 @@
 #Область ОписаниеПеременных
 
+// Имена локальных переменных, совпадающие со свойствами управляемой формы
+// (Заголовок, ТолькоПросмотр, ТекущийЭлемент и т.п.), без явного "Перем"
+// ссылаются на свойства этой формы менеджера: присваивание меняет форму,
+// а чтение возвращает её значение, а не параметр команды. Поэтому такие
+// переменные объявляются в функциях через "Перем".
 &НаКлиенте
 Перем СоединениеWebSocket;
 
@@ -921,6 +926,7 @@
 // BSLLS:DeprecatedCurrentDate-off
 &НаКлиенте
 Процедура ПодключитьсяКТестовомуКлиенту(Пользователь = "", ИмяФайлаЛога = "")
+	Перем Подсказка;
 	Лог("ПодключитьсяКТестовомуКлиенту: ждём 3с перед попыткой соединения");
 	Пауза = ТекущаяДата() + 3;
 	Пока ТекущаяДата() < Пауза Цикл
@@ -1075,6 +1081,7 @@
 
 &НаКлиенте
 Функция АктивироватьОкноMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1103,11 +1110,35 @@
 		ТекущийИндекс = ТекущийИндекс + 1;
 	КонецЦикла;
 
+	// Заголовок окна клиента часто не совпадает с заголовком открытой в нём
+	// формы (главное окно, окно с несколькими формами), поэтому при промахе
+	// по заголовку окна ищем окно, содержащее форму с таким заголовком.
+	Если НайденноеОкно = Неопределено И Индекс < 0 И Заголовок <> "" Тогда
+		ТекущийИндекс = 0;
+		Для Каждого ТекущееОкно Из ВсеОкна Цикл
+			Если НайтиОбъектРекурсивно(ТекущееОкно, "", Заголовок, "ТестируемаяФорма", 0) <> Неопределено Тогда
+				НайденноеОкно = ТекущееОкно;
+				НайденныйИндекс = ТекущийИндекс;
+				Прервать;
+			КонецЕсли;
+			ТекущийИндекс = ТекущийИндекс + 1;
+		КонецЦикла;
+	КонецЕсли;
+
 	Если НайденноеОкно = Неопределено Тогда
 		Возврат Новый Структура("activated,index,count,reason", Ложь, Индекс, ВсеОкна.Количество(), "window_not_found");
 	КонецЕсли;
 
-	НайденноеОкно.Активизировать();
+	Попытка
+		НайденноеОкно.Активизировать();
+	Исключение
+		// Окно найдено, но недоступно: его блокирует модальная или
+		// вспомогательная форма. Это состояние интерфейса, а не сбой моста.
+		ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
+		АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+		Результат = Новый Структура("activated,index,count,reason,error,window,active_window", Ложь, НайденныйИндекс, ВсеОкна.Количество(), "window_unavailable", ТекстОшибки, ОбъектВСтруктуру(НайденноеОкно, 0), КраткоеОписаниеОбъектаMCP(АктивноеОкно));
+		Возврат Результат;
+	КонецПопытки;
 	Возврат Новый Структура("activated,index,count,window", Истина, НайденныйИндекс, ВсеОкна.Количество(), ОбъектВСтруктуру(НайденноеОкно, 0));
 КонецФункции
 
@@ -1133,6 +1164,7 @@
 
 &НаКлиенте
 Функция ОжидатьОбъектMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1168,6 +1200,7 @@
 
 &НаКлиенте
 Функция ОжидатьФормуMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1180,11 +1213,13 @@
 	Если Заголовок <> "" Тогда ПараметрыПоиска.Вставить("Заголовок", Заголовок); КонецЕсли;
 	ПараметрыПоиска.Вставить("Тип", "ТестируемаяФорма");
 
-	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
 	Начало = ТекущаяУниверсальнаяДатаВМиллисекундах();
 	КонецОжидания = Начало + Таймаут * 1000;
 	НайденнаяФорма = Неопределено;
 	Пока ТекущаяУниверсальнаяДатаВМиллисекундах() <= КонецОжидания Цикл
+		// Ожидаемая форма может открыться в новом окне: активное окно
+		// перечитывается на каждой итерации.
+		АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
 		НайденнаяФорма = НайтиОбъектРекурсивно(АктивноеОкно, ЛокИмяФормы, Заголовок, "ТестируемаяФорма", 0);
 		Если НайденнаяФорма <> Неопределено Тогда
 			Прервать;
@@ -1202,6 +1237,7 @@
 
 &НаКлиенте
 Функция ОжидатьОкноMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1438,6 +1474,7 @@
 
 &НаКлиенте
 Функция ПодсказкаПоляMCP(Параметры)
+	Перем Подсказка;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1825,6 +1862,7 @@
 
 &НаКлиенте
 Функция КоманднаяПанельОбъектаMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -1858,6 +1896,7 @@
 
 &НаКлиенте
 Функция КонтекстноеМенюОбъектаMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2281,6 +2320,7 @@
 
 &НаКлиенте
 Функция КомандныйИнтерфейсСлужебныйРазделMCP(ЗаголовокРаздела)
+	Перем Заголовок;
 	Заголовок = НРег(СокрЛП(ЗаголовокРаздела));
 	Возврат Заголовок = "помощь" Или Заголовок = "help";
 КонецФункции
@@ -2330,6 +2370,7 @@
 
 &НаКлиенте
 Процедура КомандыКомандногоИнтерфейсаРекурсивно(Объект, Результат, Путь, ИсключатьСлужебныеПанели)
+	Перем Заголовок;
 	Если Объект = Неопределено Тогда
 		Возврат;
 	КонецЕсли;
@@ -2372,6 +2413,7 @@
 
 &НаКлиенте
 Функция ПоискВКомандахКомандногоИнтерфейса(Команды, СтрокаПоиска, Максимум)
+	Перем Заголовок;
 	Результат = Новый Массив;
 	КлючиСовпадений = Новый Соответствие;
 	НормПоиск = НРег(СтрокаПоиска);
@@ -2463,6 +2505,7 @@
 
 &НаКлиенте
 Функция РазвернутьГруппуMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2489,6 +2532,7 @@
 
 &НаКлиенте
 Функция СвернутьГруппуMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2515,6 +2559,7 @@
 
 &НаКлиенте
 Функция ТекущаяСтраницаГруппыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2545,6 +2590,7 @@
 
 &НаКлиенте
 Функция АктивироватьСтраницуГруппыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2574,6 +2620,7 @@
 
 &НаКлиенте
 Функция СостояниеГруппыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2605,6 +2652,7 @@
 
 &НаКлиенте
 Функция ГиперссылкиДекорацииMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2635,6 +2683,7 @@
 
 &НаКлиенте
 Функция НажатьГиперссылкуДекорацииMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2662,6 +2711,7 @@
 
 &НаКлиенте
 Функция НажатьДекорациюMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2688,6 +2738,7 @@
 
 &НаКлиенте
 Функция ВыделитьВсеСтрокиТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2714,6 +2765,7 @@
 
 &НаКлиенте
 Функция СнятьВыделениеТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2740,6 +2792,7 @@
 
 &НаКлиенте
 Функция УдалитьСтрокуТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2766,6 +2819,7 @@
 
 &НаКлиенте
 Функция СкопироватьСтрокуТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2792,6 +2846,7 @@
 
 &НаКлиенте
 Функция ПереключитьПометкуУдаленияТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2818,6 +2873,7 @@
 
 &НаКлиенте
 Функция НачатьРедактированиеТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2852,6 +2908,7 @@
 
 &НаКлиенте
 Функция ЗакончитьРедактированиеТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2878,6 +2935,7 @@
 
 &НаКлиенте
 Функция РежимРедактированияТаблицыMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -2909,10 +2967,23 @@
 	КонецЕсли;
 	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
 	Ошибки = Новый Массив;
+	// Окно уже активно; Активизировать() нужно только чтобы поднять его.
+	// Пока открыта модальная форма (стартовые формы БСП, предупреждения),
+	// главное окно недоступно и платформа отвечает ошибкой
+	// "Недоступный пользователю элемент управления не может выполнять
+	// интерактивные действия" - это штатное состояние, а не сбой старта.
+	Доступно = БезопасноеЗначениеМетода(АктивноеОкно, "ТекущаяДоступность", БезопасноеСвойство(АктивноеОкно, "Доступность", Истина));
+	Если Доступно = Ложь Тогда
+		Возврат Новый Структура("maximized,method,errors,window,skipped", Истина, "activate_only", Ошибки, КраткоеОписаниеОбъектаMCP(АктивноеОкно), "window_unavailable");
+	КонецЕсли;
 	Попытка
 		АктивноеОкно.Активизировать();
 	Исключение
-		Ошибки.Добавить("Активизировать: " + ОписаниеОшибки());
+		ТекстОшибки = ОписаниеОшибки();
+		Если СтрНайти(НРег(ТекстОшибки), "недоступный пользователю элемент") > 0 Тогда
+			Возврат Новый Структура("maximized,method,errors,window,skipped", Истина, "activate_only", Ошибки, КраткоеОписаниеОбъектаMCP(АктивноеОкно), "window_unavailable");
+		КонецЕсли;
+		Ошибки.Добавить("Активизировать: " + ТекстОшибки);
 	КонецПопытки;
 	Возврат Новый Структура("maximized,method,errors,window", Истина, "activate_only", Ошибки, КраткоеОписаниеОбъектаMCP(АктивноеОкно));
 КонецФункции
@@ -3033,6 +3104,7 @@
 
 &НаКлиенте
 Процедура НайтиУзлыДереваИнтерфейсаПлоскоMCP(Объект, Имя, Заголовок, ТипОбъекта, ТолькоКомандныеПанели, ПоказыватьСкрытые, ВключатьДанные, ВключатьКомандныеПанели, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние, КешСериализации, СчетчикУзлов, Найденные, ТекущаяГлубина, ВнутриКоманднойПанели)
+	Перем Видимость;
 	Если Объект = Неопределено Тогда
 		Возврат;
 	КонецЕсли;
@@ -3074,6 +3146,7 @@
 
 &НаКлиенте
 Функция НайтиУзлыДереваИнтерфейсаБыстроMCP(КорневойОбъект, Имя, ТипОбъектаСтрокой, ПоказыватьСкрытые, ВключатьДанные, ВключатьСостояниеВидимости, ВключатьСостояниеДоступности, ВключатьСостояниеТолькоПросмотр, ВключатьТекущееСостояние, КешСериализации)
+	Перем Видимость;
 	ТипОбъекта = ТипТестируемогоОбъектаMCP(ТипОбъектаСтрокой);
 	Если Не ПустаяСтрока(ТипОбъектаСтрокой) И ТипОбъекта = Неопределено Тогда
 		Возврат Неопределено;
@@ -3153,6 +3226,7 @@
 
 &НаКлиенте
 Функция НайтиОбъектИнтерфейса(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -3327,6 +3401,7 @@
 
 &НаКлиенте
 Функция ОбъектИнтерактивноДоступенMCP(Объект)
+	Перем ТолькоПросмотр, Доступность, Видимость;
 	Видимость = БезопасноеЗначениеМетода(Объект, "ТекущаяВидимость", БезопасноеСвойство(Объект, "Видимость", Истина));
 	Доступность = БезопасноеЗначениеМетода(Объект, "ТекущаяДоступность", БезопасноеСвойство(Объект, "Доступность", Истина));
 	Если Не Видимость Или Не Доступность Тогда
@@ -3342,6 +3417,7 @@
 
 &НаКлиенте
 Функция ОбъектВидимИДоступенMCP(Объект)
+	Перем Доступность, Видимость;
 	Видимость = БезопасноеЗначениеМетода(Объект, "ТекущаяВидимость", БезопасноеСвойство(Объект, "Видимость", Истина));
 	Доступность = БезопасноеЗначениеМетода(Объект, "ТекущаяДоступность", БезопасноеСвойство(Объект, "Доступность", Истина));
 	Возврат Видимость И Доступность;
@@ -3349,6 +3425,7 @@
 
 &НаКлиенте
 Функция НайтиВсеОбъектыИнтерфейса(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -3612,6 +3689,7 @@
 
 &НаКлиенте
 Функция БезопасныйЗаголовок(Объект)
+	Перем Заголовок;
 	Заголовок = БезопасноеСвойство(Объект, "Заголовок", "");
 	Если ПустаяСтрока(Заголовок) Тогда
 		Заголовок = БезопасноеСвойство(Объект, "ТекстЗаголовка", "");
@@ -3735,6 +3813,7 @@
 
 &НаКлиенте
 Функция БезопасныйЗаголовокСКешемMCP(Объект, КешПоиска)
+	Перем Заголовок;
 	Заголовок = БезопасноеСвойствоСКешемMCP(Объект, "Заголовок", "", КешПоиска);
 	Если ПустаяСтрока(Заголовок) Тогда
 		Заголовок = БезопасноеСвойствоСКешемMCP(Объект, "ТекстЗаголовка", "", КешПоиска);
@@ -3778,6 +3857,7 @@
 
 &НаКлиенте
 Функция ИмяТекущейСтраницыСКешемMCP(Объект, КешПоиска)
+	Перем ТекущаяСтраница;
 	Если КешПоиска <> Неопределено Тогда
 		Запись = КешПоиска.ТекущиеСтраницы.Получить(Объект);
 		Если Запись <> Неопределено Тогда
@@ -3959,6 +4039,7 @@
 
 &НаКлиенте
 Функция ПолучитьОбъектПриложенияMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -3984,6 +4065,7 @@
 
 &НаКлиенте
 Функция ФокусироватьОбъектИнтерфейса(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -4310,6 +4392,7 @@
 
 &НаКлиенте
 Функция ТекстТабличногоДокумента(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -4394,6 +4477,7 @@
 
 &НаКлиенте
 Функция ОтображениеСостоянияТабличногоДокументаMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -4443,6 +4527,7 @@
 
 &НаКлиенте
 Функция СохранитьТабличныйДокументMCP(Параметры)
+	Перем Заголовок;
 	Если ТестируемоеПриложение = Неопределено Тогда
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
@@ -5710,6 +5795,7 @@
 
 &НаКлиенте
 Функция ПроверитьАктивностьСтраницыРодителя(Объект)
+	Перем ТекущаяСтраница;
 	Страница = НайтиРодительскуюСтраницу(Объект);
 	Если Страница = Неопределено Тогда
 		Возврат Неопределено;
@@ -6295,6 +6381,7 @@
 
 &НаКлиенте
 Функция НайтиПолеФлажкаТекущейСтрокиТаблицыMCP(ИмяТаблицы, ИмяФлажка, ИскатьПоЗаголовку, Таблица = Неопределено)
+	Перем ТекущийЭлемент;
 	Если Таблица <> Неопределено Тогда
 		Попытка
 			ТекущийЭлемент = Таблица.ПолучитьТекущийЭлемент();
@@ -6889,6 +6976,7 @@
 
 &НаКлиенте
 Функция НайтиВидимыйРедакторПоляНастройкиСпискаMCP(РодительскийОбъект, ИмяПоля, Глубина = 0)
+	Перем ТолькоПросмотр;
 	Если РодительскийОбъект = Неопределено Или Глубина > 30 Тогда
 		Возврат Неопределено;
 	КонецЕсли;
@@ -7104,6 +7192,7 @@
 
 &НаКлиенте
 Функция ВидимыйРедакторТаблицыДоступенMCP(Поле)
+	Перем ТолькоПросмотр;
 	Если Поле = Неопределено Тогда
 		Возврат Ложь;
 	КонецЕсли;
@@ -10060,6 +10149,7 @@
 
 &НаКлиенте
 Процедура ДобавитьСообщениеВалидацииЕслиЕстьMCP(Сообщения, Объект, Текст)
+	Перем Заголовок;
 	Текст = СокрЛП(Строка(Текст));
 	Если Не ПохожеНаСообщениеВалидацииMCP(Текст) Тогда
 		Возврат;
@@ -10078,6 +10168,7 @@
 
 &НаКлиенте
 Процедура ДобавитьСообщенияВалидацииТекущегоЭлементаMCP(АктивноеОкно, Сообщения)
+	Перем ТекущийЭлемент;
 	// Не сканируем все окно: ПолучитьТекстПодсказки() на большом дереве форм может быть дорогим.
 	// После ошибки ввода/проведения платформа обычно переводит фокус на проблемный элемент.
 	Попытка
@@ -10168,6 +10259,7 @@
 
 &НаКлиенте
 Функция ОбъектВСтруктуру(Объект, ТекущаяГлубина, ПоказыватьСкрытые = Истина, РодительскаяВидимость = Истина, РодительскаяДоступность = Истина, РодительТолькоПросмотр = Ложь, КешСериализации = Неопределено, ВключатьДанные = Истина, СериализоватьДетей = Истина, СчетчикУзлов = Неопределено, ВключатьКомандныеПанели = Истина, ВключатьСостояниеВидимости = Истина, ВключатьСостояниеДоступности = Истина, ВключатьСостояниеТолькоПросмотр = Истина, ВключатьТекущееСостояние = Истина)
+	Перем ТолькоПросмотр, Доступность, Видимость;
 	Если Объект = Неопределено Тогда
 		Возврат Неопределено;
 	КонецЕсли;

{answer42-0.5.7 → answer42-0.5.8}/src/mcp_1c/runtime.py

@@ -105,16 +105,30 @@ def find_free_display(start: int = DEFAULT_DISPLAY_START) -> str:
     raise RuntimeError("No free X display found")
 
 
+def _port_bindable(port: int) -> bool:
+    """Return True when *port* can be bound both on all interfaces and on loopback.
+
+    On Windows a wildcard bind succeeds even while another socket listens on
+    ``127.0.0.1:port`` (no SO_EXCLUSIVEADDRUSE), and the later loopback bind of
+    the bridge, ibsrv or test client then fails with WinError 10048.
+    """
+    for host in ("", "127.0.0.1"):
+        with socket.socket(socket.AF_INET, socket.SOCK_STREAM) as s:
+            if os_support.IS_WINDOWS and hasattr(socket, "SO_EXCLUSIVEADDRUSE"):
+                s.setsockopt(socket.SOL_SOCKET, socket.SO_EXCLUSIVEADDRUSE, 1)
+            try:
+                s.bind((host, port))
+            except OSError:
+                return False
+    return True
+
+
 def find_free_port(start: int = DEFAULT_WS_PORT, end: int | None = None) -> int:
     """Find a free TCP port in the range start..start+500 (or start..end)."""
     end = end or start + 500
     for port in range(start, end):
-        with socket.socket(socket.AF_INET, socket.SOCK_STREAM) as s:
-            try:
-                s.bind(("", port))
-                return port
-            except OSError:
-                continue
+        if _port_bindable(port):
+            return port
     raise RuntimeError(f"No free port found in range {start}..{end}")
 
 
@@ -238,14 +252,33 @@ def kill_process(proc: subprocess.Popen | None, label: str) -> None:
     os_support.kill_process_tree(proc, label, LOGGER)
 
 
+def _cyrillic_score(text: str) -> int:
+    score = 0
+    for char in text:
+        if ord(char) < 128:
+            continue
+        score += 1 if ("А" <= char <= "я" or char in "Ёё") else -1
+    return score
+
+
+def decode_8bit_cyrillic(data: bytes) -> str:
+    """Decode single-byte Russian text written in either cp866 (OEM) or cp1251 (ANSI).
+
+    Windows ibsrv/ibcmd console output is OEM (cp866), while 1C /Out logs are
+    usually ANSI.  Both decodings always succeed, so pick the one that yields
+    Cyrillic letters instead of pseudographics/punctuation.
+    """
+    candidates = [data.decode(encoding, errors="replace") for encoding in ("cp1251", "cp866")]
+    return max(candidates, key=_cyrillic_score)
+
+
 def _decode_process_output(data: bytes) -> str:
-    encodings = ["utf-8-sig", "utf-8", "cp866", "cp1251"] if os_support.IS_WINDOWS else ["utf-8-sig", "utf-8", "cp866"]
-    for encoding in encodings:
+    for encoding in ("utf-8-sig", "utf-8"):
         try:
             return data.decode(encoding)
         except UnicodeDecodeError:
             continue
-    return data.decode(encodings[-1], errors="replace")
+    return decode_8bit_cyrillic(data)
 
 
 def _run_capture(argv: list[str], *, timeout: float, input_text: str | None = None) -> subprocess.CompletedProcess[str]:
@@ -397,6 +430,7 @@ def start_standalone_server(
     data_dir.mkdir(parents=True, exist_ok=True)
     log_dir.mkdir(parents=True, exist_ok=True)
     log_path = log_dir / "ibsrv.log"
+    log_offset = log_path.stat().st_size if log_path.exists() else 0
     with log_path.open("ab", buffering=0) as log_handle:
         LOGGER.info("Starting ibsrv (data=%s, name=%s, address=%s, port=%s, direct_regport=%s)", data_dir, name, address, port, direct_regport or "default")
         config_path = ensure_standalone_config(
@@ -423,16 +457,85 @@ def start_standalone_server(
             stdin=subprocess.DEVNULL,
             **os_support.subprocess_creation_kwargs(),
         )
-        if not wait_for_port(address, port, timeout=timeout):
-            kill_process(proc, "ibsrv")
-            raise RuntimeError(
-                f"ibsrv did not start listening on {address}:{port} within {timeout}s. "
-                f"See log: {log_path}"
-            )
+        _wait_standalone_server_ready(proc, address, port, timeout, log_path, log_offset, db_path=db_path)
         LOGGER.info("ibsrv is listening on %s:%s (pid=%s, name=%s)", address, port, proc.pid, name)
         return proc
 
 
+_IBSRV_FATAL_MARKERS = ("[fatal]", "[error]")
+_IBSRV_READY_MARKER = "server ready"
+
+
+def read_log_since(path: Path, offset: int = 0, *, max_chars: int = 8000) -> str:
+    """Return text appended to *path* after byte *offset* (ibsrv.log is shared across starts)."""
+    try:
+        with path.open("rb") as handle:
+            handle.seek(max(0, offset))
+            data = handle.read()
+    except OSError:
+        return ""
+    text = _decode_process_output(data).strip()
+    return text[-max_chars:]
+
+
+def _standalone_server_failure(proc: subprocess.Popen, output: str) -> str:
+    if proc.poll() is not None:
+        return f"ibsrv exited with code {proc.returncode}"
+    if any(marker in line.lower() for line in output.splitlines() for marker in _IBSRV_FATAL_MARKERS):
+        return "ibsrv reported a fatal error"
+    return ""
+
+
+def _wait_standalone_server_ready(
+    proc: subprocess.Popen,
+    address: str,
+    port: int,
+    timeout: float,
+    log_path: Path,
+    log_offset: int,
+    db_path: Path | None = None,
+    ready_grace: float = 10.0,
+    poll: float = 0.25,
+) -> None:
+    """Wait until ibsrv serves HTTP and has opened the infobase.
+
+    ibsrv opens its HTTP port *before* it locks the infobase, so a listening
+    port alone is not enough: with a file infobase already opened elsewhere
+    (Designer, a web publication in Apache) it prints ``[FATAL] Ошибка
+    исключительной блокировки информационной базы`` and exits a moment later.
+    """
+    def fail(reason: str) -> None:
+        kill_process(proc, "ibsrv")
+        output = read_log_since(log_path, log_offset)
+        message = f"ibsrv failed to start on {address}:{port}: {reason}. Log: {log_path}"
+        if output:
+            message += f"\n{output}"
+        if "исключительной блокировки" in output.lower() or "exclusive lock" in output.lower():
+            message += (
+                f"\nИнформационная база {db_path} уже открыта другим процессом (Конфигуратор, "
+                "клиент 1С, веб-публикация в Apache/IIS, другой ibsrv). Закройте его и повторите."
+            )
+        raise RuntimeError(message)
+
+    deadline = time.monotonic() + timeout
+    while not is_port_listening(address, port):
+        reason = _standalone_server_failure(proc, read_log_since(log_path, log_offset))
+        if reason:
+            fail(reason)
+        if time.monotonic() >= deadline:
+            fail(f"did not start listening within {timeout}s")
+        time.sleep(poll)
+    ready_deadline = time.monotonic() + ready_grace
+    while time.monotonic() < ready_deadline:
+        output = read_log_since(log_path, log_offset)
+        reason = _standalone_server_failure(proc, output)
+        if reason:
+            fail(reason)
+        if _IBSRV_READY_MARKER in output.lower():
+            return
+        time.sleep(poll)
+
+
 def export_eventlog(
     ibcmd: str,
     eventlog_dir: Path,