answer42 0.2.4__tar.gz → 0.2.6__tar.gz

{answer42-0.2.4 → answer42-0.2.6}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.4
 Name: answer42
-Version: 0.2.4
+Version: 0.2.6
 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.2.4 → answer42-0.2.6}/docs/architecture.md

@@ -87,7 +87,7 @@ class SessionState:
 - динамические списки: `dynamic_list_available_fields`, `dynamic_list_apply_settings`, `dynamic_list_set_order`, `dynamic_list_output`, `dynamic_list_open_settings`, `dynamic_list_clear_settings`, `dynamic_list_open_form_settings`;
 - табличные документы: `tabular_documents`, `tabular_document_text`, `tabular_document_save`;
 - доказательная запись: `recording_start`, `recording_capture`, `recording_stop`;
-- RAG: `rag_source_add`, `rag_sources_list`, `rag_snapshot_create`, `rag_snapshots_list`, `rag_index_build`, `rag_lookup_object`, `rag_query`.
+- RAG: `rag_source_add`, `rag_sources_add_from_directory`, `rag_source_roots_list`, `rag_sources_list`, `rag_available_configurations`, `rag_snapshot_create`, `rag_snapshots_list`, `rag_index_build`, `rag_lookup_object`, `rag_query`.
 
 ### `mcp_1c.bridge`
 
@@ -171,6 +171,24 @@ python3 scripts/rag_cli.py build --snapshot Configuration+Extension1
 python3 scripts/rag_cli.py lookup РегистрСведений.Регистр1 --snapshot Configuration+Extension1
 ```
 
+### Discovery roots
+
+MCP tool `rag_sources_add_from_directory(path, watch=true)` scans a directory for
+EDT/Designer XML configuration and extension roots, registers discovered sources,
+and stores the directory in `source_roots`. Later calls to `rag_sources_list`,
+`rag_source_roots_list` or `rag_available_configurations` can sync those roots and
+pick up newly added source trees automatically. Discovery is bounded by
+`max_depth` and skips noisy directories such as `.git`, `.venv`, `build`, `dist`
+and `node_modules`.
+
+`rag_available_configurations` returns grouped base/configuration sources,
+extensions, other sources, snapshots, discovery roots and per-source indexed
+object/chunk counts.
+
+If a RAG lookup/query runs without a session snapshot, or the selected snapshot
+has no indexed data, the result includes `rag_diagnostic.diagnostics[]` with a
+machine-readable code and remediation message for the agent.
+
 ## Доказательная запись
 
 `recording_start()` включает запись. Каждый записываемый bridge-вызов сохраняет слайд с:
@@ -191,4 +209,8 @@ python3 scripts/rag_cli.py lookup РегистрСведений.Регистр1
 | `ONEC_MCP_REQUEST_TIMEOUT` | Таймаут запроса, сек | `60` |
 | `ONEC_MCP_DATA_DIR` | Рабочая директория | `/tmp/onec-mcp` |
 | `MCP_1C_RAG_DB` | Путь к RAG SQLite | `build/rag/onec-rag.sqlite` |
+| `ONEC_MCP_DISABLE_RAG` | Отключить встроенный RAG (`1/true/yes/on`) | пусто |
+| `ONEC_MCP_RAG_SOURCE_DIRS` | `:`/`;`-separated directories for startup RAG discovery/watch | пусто |
+| `ONEC_MCP_RAG_SOURCE_PREFIX` | Prefix for auto-discovered source names | пусто |
+| `ONEC_MCP_RAG_SOURCE_MAX_DEPTH` | Discovery depth for RAG source dirs | `4` |
 | `DISPLAY` | X11 display | `:99` |

{answer42-0.2.4 → answer42-0.2.6}/pyproject.toml

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

@@ -340,6 +340,8 @@
 		Возврат ПредставлениеДанныхПоляMCP(Параметры);
 	ИначеЕсли Метод = "field_tooltip" Тогда
 		Возврат ПодсказкаПоляMCP(Параметры);
+	ИначеЕсли Метод = "field_dropdown_items" Тогда
+		Возврат ВариантыВыпадающегоСпискаПоляMCP(Параметры);
 	ИначеЕсли Метод = "form_next_element" Тогда
 		Возврат СледующийЭлементФормыMCP();
 	ИначеЕсли Метод = "form_previous_element" Тогда
@@ -1051,7 +1053,8 @@
 
 	ИскомоеИмя = ?(ИскатьПоЗаголовку, "", ИмяПоля);
 	ИскомыйЗаголовок = ?(ИскатьПоЗаголовку, ИмяПоля, "");
-	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИскомоеИмя, ИскомыйЗаголовок, "", 0, 8);
+	МаксимальнаяГлубина = СвойствоСтруктуры(Параметры, "max_depth", 20);
+	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИскомоеИмя, ИскомыйЗаголовок, "", 0, МаксимальнаяГлубина);
 
 	Если Поле = Неопределено Тогда
 		Возврат Новый Структура("found,name,title", Ложь, ИмяПоля, "");
@@ -1063,6 +1066,16 @@
 		Результат.Вставить("name", БезопасноеСвойство(Поле, "Имя", ""));
 		Результат.Вставить("title", БезопасноеСвойство(Поле, "Заголовок", ""));
 		Результат.Вставить("вид", Строка(ТипЗнч(Поле)));
+		Попытка
+			Результат.Вставить("field_kind", Строка(Поле.Вид));
+		Исключение
+			Результат.Вставить("field_kind_error", ОписаниеОшибки());
+		КонецПопытки;
+		Попытка
+			Результат.Вставить("data_text", Поле.ПолучитьПредставлениеДанных());
+		Исключение
+			Результат.Вставить("data_text_error", ОписаниеОшибки());
+		КонецПопытки;
 		Результат.Вставить("visible", БезопасноеСвойство(Поле, "Видимость", Истина));
 		Результат.Вставить("available", БезопасноеСвойство(Поле, "Доступность", Истина));
 		Результат.Вставить("readonly", БезопасноеСвойство(Поле, "РежимТолькоПросмотр", Ложь));
@@ -1126,6 +1139,156 @@
 	КонецПопытки;
 КонецФункции
 
+&НаКлиенте
+Функция ВариантыВыпадающегоСпискаПоляMCP(Параметры)
+	Если ТестируемоеПриложение = Неопределено Тогда
+		ВызватьИсключение "Тестируемое приложение не подключено.";
+	КонецЕсли;
+
+	ИмяПоля = СвойствоСтруктуры(Параметры, "field_name", "");
+	ИскатьПоЗаголовку = СвойствоСтруктуры(Параметры, "search_by_title", Ложь);
+	Таймаут = СвойствоСтруктуры(Параметры, "timeout", 10);
+	МаксимальнаяГлубина = СвойствоСтруктуры(Параметры, "max_depth", 3);
+	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+
+	ИскомоеИмя = ?(ИскатьПоЗаголовку, "", ИмяПоля);
+	ИскомыйЗаголовок = ?(ИскатьПоЗаголовку, ИмяПоля, "");
+	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИскомоеИмя, ИскомыйЗаголовок, "тестируемоеполеформы", 0, МаксимальнаяГлубина);
+
+	Если Поле = Неопределено Тогда
+		Возврат Новый Структура("found,name,title,opened,items,diagnostics", Ложь, ИмяПоля, "", Ложь, Новый Массив, Новый Массив);
+	КонецЕсли;
+
+	Диагностика = Новый Массив;
+	Варианты = Новый Массив;
+	Открыт = Ложь;
+	Источник = "choice_list_presentations";
+
+	Попытка
+		// Это штатный интерактивный API test-client для списка выбора поля формы.
+		// Для некоторых доступных визуально переключателей платформа запрещает интерактивные
+		// действия, поэтому ниже есть неинтерактивный fallback через свойство СписокВыбора.
+		Представления = Поле.ПолучитьПредставлениеСпискаВыбора();
+		ВариантыИзПредставленийСпискаВыбора(Представления, Варианты);
+		Возврат Новый Структура("found,field,opened,items,diagnostics,source", Истина, ОбъектВСтруктуру(Поле, 0, 1), Ложь, Варианты, Диагностика, Источник);
+	Исключение
+		Диагностика.Добавить("choice_list_presentations_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Источник = "choice_list_property";
+	Попытка
+		СписокВыбора = БезопасноеСвойство(Поле, "СписокВыбора", Неопределено);
+		Если СписокВыбора <> Неопределено Тогда
+			ВариантыИзСпискаЗначений(СписокВыбора, Варианты);
+			Если Варианты.Количество() > 0 Тогда
+				Возврат Новый Структура("found,field,opened,items,diagnostics,source", Истина, ОбъектВСтруктуру(Поле, 0, 1), Ложь, Варианты, Диагностика, Источник);
+			КонецЕсли;
+		КонецЕсли;
+	Исключение
+		Диагностика.Добавить("choice_list_property_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Источник = "dropdown_children_fallback";
+	Попытка
+		Поле.Активизировать();
+	Исключение
+		Диагностика.Добавить("activate_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.ОткрытьВыпадающийСписок();
+	Исключение
+		Возврат Новый Структура("found,field,opened,items,diagnostics,source,reason,error", Истина, ОбъектВСтруктуру(Поле, 0, 1), Ложь, Варианты, Диагностика, Источник, "open_dropdown_failed", ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.ОжидатьФормированияВыпадающегоСписка(Таймаут);
+	Исключение
+		Диагностика.Добавить("wait_dropdown_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Открыт = Поле.ВыпадающийСписокОткрыт();
+	Исключение
+		Диагностика.Добавить("dropdown_open_state_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Для Каждого Подчиненный Из Поле.ПолучитьПодчиненныеОбъекты() Цикл
+			Данные = ОбъектВСтруктуру(Подчиненный, 0, МаксимальнаяГлубина);
+			Если Данные <> Неопределено Тогда
+				Варианты.Добавить(Данные);
+			КонецЕсли;
+		КонецЦикла;
+	Исключение
+		Диагностика.Добавить("dropdown_children_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.ЗакрытьВыпадающийСписок();
+	Исключение
+		Диагностика.Добавить("close_dropdown_failed: " + ОписаниеОшибки());
+	КонецПопытки;
+
+	Возврат Новый Структура("found,field,opened,items,diagnostics,source", Истина, ОбъектВСтруктуру(Поле, 0, 1), Открыт, Варианты, Диагностика, Источник);
+КонецФункции
+
+&НаКлиенте
+Процедура ВариантыИзПредставленийСпискаВыбора(Представления, Варианты)
+	Для Каждого Представление Из Представления Цикл
+		Вариант = Новый Структура;
+		Если ТипЗнч(Представление) = Тип("Структура") Тогда
+			Для Каждого Пара Из Представление Цикл
+				Вариант.Вставить(Пара.Ключ, ?(Пара.Значение = Неопределено, "", Строка(Пара.Значение)));
+			КонецЦикла;
+			ЗаполнитьКлючиПредставленияВарианта(Вариант, Представление);
+		Иначе
+			Вариант.Вставить("presentation", Строка(Представление));
+			Вариант.Вставить("text", Строка(Представление));
+		КонецЕсли;
+		Варианты.Добавить(Вариант);
+	КонецЦикла;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВариантыИзСпискаЗначений(СписокВыбора, Варианты)
+	Для Каждого ЭлементСписка Из СписокВыбора Цикл
+		Вариант = Новый Структура;
+		ЗначениеВарианта = БезопасноеСвойство(ЭлементСписка, "Значение", Неопределено);
+		ПредставлениеВарианта = БезопасноеСвойство(ЭлементСписка, "Представление", "");
+		Если ПустаяСтрока(ПредставлениеВарианта) Тогда
+			ПредставлениеВарианта = БезопасноеСвойство(ЭлементСписка, "Текст", "");
+		КонецЕсли;
+		Если ПустаяСтрока(ПредставлениеВарианта) И ЗначениеВарианта <> Неопределено Тогда
+			ПредставлениеВарианта = Строка(ЗначениеВарианта);
+		КонецЕсли;
+		Вариант.Вставить("presentation", ПредставлениеВарианта);
+		Вариант.Вставить("text", ПредставлениеВарианта);
+		Вариант.Вставить("value", ?(ЗначениеВарианта = Неопределено, "", Строка(ЗначениеВарианта)));
+		Варианты.Добавить(Вариант);
+	КонецЦикла;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗаполнитьКлючиПредставленияВарианта(Вариант, Представление)
+	Если Вариант.Свойство("ПредставлениеДанных") Тогда
+		Вариант.Вставить("presentation", Вариант.ПредставлениеДанных);
+		Вариант.Вставить("text", Вариант.ПредставлениеДанных);
+	ИначеЕсли Вариант.Свойство("ОтображаемыйТекст") Тогда
+		Вариант.Вставить("presentation", Вариант.ОтображаемыйТекст);
+		Вариант.Вставить("text", Вариант.ОтображаемыйТекст);
+	ИначеЕсли Вариант.Свойство("Представление") Тогда
+		Вариант.Вставить("presentation", Вариант.Представление);
+		Вариант.Вставить("text", Вариант.Представление);
+	ИначеЕсли Вариант.Свойство("Значение") Тогда
+		Вариант.Вставить("presentation", Вариант.Значение);
+		Вариант.Вставить("text", Вариант.Значение);
+	Иначе
+		Вариант.Вставить("presentation", Строка(Представление));
+		Вариант.Вставить("text", Строка(Представление));
+	КонецЕсли;
+КонецПроцедуры
+
 &НаКлиенте
 Функция СледующийЭлементФормыMCP()
 	Если ТестируемоеПриложение = Неопределено Тогда
@@ -2214,7 +2377,7 @@
 	Если Не ПустаяСтрока(ИскомыйЗаголовок) И НРег(СокрЛП(ИскомыйЗаголовок)) <> НормализованныйЗаголовок Тогда
 		Возврат Ложь;
 	КонецЕсли;
-	Если Не ПустаяСтрока(ИскомыйТип) И ТипОбъекта <> НРег(СокрЛП(ИскомыйТип)) Тогда
+	Если Не ПустаяСтрока(ИскомыйТип) И ТипОбъекта <> НормализованноеИмяТипа(ИскомыйТип) Тогда
 		Возврат Ложь;
 	КонецЕсли;
 	Возврат Истина;
@@ -2342,7 +2505,11 @@
 			ЗаголовокТек = БезопасныйЗаголовок(Подчиненный);
 			ТипТек = НормализованноеИмяТипа(Строка(ТипЗнч(Подчиненный)));
 			Если ТипТек = "тестируемаякнопкакоманднойпанели" Или ТипТек = "тестируемаякнопкакомандногоинтерфейса" Или ТипТек = "тестируемаякнопкаформы" Тогда
-				Если ЭффективнаяДоступность И КнопкаСовпадает(ИмяТек, ЗаголовокТек, ИмяКнопки, ЗаголовокКнопки) Тогда
+				// У кнопок на страницах мастеров родительская декоративная группа может быть
+				// ТекущаяДоступность=Ложь, хотя сама кнопка в UI и test-client доступна.
+				// Поэтому проверяем доступность самой кнопки, а не родителя.
+				ДоступностьКнопки = БезопасноеЗначениеМетода(Подчиненный, "ТекущаяДоступность", БезопасноеСвойство(Подчиненный, "Доступность", Истина));
+				Если ДоступностьКнопки И КнопкаСовпадает(ИмяТек, ЗаголовокТек, ИмяКнопки, ЗаголовокКнопки) Тогда
 					Возврат Подчиненный;
 				КонецЕсли;
 			КонецЕсли;
@@ -2435,10 +2602,34 @@
 		ВызватьИсключение "Тестируемое приложение не подключено.";
 	КонецЕсли;
 	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+	ОшибкаАктивногоОкна = "";
 	Попытка
 		АктивноеОкно.ВыполнитьКоманду(НавигационнаяСсылка);
 	Исключение
-		ВызватьИсключение "Не удалось перейти по навигационной ссылке " + НавигационнаяСсылка + ": " + ОписаниеОшибки();
+		ОшибкаАктивногоОкна = ОписаниеОшибки();
+		ОткрытоЧерезДругоеОкно = Ложь;
+		ОшибкиОкон = Новый Массив;
+		Для Каждого ТекущееОкно Из ОкнаТестируемогоПриложения() Цикл
+			Если ТекущееОкно = АктивноеОкно Тогда
+				Продолжить;
+			КонецЕсли;
+			Попытка
+				Если Не БезопасноеСвойство(ТекущееОкно, "Доступность", Истина) Тогда
+					Продолжить;
+				КонецЕсли;
+			Исключение
+			КонецПопытки;
+			Попытка
+				ТекущееОкно.ВыполнитьКоманду(НавигационнаяСсылка);
+				ОткрытоЧерезДругоеОкно = Истина;
+				Прервать;
+			Исключение
+				ОшибкиОкон.Добавить(ОписаниеОшибки());
+			КонецПопытки;
+		КонецЦикла;
+		Если Не ОткрытоЧерезДругоеОкно Тогда
+			ВызватьИсключение "Не удалось перейти по навигационной ссылке " + НавигационнаяСсылка + ": " + ОшибкаАктивногоОкна;
+		КонецЕсли;
 	КонецПопытки;
 	Диагностика = ПроверитьСостояниеКлиентаПослеШага();
 	Если Диагностика.modal_is_error_window Тогда
@@ -2799,12 +2990,13 @@
 	ИмяПоля = СвойствоСтруктуры(Параметры, "field_name", "");
 	Значение = СвойствоСтруктуры(Параметры, "value", "");
 	ИскатьПоЗаголовку = СвойствоСтруктуры(Параметры, "search_by_title", Ложь);
+	МаксимальнаяГлубина = СвойствоСтруктуры(Параметры, "max_depth", 20);
 	Если ПустаяСтрока(ИмяПоля) Тогда
 		ВызватьИсключение "Не задано имя поля.";
 	КонецЕсли;
 	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
 	ЗаголовокПоля = ?(ИскатьПоЗаголовку, ИмяПоля, "");
-	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, 8);
+	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, МаксимальнаяГлубина);
 	Если Поле = Неопределено Тогда
 		Попытка
 			Поле = ТестируемоеПриложение.ПолучитьОбъект(Неопределено, ЗаголовокПоля, ИмяПоля, 1);
@@ -2815,27 +3007,293 @@
 	Если Поле = Неопределено Тогда
 		ВызватьИсключение "Поле не найдено: " + ИмяПоля;
 	КонецЕсли;
+
+	Ошибки = Новый Массив;
+
+	ВидПоля = "";
+	Попытка
+		ВидПоля = Строка(Поле.Вид);
+	Исключение
+		ВидПоля = "";
+	КонецПопытки;
+
+	Если ВидПоля = "Поле переключателя" Тогда
+		ОшибкиПереключателя = Новый Массив;
+		Для НомерПопытки = 1 По 20 Цикл
+			// После смены варианта платформа может перестроить часть формы, поэтому
+			// каждый раз перечитываем объект поля из актуального активного окна.
+			АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+			СвежееПоле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, МаксимальнаяГлубина);
+			Если СвежееПоле <> Неопределено Тогда
+				Поле = СвежееПоле;
+			КонецЕсли;
+			ТекущееПредставление = ПредставлениеДанныхПоля(Поле);
+			Если ТекущееПредставление = Значение Тогда
+				Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ПолеПереключателя.ТекущееЗначение");
+			КонецЕсли;
+			ЗначениеДляВыбора = ЗначениеВариантаПереключателя(Поле, Значение);
+			БылоИсключениеВыбора = Ложь;
+			Попытка
+				Поле.ВыбратьВариант(ЗначениеДляВыбора);
+			Исключение
+				// В 8.5 у некоторых полей-переключателей test-client может бросить
+				// "Недоступный пользователю элемент...", но значение при этом уже
+				// успевает перейти к следующему варианту. Поэтому не выходим сразу,
+				// а перечитываем поле и проверяем состояние ниже.
+				БылоИсключениеВыбора = Истина;
+				Если ОшибкиПереключателя.Количество() < 3 Тогда
+					ОшибкиПереключателя.Добавить(ОписаниеОшибки());
+				КонецЕсли;
+			КонецПопытки;
+
+			// ВыбратьВариант() на web-клиенте может менять значение асинхронно:
+			// сразу после вызова/исключения представление еще старое, а через доли
+			// секунды уже целевое. Коротко ждем именно состояния поля, не открытия
+			// модальных окон и не пользовательского клика.
+			НачалоОжиданияПереключателя = ТекущаяУниверсальнаяДатаВМиллисекундах();
+			Пока ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоОжиданияПереключателя < 1000 Цикл
+				АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+				СвежееПоле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, МаксимальнаяГлубина);
+				Если СвежееПоле <> Неопределено Тогда
+					Поле = СвежееПоле;
+				КонецЕсли;
+				ТекущееПредставление = ПредставлениеДанныхПоля(Поле);
+				Если ТекущееПредставление = Значение Тогда
+					МетодПереключателя = ?(БылоИсключениеВыбора, "ПолеПереключателя.ТекущееЗначениеПослеИсключения", "ПолеПереключателя.ВыбратьВариант");
+					Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, МетодПереключателя);
+				КонецЕсли;
+			КонецЦикла;
+		КонецЦикла;
+		НачалоОжиданияПереключателя = ТекущаяУниверсальнаяДатаВМиллисекундах();
+		Пока ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоОжиданияПереключателя < 2000 Цикл
+			АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+			СвежееПоле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, МаксимальнаяГлубина);
+			Если СвежееПоле <> Неопределено Тогда
+				Поле = СвежееПоле;
+			КонецЕсли;
+			ТекущееПредставление = ПредставлениеДанныхПоля(Поле);
+			Если ТекущееПредставление = Значение Тогда
+				Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ПолеПереключателя.ТекущееЗначениеПослеОжидания");
+			КонецЕсли;
+		КонецЦикла;
+		Если ОшибкиПереключателя.Количество() > 0 Тогда
+			Ошибки.Добавить("ПолеПереключателя.ВыбратьВариант=" + СтрСоединить(ОшибкиПереключателя, "; ") + "; целевое значение не выбрано, текущее значение: " + ТекущееПредставление);
+		Иначе
+			Ошибки.Добавить("ПолеПереключателя.ВыбратьВариант=Значение не выбрано после 20 переключений, текущее значение: " + ТекущееПредставление);
+		КонецЕсли;
+	КонецЕсли;
+
+	Если ВидПоля = "Поле флажка" Тогда
+		Попытка
+			ТекущееПредставление = Поле.ПолучитьПредставлениеДанных();
+		Исключение
+			Попытка
+				ТекущееПредставление = Поле.ПолучитьОтображаемыйТекст();
+			Исключение
+				ТекущееПредставление = "";
+			КонецПопытки;
+		КонецПопытки;
+		НужноДа = (Значение = Истина) Или (НРег(Строка(Значение)) = "да") Или (НРег(Строка(Значение)) = "true") Или (Строка(Значение) = "1");
+		СейчасДа = (НРег(Строка(ТекущееПредставление)) = "да") Или (НРег(Строка(ТекущееПредставление)) = "true") Или (Строка(ТекущееПредставление) = "1");
+		Если НужноДа <> СейчасДа Тогда
+			Попытка
+				Поле.УстановитьОтметку();
+			Исключение
+				Ошибки.Добавить("ПолеФлажка.УстановитьОтметку=" + ОписаниеОшибки());
+			КонецПопытки;
+		КонецЕсли;
+		Если Ошибки.Количество() = 0 Тогда
+			Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ПолеФлажка.УстановитьОтметку");
+		КонецЕсли;
+	КонецЕсли;
+
+	// Обычные поля ввода. На web-клиенте ВвестиТекст() может обновлять
+	// представление асинхронно и/или пересоздавать объект поля. Поэтому после
+	// ввода перечитываем поле из активного окна и коротко ждем фактическое
+	// представление данных, прежде чем переходить к fallback-методам.
 	Попытка
 		Поле.ВвестиТекст(Значение);
+		Если ПустаяСтрока(Значение) Тогда
+			Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ВвестиТекст");
+		КонецЕсли;
+		НачалоОжиданияВвода = ТекущаяУниверсальнаяДатаВМиллисекундах();
+		Пока ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоОжиданияВвода < 2000 Цикл
+			АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
+			СвежееПоле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ЗаголовокПоля, "", 0, МаксимальнаяГлубина);
+			Если СвежееПоле <> Неопределено Тогда
+				Поле = СвежееПоле;
+			КонецЕсли;
+			ПредставлениеПослеВвода = ПредставлениеДанныхПоля(Поле);
+			Если ПредставлениеПослеВвода = Значение Или СтрНайти(ПредставлениеПослеВвода, Значение) > 0 Тогда
+				Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ВвестиТекст");
+			КонецЕсли;
+		КонецЦикла;
+		РезультатВвода = Новый Структура("set,field,value,method,verified,current_value", Истина, ИмяПоля, Значение, "ВвестиТекстБезПодтвержденияПредставления", Ложь, ПредставлениеПослеВвода);
+		Возврат РезультатВвода;
+	Исключение
+		Ошибки.Добавить("ВвестиТекст=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	// Переключатели/радиокнопки и поля со списком выбора: после активации
+	// форма умеет выбирать значение из текущего открытого списка выбора.
+	Попытка
+		Поле.Активизировать();
+		ФормаПоля = НайтиРодительскуюФорму(Поле);
+		Если ФормаПоля = Неопределено Тогда
+			ВызватьИсключение "Родительская форма не найдена";
+		КонецЕсли;
+		ФормаПоля.ВыполнитьВыборИзСписка(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Форма.ВыполнитьВыборИзСписка");
+	Исключение
+		Ошибки.Добавить("Форма.ВыполнитьВыборИзСписка=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.Активизировать();
+		ФормаПоля = НайтиРодительскуюФорму(Поле);
+		Если ФормаПоля = Неопределено Тогда
+			ВызватьИсключение "Родительская форма не найдена";
+		КонецЕсли;
+		ФормаПоля.ВыполнитьВыборИзМеню(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Форма.ВыполнитьВыборИзМеню");
+	Исключение
+		Ошибки.Добавить("Форма.ВыполнитьВыборИзМеню=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.Активизировать();
+		Поле.ВыполнитьВыборИзСписка(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Поле.ВыполнитьВыборИзСписка");
+	Исключение
+		Ошибки.Добавить("Поле.ВыполнитьВыборИзСписка=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.Активизировать();
+		Поле.ВыполнитьВыборИзМеню(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Поле.ВыполнитьВыборИзМеню");
+	Исключение
+		Ошибки.Добавить("Поле.ВыполнитьВыборИзМеню=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	// Поля со стандартным выпадающим списком.
+	Попытка
+		Поле.ВыполнитьВыборИзСпискаВыбора(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ВыполнитьВыборИзСпискаВыбора");
+	Исключение
+		Ошибки.Добавить("ВыполнитьВыборИзСпискаВыбора=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	Попытка
+		Поле.ОткрытьВыпадающийСписок();
+		Поле.ОжидатьФормированияВыпадающегоСписка(10);
+		Поле.ВыполнитьВыборИзСпискаВыбора(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "ОткрытьВыпадающийСписок");
+	Исключение
+		Ошибки.Добавить("ОткрытьВыпадающийСписок=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	// Последние fallback-варианты для нестандартных тестируемых полей.
+	Попытка
+		Поле.Значение = Значение;
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Значение");
+	Исключение
+		Ошибки.Добавить("Значение=" + ОписаниеОшибки());
+	КонецПопытки;
+	Попытка
+		Поле.Текст = Значение;
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "Текст");
+	Исключение
+		Ошибки.Добавить("Текст=" + ОписаниеОшибки());
+	КонецПопытки;
+	Попытка
+		Поле.УстановитьЗначение(Значение);
+		Возврат Новый Структура("set,field,value,method", Истина, ИмяПоля, Значение, "УстановитьЗначение");
+	Исключение
+		Ошибки.Добавить("УстановитьЗначение=" + ОписаниеОшибки());
+	КонецПопытки;
+
+	ВызватьИсключение "Не удалось установить поле " + ИмяПоля + ": " + СтрСоединить(Ошибки, "; ");
+КонецФункции
+
+&НаКлиенте
+Функция ПредставлениеДанныхПоля(Поле)
+	Попытка
+		Возврат Поле.ПолучитьПредставлениеДанных();
 	Исключение
-		ОшибкаВвестиТекст = ОписаниеОшибки();
 		Попытка
-			Поле.Значение = Значение;
+			Возврат Поле.ПолучитьОтображаемыйТекст();
 		Исключение
-			ОшибкаЗначение = ОписаниеОшибки();
 			Попытка
-				Поле.Текст = Значение;
+				Возврат Строка(БезопасноеСвойство(Поле, "Данные", ""));
 			Исключение
-				ОшибкаТекст = ОписаниеОшибки();
-				Попытка
-					Поле.УстановитьЗначение(Значение);
-				Исключение
-					ВызватьИсключение "Не удалось установить поле " + ИмяПоля + ": ВвестиТекст=" + ОшибкаВвестиТекст + "; Значение=" + ОшибкаЗначение + "; Текст=" + ОшибкаТекст + "; УстановитьЗначение=" + ОписаниеОшибки();
-				КонецПопытки;
+				Возврат "";
 			КонецПопытки;
 		КонецПопытки;
 	КонецПопытки;
-	Возврат Новый Структура("set,field,value", Истина, ИмяПоля, Значение);
+КонецФункции
+
+&НаКлиенте
+Функция ЗначениеВариантаПереключателя(Поле, Представление)
+	// ВыбратьВариант() ожидает значение элемента списка выбора, а не всегда
+	// пользовательское представление. Для перечислений и других типизированных
+	// значений строка "Основная" может не быть тем самым значением, хотя именно
+	// она показывается пользователю.
+	Попытка
+		СписокВыбора = БезопасноеСвойство(Поле, "СписокВыбора", Неопределено);
+		Если СписокВыбора <> Неопределено Тогда
+			Для Каждого ЭлементСписка Из СписокВыбора Цикл
+				ЗначениеВарианта = БезопасноеСвойство(ЭлементСписка, "Значение", Неопределено);
+				ПредставлениеВарианта = БезопасноеСвойство(ЭлементСписка, "Представление", "");
+				Если ПустаяСтрока(ПредставлениеВарианта) Тогда
+					ПредставлениеВарианта = БезопасноеСвойство(ЭлементСписка, "Текст", "");
+				КонецЕсли;
+				Если ПустаяСтрока(ПредставлениеВарианта) И ЗначениеВарианта <> Неопределено Тогда
+					ПредставлениеВарианта = Строка(ЗначениеВарианта);
+				КонецЕсли;
+				Если ПредставлениеВарианта = Представление Или Строка(ЗначениеВарианта) = Представление Тогда
+					Возврат ЗначениеВарианта;
+				КонецЕсли;
+			КонецЦикла;
+		КонецЕсли;
+	Исключение
+	КонецПопытки;
+
+	Попытка
+		Представления = Поле.ПолучитьПредставлениеСпискаВыбора();
+		Для Каждого ВариантПредставления Из Представления Цикл
+			Если ТипЗнч(ВариантПредставления) = Тип("Структура") Тогда
+				ЗначениеВарианта = Неопределено;
+				Если ВариантПредставления.Свойство("Значение", ЗначениеВарианта) Тогда
+					ТекстВарианта = "";
+					Если ВариантПредставления.Свойство("ПредставлениеДанных", ТекстВарианта) Или ВариантПредставления.Свойство("ОтображаемыйТекст", ТекстВарианта) Или ВариантПредставления.Свойство("Представление", ТекстВарианта) Тогда
+						Если ТекстВарианта = Представление Тогда
+							Возврат ЗначениеВарианта;
+						КонецЕсли;
+					КонецЕсли;
+				КонецЕсли;
+			КонецЕсли;
+		КонецЦикла;
+	Исключение
+	КонецПопытки;
+
+	Возврат Представление;
+КонецФункции
+
+&НаКлиенте
+Функция НайтиРодительскуюФорму(Объект)
+	Текущий = Объект;
+	Пока Текущий <> Неопределено Цикл
+		Если НормализованноеИмяТипа(ТипЗнч(Текущий)) = "тестируемаяформа" Тогда
+			Возврат Текущий;
+		КонецЕсли;
+		Попытка
+			Текущий = Текущий.ПолучитьРодителя();
+		Исключение
+			Возврат Неопределено;
+		КонецПопытки;
+	КонецЦикла;
+	Возврат Неопределено;
 КонецФункции
 
 &НаКлиенте
@@ -2845,8 +3303,9 @@
 	КонецЕсли;
 	ИмяПоля = СвойствоСтруктуры(Параметры, "field_name", "");
 	ИскатьПоЗаголовку = СвойствоСтруктуры(Параметры, "search_by_title", Ложь);
+	МаксимальнаяГлубина = СвойствоСтруктуры(Параметры, "max_depth", 20);
 	АктивноеОкно = ТестируемоеПриложение.ПолучитьАктивноеОкно();
-	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ?(ИскатьПоЗаголовку, ИмяПоля, ""), "", 0, 8);
+	Поле = НайтиОбъектРекурсивно(АктивноеОкно, ИмяПоля, ?(ИскатьПоЗаголовку, ИмяПоля, ""), "", 0, МаксимальнаяГлубина);
 	Если Поле = Неопределено Тогда
 		ВызватьИсключение "Поле не найдено: " + ИмяПоля;
 	КонецЕсли;