Merge branch 'feature/Improve' into develop

Author: Pr-Mex

.github/workflows/grammar.yml

@@ -19,6 +19,6 @@ jobs:
     - uses: actions/setup-python@v2
       with:
         python-version: '3.11'
-        cache: 'pip'
+        #cache: 'pip'
     - run: pip install -r tools/python/grammar/requirements.txt
     - run: python tools/python/grammar/check.py

VanessaAutomation/Ext/ObjectModule.bsl

@@ -484,7 +484,7 @@
 КонецФункции	 
 
 Функция ПолучитьВерсиюОбработки(ДобавлятьНазвание = Истина, ТолькоЦифры = Ложь) Экспорт
-	Версия = "1.2.042.40";
+	Версия = "1.2.042.41";
 
 	Если ТолькоЦифры Тогда
 		Возврат Версия;	

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

@@ -829,6 +829,9 @@
 &НаКлиенте
 Перем КешДанныхФормOnboarding;
 
+&НаКлиенте
+Перем ШагПодключилКлиентаТестирования;
+
 #КонецОбласти
 
 #КонецОбласти
@@ -6413,6 +6416,7 @@
 	ИдШагаДляКоторогоВыполнялсяСкриншотБраузера = Неопределено;
 	СохраненныеДанныеСборДанныхДляОтчетов = Неопределено;
 	ЗакрыватьСистемныеДиалогиЕслиПослеИзЗакрытияМожноПродолжитьВыполнениеСценария = НЕ ЗначениеПараметраЗапуска("DisableCloseSystemDialogsThatCanBeSkipped", Ложь);
+	ШагПодключилКлиентаТестирования = Ложь;
 
 	Если Объект.ДелатьОтчетВФорматеАллюр И Объект.ПодставлятьВОтчетеAllureЗначенияПеременных Тогда
 		ЗапоминатьЗначенияПеременыхПриПодстановкеВШаг = Истина;
@@ -10255,6 +10259,16 @@
 	ОбъектКонтекстСохраняемый.Удалить("ТестовоеПриложение");
 	ОбъектКонтекстСохраняемый.Удалить("ГлавноеОкноТестируемого");
 
+	// Ниже нельзя вызывать УдалитьИзПодключенныеTestClientПрофильКлиентаТестированияПоИмени, т.к. ломается логика:
+	// 1. Подключен Клиент1
+	// 2. Подключен Клиент2
+	// 3. Активирован Клиент1
+	//Если ОбъектКонтекстСохраняемый.Свойство("ПодключенныеTestClient") И ТипЗнч(ОбъектКонтекстСохраняемый.ПодключенныеTestClient) = Тип("Массив")
+	//	 И ОбъектКонтекстСохраняемый.Свойство("ТекущийПрофильTestClient")
+	//	Тогда
+	//	УдалитьИзПодключенныеTestClientПрофильКлиентаТестированияПоИмени(ОбъектКонтекстСохраняемый.ТекущийПрофильTestClient);
+	//КонецЕсли;	
+	
 	ДескрипторОсновногоОкнаТекущегоКлиентаТестирования 	= Неопределено;
 	PIDТекущегоКлиентаТестирования 						= Неопределено;
 	УстановитьУсловноеОформление();
@@ -29206,7 +29220,13 @@
 			ЗаполнитьЗначенияСвойств(Объект, НастройкиИзфайла.ДымовыеТесты);
 		КонецЕсли;	
 
+		КаталогПроекта = ЗначениеПараметраЗапуска("workspaceRoot", Неопределено);
+		Если НЕ ПустаяСтрока(КаталогПроекта) Тогда
+			Объект.КаталогПроекта = КаталогПроекта;
+		КонецЕсли;
+		
 		ПараметрыФормыГенератораДымовыхТестов = ПолучитьПараметрыФормыГенератораДымовыхТестов();
+		ПреобразоватьПараметрыКоторыеНачинаютсяСТочкиКНормальнымПутям(ПараметрыФормыГенератораДымовыхТестов);
 		ФормаГенератораТестов = ПолучитьФорму(ПолучитьИмяОбработкиVA() + ".Форма.ГенераторДымовыхТестов", ПараметрыФормыГенератораДымовыхТестов, ЭтаФорма);
 		МодулиДляОтключения.Добавить(ФормаГенератораТестов);
 		ФормаГенератораТестов.ИнициализацияФормы(ЭтаФорма);
@@ -29996,8 +30016,14 @@
 	ИдСледующейСтроки = СтрокиРодителя.Индекс(СтрокаДерева) + 1;
 	Пока (СтрокиРодителя.Количество() - 1) >= ИдСледующейСтроки Цикл
 		Если СтрокиРодителя[ИдСледующейСтроки].ДопТип = "УсловиеИначеЕсли" ИЛИ СтрокиРодителя[ИдСледующейСтроки].ДопТип = "УсловиеИначе" Тогда
+			Если СтрокиРодителя[ИдСледующейСтроки].ДопТип = "УсловиеИначе" Тогда
+				ДопПараметры.Вставить("МожноВозвращатьИначе", Ложь);
+			КонецЕсли;
+			
 			ИдСледующейСтроки = ИдСледующейСтроки + 1;
+			
 			Продолжить;
+			
 		КонецЕсли;	 
 
 		Возврат НайтиСледующуюИсполнимуюСтрокуДерева(СтрокиРодителя[ИдСледующейСтроки], ДопПараметры);
@@ -34708,8 +34734,10 @@
 		НачатьЗаписьВыполненияТестовПоТегу(СтрокаСценария);
 	КонецЕсли;	 
 
-	Если (ВыполнитьШагЧерезТаймер = Истина) Тогда
+	Если (ВыполнитьШагЧерезТаймер = Истина) ИЛИ ШагПодключилКлиентаТестирования Тогда
+		// Если ШагПодключилКлиентаТестирования = Истина, значит надо выполнить следующий шаг асинхронно, чтобы сработали события компоненты по получению PID и активизации окна клиента
 		ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); // вызываем шаг через таймер, чтобы дать всем формам обновиться
+		ШагПодключилКлиентаТестирования = Ложь;
 	ИначеЕсли (НЕ Объект.ВыполнятьШагиАсинхронно) И (СчетчикШаговБезТаймера >= МаксСчетчикШаговБезТаймера) Тогда 
 		АктивизироватьСтрокуДереваТекущегоШага();
 		СчетчикШаговБезТаймера = 1;
@@ -38042,6 +38070,10 @@
 Процедура СостояниеСВидео(КаждыйВызов,ТекстСообщения, Записей, Счетчик)
 // отключим (Включали для отладки)
 	//Возврат;
+	
+	Если Объект.ЗапускИзКоманднойСтроки Тогда
+		Возврат;
+	КонецЕсли;	
    	Если Не Объект.СоздаватьИнструкциюВидео тогда
 		Возврат;
 	КонецЕсли;
@@ -38261,37 +38293,37 @@
 	//ДопТекст = ?(ТекущийШаг.Свойство("ДопТекст"),ТекущийШаг.ДопТекст,Неопределено);
     //+++ Аналогичный код есть при заполнении ЛогаИнструкцииHTML
 	ДопТекст = "";
-	Если ТекущийШаг.Свойство("ШагСПараметрамиВТаблице") И ТекущийШаг.ШагСПараметрамиВТаблице = Истина Тогда
- 		Для каждого СтрПараметрыТаблицы Из ТекущийШаг.ПараметрыТаблицы Цикл 
-			ДопТекст = ДопТекст + ?(ДопТекст = "","","\n") + ОбработкаДопТекста(СтрПараметрыТаблицы);
-  		КонецЦикла;
-	КонецЕсли;
-    Если ДопТекст = "" тогда
-		Если ТекущийШаг.Свойство("ПереданныеВШагТаблицы") и ТекущийШаг.ПереданныеВШагТаблицы.Количество() > 0 тогда;
-			//+++ ЦВ_ПР В цикле неверно работают ПереданныеВШагТаблицы (Хранят 1-е значение, а не последнее - Почему?)
-			Если ТипЗнч(ТекущийШаг.ПереданныеВШагТаблицы[0][0])= Тип("Соответствие") тогда   
-				Попытка
-   					 ДопТекст = ТекущийШаг.ПереданныеВШагТаблицы[0][0].получить("HTML").Тело.ТекстовоеСодержимое;
-				Исключение
-    				ДопТекст = ""; 
-				КонецПопытки;
-			КонецЕсли;
-			Если ДопТекст = "" тогда
-				// +++ ЦВ_ПР Пока упрощенное чтение из 1-й колонки 
-				                              
-				Если ЭтоШагВидеовставкиКартинки(ТекущийШаг) Тогда
-					ДопТекст = ТекущийШаг.ЗначенияПараметров[1].Значение.Значение;
-				иначе
-					Попытка
-	   					ДопТекст = ТекущийШаг.ПереданныеВШагТаблицы[0][0].Кол1;
-					Исключение
-	    				ДопТекст = ""; // или другое значение по умолчанию
-					КонецПопытки
-				КонецЕсли;
-			КонецЕсли;	
-		КонецЕсли;  
-	КонецЕсли;  
-	ДопТекст = ОбработкаДопТекста(ДопТекст);
+	//Если ТекущийШаг.Свойство("ШагСПараметрамиВТаблице") И ТекущийШаг.ШагСПараметрамиВТаблице = Истина Тогда
+	// 	Для каждого СтрПараметрыТаблицы Из ТекущийШаг.ПараметрыТаблицы Цикл 
+	//		ДопТекст = ДопТекст + ?(ДопТекст = "","","\n") + ОбработкаДопТекста(СтрПараметрыТаблицы);
+	//  	КонецЦикла;
+	//КонецЕсли;
+	//Если ДопТекст = "" тогда
+	//	Если ТекущийШаг.Свойство("ПереданныеВШагТаблицы") и ТекущийШаг.ПереданныеВШагТаблицы.Количество() > 0 тогда;
+	//		//+++ ЦВ_ПР В цикле неверно работают ПереданныеВШагТаблицы (Хранят 1-е значение, а не последнее - Почему?)
+	//		Если ТипЗнч(ТекущийШаг.ПереданныеВШагТаблицы[0][0])= Тип("Соответствие") тогда   
+	//			Попытка
+	//   				 ДопТекст = ТекущийШаг.ПереданныеВШагТаблицы[0][0].получить("HTML").Тело.ТекстовоеСодержимое;
+	//			Исключение
+	//				ДопТекст = ""; 
+	//			КонецПопытки;
+	//		КонецЕсли;
+	//		Если ДопТекст = "" тогда
+	//			// +++ ЦВ_ПР Пока упрощенное чтение из 1-й колонки 
+	//			                              
+	//			Если ЭтоШагВидеовставкиКартинки(ТекущийШаг) Тогда
+	//				ДопТекст = ТекущийШаг.ЗначенияПараметров[1].Значение.Значение;
+	//			иначе
+	//				Попытка
+	//   					ДопТекст = ТекущийШаг.ПереданныеВШагТаблицы[0][0].Кол1;
+	//				Исключение
+	//    				ДопТекст = ""; // или другое значение по умолчанию
+	//				КонецПопытки
+	//			КонецЕсли;
+	//		КонецЕсли;	
+	//	КонецЕсли;  
+	//КонецЕсли;  
+	//ДопТекст = ОбработкаДопТекста(ДопТекст);
 	//--- ЦВ_ПР 27.06.2025 конец вставки
 
 	ШагУточ.Вставить("ДопТекст",ДопТекст);
@@ -42127,6 +42159,25 @@
 	Возврат ГлавноеОкноТестируемого;
 КонецФункции	
 
+&НаКлиенте
+Процедура УдалитьИзПодключенныеTestClientПрофильКлиентаТестированияПоИмени(ИмяПрофиля)
+	
+	ПодключенныеTestClient = ОбъектКонтекстСохраняемый.ПодключенныеTestClient;
+	
+	НужныйИД = Неопределено;
+	Для Ккк = 0 По ПодключенныеTestClient.Количество() - 1 Цикл
+		Элем = ПодключенныеTestClient[Ккк];
+		Если Элем.Имя = ИмяПрофиля Тогда
+			НужныйИД = Ккк;
+			Прервать;
+		КонецЕсли;	 
+	КонецЦикла;	
+	Если НужныйИД <> Неопределено Тогда
+		ПодключенныеTestClient.Удалить(НужныйИД);
+	КонецЕсли;
+	
+КонецПроцедуры
+
 &НаКлиенте
 Процедура ЗаполнитьКонтекстСохраняемыйДляТестовоеПриложение(ТестовоеПриложение, ДанныеЗапускаКлиентаТестирования, ДопПараметры)
 	ОбъектКонтекстСохраняемый.Вставить("ТестовоеПриложение", ТестовоеПриложение);
@@ -42140,19 +42191,8 @@
 	Если НЕ ОбъектКонтекстСохраняемый.Свойство("ПодключенныеTestClient") Тогда
 		ОбъектКонтекстСохраняемый.Вставить("ПодключенныеTestClient", Новый Массив);
 	КонецЕсли;	 
-	ПодключенныеTestClient = ОбъектКонтекстСохраняемый.ПодключенныеTestClient;
 
-	НужныйИД = Неопределено;
-	Для Ккк = 0 По ПодключенныеTestClient.Количество() - 1 Цикл
-		Элем = ПодключенныеTestClient[Ккк];
-		Если Элем.Имя = ДанныеЗапускаКлиентаТестирования.Имя Тогда
-			НужныйИД = Ккк;
-			Прервать;
-		КонецЕсли;	 
-	КонецЦикла;	
-	Если НужныйИД <> Неопределено Тогда
-		ПодключенныеTestClient.Удалить(НужныйИД);
-	КонецЕсли;	 
+	УдалитьИзПодключенныеTestClientПрофильКлиентаТестированияПоИмени(ДанныеЗапускаКлиентаТестирования.Имя);
 
 	ДобавитьПодключенныйКлиентТестирования(ДанныеЗапускаКлиентаТестирования.Имя,
 		ДанныеЗапускаКлиентаТестирования.Синоним,
@@ -42321,6 +42361,8 @@
 
 	ОбъектКонтекстСохраняемый.Вставить("ТекущийПрофильTestClient", ИмяTestClient);
 
+	ШагПодключилКлиентаТестирования = Истина;
+	
 	ЗаполнитьPidДескрипторОкнаКлиентаТестирования(ДанныеЗапускаКлиентаТестирования);
 
 	Возврат Истина;
@@ -46984,6 +47026,7 @@
 	ВыполненаАвторизацияСервисаСинтеза1С = Ложь;
 	КешОбработанныхФормКонфигурацииСШагами = Новый Соответствие;
 	КешДанныхФормOnboarding = Новый Соответствие;
+	ШагПодключилКлиентаТестирования = Ложь;
 
 	ИмяИсполняемогоФайлаТонкийКлиент = "1cv8c";
 	ИмяИсполняемогоФайлаТолстыйКлиент = "1cv8";

docs/Changelog.md

@@ -1,6 +1,6 @@
 # История версий
 
-## 1.2.042.40
+## 1.2.042.41
 
 ### Новые возможности
 * Возможность указать отбор по фича файлам для запуска и возможность выполнить фичи в нужном порядке. #2317
@@ -109,6 +109,7 @@
 * Поддержка английских синонимов при выполнении выражения встроенного яыка на сервере: Context, SavedContext, PersistentContext #2442
 * Проверка завершения фоновых, когда конфигурация на английском языке #2445
 * Шаг Если текущее окно имеет заголовок Тогда может принимать таблицу Gherkin, что проверять несколько вариантов окон #2458
+* Разделение запуска тестов VA на 2 потока для уменьшения потребления памяти #2465
 
 ### Исправление ошибок
 * Когда курсор на последнем шаг в блоке "Истина", и после этого шага есть пустая группа шагов, происходит некорректный переход по F11 #2288
@@ -160,6 +161,10 @@
 * Ошибка при проверке содержания строк в пустой таблице #2440 Спасибо @ElinaUsaeva
 * В шаг И я регистрирую ошибку "Описание ошибки" по данным исключения не подставляется значение переменной #2447 Спасибо @alexaleworkhorse
 * Иногда не обновлялся кеш снипетов, при открытии дерева известных шагов #2459
+* Ошибка перехода в Иначе, когда есть несколько вложеных условий и внутреннее условие не содержит шагов #2466
+* Может возникнуть окно "Вызвано продолжение шагов, но не было остановки выполения шагов" при запуске клиента тестирования #2467
+* Группа шагов могла не попасть в видео, если первый шаг в подсценарии получал как параметр таблицу Gherkin #2468
+* Не раскрываются пути при запуске генератора дымовых тестов из командной строки #2448 Спасибо @dar4ie
 
 ## 1.2.042.1
 

docs/FAQ/Режим совместимости 8.2.md

@@ -7,11 +7,13 @@
 2. СтрРазделить
 3. СтрШаблон
 4. ЭтотОбъект
+5. СтрСравнить
 
 Вместо них нужно использовать соответственно:
 
 1. _СтрНайти() или Ванесса._СтрНайти()
 2. _СтрРазделить() или Ванесса._СтрРазделить()
 3. _СтрШаблон или Ванесса._СтрШаблон()
 4. ЭтаФорма
+5. Найти()
 

examples/MakeInteractiveHelp/MakeVideoInteractiveHelpHTML.json

@@ -7,8 +7,8 @@
 	"VAPath": "C:\\Commons\\rep\\vanessa-automation",
 	"Lang": "ru",
 	"ResultPath": "C:\\Temp\\HTML",
-	"Path1c": "C:\\Program Files (x86)\\1cv8\\8.3.22.1368\\bin\\1cv8c.exe",
-	"ConnectionString": "/Fc:\\Bases\\8.3.22",
+	"Path1c": "C:\\Program Files\\1cv8\\8.3.27.1786\\bin\\1cv8c.exe",
+	"ConnectionString": "/Fc:\\Bases\\8.3.27",
 	"ОтборКаталогов": [],
 	"СоздаватьИнструкциюHTML": true,
 	"КаталогВыгрузкиИнструкцийHTML": "C:\\Temp\\HTML\\tempInstr",