Merge pull request #103 from ivanov660/новые_фитчи

новые фитчи
ivanov660 · Nov 25, 2020 · 2c2b440 · 2c2b440
2 parents 32bbf62 + ff922c1
commit 2c2b440
Show file tree

Hide file tree

Showing 13 changed files with 531 additions and 77 deletions.
diff --git a/TestingTool_3-0/src/CommonModules/ПланировщикЗаданийСервер/Module.bsl b/TestingTool_3-0/src/CommonModules/ПланировщикЗаданийСервер/Module.bsl
@@ -1758,6 +1758,8 @@
 
 Функция УдалитьЗначениеПеременной(Знач Задание,Знач ИмяПеременной,Знач Ключ=Неопределено) Экспорт
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Попытка
 		МенеджерЗаписи 						= РегистрыСведений.ПеременныеЗаданий.СоздатьМенеджерЗаписи();
 		МенеджерЗаписи.Задание 				= Задание;
@@ -1775,6 +1777,8 @@
 
 Функция УстановитьЗначениеПеременной(Знач Задание,Знач ИмяПеременной,Знач ЗначениеПеременной,Знач Ключ=Неопределено) Экспорт
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Попытка
 
 		МенеджерЗаписи 						= РегистрыСведений.ПеременныеЗаданий.СоздатьМенеджерЗаписи();
@@ -1796,6 +1800,8 @@
 Функция ПолучитьЗначениеПеременной(Знач Задание,Знач ИмяПеременной,Знач Ключ=Неопределено) Экспорт
 	ЗначениеПеременной = Неопределено;
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Запрос = новый Запрос;
 	Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
 	|	ПеременныеЗаданий.ЗначениеПеременной
@@ -1822,6 +1828,8 @@
 
 Функция УдалитьЗначениеПользовательскойПеременной(Знач Задание,Знач ИмяПеременной,Знач Ключ=Неопределено) Экспорт
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Попытка
 		МенеджерЗаписи 						= РегистрыСведений.ПользовательскиеПеременныеЗаданий.СоздатьМенеджерЗаписи();
 		МенеджерЗаписи.Задание 				= Задание;
@@ -1839,6 +1847,8 @@
 
 Функция УстановитьЗначениеПользовательскойПеременной(Знач Задание,Знач ИмяПеременной,Знач ЗначениеПеременной,Знач Ключ=Неопределено) Экспорт
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Попытка
 
 		МенеджерЗаписи 						= РегистрыСведений.ПользовательскиеПеременныеЗаданий.СоздатьМенеджерЗаписи();
@@ -1860,6 +1870,8 @@
 Функция ПолучитьЗначениеПользовательскойПеременной(Знач Задание,Знач ИмяПеременной,Знач Ключ=Неопределено) Экспорт
 	ЗначениеПеременной = Неопределено;
 
+	УстановитьПривилегированныйРежим(Истина);
+
 	Запрос = новый Запрос;
 	Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
 	|	ПеременныеЗаданий.ЗначениеПеременной
@@ -1889,52 +1901,7 @@
 #Область ПолучитьДанныеПодключения
 
 Функция ПолучитьДанныеПодключенияПользователяПоКлючу(Знач Ключ,Знач ИмяПараметра=Неопределено) Экспорт
-
-	СтруктураДанных = Новый Структура("ИмяПараметра,НомерПорта,Пароль1С,Пользователь1С,СтрокаПодключения,ДополнительныеОпцииЗапуска,ЭтоФайловаяБаза,ЭтоНеПредприятие1С,БазаНеУказана,ПользовательНеУказан","","","","","","",Ложь,Ложь,Ложь,Ложь);
-
-	Запрос = новый Запрос;
-	Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
-	|	ВЫБОР
-	|		КОГДА Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка)
-	|			ТОГДА Т.База.Пароль1С
-	|		ИНАЧЕ Т.Пользователь.Пароль
-	|	КОНЕЦ КАК Пароль1С,
-	|	ВЫБОР
-	|		КОГДА Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка)
-	|			ТОГДА Т.База.Пользователь1С
-	|		ИНАЧЕ Пользователь.Имя
-	|	КОНЕЦ КАК Пользователь1С,
-	|	Т.База.ФайловаяБаза как ЭтоФайловаяБаза,
-	|	ЛОЖЬ КАК ЭтоНеПредприятие1С,
-	|	Т.База.СтрокаПодключенияКИБ как СтрокаПодключения,
-	|	Т.База.ДопПараметрыКоманднойСтроки КАК ДополнительныеОпцииЗапуска,
-	|	Т.ИмяПараметра как ИмяПараметра,
-	|	Т.НомерПорта как НомерПорта,
-	|	Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка) как ПользовательНеУказан,
-	|	База = ЗНАЧЕНИЕ(Справочник.Базы1С.ПустаяСсылка) как БазаНеУказана
-	|ИЗ
-	|	РегистрСведений.СвязиПользователейБаз1С КАК Т
-	|ГДЕ
-	|	ВЫРАЗИТЬ(Т.Ключ КАК СТРОКА(150)) = &Ключ
-	|	И ВЫБОР
-	|		КОГДА ВЫРАЗИТЬ(&УсловиеИмяПараметра КАК БУЛЕВО) = ИСТИНА
-	|			ТОГДА ВЫРАЗИТЬ(&ИмяПараметра КАК СТРОКА(150)) = Т.ИмяПараметра
-	|		ИНАЧЕ ИСТИНА
-	|	КОНЕЦ";
-	Запрос.УстановитьПараметр("Ключ",Ключ);
-	Запрос.УстановитьПараметр("УсловиеИмяПараметра",НЕ (ИмяПараметра=Неопределено));
-	Запрос.УстановитьПараметр("ИмяПараметра",ИмяПараметра);
-
-	Выборка = Запрос.Выполнить().Выбрать();
-
-	Если Выборка.Следующий() Тогда
-		ЗаполнитьЗначенияСвойств(СтруктураДанных, Выборка);
-	Иначе
-		СтруктураДанных = Неопределено;
-	КонецЕсли; 	
-
-	Возврат СтруктураДанных;
-
+	Возврат СценарноеТестированиеСервер.ПолучитьДанныеПодключенияПользователяПоКлючу(Ключ,ИмяПараметра);	
 КонецФункции
 
 #КонецОбласти
diff --git a/TestingTool_3-0/src/CommonModules/СценарноеТестированиеВызовСервера/Module.bsl b/TestingTool_3-0/src/CommonModules/СценарноеТестированиеВызовСервера/Module.bsl
@@ -1,3 +1,4 @@
+#Область НачалоСтандарт
 
 Функция ПолучитьСоответствиеНастроекПользователя(Знач Пользователь, Знач ТекущееРабочееМесто) Экспорт
 
@@ -53,4 +54,44 @@
 	Выборка.Следующий();
 	Возврат Выборка.Синоним;
 
-КонецФункции
+КонецФункции
+#КонецОбласти
+
+#Область РаботаПараметрыПользователя
+
+
+// Получает данные праметров сценария по входному ключу, при
+// указании ИмяениПарамтера будет установлен дополнительный фильтр
+// 
+// Параметры:
+// 	Ключ - ключ для поиска данных
+// 	ИмяПараметра - Неопределено - массив параметров строкой через запятую
+// Возвращаемое значение:
+// 	Массив - Описание
+Функция ПолучитьДанныеПараметровСценариевПоКлючу(Знач Ключ,Знач ИмяПараметра=Неопределено) Экспорт
+	Возврат СценарноеТестированиеСервер.ПолучитьДанныеПараметровСценариевПоКлючу(Ключ,ИмяПараметра);
+КонецФункции	
+
+
+// Возвращает параметры подключения к тестируемому клиенту
+// 
+// Параметры:
+// 	Ключ - ключ для поиска данных
+// 	ИмяПараметра - Неопределено - Описание
+// Возвращаемое значение:
+// 	Неопределено, Структура - Описание:
+// * ИмяПараметра - Строка -
+// * НомерПорта - Строка -
+// * Пароль1С - Строка -
+// * Пользователь1С - Строка -
+// * СтрокаПодключения - Строка -
+// * ДополнительныеОпцииЗапуска - Строка -
+// * ЭтоФайловаяБаза - Булево -
+// * ЭтоНеПредприятие1С - Булево -
+// * БазаНеУказана - Булево -
+// * ПользовательНеУказан - Булево -
+Функция ПолучитьДанныеПодключенияПользователяПоКлючу(Знач Ключ,Знач ИмяПараметра=Неопределено) Экспорт
+	Возврат СценарноеТестированиеСервер.ПолучитьДанныеПодключенияПользователяПоКлючу(Ключ,ИмяПараметра);
+КонецФункции	
+
+#КонецОбласти
diff --git a/TestingTool_3-0/src/CommonModules/СценарноеТестированиеСервер/Module.bsl b/TestingTool_3-0/src/CommonModules/СценарноеТестированиеСервер/Module.bsl
@@ -574,4 +574,141 @@
 	КонецЦикла;	
 
 КонецПроцедуры
+#КонецОбласти
+
+#Область РаботаПараметрыПользователя
+
+
+
+// Возвращает параметры подключения к тестируемому клиенту
+// 
+// Параметры:
+// 	Ключ - ключ для поиска данных
+// 	ИмяПараметра - Неопределено - Описание
+// Возвращаемое значение:
+// 	Неопределено, Структура - Описание:
+// * ИмяПараметра - Строка -
+// * НомерПорта - Строка -
+// * Пароль1С - Строка -
+// * Пользователь1С - Строка -
+// * СтрокаПодключения - Строка -
+// * ДополнительныеОпцииЗапуска - Строка -
+// * ЭтоФайловаяБаза - Булево -
+// * ЭтоНеПредприятие1С - Булево -
+// * БазаНеУказана - Булево -
+// * ПользовательНеУказан - Булево -
+Функция ПолучитьДанныеПодключенияПользователяПоКлючу(Знач Ключ,Знач ИмяПараметра=Неопределено) Экспорт
+
+	СтруктураДанных = Новый Структура("ИмяПараметра,НомерПорта,Пароль1С,Пользователь1С,СтрокаПодключения,ДополнительныеОпцииЗапуска,ЭтоФайловаяБаза,ЭтоНеПредприятие1С,БазаНеУказана,ПользовательНеУказан","","","","","","",Ложь,Ложь,Ложь,Ложь);
+
+	УстановитьПривилегированныйРежим(Истина);
+
+	Запрос = новый Запрос;
+	Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
+	|	ВЫБОР
+	|		КОГДА Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка)
+	|			ТОГДА Т.База.Пароль1С
+	|		ИНАЧЕ Т.Пользователь.Пароль
+	|	КОНЕЦ КАК Пароль1С,
+	|	ВЫБОР
+	|		КОГДА Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка)
+	|			ТОГДА Т.База.Пользователь1С
+	|		ИНАЧЕ Пользователь.Имя
+	|	КОНЕЦ КАК Пользователь1С,
+	|	Т.База.ФайловаяБаза как ЭтоФайловаяБаза,
+	|	ЛОЖЬ КАК ЭтоНеПредприятие1С,
+	|	Т.База.СтрокаПодключенияКИБ как СтрокаПодключения,
+	|	Т.База.ДопПараметрыКоманднойСтроки КАК ДополнительныеОпцииЗапуска,
+	|	Т.ИмяПараметра как ИмяПараметра,
+	|	Т.НомерПорта как НомерПорта,
+	|	Пользователь = ЗНАЧЕНИЕ(Справочник.ПользователиБаз1С.ПустаяСсылка) как ПользовательНеУказан,
+	|	База = ЗНАЧЕНИЕ(Справочник.Базы1С.ПустаяСсылка) как БазаНеУказана
+	|ИЗ
+	|	РегистрСведений.СвязиПользователейБаз1С КАК Т
+	|ГДЕ
+	|	ВЫРАЗИТЬ(Т.Ключ КАК СТРОКА(150)) = &Ключ
+	|	И ВЫБОР
+	|		КОГДА ВЫРАЗИТЬ(&УсловиеИмяПараметра КАК БУЛЕВО) = ИСТИНА
+	|			ТОГДА ВЫРАЗИТЬ(&ИмяПараметра КАК СТРОКА(150)) = Т.ИмяПараметра
+	|		ИНАЧЕ ИСТИНА
+	|	КОНЕЦ";
+	Запрос.УстановитьПараметр("Ключ",Ключ);
+	Запрос.УстановитьПараметр("УсловиеИмяПараметра",НЕ (ИмяПараметра=Неопределено));
+	Запрос.УстановитьПараметр("ИмяПараметра",ИмяПараметра);
+
+	Выборка = Запрос.Выполнить().Выбрать();
+
+	Если Выборка.Следующий() Тогда
+		ЗаполнитьЗначенияСвойств(СтруктураДанных, Выборка);
+	Иначе
+		СтруктураДанных = Неопределено;
+	КонецЕсли; 	
+
+	Возврат СтруктураДанных;
+
+КонецФункции
+
+
+// Получает данные праметров сценария по входному ключу, при
+// указании ИмяениПарамтера будет установлен дополнительный фильтр
+// 
+// Параметры:
+// 	Ключ - ключ для поиска данных
+// 	ИмяПараметра - Неопределено - массив параметров строкой через запятую
+// Возвращаемое значение:
+// 	Массив - Описание
+Функция ПолучитьДанныеПараметровСценариевПоКлючу(Знач Ключ,Знач ИмяПараметра=Неопределено) Экспорт
+
+	МассивСтруктур = новый Массив;
+	МассивПараметров = новый Массив;
+
+	УстановитьПривилегированныйРежим(Истина);
+
+	Если ЗначениеЗаполнено(ИмяПараметра) Тогда
+		Если Найти(ИмяПараметра,":") Тогда
+			ИмяПараметра = СтрЗаменить(ИмяПараметра,":",",");
+		КонецЕсли;
+		Если Найти(ИмяПараметра,";") Тогда
+			ИмяПараметра = СтрЗаменить(ИмяПараметра,";",",");
+		КонецЕсли;
+		Если Найти(ИмяПараметра,".") Тогда
+			ИмяПараметра = СтрЗаменить(ИмяПараметра,".",",");
+		КонецЕсли;
+		МассивПараметров = СтрРазделить(ИмяПараметра,",",Ложь)
+	КонецЕсли;
+
+	Запрос = новый Запрос;
+	Запрос.Текст = "ВЫБРАТЬ
+	|	Т.Ключ,
+	|	Т.База,
+	|	Т.Тест,
+	|	Т.ИмяПараметра,
+	|	Т.Значение
+	|ИЗ
+	|	РегистрСведений.ПараметрыСценариев КАК Т
+	|ГДЕ
+	|	ВЫРАЗИТЬ(Т.Ключ КАК СТРОКА(150)) = &Ключ
+	|	И ВЫБОР
+	|		КОГДА ВЫРАЗИТЬ(&УсловиеИмяПараметра КАК БУЛЕВО) = ИСТИНА
+	|			ТОГДА Т.ИмяПараметра В(&МассивПараметров)  
+	|		ИНАЧЕ ИСТИНА
+	|	КОНЕЦ";
+	Запрос.УстановитьПараметр("Ключ",Ключ);
+	Запрос.УстановитьПараметр("УсловиеИмяПараметра",НЕ (ИмяПараметра=Неопределено));
+	Запрос.УстановитьПараметр("МассивПараметров",МассивПараметров);
+
+	Выборка = Запрос.Выполнить().Выбрать();
+
+	Пока Выборка.Следующий() Цикл
+
+		СтруктураДанных = Новый Структура("ИмяПараметра,Ключ,Значение","","",Неопределено);
+		ЗаполнитьЗначенияСвойств(СтруктураДанных, Выборка);
+		МассивСтруктур.Добавить(СтруктураДанных);
+
+	КонецЦикла; 
+
+	Возврат МассивСтруктур;
+
+КонецФункции
+
 #КонецОбласти
diff --git a/TestingTool_3-0/src/Configuration/Configuration.mdo b/TestingTool_3-0/src/Configuration/Configuration.mdo
@@ -18,7 +18,7 @@
   <usePurposes>PersonalComputer</usePurposes>
   <scriptVariant>Russian</scriptVariant>
   <vendor>ivanov660</vendor>
-  <version>3.20.11.07</version>
+  <version>3.20.11.20</version>
   <updateCatalogAddress>https://github.com/ivanov660/TestingTool-3</updateCatalogAddress>
   <defaultSearchForm>CommonForm.ФормаПоиска</defaultSearchForm>
   <mainSectionPicture/>
@@ -324,6 +324,7 @@
   <informationRegisters>InformationRegister.НовостиПользователей</informationRegisters>
   <informationRegisters>InformationRegister.ОписаниеМашиныСостояний</informationRegisters>
   <informationRegisters>InformationRegister.ОценкаВыполненияВремениТестовВручную</informationRegisters>
+  <informationRegisters>InformationRegister.ПараметрыСценариев</informationRegisters>
   <informationRegisters>InformationRegister.ПеременныеЗаданий</informationRegisters>
   <informationRegisters>InformationRegister.Планировщик</informationRegisters>
   <informationRegisters>InformationRegister.ПланировщикРелизов</informationRegisters>