diff --git a/README.md b/README.md
index e548444c79..32a8026057 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@
## BDD for 1С:Enterprise
-Текущий релиз в ветке [Master: 1.2.005](https://github.com/Pr-Mex/vanessa-automation/tree/master)
+Текущий релиз в ветке [Master: 1.2.006](https://github.com/Pr-Mex/vanessa-automation/tree/master)
Разработка ведется в ветке [Develop](https://github.com/Pr-Mex/vanessa-automation/tree/develop).
В данном репозитории хранятся только исходники.
@@ -13,6 +13,7 @@
1. Чтобы работала сборка epf надо установить [OneScript](http://oscript.io) версии 1.0.20 или выше.
2. Также, чтобы работала сборка epf надо установить платформу [1С:Предприятие 8.3.10](https://releases.1c.ru).
3. Для запуска сборки epf из исходников надо запустить Compile.bat
+4. Скрипты по сборке/разборке файлов взяты [отсюда](https://github.com/Pr-Mex/ExternalModulesConverterFor1C)
Чтобы зафиксировать изменения epf файлов, нужно запустить Decompile.bat.
diff --git a/VanessaBehavior.xml b/VanessaBehavior.xml
index eaaa9236db..c8490fcb7f 100644
--- a/VanessaBehavior.xml
+++ b/VanessaBehavior.xml
@@ -4522,6 +4522,42 @@
Auto
+
+
+ ТекстСообщенийПользователю
+
+
+ bg
+ ТекстСообщенийПользователю
+
+
+ en
+ Text of messages to the user
+
+
+
+
+ false
+
+
+
+ false
+
+ false
+ false
+
+
+ DontCheck
+ Items
+
+
+ Auto
+ Auto
+
+
+ Auto
+
+
diff --git a/VanessaBehavior/Ext/ObjectModule.bsl b/VanessaBehavior/Ext/ObjectModule.bsl
index 7dc764931f..7cd371060a 100644
--- a/VanessaBehavior/Ext/ObjectModule.bsl
+++ b/VanessaBehavior/Ext/ObjectModule.bsl
@@ -4,12 +4,11 @@
Перем ОтчетВРежимеУФ;
Перем ЭтоLinux;
Перем Регулярка;
-Перем ТекстСообщенийПользователю;
Функция ПолучитьТекстСообщенияПользователю(Текст)
- Если ТекстСообщенийПользователю <> Неопределено Тогда
- Значение = ТекстСообщенийПользователю[Текст];
+ Если ЭтотОбъект.ТекстСообщенийПользователю <> Неопределено Тогда
+ Значение = ЭтотОбъект.ТекстСообщенийПользователю[Текст];
Если ЗначениеЗаполнено(Значение) Тогда
Возврат Значение;
КонецЕсли;
@@ -18,12 +17,9 @@
Возврат Текст;
КонецФункции
-Процедура УстановитьСлужебныеПеременные(СлужебныеПеременные) Экспорт
- ТекстСообщенийПользователю = СлужебныеПеременные.ТекстСообщенийПользователю;
-КонецПроцедуры
Функция ПолучитьВерсиюОбработки(ДобавлятьНазвание = Истина,ТолькоЦифры = Ложь) Экспорт
- Версия = "1.2.005";
+ Версия = "1.2.006";
Если ТолькоЦифры Тогда
Возврат Версия;
@@ -228,7 +224,7 @@
Сообщение = Транслит(Сообщение);
КонецЕсли;
- ТекстСообщения = "%1. %2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("%1. %2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Строка(ТекущаяДата()));
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Сообщение);
Сообщить(ТекстСообщения,ТипСообщения);
@@ -396,7 +392,7 @@
УдалитьФайлы(ИмяФайлаXML);
Иначе
- ТекстСообщения = "Файл отчета Allure-report (%1) записан.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл отчета Allure-report (%1) записан.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаXML);
СделатьСообщение(ТекстСообщения);
КонецЕсли;
@@ -1286,8 +1282,10 @@
Процедура Проверить(_Истина, ДопСообщениеОшибки = "") Экспорт
Если Не _Истина Тогда
- СообщениеОшибки = "Переданный параметр ("+Формат(_Истина, "БЛ=ложь; БИ=истина")+") не является Истиной, а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не является Истиной, а хотели, чтобы являлся. %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Истина, "БЛ=ложь; БИ=истина"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1297,67 +1295,95 @@
Процедура ПроверитьЛожь(_Ложь, ДопСообщениеОшибки = "") Экспорт
Если _Ложь Тогда
- СообщениеОшибки = "Переданный параметр ("+Формат(_Ложь, "БЛ=ложь; БИ=истина")+") не является Ложью, а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не является Ложью, а хотели, чтобы являлся. %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Ложь, "БЛ=ложь; БИ=истина"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьДату(_Дата, _Период, ДопСообщениеОшибки = "") Экспорт
Если _Дата < _Период.ДатаНачала или _Дата > _Период.ДатаОкончания Тогда
представление = ПредставлениеПериода(_Период.ДатаНачала, _Период.ДатаОкончания, "ФП = Истина");
- СообщениеОшибки = "Переданный параметр ("+Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'")+") не входит в период "+представление+", а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не входит в период %2, а хотели, чтобы являлся. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",представление);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьРавенствоДатСТочностью2Секунды(_Дата, _Дата2, ДопСообщениеОшибки = "") Экспорт
Если _Дата < _Дата2-2 или _Дата > _Дата2+2 Тогда
- СообщениеОшибки = "Переданная дата ("+Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'")+") не равна дате ("+Формат(_Дата2, "ДФ='dd.MM.yyyy HH:mm:ss'")+") с точностью до 2-х секунд, а хотели, чтобы они равнялись." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданная дата (%1) не равна дате (%2) с точностью до 2-х секунд, а хотели, чтобы они равнялись. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Формат(_Дата2, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьРавенство(_1, _2, ДопСообщениеОшибки = "") Экспорт
Если _1 <> _2 Тогда
- СообщениеОшибки = "Сравниваемые значения ("+_1+"; "+_2+") не равны, а хотели, чтобы были равны." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Сравниваемые значения (%1; %2) не равны, а хотели, чтобы были равны.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
Процедура ПроверитьНеРавенство(_1, _2, ДопСообщениеОшибки = "") Экспорт
Если _1 = _2 Тогда
- СообщениеОшибки = "Сравниваемые значения ("+_1+"; "+_2+") равны, а хотели, чтобы были не равны." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Сравниваемые значения (%1; %2) равны, а хотели, чтобы были не равны.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьБольше(_Больше, _Меньше, ДопСообщениеОшибки = "") Экспорт
Если _Больше <= _Меньше Тогда
- СообщениеОшибки = "Первый параметр ("+_Больше+") меньше или равен второму ("+_Меньше+") а хотели, чтобы был больше." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Первый параметр (%1) меньше или равен второму (%2) а хотели, чтобы был больше.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_Больше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_Меньше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьБольшеИлиРавно(_Больше, _Меньше, ДопСообщениеОшибки = "") Экспорт
Если _Больше < _Меньше Тогда
- СообщениеОшибки = "Первый параметр ("+_Больше+") меньше второго ("+_Меньше+") а хотели, чтобы был больше или равен." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Первый параметр (%1) меньше второго (%2) а хотели, чтобы был больше или равен.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_Больше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_Меньше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьМеньше(проверяемоеЗначение1, проверяемоеЗначение2, СообщениеОбОшибке = "") Экспорт
Если проверяемоеЗначение1 >= проверяемоеЗначение2 Тогда
- СообщениеОшибки = "Значение <"+проверяемоеЗначение1+"> больше или равно, чем <"+проверяемоеЗначение2+">, а ожидалось меньше"+
- ФорматДСО(СообщениеОбОшибке);
- ВызватьОшибкуПроверки(СообщениеОшибки)
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение <%1> больше или равно, чем <%2>, а ожидалось меньше. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",проверяемоеЗначение1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",проверяемоеЗначение2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(СообщениеОбОшибке));
+ ВызватьОшибкуПроверки(ТекстСообщения)
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьМеньшеИлиРавно(проверяемоеЗначение1, проверяемоеЗначение2, СообщениеОбОшибке = "") Экспорт
Если проверяемоеЗначение1 > проверяемоеЗначение2 Тогда
- СообщениеОшибки = "Значение <"+проверяемоеЗначение1+"> больше, чем <"+проверяемоеЗначение2+">, а ожидалось меньше или равно"+
- ФорматДСО(СообщениеОбОшибке);
- ВызватьОшибкуПроверки(СообщениеОшибки)
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение <%1> больше, чем <%2>, а ожидалось меньше или равно. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",проверяемоеЗначение1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",проверяемоеЗначение2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(СообщениеОбОшибке));
+ ВызватьОшибкуПроверки(ТекстСообщения)
КонецЕсли;
КонецПроцедуры
@@ -1373,8 +1399,12 @@
Выполнить(СтрокаАлгоритм);
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- СообщениеОшибки = "Хотели, чтобы алгоритм """+СтрокаАлгоритм+""" выполнился, а он упал с ошибкой """+ПолученноеОписаниеОшибки+"""." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> выполнился, а он упал с ошибкой <%2>. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм+"");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПолученноеОписаниеОшибки+"");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
КонецПроцедуры
@@ -1389,10 +1419,10 @@
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
Если ТипПараметра <> Тип("Массив") Тогда
- ТекстСообщения = "Ожидали, что вторым параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что вторым параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипПараметра);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
КонецЕсли;
@@ -1405,8 +1435,12 @@
Выполнить(СтрокаВыполнения);
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- СообщениеОшибки = "Хотели, чтобы код """+СтрокаВыполнения+""" выполнился, а он упал с ошибкой """+ПолученноеОписаниеОшибки+"""." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> выполнился, а он упал с ошибкой <%2>. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения+"");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПолученноеОписаниеОшибки+"");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
КонецПроцедуры
@@ -1443,12 +1477,22 @@
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Если Найти(ПолученноеОписаниеОшибки, ОжидаемоеОписаниеОшибки) = 0 Тогда
- ВызватьОшибкуПроверки("Хотели, чтобы алгоритм """+СтрокаАлгоритм+""" упал с сообщением об ошибке """+ОжидаемоеОписаниеОшибки+""", а он упал с сообщением """+ПолученноеОписаниеОшибки+"""." + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> упал с сообщением об ошибке <%2>, а он упал с сообщением <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОжидаемоеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
Возврат;
КонецПопытки;
- ВызватьОшибкуПроверки("Хотели, чтобы алгоритм """+СтрокаАлгоритм+""" упал, а он выполнился" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> упал, а он выполнился%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПроцедуры
@@ -1463,10 +1507,10 @@
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
Если ТипПараметра <> Тип("Массив") Тогда
- ТекстСообщения = "Ожидали, что третьим параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что третьим параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипПараметра);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
ОжидаемоеОписаниеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
@@ -1481,12 +1525,22 @@
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Если Найти(ПолученноеОписаниеОшибки, ОжидаемоеОписаниеОшибки) = 0 Тогда
- ВызватьОшибкуПроверки("Хотели, чтобы код """+СтрокаВыполнения+""" упал с сообщением об ошибке """+ОжидаемоеОписаниеОшибки+""", а он упал с сообщением """+ПолученноеОписаниеОшибки+"""." + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> упал с сообщением об ошибке <%2>, а он упал с сообщением <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОжидаемоеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
Возврат;
КонецПопытки;
- ВызватьОшибкуПроверки("Хотели, чтобы код """+СтрокаВыполнения+""" упал, а он выполнился" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> упал, а он выполнился%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПроцедуры
@@ -1498,19 +1552,26 @@
Возврат;
КонецПопытки;
Если НЕ фЗаполнено Тогда
- ВызватьОшибкуПроверки("Значение ("+ПроверяемоеЗначение+") не заполнено, а ожидалась заполненность" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение (%1) не заполнено, а ожидалась заполненность%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПроверяемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьНеЗаполненность(ПроверяемоеЗначение, ДопСообщениеОшибки = "") Экспорт
- СообщениеОшибки = "Значение ("+ПроверяемоеЗначение+") заполнено, а ожидалась незаполненность" + ФорматДСО(ДопСообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение (%1) заполнено, а ожидалась незаполненность %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПроверяемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
Попытка
фЗаполнено = ЗначениеЗаполнено(ПроверяемоеЗначение);
Исключение
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
Если фЗаполнено Тогда
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1520,13 +1581,19 @@
ИначеЕсли ТипЗнч(ТипИлиИмяТипа) = Тип("Тип") Тогда
искомыйТип = ТипИлиИмяТипа;
Иначе
- ТекстСообщения = "ПроверитьТип: Тип значения параметра ТипИлиИмяТипа должен быть <Тип> или <Строка>, а получили <%1>%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПроверитьТип: Тип значения параметра ТипИлиИмяТипа должен быть <Тип> или <Строка>, а получили <%1>%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТипЗнч(ТипИлиИмяТипа));
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если ТипЗнч(значение) <> искомыйТип Тогда
- ВызватьОшибкуПроверки("Типом значения <"+значение+"> является <"+ТипЗнч(значение)+">, а ожидался тип <"+ТипИлиИмяТипа+">."+ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Типом значения <%1> является <%2>, а ожидался тип <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",значение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипЗнч(значение));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ТипИлиИмяТипа);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1540,8 +1607,12 @@
Если СтрДлина(подстрокаПоиска) > 20 Тогда
ПредставлениеПодСтроки = ПредставлениеПодСтроки + Символы.ПС;
КонецЕсли;
- СообщениеОшибки = "Искали в "+ПредставлениеСтроки+" подстроку "+ПредставлениеПодСтроки+", но не нашли." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Искали в %1 подстроку %2, но не нашли.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПредставлениеСтроки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПредставлениеПодСтроки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1563,12 +1634,18 @@
Нашли = Коллекция.НайтиПоЗначению(Элемент) <> Неопределено;
КонецЕсли;
Если Нашли = Неопределено Тогда
- СообщениеОшибки = "Утверждение ""ПроверитьВхождениеВКоллекцию"" не умеет работать с типом коллекции <"+ТипКоллекции+">." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьИсключение СообщениеОшибки;
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Утверждение <ПроверитьВхождениеВКоллекцию> не умеет работать с типом коллекции <%1>.%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТипКоллекции);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если Не Нашли Тогда
- СообщениеОшибки = "Не нашли элемент <"+Элемент+"> в коллекции, а хотели, чтобы он был в коллекции." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не нашли элемент <%1> в коллекции, а хотели, чтобы он был в коллекции.%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элемент);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1591,21 +1668,28 @@
Попытка
КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
Исключение
- СообщениеОшибки = ОписаниеОшибки() + "." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("%1.%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
КонецПроцедуры // ПроверитьВалидностьЗапросаСКД()
Процедура ПроверитьНаличиеОбъектаИБ(ссылка, ДопСообщениеОшибки = "") Экспорт
Если Не ЗначениеЗаполнено(ссылка) Тогда
- СообщениеОшибки = "Ожидали заполненность ссылки, а получили пустую ссылку." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали заполненность ссылки, а получили пустую ссылку.%1");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
лОбъект = ссылка.ПолучитьОбъект();
Если лОбъект = Неопределено Тогда
- СообщениеОшибки = "Ожидали существование объекта в ИБ, а получили объект не найден <" + ссылка + "> ." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали существование объекта в ИБ, а получили объект не найден <%1> .%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ссылка);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -1642,18 +1726,24 @@
Если ПоказатьРазличия Тогда // для удобства отладки и расследования ошибок
СравнениеФайлов.ПоказатьРазличия();
КонецЕсли;
- СообщениеОшибки = "Ожидали идентичность файлов, а получили, что они различны." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали идентичность файлов, а получили, что они различны.%1");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
#Иначе
- ВызватьИсключение "Утверждение ПроверитьРавенствоФайлов можно использовать только в толстом клиенте.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Утверждение ПроверитьРавенствоФайлов можно использовать только в толстом клиенте.");
#КонецЕсли
КонецПроцедуры
Функция СравнитьТаблицы(ТаблицаОжиданий, ТаблицаРезультатов, ТаблицаРазличий,ДопСообщениеОшибки = "",ДопПараметры)
Если ТаблицаОжиданий.Количество() <> ТаблицаРезультатов.Количество() Тогда
- ДопСообщениеОшибки = "ТаблицаОжиданий.КоличествоСтрок()="+ТаблицаОжиданий.Количество() + ", ТаблицаРезультатов.Количество()="+ТаблицаРезультатов.Количество();
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ТаблицаОжиданий.КоличествоСтрок()=%1, ТаблицаРезультатов.Количество()=%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТаблицаОжиданий.Количество());
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТаблицаРезультатов.Количество());
+
+ ДопСообщениеОшибки = ТекстСообщения;
Возврат РезультатыСравненияТаблиц.РазноеКоличествоСтрок;
КонецЕсли;
@@ -1834,10 +1924,10 @@
Процедура ПроверитьРавенствоТаблиц(Таб1, Таб2, ДопСообщениеОшибки = "",ДопПараметры) Экспорт
Если ТипЗнч(Таб1) <> Тип("ТаблицаЗначений") Тогда
- ВызватьИсключение "ПроверитьРавенствоТаблиц: Первый параметр-таблица таблицей не является";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("ПроверитьРавенствоТаблиц: Первый параметр-таблица таблицей не является");
КонецЕсли;
Если ТипЗнч(Таб1) <> Тип("ТаблицаЗначений") Тогда
- ВызватьИсключение "ПроверитьРавенствоТаблиц: Второй параметр-таблица таблицей не является";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("ПроверитьРавенствоТаблиц: Второй параметр-таблица таблицей не является");
КонецЕсли;
Различия = Новый ТаблицаЗначений;
@@ -1849,13 +1939,29 @@
Для Каждого КлючЗначение Из РезультатыСравненияТаблиц Цикл
ИменаРезультатов.Вставить(КлючЗначение.Значение, КлючЗначение.Ключ);
КонецЦикла;
- СтрокаОшибок = "Различия в таблицах:" + Символы.ПС;
- СтрокаОшибок = СтрокаОшибок + "Ожидали статус <" + ИменаРезультатов[РезультатыСравненияТаблиц.ТаблицыСовпадают] + ">, а получили <" + ИменаРезультатов[РезультатСравнения] + ">" + Символы.ПС;
+
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Различия в таблицах:");
+ СтрокаОшибок = ТекстСообщения + Символы.ПС;
+
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали статус <%1>, а получили <%2>");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПолучитьТекстСообщенияПользователю(ИменаРезультатов[РезультатыСравненияТаблиц.ТаблицыСовпадают]));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПолучитьТекстСообщенияПользователю(ИменаРезультатов[РезультатСравнения]));
+
+ СтрокаОшибок = СтрокаОшибок + ТекстСообщения + Символы.ПС;
Для Каждого Строка Из Различия Цикл
- СтрокаОшибок = СтрокаОшибок + "Значение [" + Строка.Колонка + ":" + Строка.Строка + "]. Ожидали <" + Строка.Ожидание + ">, а получили <" + Строка.Результат + ">" + Символы.ПС;
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение [%1:%2]. Ожидали <%3>, а получили <%4>");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Строка.Колонка);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Строка.Строка);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",Строка.Ожидание);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",Строка.Результат);
+
+ СтрокаОшибок = СтрокаОшибок + ТекстСообщения + Символы.ПС;
КонецЦикла;
- ВызватьОшибкуПроверки("Таблицы должны совпадать, а они различны" + Символы.ПС + СтрокаОшибок + Символы.ПС + ДопСообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Таблицы должны совпадать, а они различны%1");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Символы.ПС + СтрокаОшибок + Символы.ПС + ДопСообщениеОшибки);
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
@@ -1864,10 +1970,10 @@
Процедура ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки = Ложь, УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки = Ложь, Знач ДопСообщениеОшибки = "",ДопПараметры = Неопределено) Экспорт
Если ТипЗнч(ТабДок1) <> Тип("ТабличныйДокумент") Тогда
- ВызватьИсключение "ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям: Первый параметр-таблица не является табличным документом";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям: Первый параметр-таблица не является табличным документом");
КонецЕсли;
Если ТипЗнч(ТабДок2) <> Тип("ТабличныйДокумент") Тогда
- ВызватьИсключение "ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям: Второй параметр-таблица не является табличным документом";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям: Второй параметр-таблица не является табличным документом");
КонецЕсли;
УчитыватьТолькоВидимыеКолонки = Ложь;
@@ -1892,24 +1998,24 @@
Процедура ВызватьОшибкуПроверки(СообщениеОшибки)
- Префикс = "["+ СтатусыРезультатаТестирования.ОшибкаПроверки + "]";
- ТекстСообщения = "%1 %2";
+ Префикс = "["+ ПолучитьТекстСообщенияПользователю(СтатусыРезультатаТестирования.ОшибкаПроверки) + "]";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("%1 %2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Префикс);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",СообщениеОшибки);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецПроцедуры
Процедура ПропуститьТест(Знач Сообщение = "") Экспорт
- Префикс = "[" + СтатусыРезультатаТестирования.ТестПропущен + "]";
+ Префикс = "[" + ПолучитьТекстСообщенияПользователю(СтатусыРезультатаТестирования.ТестПропущен) + "]";
Если ПустаяСтрока(Сообщение) Тогда
Сообщение = НСтр("ru = 'Тест пропущен'");
КонецЕсли;
- ТекстСообщения = "%1 %2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("%1 %2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Префикс);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Сообщение);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецПроцедуры
@@ -1918,7 +2024,7 @@
ТипТабличногоДокумента = ТипЗнч(ТабличныйДокумент);
Если ТипТабличногоДокумента <> Тип("ТабличныйДокумент") И ТипТабличногоДокумента <> Тип("ПолеТабличногоДокумента") Тогда
- ВызватьИсключение "ПолучитьТаблицуЗначенийИзТабличногоДокумента: Требуется тип ТабличныйДокумент или ПолеТабличногоДокумента";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("ПолучитьТаблицуЗначенийИзТабличногоДокумента: Требуется тип ТабличныйДокумент или ПолеТабличногоДокумента");
КонецЕсли;
НомерПоследнейКолонки = ТабличныйДокумент.ШиринаТаблицы;
@@ -2179,7 +2285,7 @@
СтруктураДляЗаполнения.Вставить(ТекИмя, Значение);
Прервать;
Иначе
- ТекстСообщения = "Ошибка чтения JSON. Неизвестный символ %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ошибка чтения JSON. Неизвестный символ %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Символ);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат;
diff --git "a/VanessaBehavior/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl" "b/VanessaBehavior/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
index a9544ca73c..6847c0db53 100644
--- "a/VanessaBehavior/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
+++ "b/VanessaBehavior/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
@@ -36,7 +36,7 @@
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
- ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
КонецПроцедуры
@@ -149,7 +149,7 @@
НайденныеСтрокиДерева = Дерево.Строки.НайтиСтроки(Новый Структура("ПолныйТипШага",Тип),Истина);
Если НайденныеСтрокиДерева.Количество() = 0 Тогда
- ТекстСообщения = "Не найден тип шага <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Не найден тип шага <%1>",ДопПараметры.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
ВызватьИсключение(ТекстСообщения);
КонецЕсли;
@@ -167,8 +167,6 @@
СтрокаШага.Язык = "ru";
Если ТаблицаПеревода <> Неопределено Тогда
- //СтрокаПоиска = НРег(СтрТаблицаИзвестныхStepDefinition.Id);
- //СтрокаПоиска = Лев(СтрокаПоиска,Найти(СтрокаПоиска,"(")-1);
СтрокаПоиска = СтрТаблицаИзвестныхStepDefinition.СтрокаДляПоиска;
СтрокаТаблицаПеревода = ТаблицаПеревода.Найти(СтрокаПоиска,"СтрокаДляПоискаРусский");
@@ -181,9 +179,9 @@
СтрокаШага.ОписаниеШага = СтрокаТаблицаПеревода.ТекстПереводаОписание;
КонецЕсли;
Иначе
- ТекстСообщения = "Не найден перевод для шага <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Не найден перевод для шага <%1>",ДопПараметры.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПредставлениеТеста);
- Сообщить(ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,ДопПараметры.ТекстСообщенийПользователю));
+ Сообщить(ТекстСообщения);
КонецЕсли;
КонецЕсли;
@@ -426,7 +424,7 @@
КонецЕсли;
Оповестить("ВыборИзвестногоШага",Элемент.ТекущиеДанные.ПредставлениеТеста);
- ТекстСообщения = "Добавил шаг: %1";
+ ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Добавил шаг: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элемент.ТекущиеДанные.ПредставлениеТеста);
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецПроцедуры
@@ -435,7 +433,7 @@
Процедура ПоказыватьСлужебныеШагиПриИзменении(Элемент)
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
- ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
КонецПроцедуры
@@ -513,7 +511,7 @@
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
- ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
Если Не ЗначениеЗаполнено(ФильтрДереваШагов) Тогда
Если ЗначениеЗаполнено(ТекстШага) Тогда
@@ -724,7 +722,7 @@
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
- ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
Если ЗначениеЗаполнено(ТекстШага) Тогда
diff --git "a/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form.xml" "b/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form.xml"
index a6a453bb61..2c2e2d3dce 100644
--- "a/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form.xml"
+++ "b/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form.xml"
@@ -5,6 +5,10 @@
ru
Детали ошибки
+
+ en
+ Error details
+
50
20
diff --git "a/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form/Module.bsl" "b/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form/Module.bsl"
index 97cd5c2c68..92786f97c1 100644
--- "a/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form/Module.bsl"
+++ "b/VanessaBehavior/Forms/\320\224\320\265\321\202\320\260\320\273\320\270\320\236\321\210\320\270\320\261\320\272\320\270/Ext/Form/Module.bsl"
@@ -60,9 +60,9 @@
Процедура ПоказатьСравнениеТабличныхДокументовВСлужебнойБазе(ТаблицаЭталонТабДок,ТаблицаТекущееЗначениеТабДок)
ФайлТолстогоКлиента = КаталогПрограммы() + "1cv8.exe";
Если Не Ванесса.ФайлСуществуетКомандаСистемы(ФайлТолстогоКлиента) Тогда
- ТекстСообщения = "Не найден файл толстого клиента <%1>";
+ ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не найден файл толстого клиента <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФайлТолстогоКлиента);
- ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КаталогTools = Ванесса.Объект.КаталогИнструментов + "\Tools\";
@@ -76,9 +76,9 @@
КонецЕсли;
Если Не Ванесса.ФайлСуществуетКомандаСистемы(КаталогСлужебнойБазы) Тогда
- ТекстСообщения = "Не найден файл служебной базы. <%1>";
+ ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не найден файл служебной базы. <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КаталогСлужебнойБазы);
- ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
СписокКаталогов = Новый СписокЗначений;
@@ -90,9 +90,9 @@
ИмяКоманды = """" + КаталогПрограммы() + "1cv8"" CreateInfoBase File=""" + КаталогСлужебнойБазы + """";
СтатусВозврата = Ванесса.ВыполнитьКомандуОСБезПоказаЧерногоОкна(ИмяКоманды);
Если СтатусВозврата <> 0 Тогда
- ТекстСообщения = "Не смог выполнить команду. <%1>";
+ ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не смог выполнить команду. <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяКоманды);
- ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
diff --git "a/VanessaBehavior/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl" "b/VanessaBehavior/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
index 8eeb71e160..2d6a52606c 100644
--- "a/VanessaBehavior/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
+++ "b/VanessaBehavior/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
@@ -124,7 +124,7 @@
КонтекстСохраняемый = Ванесса.ПолучитьКонтекстСохраняемый();
Если НЕ КонтекстСохраняемый.Свойство("ТестовоеПриложение") Тогда
- Сообщить("Не подключен TestClient.");
+ Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("Не подключен TestClient."));
Возврат;
КонецЕсли;
@@ -225,7 +225,7 @@
ЗаполнитьТекстШаговПоАктивномуЭлементу();
- Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("$Найден активный элемент формы$") + " <" + Имя + ">");
+ Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("Найден активный элемент формы") + " <" + Имя + ">");
КонецЕсли;
КонецПроцедуры
@@ -816,4 +816,3 @@
ВключитьПоискАктивногоЭлементаФомры();
КонецЕсли;
КонецПроцедуры
-
diff --git "a/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form.xml" "b/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form.xml"
index 0f41cfc88e..25ed98ff68 100644
--- "a/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form.xml"
+++ "b/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form.xml"
@@ -3275,6 +3275,10 @@
ru
№ строки
+
+ en
+ Line number
+
EnterOnInput
3
diff --git "a/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 357ac4412e..10979e8dbe 100644
--- "a/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/VanessaBehavior/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -34,9 +34,6 @@
&НаКлиенте
Перем Версия8313ИлиВыше Экспорт;
-&НаКлиенте
-Перем ТекстСообщенийПользователю Экспорт;
-
#КонецОбласти
#Область ГлобальныеПеременныеФормы
@@ -364,7 +361,7 @@
Если СтрокаФичи.Тип <> "Фича" Тогда
СтрокаФичи = НайтиСтрокуФичиЧерезРодителя(СтрокаФичи);
Если СтрокаФичи = Неопределено Тогда
- Сообщить("Строка с фича-файлом не найдена.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Строка с фича-файлом не найдена."));
Возврат;
КонецЕсли;
@@ -398,7 +395,7 @@
Если СтрокаФичи.Тип <> "Фича" Тогда
СтрокаФичи = НайтиСтрокуФичиЧерезРодителя(СтрокаФичи);
Если СтрокаФичи = Неопределено Тогда
- Сообщить("Строка с фича-файлом не найдена.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Строка с фича-файлом не найдена."));
Возврат;
КонецЕсли;
КонецЕсли;
@@ -489,7 +486,7 @@
Элементы.ДеревоТестовКонтекстноеМенюВыполнятьСценарииСначала.Видимость = Ложь;
- Сообщить("Пометка снята.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Пометка снята."));
КонецПроцедуры
&НаКлиенте
@@ -707,7 +704,7 @@
&НаКлиенте
Процедура СброситьКешИзвестныхStepDefinition(Команда)
СброситьКешИзвестныхStepDefinitionСервер();
- СделатьСообщение("Надо сделать перезапуск Vanessa-Behavior.");
+ СделатьСообщение("Надо сделать перезапуск фреймворка тестирования.");
КонецПроцедуры
// { управление видимостью колонок ДереваТестов
@@ -1025,8 +1022,6 @@
ДопПараметры = Новый Структура;
СерверныеВызовыПриОткрытииФормы(ДопПараметры);
- ТекстСообщенийПользователю = ДопПараметры.ТекстСообщенийПользователю;
-
МассивСнипетовПрерывающихЗаписьСценария = ПолучитьМассивСнипетовПрерывающихЗаписьСценария();
ВосстановитьНастройкиКлиент();
@@ -1752,7 +1747,7 @@
И Элементы.ДанныеКлиентовТестирования.ТекущийЭлемент.Имя <> "ДанныеКлиентовТестированияПорт"
И Элементы.ДанныеКлиентовТестирования.ТекущийЭлемент.Имя <> "ДанныеКлиентовТестированияПутьКИнфобазе"
Тогда
- Сообщить("Нельзя изменять текущее поле у зарезервированного подключения <Этот клиент>.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Нельзя изменять текущее поле у зарезервированного подключения <Этот клиент>."));
Отказ = Истина;
КонецЕсли;
@@ -1767,7 +1762,7 @@
НайденныеСтроки = ДанныеКлиентовТестирования.НайтиСтроки(ПараметрыОтбора);
Если НайденныеСтроки.Количество() > 1 Тогда
- ТекстСообщения = "В таблице подключений уже есть подключение с именем <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("В таблице подключений уже есть подключение с именем <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элемент.ТекущиеДанные.Имя);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Отказ = Истина;
@@ -1782,7 +1777,7 @@
Процедура ДанныеКлиентовТестированияПослеУдаления(Элемент)
Если ДанныеКлиентовТестирования.Количество() = 0 Тогда
- Сообщить("Должна оставаться строка подключения текущего клиента");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Должна оставаться строка подключения текущего клиента"));
ЗаполнитьДанныеТекущейИнфобазы();
КонецЕсли;
@@ -1938,6 +1933,7 @@
&НаКлиенте
Процедура ЗапретитьВыполнениеШагов() Экспорт
Объект.ОстановитьВыполнениеШагов = Истина;
+ АктивизироватьСтрокуДереваТекущегоШага();
КонецПроцедуры
&НаКлиенте
@@ -1973,9 +1969,9 @@
&НаКлиенте
Процедура УстановитьРезультатУсловия(Результат) Экспорт
Если ТипЗнч(Результат) <> Тип("Булево") Тогда
- ТекстСообщения = "В процедуру <УстановитьРезультатУсловия> передан неверный тип параметра <%1>. Ожидаемый тип: Булево.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("В процедуру <УстановитьРезультатУсловия> передан неверный тип параметра <%1>. Ожидаемый тип: Булево.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Результат);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Объект.РезультатУсловия = Результат;
@@ -2071,7 +2067,7 @@
ДопПараметры.Вставить("ЭтоLinux", ЭтоLinux);
- ДопПараметры.Вставить("ТекстСообщенийПользователю", ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю", Объект.ТекстСообщенийПользователю);
ДопПараметры.Вставить("РежимВыполненияСценарияСВыбранногоШагаССохранениемКонтекстов", Объект.РежимВыполненияСценарияСВыбранногоШагаССохранениемКонтекстов и ЕстьСохранённыйКонтекст);
ДопПараметры.Вставить("РежимВыполненияДанногоСценарияСТекущегоШага", Объект.РежимВыполненияДанногоСценарияСТекущегоШага);
@@ -2109,7 +2105,7 @@
Если Объект.ДелатьСкриншотПриВозникновенииОшибки Тогда
Если Не ЗначениеЗаполнено(Объект.КомандаСделатьСкриншот) Тогда
- ТекстСообщения = "Не указана команада для выполнения скриншотов. Например <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не указана команада для выполнения скриншотов. Например <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1","""C:\Program Files (x86)\IrfanView\i_view32.exe"" /capture=1 /convert=");
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -2120,8 +2116,8 @@
Если Объект.СоздаватьИнструкциюВидео Тогда
Если Не ЗначениеЗаполнено(Объект.КаталогOutputИнструкцияВидео) Тогда
- ТекстСообщения = "Не указан каталог для формирования видео инструкции.";
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не указан каталог для формирования видео инструкции.");
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ОчиститьСодержимоеКаталога(ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputИнструкцияВидео), "*.mp4");
@@ -2241,7 +2237,7 @@
ЭтоШагКонтекста = Ложь;
СтрокаСценария = НайтиСтрокуСценарияЧерезРодителя(СтрокаСценария, ЭтоПример,ЭтоШагКонтекста);
Если СтрокаСценария = Неопределено Тогда
- Сообщить("Не найден строка сценария.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Не найдена строка сценария."));
Возврат;
КонецЕсли;
КонецЕсли;
@@ -2271,7 +2267,7 @@
ЭтоШагКонтекста = Ложь;
СтрокаСценария = НайтиСтрокуСценарияЧерезРодителя(СтрокаСценария, ЭтоПример,ЭтоШагКонтекста);
Если СтрокаСценария = Неопределено Тогда
- Сообщить("Не найден строка сценария.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Не найдена строка сценария."));
Возврат;
КонецЕсли;
КонецЕсли;
@@ -2291,7 +2287,7 @@
КонецЕсли;
Если ТекущиеДанные.Тип <> "Шаг" Тогда
- Сообщить("Это возможно только для шага.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Это возможно только для шага."));
Возврат;
КонецЕсли;
@@ -2320,7 +2316,7 @@
Элементы.ДеревоТестовКонтекстноеМенюВыполнятьСценарииСначала.Видимость = Истина;
- Сообщить("Пометка для шаг установлена.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Пометка для шаг установлена."));
КонецПроцедуры
&НаКлиенте
@@ -2340,7 +2336,7 @@
//Делает сообщение пользователю
&НаКлиенте
Процедура СделатьСообщение(Знач Сообщение, ТипСообщения = "Информация") Экспорт
- РасшифровкаСлужебногоСообщения = ТекстСообщенийПользователю[Сообщение];
+ РасшифровкаСлужебногоСообщения = Объект.ТекстСообщенийПользователю[Сообщение];
Если ЗначениеЗаполнено(РасшифровкаСлужебногоСообщения) Тогда
Сообщение = РасшифровкаСлужебногоСообщения;
КонецЕсли;
@@ -2430,9 +2426,9 @@
СохраненноеЗначение = ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной);
Если СохраненноеЗначение = Неопределено Тогда
- ТекстСообщения = "Не смог найти сохранненное значение по переменой <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог найти сохранненное значение по переменой <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Возврат СохраненноеЗначение;
@@ -2467,6 +2463,10 @@
&НаКлиенте
Функция НайтиОкноTestClientПоЗаголовку(ЗаголовокОкна) Экспорт
+ Если Не ОбъектКонтекстСохраняемый.Свойство("ТестовоеПриложение") Тогда
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("TestClient НЕ подключен.");
+ КонецЕсли;
+
Возврат ОбъектКонтекстСохраняемый.ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"),ЗаголовокОкна);
КонецФункции
@@ -2519,14 +2519,14 @@
Если ВызыватьИсключение Тогда
Если НЕ Нашли Тогда
Если ИскатьПоИмени Тогда
- ТекстСообщения = "Элемента формы с именем <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с именем <%1> не найдено.");
Иначе
- ТекстСообщения = "Элемента формы с заголовком <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с заголовком <%1> не найдено.");
КонецЕсли;
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
@@ -2557,10 +2557,10 @@
Если МассивЭлементов.Количество() > 1 Тогда
ВывестиСообщениеОТомЧтоПоЗаголовкуНайденоБольшеОдногоЭлемента(МассивЭлементов, ИмяРеквизита);
- ТекстСообщения = "Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолеРеквизит = МассивЭлементов[0];
@@ -2570,14 +2570,14 @@
Если НЕ Нашли Тогда
Если ИскатьПоИмени Тогда
- ТекстСообщения = "Элемента формы с именем <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с именем <%1> не найдено.");
Иначе
- ТекстСообщения = "Элемента формы с заголовком <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с заголовком <%1> не найдено.");
КонецЕсли;
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолеРеквизит.ВвестиТекст(Текст);
@@ -2651,10 +2651,10 @@
Если МассивЭлементов.Количество() > 1 Тогда
ВывестиСообщениеОТомЧтоПоЗаголовкуНайденоБольшеОдногоЭлемента(МассивЭлементов, ИмяРеквизита);
- ТекстСообщения = "Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолеРеквизит = МассивЭлементов[0];
@@ -2670,14 +2670,14 @@
Если НЕ Нашли Тогда
Если ИскатьПоИмени Тогда
- ТекстСообщения = "Элемента формы с именем <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с именем <%1> не найдено.");
Иначе
- ТекстСообщения = "Элемента формы с заголовком <%1> не найдено.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Элемента формы с заголовком <%1> не найдено.");
КонецЕсли;
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецФункции
@@ -2748,15 +2748,15 @@
КонецЕсли;
Если НужнаяФорма = Неопределено Тогда
- ТекстСообщения = "Не найдена активная форма.";
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найдена активная форма.");
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если ТЧ = Неопределено и ВызыватьИсключение Тогда
- ТекстСообщения = "Таблица формы с именем <%1> не найдена.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Таблица формы с именем <%1> не найдена.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяТЧ);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если ТЧ <> Неопределено Тогда
@@ -2850,8 +2850,8 @@
ОкноПриложения = ПолучитьАктивноеОкноИзТестовоеПриложение(ДопПараметры);
Если ОкноПриложения = Неопределено Тогда
- ТекстСообщения = "Не получилось определить активное окно TestClient.";
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не получилось определить активное окно TestClient.");
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
МассивФорм = ОкноПриложения.НайтиОбъекты(Тип("ТестируемаяФорма"));
Если ДопПараметры <> Неопределено Тогда
@@ -2864,8 +2864,8 @@
Функция НайтиФормыОкнаИзКонтекста(ДопПараметры = Неопределено) Экспорт
ОкноПриложения = ПолучитьАктивноеОкноИзКонтекста();
Если ОкноПриложения = Неопределено Тогда
- ТекстСообщения = "Не получилось определить активное окно TestClient из Контекста.";
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не получилось определить активное окно TestClient из Контекста.");
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Попытка
@@ -2920,9 +2920,9 @@
Функция ПолучитьТекстОкнаПредупреждения(НужноеОкно) Экспорт
ПоляФормы = НужноеОкно.НайтиОбъекты(Тип("ТестируемоеПолеФормы"));
Если ПоляФормы.Количество() = 0 Тогда
- ТекстСообщения = "У окна <%1> не найдено ни одного элемента с типом <ТестируемоеПолеФормы>.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("У окна <%1> не найдено ни одного элемента с типом <ТестируемоеПолеФормы>.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",НужноеОкно.Заголовок);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолеФормы = ПоляФормы[0];
@@ -2967,10 +2967,10 @@
КонецЕсли;
Если НужнаяФорма = Неопределено Тогда
- ТекстСообщения = "Форма с заголовком <%1> не найдена.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Форма с заголовком <%1> не найдена.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФормы);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ЗапомнитьАктивноеОкно(ОкноПриложения); //произошла неявная смена активного окна
@@ -3004,17 +3004,17 @@
ИмяОбласти = СокрЛП(ВРег(ИмяОбласти));
Поз = Найти(ИмяОбласти,"R");
Если Поз = 0 Тогда
- ТекстСообщения = "Неверный формат области <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неверный формат области <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяОбластиОригинал);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ИмяОбласти = Сред(ИмяОбласти,Поз+1);
Поз = Найти(ИмяОбласти,"C");
Если Поз = 0 Тогда
- ТекстСообщения = "Неверный формат области <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неверный формат области <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяОбластиОригинал);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
НачСтр = Число(Лев(ИмяОбласти,Поз-1));
@@ -3034,9 +3034,9 @@
ИмяОбласти = СокрЛП(ВРег(ИмяОбласти));
Поз = Найти(ИмяОбласти,"R");
Если Поз = 0 Тогда
- ТекстСообщения = "Неверный формат области <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неверный формат области <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяОбластиОригинал);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
//вторая часть, после символа :
@@ -3044,9 +3044,9 @@
ИмяОбласти = Сред(ИмяОбласти,Поз+1);
Поз = Найти(ИмяОбласти,"C");
Если Поз = 0 Тогда
- ТекстСообщения = "Неверный формат области <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неверный формат области <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяОбластиОригинал);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КолСтр = Число(Лев(ИмяОбласти,Поз-1))-НачСтр+1;
@@ -3070,7 +3070,7 @@
ОбъектКонтекстСохраняемый.ТестовоеПриложение.НачатьЗаписьЖурналаДействийПользователя();
СделатьСообщение("Запись действий пользователя начата.");
Исключение
- ТекстСообщения = "НачатьЗаписьДействийПользователя:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("НачатьЗаписьДействийПользователя:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -3083,7 +3083,7 @@
ОбъектКонтекстСохраняемый.ТестовоеПриложение.ПриостановитьЗаписьЖурналаДействийПользователя();
СделатьСообщение("Запись действий пользователя приостановлена.");
Исключение
- ТекстСообщения = "НачатьЗаписьДействийПользователя:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("НачатьЗаписьДействийПользователя:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -3096,7 +3096,7 @@
ОбъектКонтекстСохраняемый.ТестовоеПриложение.ПродолжитьЗаписьЖурналаДействийПользователя();;
СделатьСообщение("Запись действий пользователя продолжена.");
Исключение
- ТекстСообщения = "НачатьЗаписьДействийПользователя:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("НачатьЗаписьДействийПользователя:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -3157,7 +3157,7 @@
Стр = ОбъектКонтекстСохраняемый.ТестовоеПриложение.ЗавершитьЗаписьЖурналаДействийПользователя();
СделатьСообщение("Запись действий пользователя закончена.");
Исключение
- ТекстСообщения = "ЗавершитьЗаписьДействийПользователя:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ЗавершитьЗаписьДействийПользователя:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат;
@@ -3238,9 +3238,9 @@
//там должна быть строка вида 48000-48020
МассивЗначений = РазложитьСтрокуВМассивПодстрок(Объект.ДиапазонПортовTestclient,"-");
Если МассивЗначений.Количество() <> 2 Тогда
- ТекстСообщения = "Указан неверный диапазон портов: <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Указан неверный диапазон портов: <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Объект.ДиапазонПортовTestclient);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
НачалоДиапазонаПортов = Число(МассивЗначений[0]);
ОкончаниеДиапазонаПортов = Число(МассивЗначений[1]);
@@ -3348,9 +3348,9 @@
КонецПопытки;
Если КоличествоПопытокПолученияДвоичныхДанных > МаксКоличествоПопытокПолученияДвоичныхДанных Тогда
- ТекстСообщения = "Не смог получить данные файла <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог получить данные файла <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяВременногоФайла);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Sleep(1);
@@ -3435,9 +3435,9 @@
КонецПопытки;
Если КоличествоПопытокПолученияДвоичныхДанных > МаксКоличествоПопытокПолученияДвоичныхДанных Тогда
- ТекстСообщения = "Не смог получить данные файла <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог получить данные файла <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяВременногоФайла);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Sleep(1);
@@ -3524,6 +3524,30 @@
КонецПопытки;
КонецЕсли;
+ Если ЗначениеТЧ <> Неопределено И ЗначениеТЧ.Количество() = 1 И Версия8312ИлиВыше Тогда
+ //значит возможна ситуация, когда в таблице запрещено получение всех строк
+
+ ЗначениеТЧ = Новый Массив;
+
+ //будем получать значение таблицы через переход к каждой строке
+ ЭлементФормы.ПерейтиКПервойСтроке();
+
+ Пока Истина Цикл
+ СтрокаТаблицы = ЭлементФормы.ПолучитьВыделенныеСтроки();
+ Если СтрокаТаблицы.Количество() <> 1 Тогда
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Ожидали получить только одну строку таблицы.");
+ КонецЕсли;
+
+ ЗначениеТЧ.Добавить(СтрокаТаблицы[0]);
+
+ Попытка
+ ЭлементФормы.ПерейтиКСледующейСтроке();
+ Исключение
+ Прервать;
+ КонецПопытки;
+ КонецЦикла;
+ КонецЕсли;
+
Возврат ЗначениеТЧ;
КонецФункции
@@ -3573,7 +3597,7 @@
ПараметрыОтбора.Вставить("Имя", ИмяКлиентаТестирования);
НайденныеСтроки = ДанныеКлиентовТестирования.НайтиСтроки(ПараметрыОтбора);
Если НайденныеСтроки.Количество() = 0 Тогда
- ТекстСообщения = "Не найден профиль TestClient <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден профиль TestClient <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяКлиентаТестирования);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат Ложь;
@@ -3603,9 +3627,9 @@
ДанныеЗапускаКлиентаТестирования = НайтиДанныеЗапускаКлиентаТестирования(ИмяКлиентаТестирования);
Если ДанныеЗапускаКлиентаТестирования = Неопределено Тогда
- ТекстСообщения = "Не смог найти данные для подключения профиля клиента тестирования <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог найти данные для подключения профиля клиента тестирования <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяКлиентаТестирования);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ДанныеЗапускаКлиентаТестирования.ДопПараметры = ДопПараметр + ДанныеЗапускаКлиентаТестирования.ДопПараметры;
ЕстьПодключение = ОткрытьНовыйСеансTestClientИлиПодключитьУжеСуществующийДляНесколькихКлиентов(ДанныеЗапускаКлиентаТестирования,СтрокаОшибки);
@@ -3704,9 +3728,9 @@
//попробуем найти значение по ключу
Значение = ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной);
Если Значение = Неопределено Тогда
- ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог по переменной <%1> найти сохраненное значение.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Иначе
Значение = ОбъектКонтекстСохраняемый[ИмяПеременной];
@@ -3717,9 +3741,9 @@
ИмяПеременной = Лев(ИмяПеременной,СтрДлина(ИмяПеременной)-1);
Если НЕ ОбъектКонтекст.Свойство(ИмяПеременной) Тогда
- ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог по переменной <%1> найти сохраненное значение.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Значение = ОбъектКонтекст[ИмяПеременной];
КонецЕсли;
@@ -3960,9 +3984,9 @@
Попытка
КолСекунд = Число(КолСекунд);
Исключение
- ТекстСообщения = "Значение параметра таймаута ожидания должно быть числом. Переданное значение: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение параметра таймаута ожидания должно быть числом. Переданное значение: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КолСекунд);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецПопытки;
Возврат Макс(Объект.ТаймаутДляАсинхронныхШагов,КолСекунд);
@@ -3975,7 +3999,7 @@
//Возвращает текст сообщения пользователю с учетом языка, на котором запущен TestManager
&НаКлиенте
Функция ПолучитьТекстСообщенияПользователю(Текст) Экспорт
- Значение = ТекстСообщенийПользователю[Текст];
+ Значение = Объект.ТекстСообщенийПользователю[Текст];
Если ЗначениеЗаполнено(Значение) Тогда
Возврат Значение;
КонецЕсли;
@@ -4008,7 +4032,7 @@
ВыполнитьКомандуОСБезПоказаЧерногоОкна(Команда);
КонецЕсли;
Исключение
- ТекстСообщения = "Sleep:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Sleep:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецПопытки;
@@ -4168,7 +4192,7 @@
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Объект.ИмяФайлаЛогВыполненияСценариев) Тогда
- ВызватьИсключение "Не указано имя файла лога в параметре <ИмяФайлаЛогВыполненияСценариев>";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не указано имя файла лога в параметре <ИмяФайлаЛогВыполненияСценариев>");
КонецЕсли;
ИмяФайла = Объект.ИмяФайлаЛогВыполненияСценариев;
@@ -4197,7 +4221,7 @@
Попытка
//Эта попытка/исключение нужна, чтобы можно было выставить флаг "Останавливаться по ошибке".
//Тогда будет остановка на данном исключении, но сценарий продолжит свою работу.
- ВызватьИсключение "Исключение для просмотра значения.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Исключение для просмотра значения.");
Исключение
Отладка("Вызов процедуры ""ПосмотретьЗначение"".");
КонецПопытки;
@@ -4276,9 +4300,9 @@
ПутьКФайлу = ДополнитьСлешВПуть(Объект.КаталогИнструментов) + "lib/featurereader/vbfeaturereader.epf";
Если Не ФайлСуществуетКомандаСистемы(ПутьКФайлу, "ПолучитьПутьКFeatureReader") Тогда
- ТекстСообщения = "Файл не найден в каталоге инструментов <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл не найден в каталоге инструментов <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1", СокрЛП(Объект.КаталогИнструментов));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Возврат ПутьКФайлу;
@@ -4374,9 +4398,9 @@
&НаКлиенте
Функция НайтиМакетВКаталогеПроекта(ИмяМакета) Экспорт
Если НЕ ЗначениеЗаполнено(Объект.КаталогПроекта) Тогда
- ТекстСообщения = "Не найден эталон макета <%1>. Пустой каталог проекта.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден эталон макета <%1>. Пустой каталог проекта.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМакета);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Нашли = Ложь;
@@ -4388,10 +4412,10 @@
Если Не Нашли Тогда
- ТекстСообщения = "Не найден файл макета <%1> в каталоге проекта <%2>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден файл макета <%1> в каталоге проекта <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМакета);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Объект.КаталогПроекта);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);
@@ -4452,7 +4476,7 @@
КонецЕсли;
Если Не ФайлСуществуетКомандаСистемы(ИмяФайла) Тогда
- ТекстСообщения = "Не найден файл <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден файл <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -4877,11 +4901,11 @@
Попытка
ЗначениеВыражения = Вычислить(Выражение);
Исключение
- ТекстСообщения = "Не смог вычислить выражение: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог вычислить выражение: %1");
ТекстСообщения = ТекстСообщения + Символы.ПС;
ТекстСообщения = ТекстСообщения + ОписаниеОшибки();
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Выражение);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецПопытки;
Возврат ЗначениеВыражения;
@@ -5038,7 +5062,7 @@
&НаКлиенте
Процедура ПрикрепитьМакетКСценарию(Макет,Имя) Экспорт
Если ТекИД_СценарияВМассиве > МассивСценариевДляВыполнения.Количество()-1 Тогда
- ВызватьИсключение "Не смог получить строку сценария.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не смог получить строку сценария.");
КонецЕсли;
ИДСтрокиСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
@@ -5046,7 +5070,7 @@
СтрокаСценария = ПолучитьСтрокуСценарияИзДанныхФормы(ИДСтрокиСценария);
Если СтрокаСценария = Неопределено Тогда
- ВызватьИсключение "Не смог получить строку сценария.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не смог получить строку сценария.");
КонецЕсли;
Если СтрокаСценария.ПроизвольныеЗначения = Неопределено Тогда
@@ -5063,6 +5087,14 @@
ПрикрепленныеМакеты.Добавить(Новый Структура("Макет,Имя",Макет,Имя));
КонецПроцедуры
+//сравнивает строки без учета регистра, и некоторых спецсимволов
+&НаКлиенте
+Функция СтрокиРавны(Знач Стр1,Знач Стр2) Экспорт
+ Стр1 = СтрЗаменить(Стр1,Символы.НПП," ");
+ Стр2 = СтрЗаменить(Стр2,Символы.НПП," ");
+ Возврат (НРег(Стр1) = НРег(Стр2));
+КонецФункции
+
#КонецОбласти
#Область РаботаСПеременнымиКонтекста
@@ -5206,7 +5238,7 @@
Если ЭтоLinux Тогда
//FIXME:
Возврат ТекущаяДата();
- //ВызватьИсключение "TODO: Сделать для Linux.";
+ //ВызватьИсключение ПолучитьТекстСообщенияПользователю("TODO: Сделать для Linux.");
КонецЕсли;
Файл = Новый Файл(ИмяФайла);
@@ -5387,7 +5419,7 @@
ВыполнитьКомандуОСБезПоказаЧерногоОкна(Команда);
КонецЕсли;
Исключение
- ТекстСообщения = "КопироватьФайлКомандаСистемы:%1 команда:%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("КопироватьФайлКомандаСистемы:%1 команда:%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Команда);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -5488,7 +5520,7 @@
Попытка
УдалитьФайлыКомандаСистемы(Файл.ПолноеИмя);
Исключение
- ТекстСообщения = "Не смог удалить файл %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог удалить файл %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Файл.ПолноеИмя);
СделатьСообщение(ТекстСообщения);
КонецПопытки;
@@ -5749,8 +5781,10 @@
&НаКлиенте
Процедура Проверить(_Истина, ДопСообщениеОшибки = "") Экспорт
Если Не _Истина Тогда
- СообщениеОшибки = "Переданный параметр (" + Формат(_Истина, "БЛ=ложь; БИ=истина") + ") не является Истиной, а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не является Истиной, а хотели, чтобы являлся. %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Истина, "БЛ=ложь; БИ=истина"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -5762,8 +5796,10 @@
&НаКлиенте
Процедура ПроверитьЛожь(_Ложь, ДопСообщениеОшибки = "") Экспорт
Если _Ложь Тогда
- СообщениеОшибки = "Переданный параметр (" + Формат(_Ложь, "БЛ=ложь; БИ=истина") + ") не является Ложью, а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не является Ложью, а хотели, чтобы являлся. %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Ложь, "БЛ=ложь; БИ=истина"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -5771,66 +5807,92 @@
Процедура ПроверитьДату(_Дата, _Период, ДопСообщениеОшибки = "") Экспорт
Если _Дата < _Период.ДатаНачала или _Дата > _Период.ДатаОкончания Тогда
представление = ПредставлениеПериода(_Период.ДатаНачала, _Период.ДатаОкончания, "ФП = Истина");
- СообщениеОшибки = "Переданный параметр (" + Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'") + ") не входит в период " + представление + ", а хотели, чтобы являлся." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданный параметр (%1) не входит в период %2, а хотели, чтобы являлся. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",представление);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
&НаКлиенте
Процедура ПроверитьРавенствоДатСТочностью2Секунды(_Дата, _Дата2, ДопСообщениеОшибки = "") Экспорт
- Если _Дата < _Дата2 - 2 или _Дата > _Дата2 + 2 Тогда
- СообщениеОшибки = "Переданная дата (" + Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'") + ") не равна дате (" + Формат(_Дата2, "ДФ='dd.MM.yyyy HH:mm:ss'") + ") с точностью до 2-х секунд, а хотели, чтобы они равнялись." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ Если _Дата < _Дата2-2 или _Дата > _Дата2+2 Тогда
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Переданная дата (%1) не равна дате (%2) с точностью до 2-х секунд, а хотели, чтобы они равнялись. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Формат(_Дата2, "ДФ='dd.MM.yyyy HH:mm:ss'"));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьРавенство(_1, _2, ДопСообщениеОшибки = "") Экспорт
Если _1 <> _2 Тогда
- СообщениеОшибки = "Сравниваемые значения (" + _1 + "; " + _2 + ") не равны, а хотели, чтобы были равны." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Сравниваемые значения (%1; %2) не равны, а хотели, чтобы были равны.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьНеРавенство(_1, _2, ДопСообщениеОшибки = "") Экспорт
Если _1 = _2 Тогда
- СообщениеОшибки = "Сравниваемые значения (" + _1 + "; " + _2 + ") равны, а хотели, чтобы были не равны." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Сравниваемые значения (%1; %2) равны, а хотели, чтобы были не равны.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьБольше(_Больше, _Меньше, ДопСообщениеОшибки = "") Экспорт
Если _Больше <= _Меньше Тогда
- СообщениеОшибки = "Первый параметр (" + _Больше + ") меньше или равен второму (" + _Меньше + ") а хотели, чтобы был больше." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Первый параметр (%1) меньше или равен второму (%2) а хотели, чтобы был больше.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_Больше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_Меньше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьБольшеИлиРавно(_Больше, _Меньше, ДопСообщениеОшибки = "") Экспорт
Если _Больше < _Меньше Тогда
- СообщениеОшибки = "Первый параметр (" + _Больше + ") меньше второго (" + _Меньше + ") а хотели, чтобы был больше или равен." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Первый параметр (%1) меньше второго (%2) а хотели, чтобы был больше или равен.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",_Больше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",_Меньше);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьМеньше(проверяемоеЗначение1, проверяемоеЗначение2, СообщениеОбОшибке = "") Экспорт
Если проверяемоеЗначение1 >= проверяемоеЗначение2 Тогда
- СообщениеОшибки = "Значение <" + проверяемоеЗначение1 + "> больше или равно, чем <" + проверяемоеЗначение2 + ">, а ожидалось меньше" +
- ФорматДСО(СообщениеОбОшибке);
- ВызватьОшибкуПроверки(СообщениеОшибки)
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение <%1> больше или равно, чем <%2>, а ожидалось меньше. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",проверяемоеЗначение1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",проверяемоеЗначение2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(СообщениеОбОшибке));
+ ВызватьОшибкуПроверки(ТекстСообщения)
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьМеньшеИлиРавно(проверяемоеЗначение1, проверяемоеЗначение2, СообщениеОбОшибке = "") Экспорт
Если проверяемоеЗначение1 > проверяемоеЗначение2 Тогда
- СообщениеОшибки = "Значение <" + проверяемоеЗначение1 + "> больше, чем <" + проверяемоеЗначение2 + ">, а ожидалось меньше или равно" +
- ФорматДСО(СообщениеОбОшибке);
- ВызватьОшибкуПроверки(СообщениеОшибки)
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение <%1> больше, чем <%2>, а ожидалось меньше или равно. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",проверяемоеЗначение1);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",проверяемоеЗначение2);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(СообщениеОбОшибке));
+ ВызватьОшибкуПроверки(ТекстСообщения)
КонецЕсли;
КонецПроцедуры
@@ -5847,8 +5909,12 @@
Выполнить(СтрокаАлгоритм);
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- СообщениеОшибки = "Хотели, чтобы алгоритм """ + СтрокаАлгоритм + """ выполнился, а он упал с ошибкой """ + ПолученноеОписаниеОшибки + """." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> выполнился, а он упал с ошибкой <%2>. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
КонецПроцедуры
@@ -5864,10 +5930,10 @@
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
Если ТипПараметра <> Тип("Массив") Тогда
- ТекстСообщения = "Ожидали, что вторым параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что вторым параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипПараметра);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
КонецЕсли;
@@ -5880,8 +5946,12 @@
Выполнить(СтрокаВыполнения);
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- СообщениеОшибки = "Хотели, чтобы код """ + СтрокаВыполнения + """ выполнился, а он упал с ошибкой """ + ПолученноеОписаниеОшибки + """." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> выполнился, а он упал с ошибкой <%2>. %3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
КонецПроцедуры
@@ -5901,12 +5971,22 @@
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Если Найти(ПолученноеОписаниеОшибки, ОжидаемоеОписаниеОшибки) = 0 Тогда
- ВызватьОшибкуПроверки("Хотели, чтобы алгоритм """ + СтрокаАлгоритм + """ упал с сообщением об ошибке """ + ОжидаемоеОписаниеОшибки + """, а он упал с сообщением """ + ПолученноеОписаниеОшибки + """." + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> упал с сообщением об ошибке <%2>, а он упал с сообщением <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОжидаемоеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
Возврат;
КонецПопытки;
- ВызватьОшибкуПроверки("Хотели, чтобы алгоритм """ + СтрокаАлгоритм + """ упал, а он выполнился" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы алгоритм <%1> упал, а он выполнился%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаАлгоритм);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПроцедуры
@@ -5922,10 +6002,10 @@
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
Если ТипПараметра <> Тип("Массив") Тогда
- ТекстСообщения = "Ожидали, что третьим параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что третьим параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипПараметра);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
ОжидаемоеОписаниеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
@@ -5940,12 +6020,22 @@
Исключение
ПолученноеОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Если Найти(ПолученноеОписаниеОшибки, ОжидаемоеОписаниеОшибки) = 0 Тогда
- ВызватьОшибкуПроверки("Хотели, чтобы код """ + СтрокаВыполнения + """ упал с сообщением об ошибке """ + ОжидаемоеОписаниеОшибки + """, а он упал с сообщением """ + ПолученноеОписаниеОшибки + """." + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> упал с сообщением об ошибке <%2>, а он упал с сообщением <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОжидаемоеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ПолученноеОписаниеОшибки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
Возврат;
КонецПопытки;
- ВызватьОшибкуПроверки("Хотели, чтобы код """ + СтрокаВыполнения + """ упал, а он выполнился" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Хотели, чтобы код <%1> упал, а он выполнился%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаВыполнения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПроцедуры
@@ -5958,20 +6048,27 @@
Возврат;
КонецПопытки;
Если НЕ фЗаполнено Тогда
- ВызватьОшибкуПроверки("Значение (" + ПроверяемоеЗначение + ") не заполнено, а ожидалась заполненность" + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение (%1) не заполнено, а ожидалась заполненность%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПроверяемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьНеЗаполненность(ПроверяемоеЗначение, ДопСообщениеОшибки = "") Экспорт
- СообщениеОшибки = "Значение (" + ПроверяемоеЗначение + ") заполнено, а ожидалась незаполненность" + ФорматДСО(ДопСообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Значение (%1) заполнено, а ожидалась незаполненность %2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПроверяемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
Попытка
фЗаполнено = ЗначениеЗаполнено(ПроверяемоеЗначение);
Исключение
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецПопытки;
Если фЗаполнено Тогда
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -5982,13 +6079,19 @@
ИначеЕсли ТипЗнч(ТипИлиИмяТипа) = Тип("Тип") Тогда
искомыйТип = ТипИлиИмяТипа;
Иначе
- ТекстСообщения = "ПроверитьТип: Тип значения параметра ТипИлиИмяТипа должен быть <Тип> или <Строка>, а получили <%1>%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПроверитьТип: Тип значения параметра ТипИлиИмяТипа должен быть <Тип> или <Строка>, а получили <%1>%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТипЗнч(ТипИлиИмяТипа));
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если ТипЗнч(значение) <> искомыйТип Тогда
- ВызватьОшибкуПроверки("Типом значения <" + значение + "> является <" + ТипЗнч(значение) + ">, а ожидался тип <" + ТипИлиИмяТипа + ">." + ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Типом значения <%1> является <%2>, а ожидался тип <%3>.%4");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",значение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТипЗнч(значение));
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ТипИлиИмяТипа);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -6003,8 +6106,12 @@
Если СтрДлина(подстрокаПоиска) > 20 Тогда
ПредставлениеПодСтроки = ПредставлениеПодСтроки + Символы.ПС;
КонецЕсли;
- СообщениеОшибки = "Искали в " + ПредставлениеСтроки + " подстроку " + ПредставлениеПодСтроки + ", но не нашли." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Искали в %1 подстроку %2, но не нашли.%3");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПредставлениеСтроки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ПредставлениеПодСтроки);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -6027,12 +6134,18 @@
Нашли = Коллекция.НайтиПоЗначению(Элемент) <> Неопределено;
КонецЕсли;
Если Нашли = Неопределено Тогда
- СообщениеОшибки = "Утверждение ""ПроверитьВхождениеВКоллекцию"" не умеет работать с типом коллекции <" + ТипКоллекции + ">." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьИсключение СообщениеОшибки;
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Утверждение <ПроверитьВхождениеВКоллекцию> не умеет работать с типом коллекции <%1>.%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТипКоллекции);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если Не Нашли Тогда
- СообщениеОшибки = "Не нашли элемент <" + Элемент + "> в коллекции, а хотели, чтобы он был в коллекции." + ФорматДСО(ДопСообщениеОшибки);
- ВызватьОшибкуПроверки(СообщениеОшибки);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не нашли элемент <%1> в коллекции, а хотели, чтобы он был в коллекции.%2");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элемент);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ФорматДСО(ДопСообщениеОшибки));
+ ТекстСообщения = ТекстСообщения;
+ ВызватьОшибкуПроверки(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
@@ -6119,24 +6232,20 @@
ОбъектПлагин = Неопределено;
ИдентификаторБезПрефиксовПодсистемы = Идентификатор;
- //ИдентификаторБезПрефиксовПодсистемы = ПолучитьИдентификаторБезПрефиксаПодсистемы(Идентификатор, Объект.ИспользуемыйПрефиксПодсистемы);
Если КэшФормПлагинов.Свойство(ИдентификаторБезПрефиксовПодсистемы) Тогда
ОбъектПлагин = КэшФормПлагинов[ИдентификаторБезПрефиксовПодсистемы];
КонецЕсли;
Если ОбъектПлагин = Неопределено Тогда
- ТекстСообщения = "Неизвестный идентификатор плагина: <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неизвестный идентификатор плагина: <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Идентификатор);
- ВызватьИсключение НСтр(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
ИначеЕсли ОбъектПлагин = Истина Тогда
// загрузка клиентского плагина "По требованию"
ИмяПлагина = Объект.Плагины[Идентификатор];
Попытка
- //Если Объект.ЭтоВстроеннаяОбработка Тогда
- //ОбъектПлагин = ПолучитьФорму("Обработка." + ДополнитьИдентификаторПрефиксомПодсистемы(ИмяПлагина, Объект.ИспользуемыйПрефиксПодсистемы) + ".Форма", , ЭтаФорма);
- //Иначе
- ОбъектПлагин = ПолучитьФорму("ВнешняяОбработка." + ИмяПлагина + ".Форма", , ЭтаФорма);
- //КонецЕсли;
+ ОбъектПлагин = ПолучитьФорму("ВнешняяОбработка." + ИмяПлагина + ".Форма", , ЭтаФорма);
+ ОбъектПлагин.УстановитьСлужебныеПеременные(ЭтаФорма);
КэшФормПлагинов.Вставить(ИдентификаторБезПрефиксовПодсистемы, ОбъектПлагин);
Исключение
// TODO добавить поведение при отсутствии управляемой формы у плагина
@@ -6210,9 +6319,9 @@
Команда = ИмяВременногоBat;
Статус = ВыполнитьКомандуОСБезПоказаЧерногоОкна(Команда);
Если Статус <> 0 Тогда
- ТекстСообщения = "Не смог создать сервисные базы. Статус=%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог создать сервисные базы. Статус=%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Статус);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
@@ -6225,9 +6334,9 @@
СтрокаЗапускаКонфигуратора = """" + ПутьК1С + """ " + ТипЗапуска + " /F""" + Объект.КаталогИнструментов + "\tools\ServiceBases\" + Имябазы + """ " + Ключи;
Статус = ВыполнитьКомандуОСБезПоказаЧерногоОкна(СтрокаЗапускаКонфигуратора, 0);//не ждём окончания работы конфигуратора
Если Статус <> 0 Тогда
- ТекстСообщения = "Не смог запустить конфигуратор. <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог запустить конфигуратор. <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаЗапускаКонфигуратора);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецПроцедуры
@@ -6493,6 +6602,7 @@
#Область ПереводТекста
+//Переводит текст с русского языка на Объект.ЯзыкГенератораGherkin
&НаКлиенте
Функция ПеревестиТекст(Текст) Экспорт
ДанныеПеревода = Новый Структура;
@@ -6514,6 +6624,12 @@
Возврат Неопределено;
КонецФункции
+
+&НаКлиенте
+Функция ДанныеПереводаСообщенийПользователю() Экспорт
+ Возврат Объект.ТекстСообщенийПользователю;
+КонецФункции
+
#КонецОбласти
#КонецОбласти
@@ -6570,7 +6686,7 @@
Попытка
WshShell = Новый COMОбъект("WScript.Shell");
Исключение
- ВызватьИсключение "Не удалось подключить COM объект ";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не удалось подключить COM объект ");
КонецПопытки;
КонецЕсли;
@@ -6647,7 +6763,7 @@
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Объект.ИмяКаталогаЛогОшибок) Тогда
- ВызватьИсключение "Не указано имя файла лога в параметре <ИмяКаталогаЛогОшибок>";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не указано имя файла лога в параметре <ИмяКаталогаЛогОшибок>");
КонецЕсли;
ЭтоПример = Ложь;
@@ -6728,7 +6844,7 @@
&НаКлиенте
Процедура ЗаписатьЛогВТекстПередВыполнениемШага(ИмяШага)
- ТекстСообщения = "ПередВыполнениемШага: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПередВыполнениемШага: %1");
ТекстСообщения = Символы.Таб + ТекстСообщения;
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяШага);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
@@ -6746,7 +6862,7 @@
&НаКлиенте
Процедура ЗаписатьЛогВТекстПередВыполнениемСценария(ИмяСценария)
- ТекстСообщения = "Сценарий: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Сценарий: %1");
ТекстСообщения = Символы.Таб + ТекстСообщения;
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяСценария);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
@@ -7431,11 +7547,11 @@
КонецЕсли;
Если ПромСтр <> Неопределено Тогда
БылиОшибки = Истина;
- ТекстСообщения = "Ошибка в файле %1, снипет %2 уже был в %3";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Ошибка в файле %1, снипет %2 уже был в %3",СтруктураПараметров.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ID);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ПромСтр.ИмяФайла);
- Сообщить(ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,СтруктураПараметров.ТекстСообщенийПользователю));
+ Сообщить(ТекстСообщения);
Возврат;
КонецЕсли;
@@ -7580,10 +7696,10 @@
Попытка
МассивСнипетовИзОбработки = ФормаОбработки.ПолучитьСписокТестов(ЭтаФорма);
Исключение
- ТекстСообщения = "Не смог загрузить снипеты из %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог загрузить снипеты из %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Файл.ПолноеИмя);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ТекстСообщения = "ПолучитьУжеСуществующиеСнипетыИзОбработок:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПолучитьУжеСуществующиеСнипетыИзОбработок:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат;
@@ -7595,7 +7711,7 @@
ДобавитьПустойСнипетВТаблицуИзвестныхStepDefinition(Файл.ПолноеИмя, ВерсияФайла);
Иначе
ДопПараметры = Новый Структура;
- ДопПараметры.Вставить("ТекстСообщенийПользователю",ТекстСообщенийПользователю);
+ ДопПараметры.Вставить("ТекстСообщенийПользователю",Объект.ТекстСообщенийПользователю);
ДобавитьСнипетыСервер(МассивСнипетовИзОбработки, Файл.ПолноеИмя, ВерсияФайла, БылиОшибки,ДопПараметры);
КонецЕсли;
КонецПроцедуры
@@ -7694,7 +7810,7 @@
КонецЦикла;
Если БылиОшибки Тогда
- Сообщить("Были ошибки в ПросканироватьИсходникиИНайтиВсеStepDefinition.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Были ошибки в ПросканироватьИсходникиИНайтиВсеStepDefinition."));
КонецЕсли;
КонецПроцедуры
@@ -8660,7 +8776,7 @@
ПутьФайла = ПреобразоватьПутьСТочкамиКНормальномуПути(ИмяФайла);
ФайлПроверкаСуществования = Новый Файл(ПутьФайла);
Если НЕ ФайлПроверкаСуществования.Существует() Тогда
- ТекстСообщения = "Не найден каталог инструментов: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден каталог инструментов: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат Ложь;
@@ -8688,7 +8804,7 @@
ПутьФайла = ПреобразоватьПутьСТочкамиКНормальномуПути(Элем.Значение);
ФайлПроверкаСуществования = Новый Файл(ПутьФайла);
Если НЕ ФайлПроверкаСуществования.Существует() Тогда
- ТекстСообщения = "Не найден каталог библиотеки: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не найден каталог библиотеки: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элем.Значение);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
БылиОшибки = Истина;
@@ -8845,7 +8961,7 @@
КонецЕсли;
Выполнить("НачатьПоискФайлов(ОписаниеОповещения, Путь, Маска, Истина)");
Иначе
- ТекстСообщения = "Неивестный ТипПараметра в ПолучитьАсинхроноСостоянияОбъектовФайловойСистемы: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неивестный ТипПараметра в ПолучитьАсинхроноСостоянияОбъектовФайловойСистемы: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтруктураФайла.ТипПараметра);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецЕсли;
@@ -8910,7 +9026,7 @@
СтруктураПараметров.Вставить("МассивИменКонтекстовОбработок", МассивИменКонтекстовОбработок);
СтруктураПараметров.Вставить("ЭтоЗагрузкаФич", Истина);
- СтруктураПараметров.Вставить("ТекстСообщенийПользователю", ТекстСообщенийПользователю);
+ СтруктураПараметров.Вставить("ТекстСообщенийПользователю", Объект.ТекстСообщенийПользователю);
ТекущийЗагружаемыйФичаФайл = Неопределено;
Если Объект.РежимВыполненияСценарияСВыбранногоШагаССохранениемКонтекстов Тогда
СтруктураПараметров.Вставить("ИдСтрокиШагаСКоторогоВыполнятьСценарийССохранениемКонтекстов", СтрокаШагаСКоторогоНадоВыполнятьСценарий.ИдСтроки);
@@ -8921,12 +9037,12 @@
ЗаполнитьДеревоФич(СтруктураПараметров);
Исключение
ФлагСценарииЗагружены = Истина;
- ТекстСообщения = "Ошибка при построении дерева из файла <%1>%2%3";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ошибка при построении дерева из файла <%1>%2%3");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекущийЗагружаемыйФичаФайл);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Символы.ПС);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ОписаниеОшибки());
СделатьСообщение(ТекстСообщения);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
Возврат;
КонецПопытки;
@@ -9318,7 +9434,7 @@
ВыполнитьКомандуОСБезПоказаЧерногоОкна("set > """ + ИмяВременногоФайла + """");
КонецЕсли;
Исключение
- ТекстСообщения = "ПрочитатьПеременныеСреды:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПрочитатьПеременныеСреды:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецПопытки;
@@ -9585,7 +9701,7 @@
КонецЕсли;
СтрЗапуска = СокрЛП(ПараметрЗапуска);
- //СтрЗапуска = "StartFeaturePlayer;VBParams=C:\Commons\rep\vanessa-behavior\tools\JSON\VBParams8310UF_FastCheck.json";
+ //СтрЗапуска = "StartFeaturePlayer;VBParams=C:\Temp\111\111.json";
Если СтрЗапуска = "" Тогда
Возврат;
КонецЕсли;
@@ -9804,7 +9920,7 @@
ТаймаутЗапуска1С = Число(ЗнТаймаутЗапуска1С);
Исключение
ТаймаутЗапуска1С = 25;
- ТекстСообщения = "Не удалось получить таймаут для запуска TestClient из значения %1. Используется значение по умолчанию: 25";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не удалось получить таймаут для запуска TestClient из значения %1. Используется значение по умолчанию: 25");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЗнТаймаутЗапуска1С);
СделатьСообщение(ТекстСообщения);
ЗаписатьЛогВЖРОшибка("VanessaBehavior.ЗапускВРежимеКоманднойСтроки", ТекстСообщения);
@@ -9816,7 +9932,7 @@
ЗнТаймаутДляАсинхронныхШагов = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON, "ТаймаутДляАсинхронныхШагов");
Объект.ТаймаутДляАсинхронныхШагов = Число(ЗнТаймаутДляАсинхронныхШагов);
Исключение
- ТекстСообщения = "Не удалось получить таймаут для работы асинхронных шагов. Было передано значение: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не удалось получить таймаут для работы асинхронных шагов. Было передано значение: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЗнТаймаутДляАсинхронныхШагов);
СделатьСообщение(ТекстСообщения);
ЗаписатьЛогВЖРОшибка("VanessaBehavior.ЗапускВРежимеКоманднойСтроки", ТекстСообщения);
@@ -9934,7 +10050,7 @@
СоздатьКаталогКомандаСистемы(Файл.ПолноеИмя);
ФайлПроверкаСуществования = Новый Файл(ПреобразоватьПутьСТочкамиКНормальномуПути(ЗнКаталогOutputjUnit));
Если НЕ ФайлСуществуетКомандаСистемы(ФайлПроверкаСуществования.ПолноеИмя) Тогда
- ТекстСообщения = "Не смог создать каталог для отчета jUnit: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог создать каталог для отчета jUnit: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЗнКаталогOutputjUnit);
СделатьСообщение(ТекстСообщения);
ЗаписатьЛогВЖРОшибка("VanessaBehavior.ЗапускВРежимеКоманднойСтроки", ТекстСообщения);
@@ -9966,7 +10082,7 @@
СоздатьКаталогКомандаСистемы(Файл.ПолноеИмя);
ФайлПроверкаСуществования = Новый Файл(ПреобразоватьПутьСТочкамиКНормальномуПути(ЗнКаталогOutputCucumberJson));
Если НЕ ФайлСуществуетКомандаСистемы(ФайлПроверкаСуществования.ПолноеИмя) Тогда
- ТекстСообщения = "Не смог создать каталог для отчета CucumberJson: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог создать каталог для отчета CucumberJson: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЗнКаталогOutputCucumberJson);
СделатьСообщение(ТекстСообщения);
ЗаписатьЛогВЖРОшибка("VanessaBehavior.ЗапускВРежимеКоманднойСтроки", ТекстСообщения);
@@ -10023,7 +10139,7 @@
СоздатьКаталогКомандаСистемы(ФайлПроверкаСуществования.ПолноеИмя);
ФайлПроверкаСуществования = Новый Файл(ФайлПроверкаСуществования.ПолноеИмя);
Если НЕ ФайлСуществуетКомандаСистемы(ФайлПроверкаСуществования.ПолноеИмя, "ЗнКаталогOutputAllureБазовый3") Тогда
- ТекстСообщения = "Не смог создать каталог для отчета Allure: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог создать каталог для отчета Allure: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЗнКаталогOutputAllureБазовый);
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -10345,7 +10461,7 @@
КонецЕсли;
Если НЕ ФайлСуществуетКомандаСистемы(ИмяФайла) Тогда
- ТекстСообщения = "Файл <%1> не существует.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл <%1> не существует.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -10607,7 +10723,6 @@
ОбработатьСлужебныеЗначенияВСтруктуреШага(СтруктураШага,СтрСтроки,Шаги);
КонецЕсли;
-
РодительСтроки = СтрСтроки.Родитель;
ИДСтрокиДерева = РодительСтроки.Строки.Индекс(СтрСтроки);
Если ИДСтрокиДерева = РодительСтроки.Строки.Количество()-1 Тогда
@@ -10621,6 +10736,17 @@
ДалееВУсловииНетСтрок = Ложь;
КонецЕсли;
+ Если ДалееВУсловииНетСтрок Тогда
+ СтруктураПоиска = Новый Структура;
+ СтруктураПоиска.Вставить("Тип","Шаг");
+ ШагиВУсловии = СтрокаУсловия.Строки.НайтиСтроки(СтруктураПоиска,Истина);
+ Для Каждого ШагВУсловии Из ШагиВУсловии Цикл
+ Если ШагВУсловии.ИдСтроки > ИдСтроки Тогда
+ ДалееВУсловииНетСтрок = Ложь;
+ КонецЕсли;
+ КонецЦикла;
+ КонецЕсли;
+
Если ДалееВУсловииНетСтрок Тогда
СледующаяСтрокаКогдаУсловиеИстинно = НайтиСледующуюСтрокаКогдаУсловиеИстинно(СтрокаУсловия);
Если СледующаяСтрокаКогдаУсловиеИстинно <> Неопределено Тогда
@@ -10649,9 +10775,9 @@
КонецЦикла;
Если СтрокаПримеров = Неопределено Тогда
- ТекстСообщения = "Не найдена строка примеров во вложенной структуре сценария. <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Не найдена строка примеров во вложенной структуре сценария. <%1>",ДопПараметры.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаДерева.ПолныйПуть);
- ВызватьИсключение ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,ДопПараметры.ТекстСообщенийПользователю);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
НомерСтрокиПримера = 0;
@@ -11205,7 +11331,7 @@
Команда = Команда + ")";
- ТекстСообщения = "Выполняю";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Выполняю");
Отладка(ПолучитьТекстСообщенияПользователю(ТекстСообщения) + ": " + Команда);
Выполнить(Команда);
@@ -11321,7 +11447,7 @@
Функция ПолучитьРезультатПрохожденияТестовСценария(ИДСтроки)
ИД = МассивИДСтрокиДерева.Найти(ИДСтроки);
Если ИД = Неопределено Тогда
- Сообщить("Неизвестная ошибка в ПолучитьРезультатПрохожденияТестовСценария.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Неизвестная ошибка в ПолучитьРезультатПрохожденияТестовСценария."));
Возврат Неопределено;
КонецЕсли;
@@ -11351,19 +11477,19 @@
Если Объект.СоздаватьИнструкциюHTML Тогда
Если СокрЛП(Объект.КаталогOutputИнструкцияHTML) = "" Тогда
- Сообщить("КаталогOutputИнструкцияHTML не задан.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("КаталогOutputИнструкцияHTML не задан."));
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Если Объект.СоздаватьИнструкциюMarkdown Тогда
Если СокрЛП(Объект.КаталогOutputИнструкцияMarkdown) = "" Тогда
- Сообщить("КаталогOutputИнструкцияMarkdown не задан.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("КаталогOutputИнструкцияMarkdown не задан."));
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Если Объект.ДелатьСкриншотПриВозникновенииОшибки Тогда
Если СокрЛП(Объект.КаталогOutputСкриншоты) = "" Тогда
- Сообщить("КаталогOutputСкриншоты не задан.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("КаталогOutputСкриншоты не задан."));
Возврат Ложь;
КонецЕсли;
КонецЕсли;
@@ -11373,7 +11499,7 @@
ВременныйФайл = ПолучитьИмяВременногоФайла("png");
СделатьСкриншот(ВременныйФайл);
Если НЕ ФайлСуществуетКомандаСистемы(ВременныйФайл, "ПроверитьНаличиеИнструментаДляСозданияСкриншотов") Тогда
- Сообщить("НЕ найден инструмент по созданию скриншотов.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("НЕ найден инструмент по созданию скриншотов."));
Возврат Ложь;
КонецЕсли;
@@ -11397,7 +11523,7 @@
КонецЕсли;
Отладка("Команда создания скриншота=" + Команда);
Исключение
- ТекстСообщения = "Ошибка создания скриншота:%1 команда:%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ошибка создания скриншота:%1 команда:%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Команда);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -11495,9 +11621,9 @@
ИначеЕсли Тип = "Дата" Тогда
Возврат ПреобразоватьКДатеСтроку(Значение);
Иначе
- ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецФункции
@@ -11510,9 +11636,9 @@
ИначеЕсли Тип = "Дата" Тогда
Возврат ПреобразоватьКДатеСтрокуСервер(Значение);
Иначе
- ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод",СтруктураПараметров.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
- ВызватьИсключение ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,СтруктураПараметров.ТекстСообщенийПользователю);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецФункции
@@ -11637,41 +11763,49 @@
Если СтрокаШага.Брейкпоинт и Не Объект.РежимВыполненияОдногоШага Тогда
СделатьСообщение("Остановка на брейкпоинте.");
+ АктивизироватьСтрокуДереваТекущегоШага();
ПрекратитьВыполнениеВсехСценариев = Истина;
ПерейтиКВыполнениюСледующегоСценария();
Возврат;
КонецЕсли;
- Если ПрекратитьВыполнениеДанногоСценария Тогда
- ПрекратитьВыполнениеДанногоСценария = Ложь;
- ПерейтиКВыполнениюСледующегоСценария();
- Возврат;
- КонецЕсли;
РезультатПрохожденияТестовСценария.Вставить("НомерСтрокиВФиче", СтрокаСценария.НомерСтрокиВФиче);
РезультатПрохожденияШага = Новый Структура;
РезультатПрохожденияШага.Вставить("Имя", СтрокаШага.Имя);
РезультатПрохожденияШага.Вставить("ВремяНачала", ТекущаяУниверсальнаяДатаВМиллисекундах());
+ РезультатПрохожденияШага.Вставить("ВремяОкончания", ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияШага.Вставить("НомерСтрокиВФиче", СтрокаШага.НомерСтрокиВФиче);
РезультатПрохожденияШага.Вставить("ИДСтроки", ИДСтрокиШага);
РезультатПрохожденияШага.Вставить("ЭтоШагКонтекста", ТекШаг.ЭтоШагКонтекста);
РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
+ Если ПрекратитьВыполнениеДанногоСценария Тогда
+ РезультатПрохожденияШага.Вставить("Статус", "Success");
+ РезультатПрохожденияТестовСценария.Вставить("ВремяОкончания", ТекущаяУниверсальнаяДатаВМиллисекундах());
+
+ ПрекратитьВыполнениеДанногоСценария = Ложь;
+ ПерейтиКВыполнениюСледующегоСценария();
+ Возврат;
+ КонецЕсли;
+
+
АдресСнипета = ТекШаг.АдресСнипета;
Если СокрЛП(АдресСнипета) = "" Тогда
ОстановитьЗаписьВидеоОдногоШага();
+ АктивизироватьСтрокуДереваТекущегоШага();
СтрокаШага.Статус = "Pending";
СтрокаШага.ТипКартинки = 6;
СтрокаСценария.Статус = СтрокаШага.Статус;
- ТекстСообщения = "Пустой адрес снипета у шага: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Пустой адрес снипета у шага: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекШаг.Имя);
ОписаниеОшибки = ТекстСообщения;
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Pending: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Pending: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -11679,7 +11813,7 @@
Если Объект.ПриравниватьPendingКFailed Тогда
СтатусЗапускаСценариев = Ложь;
Если Объект.ДелатьЛогОшибокВТекстовыйФайл Тогда
- ТекстСообщения = "Шаг сценария не реализован.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Шаг сценария не реализован.");
ЗаписатьЛогОшибки(СтрокаСценария,СтрокаШага,ТекстСообщения,Неопределено,ОписаниеОшибки);
КонецЕсли;
КонецЕсли;
@@ -11703,7 +11837,7 @@
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки", ОписаниеОшибки);
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Failed: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Failed: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -11742,9 +11876,9 @@
ПодключитьКонтекстОбработкиКлиент(Файл);
ОбработкаТеста = ТаблицаКонтекстовОбработок[ИД].Обработка;
Если ОбработкаТеста = Неопределено Тогда
- ТекстСообщения = "Не смог подключить обработку <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог подключить обработку <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",АдресСнипета);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;
@@ -11851,31 +11985,35 @@
Отладка("ОписаниеОшибки()=" + ОписаниеОшибки());
ОписаниеОшибкиСтр = ОписаниеОшибки();
+ АктивизироватьСтрокуДереваТекущегоШага();
+
Если Найти(НРег(ОписаниеОшибкиСтр),НРег("Ошибка сетевого взаимодействия при вызове")) > 0 Тогда
//это нужно, чтобы сообщить вызывающей системе, что было потеряно соединение с TestClient
ВозниклаОшибкаОшибкаСетевогоВзаимодействия = Истина;
КонецЕсли;
Если Найти(ОписаниеОшибкиСтр, "}: Не реализовано.") > 0 Тогда //тогда это Pending
- ТекстСообщения = "Шаг (%1) не реализован.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Шаг (%1) не реализован.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекШаг.Имя);
ОписаниеОшибкиШага = ТекстСообщения;
СделатьСообщение(ОписаниеОшибкиШага);
- ТекстСообщения = "Не реализовано.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не реализовано.");
СтрОшибка = ТекстСообщения;
ШагНеРеализован = Истина;
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ЗаписатьСтрокуВТекстовыйЛог("Pending: " + ТекстСообщения);
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Pending: %1");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекстСообщения);
+ ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
ОстановитьЗаписьВидеоОдногоШага();
Если Объект.ПриравниватьPendingКFailed Тогда
Если Объект.ДелатьЛогОшибокВТекстовыйФайл Тогда
- ТекстСообщения = "Шаг сценария не реализован.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Шаг сценария не реализован.");
ЗаписатьЛогОшибки(СтрокаСценария,СтрокаШага,ТекстСообщения,Неопределено,ОписаниеОшибкиШага);
КонецЕсли;
КонецЕсли;
@@ -11909,11 +12047,11 @@
КонецЕсли;
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Шаг (%1) не выполнен. Строка дерева №%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Шаг (%1) не выполнен. Строка дерева №%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекШаг.Имя);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",XMlСтрока(ТекШаг.ИдСтроки));
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
- ТекстСообщения = "Failed: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Failed: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрОшибка);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -11943,7 +12081,6 @@
СтрокаШага.ТипКартинки = 4;
РезультатПрохожденияШага.Вставить("Статус", СтрокаШага.Статус);
КонецЕсли;
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
ПерейтиКВыполнениюСледующегоШага(, , ИдСледующегоШага);
Иначе
@@ -11953,6 +12090,8 @@
СтрокаШага = ПолучитьСтрокуШагаИзДанныхФормы(ИДСтрокиШага);
+ АктивизироватьСтрокуДереваТекущегоШага();
+
Если ШагНеРеализован Тогда
СтрокаШага.Статус = "Pending";
СтрокаШага.ТипКартинки = 6;
@@ -11977,7 +12116,6 @@
БылаОшибка = Ложь;
ОписаниеОшибки = "";
ДействияПослеЗавершенияСценария(СтрокаСценария, БылаОшибка, ОписаниеОшибки);
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
Если БылаОшибка Тогда
СтатусЗапускаСценариев = Ложь;
@@ -11986,7 +12124,7 @@
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
ЗаписатьСтрокуВТекстовыйЛог("Ошибка в процедуре ПередОкончаниемСценария().");
- ТекстСообщения = "Описание ошибки: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Описание ошибки: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -12319,15 +12457,26 @@
КонецПроцедуры
&НаКлиенте
-Процедура АктивизироватьСледующуюСтрокуДерева()
+Процедура АктивизироватьСтрокуДереваТекущегоШага(ИдСтрокиДерева = Неопределено)
+ ИдСтрокиДляАктивации = ИдСтрокиДерева;
+ Если ИдСтрокиДляАктивации = Неопределено Тогда
+ ИдСтрокиДляАктивации = ТекИД_ШагаВМассиве;
+ КонецЕсли;
+
+ Если ИдСтрокиДляАктивации = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
Шаги = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги;
- Если (Шаги.Количество() - 1) >= ТекИД_ШагаВМассиве Тогда
+ Если (Шаги.Количество() - 1) >= ИдСтрокиДляАктивации Тогда
Если Объект.РежимВыполненияОдногоШага Тогда
СтрокаШага = НайтиСтрокуДереваПоДаннымПоиска(СтруктураПоискаСтрокДерева.ДанныеПоискаСтрокиШага);
Элементы.ДеревоТестов.ТекущаяСтрока = СтрокаШага.ПолучитьИдентификатор();
Иначе
- СтрокаШага = МассивСтрокДереваДанныеФормы[Шаги[ТекИД_ШагаВМассиве].СтрокаШага];
- Элементы.ДеревоТестов.ТекущаяСтрока = СтрокаШага.ПолучитьИдентификатор();
+ Если ИдСтрокиДляАктивации >= 0 Тогда
+ СтрокаШага = МассивСтрокДереваДанныеФормы[Шаги[ИдСтрокиДляАктивации].СтрокаШага];
+ Элементы.ДеревоТестов.ТекущаяСтрока = СтрокаШага.ПолучитьИдентификатор();
+ КонецЕсли;
КонецЕсли;
КонецЕсли;
@@ -12370,7 +12519,7 @@
АдресСнипета = ТекШаг.АдресСнипета;
ИмяПроцедуры = ТекШаг.СтрокаРеальнойПроцедуры;
- ТекстСообщения = "Шаг (%1) не выполнен.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Шаг (%1) не выполнен.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекШаг.Имя );
СделатьСообщение(ТекстСообщения);
@@ -12404,7 +12553,7 @@
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Failed: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Failed: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -12503,7 +12652,7 @@
КонецЕсли;
Если Не НашлиШаг Тогда
- ВызватьИсключение "Не смог определить следующий шаг для выполнения.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не смог определить следующий шаг для выполнения.");
КонецЕсли;
Иначе
@@ -12539,18 +12688,18 @@
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки", ОписаниеОшибки);
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Failed: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Failed: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
КонецЕсли;
ОстановитьЗаписьВидеоОдногоШага();
+ АктивизироватьСтрокуДереваТекущегоШага(ТекИД_ШагаВМассиве-1);
Если СтрокаСценария.Статус = "Failed" и Объект.ДелатьСкриншотПриВозникновенииОшибки Тогда
СделатьСкриншотВозникновенияОшибки("ПередОкончаниемСценария", СтрокаСценария, РезультатПрохожденияТестовСценария);
Иначе
-
ПерейтиКВыполнениюСледующегоСценария();
КонецЕсли;
@@ -12586,7 +12735,9 @@
КонецЕсли;
КонецЕсли;
- АктивизироватьСледующуюСтрокуДерева();
+ Если Объект.ВыполнятьШагиАссинхронно Тогда
+ АктивизироватьСтрокуДереваТекущегоШага();
+ КонецЕсли;
ИнтервалДляВыполненияШага = Объект.ИнтервалВыполненияШага;
Если Объект.ИдетЗаписьВидео Тогда
@@ -12601,21 +12752,21 @@
Если МассивTTS <> Неопределено Тогда
ИнтервалДляВыполненияШага = 0.1;
КонецЕсли;
-
КонецЕсли;
ОбработкаПрерыванияПользователя();
Если (ВыполнитьШагЧерезТаймер = Истина) Тогда
- ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам прорисоваться
+ ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам обновиться
ИначеЕсли (НЕ Объект.ВыполнятьШагиАссинхронно) и (СчетчикШаговБезТаймера >= МаксСчетчикШаговБезТаймера) Тогда
+ АктивизироватьСтрокуДереваТекущегоШага();
СчетчикШаговБезТаймера = 1;
- ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам прорисоваться
+ ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам обновиться
ИначеЕсли (НЕ Объект.ВыполнятьШагиАссинхронно) Тогда
СчетчикШаговБезТаймера = СчетчикШаговБезТаймера + 1;
ВыполнитьШаг();//просто вызываем следующий шаг
Иначе
- ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам прорисоваться
+ ПодключитьОбработчикОжидания("ВыполнитьШаг", ИнтервалДляВыполненияШага, Истина); //вызвываем шаг через таймер, чтобы дать всем формам обновиться
КонецЕсли;
КонецПроцедуры
@@ -12715,7 +12866,7 @@
Попытка
ВызватьМетод(ОбработкаТеста, ИмяПроцедуры, МассивПараметров);
Исключение
- ТекстСообщения = "Ошибка в %1. %2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ошибка в %1. %2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПроцедуры);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -12924,7 +13075,7 @@
ФайлКаталог = Новый Файл(Файл.Путь);
Если НЕ ФайлСуществуетКомандаСистемы(ФайлКаталог.ПолноеИмя) Тогда
- ТекстСообщения = "Не могу выгрузить статус сценариев, т.к. каталог %1 не существует.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не могу выгрузить статус сценариев, т.к. каталог %1 не существует.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФайлКаталог.ПолноеИмя);
СделатьСообщение(ТекстСообщения);
Возврат;
@@ -12948,7 +13099,7 @@
ЗТ.Закрыть();
- ТекстСообщения = "Записал файл статуса билда: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Записал файл статуса билда: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПутьКФайлу);
СделатьСообщение(ТекстСообщения);
КонецПроцедуры
@@ -13093,7 +13244,7 @@
КонецЦикла;
Если Не Нашли Тогда
- ВызватьИсключение "Не найден элемент дерева по данным поиска";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не найден элемент дерева по данным поиска");
КонецЕсли;
КонецЦикла;
@@ -13186,7 +13337,7 @@
ФайлXMLДвоичныеДанные = Элем.ФайлXMLДвоичныеДанные;
ФайлXMLДвоичныеДанные.Записать(ИмяФайлаXML);
- ТекстСообщения = "Файл отчета Allure-report (%1) записан.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл отчета Allure-report (%1) записан.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаXML);
СделатьСообщение(ТекстСообщения);
КонецЦикла;
@@ -13212,7 +13363,7 @@
КонецЕсли;
СтруктураОФ.xml.Записать(ИмяФайлаXML);
- ТекстСообщения = "Файл отчета jUnit-report (%1) записан.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл отчета jUnit-report (%1) записан.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаXML);
СделатьСообщение(ТекстСообщения);
КонецЕсли;
@@ -13237,7 +13388,7 @@
КонецЕсли;
СтруктураОФ.json.Записать(ИмяФайлаJson);
- ТекстСообщения = "Файл отчета CucumberJson-report (%1) записан.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл отчета CucumberJson-report (%1) записан.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаJson);
СделатьСообщение(ТекстСообщения);
КонецЕсли;
@@ -13324,7 +13475,7 @@
Если НЕ Объект.РежимВыполненияОдногоШага Тогда
- Сообщить(" ");
+ Сообщить(ПолучитьТекстСообщенияПользователю(" "));
СделатьСообщение(ПолучитьТекстСообщенияПользователю("Работаю по сценарию") + ": " + МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Имя);
КонецЕсли;
@@ -13336,7 +13487,7 @@
Если НЕ СравнитьПутиФайлов(ТекущийИсполняемыйФичаФайл,ИмяФичаФайла) Тогда
ТекущийИсполняемыйФичаФайл = ИмяФичаФайла;
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
- ТекстСообщения = "Фича: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Фича: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекущийИсполняемыйФичаФайл);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
Если МассивСценариевДляВыполнения.Количество() > 0 Тогда
@@ -13401,7 +13552,7 @@
Если Объект.ДелатьЛогВыполненияСценариевВТекстовыйФайл Тогда
ЗаписатьСтрокуВТекстовыйЛог("");
ЗаписатьСтрокуВТекстовыйЛог("Ошибка в процедуре ПередНачаломСценария().");
- ТекстСообщения = "Failed: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Failed: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки);
ЗаписатьСтрокуВТекстовыйЛог(ТекстСообщения);
КонецЕсли;
@@ -13418,6 +13569,7 @@
Возврат;
КонецЕсли;
+ АктивизироватьСтрокуДереваТекущегоШага();
ПерейтиКВыполнениюСледующегоШага();
КонецПроцедуры
@@ -14117,9 +14269,9 @@
Поз = Найти(Стр, "=");
Если Поз = 0 Тогда
- ТекстСообщения = "Странный параметр в логе инструкции HTML: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Странный параметр в логе инструкции HTML: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Стр);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ИмяПараметра = Лев(Стр, Поз - 1);
@@ -14200,7 +14352,7 @@
Страница.ЗаписатьСтроку(" ");
Страница.ЗаписатьСтроку("/");
- ТекстСообщения = "Записываю %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Записываю %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаДляЗаписи);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Страница.Закрыть();
@@ -14280,9 +14432,9 @@
Поз = Найти(Стр, "=");
Если Поз = 0 Тогда
- ТекстСообщения = "Странный параметр в логе инструкции Markdown: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Странный параметр в логе инструкции Markdown: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Стр);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ИмяПараметра = Лев(Стр, Поз - 1);
@@ -14390,7 +14542,7 @@
КонецЦикла;
КонецЦикла;
- ТекстСообщения = "Записываю %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Записываю %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаДляЗаписи);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Страница.Закрыть();
@@ -14435,10 +14587,11 @@
Префикс = "[" + СтатусыРезультатаТестирования.ОшибкаПроверки + "]";
ТекстСообщения = Префикс + " " + СообщениеОшибки;
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецПроцедуры
+
&НаКлиентеНаСервереБезКонтекста
Функция ПараметрыСтрокой(Параметры, ИмяПеременной = "Параметры")
@@ -14618,7 +14771,7 @@
ВывестиТекстФайлаЛога(ИмяФайлаЛога);
ВывестиТекстФайлаЛога(ИмяФайлаOUT);
- ТекстСообщения = "Проверьте работу команды <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Проверьте работу команды <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КомандаСистемы);
СделатьСообщение(ТекстСообщения);
Возврат Неопределено;
@@ -14646,9 +14799,9 @@
НайтиФайлыКомандаСистемы(ПутьКИсходникам, СписокКаталогов, СписокФайлов, Ложь);
Если СписокФайлов.Количество() <> 1 Тогда
- ТекстСообщения = "В каталоге <%1> должен был быть один файл xml.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("В каталоге <%1> должен был быть один файл xml.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПутьКИсходникам);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ФайлXML = СписокФайлов[0].Значение;
@@ -14667,7 +14820,7 @@
ОчиститьСодержимоеКаталога(ВременныйКаталогБазы);
Исключение
- ТекстСообщения = "Не смог распаковать %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог распаковать %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
СделатьСообщение(ТекстСообщения);
СделатьСообщение(ОписаниеОшибки());
@@ -14869,9 +15022,9 @@
Файл = Новый Файл(ИмяФайлаФормаУФ);
Если Не ФайлСуществуетКомандаСистемы(ИмяФайлаФормаУФ) Тогда
- ТекстСообщения = "Файл <%1> не найден.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл <%1> не найден.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаФормаУФ);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ВременноеИмяФайла = ПолучитьИмяВременногоФайла("txt");
@@ -14937,7 +15090,7 @@
Если Не НашлиМодуль Тогда
- ВызватьИсключение "Не смог найти код модуля формы в файле ИмяФайлаФормаУФ.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не смог найти код модуля формы в файле ИмяФайлаФормаУФ.");
КонецЕсли;
@@ -15041,7 +15194,7 @@
&НаКлиенте
Процедура СоздатьКаталогЕслиЕгоНет(Путь)
Если СокрЛП(Путь) = "" Тогда
- ВызватьИсключение "Передан пустой путь в процедуру <СоздатьКаталогЕслиЕгоНет>.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Передан пустой путь в процедуру <СоздатьКаталогЕслиЕгоНет>.");
КонецЕсли;
СоздатьКаталогКомандаСистемы(Путь);
КонецПроцедуры
@@ -15122,7 +15275,7 @@
ВывестиТекстФайлаЛога(ИмяФайлаЛога);
ВывестиТекстФайлаЛога(ИмяФайлаOUT);
- ТекстСообщения = "Проверьте работу команды <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Проверьте работу команды <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КомандаСистемы);
СделатьСообщение(ТекстСообщения);
Возврат ;
@@ -15153,17 +15306,17 @@
КонецЕсли;
ПереместитьФайлКомандаСистемы(ИмяВременногоEPF, СтруктураОписанияEpf.ИмяФайлаEpf);
Если СтруктураОписанияEpf.ФайлEpfПересоздавался Тогда
- ТекстСообщения = "Пересоздан %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Пересоздан %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтруктураОписанияEpf.ИмяФайлаEpf);
СделатьСообщение(ТекстСообщения);
Иначе
- ТекстСообщения = "Создан %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Создан %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтруктураОписанияEpf.ИмяФайлаEpf);
СделатьСообщение(ТекстСообщения);
КонецЕсли;
Иначе
СделатьСообщение("Файл EPF не создан.");
- ТекстСообщения = "Проверьте работу команды <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Проверьте работу команды <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КомандаСистемы);
СделатьСообщение(ТекстСообщения);
ВывестиТекстФайлаЛога(ИмяФайлаЛога);
@@ -15192,9 +15345,9 @@
Процедура УдалитьИсходникиEPF(ИмяФайлаEpf)
ФайлEpf = Новый Файл(ИмяФайлаEpf);
Если Не ФайлСуществуетКомандаСистемы(ФайлEpf.ПолноеИмя, "УдалитьИсходникиEPF" ) Тогда
- ТекстСообщения = "Файл <%1> не существует.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл <%1> не существует.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаEpf);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Путь = ФайлEpf.Путь + "Src";
@@ -15245,7 +15398,7 @@
ФайлФичи = Новый Файл(ИмяФайлаФичи);
ИмяТекущейФичи = ФайлФичи.ИмяБезРасширения;
- ТекстСообщения = "Работаю по фиче: %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Работаю по фиче: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайлаФичи);
СделатьСообщение(ТекстСообщения);
@@ -15466,9 +15619,9 @@
Попытка
Значение = ТаблицаTestClient[0][Колонка.Заголовок];
Исключение
- ТекстСообщения = "В таблице не найдена колонка <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("В таблице не найдена колонка <%1>",СтруктураПараметров.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Колонка.Заголовок);
- ВызватьИсключение ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,СтруктураПараметров.ТекстСообщенийПользователю);
+ ВызватьИсключение ТекстСообщения;
КонецПопытки;
КонецЦикла;
@@ -15687,10 +15840,10 @@
Если МассивЭлементов.Количество() > 1 Тогда
ВывестиСообщениеОТомЧтоПоЗаголовкуНайденоБольшеОдногоЭлемента(МассивЭлементов, ИмяРеквизита);
- ТекстСообщения = "Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Найдено более одного поля формы с заголовком <%1>. Рекомендуется искать элемент по имени.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолеРеквизит = МассивЭлементов[0];
@@ -15776,7 +15929,7 @@
МассивОбъектов = ПолучитьЭлементыФормыИерархически(ТекущаяФорма, МассивЗаголовковПолей, МассивЗаголовковКнопок);
Исключение
- ТекстСообщения = "ДобавитьСостояниеФормыTestclient:%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ДобавитьСостояниеФормыTestclient:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецПопытки;
@@ -16523,7 +16676,7 @@
ИначеЕсли ИмяУзла = "addRow" Тогда
//Если МассивОбъектов[ИдВМассиве - 1] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я добавляю новую строку");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я добавляю строку");
КонецЕсли;
ИначеЕсли ИмяУзла = "open" Тогда
Если МассивОбъектов[ИдВМассиве - 1] = "FormField" Тогда
@@ -16951,14 +17104,14 @@
Объект.СгенерированныйКод = Текст.ПолучитьТекст();
Исключение
- Сообщить("Не смог обработать XML в UILogToScript.");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Не смог обработать XML в UILogToScript."));
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
ПолучитьТекстФичиИзДействийПользователя(Стр);
Исключение
- Сообщить("Ошибка при получении текста фичи:");
+ Сообщить(ПолучитьТекстСообщенияПользователю("Ошибка при получении текста фичи:"));
Сообщить(ОписаниеОшибки());
КонецПопытки;
@@ -16998,7 +17151,7 @@
НайденДиалогАвторизации = НаЭкранеДиалогАвторизации();
Если НайденДиалогАвторизации Тогда
- ВызватьИсключение "Не удалось авторизоваться в базе.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не удалось авторизоваться в базе.");
КонецЕсли;
ЗаполнитьКонтекстСохраняемыйДляТестовоеПриложение(ТестовоеПриложение);
@@ -17021,7 +17174,7 @@
ТестовоеПриложение.УстановитьСоединение();
ГлавноеОкноТестируемого = ПолучитьГлавноеОкноТестируемого(ТестовоеПриложение);
Если ГлавноеОкноТестируемого = Неопределено Тогда
- //ВызватьИсключение "Не смог найти ГлавноеОкноТестируемого у уже подключенного TestClient.";
+ //ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не смог найти ГлавноеОкноТестируемого у уже подключенного TestClient.");
Возврат Ложь;
КонецЕсли;
ЗаполнитьКонтекстСохраняемыйДляТестовоеПриложение(ТестовоеПриложение);
@@ -17193,8 +17346,9 @@
МаксДата = ТекущаяДата() + Объект.ТаймаутЗапуска1С;
Пока Истина Цикл
Если ТекущаяДата() > МаксДата Тогда
- ВызватьИсключение "Не смог подключить TestClient. Прерывание по таймауту <"
- + Объект.ТаймаутЗапуска1С + ">";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог подключить TestClient. Прерывание по таймауту <%1>");
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1","Объект.ТаймаутЗапуска1С");
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ПолучилосьУстановитьСоединение = Ложь;
@@ -17273,9 +17427,9 @@
УстановитьКонектСTestClient(ДанныеЗапускаКлиентаТестирования, ТестовоеПриложение);
Если НЕ ТестовоеПриложение.ОжидатьОтображениеОбъекта(Тип("ТестируемоеОкноКлиентскогоПриложения"),,,Объект.ТаймаутЗапуска1С) Тогда
- ТекстСообщения = "Не дождались отображения окна TestClient. Таймаут <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не дождались отображения окна TestClient. Таймаут <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Объект.ТаймаутЗапуска1С);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
@@ -17286,21 +17440,21 @@
НайденДиалогАвторизации = НаЭкранеДиалогАвторизации();
Если НайденДиалогАвторизации Тогда
- ВызватьИсключение "Не удалось авторизоваться в базе.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Не удалось авторизоваться в базе.");
КонецЕсли;
НаЭкранеОкноПредупреждения = НаЭкранеОкноПредупреждения();
Если НаЭкранеОкноПредупреждения Тогда
ТекстПредупреждения = ПолучитьТекстПредупреждения();
- ТекстСообщения = "При подключении TestClient возникло сообщение:";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("При подключении TestClient возникло сообщение:");
ТекстСообщения = ТекстСообщения + Символы.ПС + ТекстПредупреждения;
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если НЕ ТестовоеПриложение.ОжидатьОтображениеОбъекта(Тип("ТестируемоеОкноКлиентскогоПриложения"),,,Объект.ТаймаутЗапуска1С) Тогда
- ТекстСообщения = "Не дождались отображения окна TestClient. Таймаут <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не дождались отображения окна TestClient. Таймаут <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Объект.ТаймаутЗапуска1С);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ТекстСообщения = ПолучитьТекстСообщенияПользователю("TestClient подключен на %1 порту.");
@@ -17422,11 +17576,11 @@
Для каждого Форма Из МассивФорм Цикл
Попытка
ДобавитьВнешнийСписокПроцедур(Форма.ПолучитьСписокТестов(ЭтаФорма), Форма.УникальныйИдентификатор, Форма);
- ТекстСообщения = "Подключили для отладки форма %1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Подключили для отладки форма %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Форма.Заголовок);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Исключение
- ТекстСообщения = "Не удалось подключить форма %1 по причине:%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не удалось подключить форма %1 по причине:%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Форма.Заголовок);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -18127,7 +18281,7 @@
СтруктураЗначения.Вставить("ТабДок", ТабДок);
КонецЕсли;
Исключение
- ТекстСообщения = "Не смог получить значение табличного документа <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог получить значение табличного документа <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ЭлементФормы.Имя);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Сообщить(ОписаниеОшибки());
@@ -18234,14 +18388,14 @@
КонецЕсли;
- ТекстСообщения = "Найдена форма: ТекстЗаголовка=%1, ИмяФормы=%2. Окно <%3>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Найдена форма: ТекстЗаголовка=%1, ИмяФормы=%2. Окно <%3>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекущаяФорма.ТекстЗаголовка);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТекущаяФорма.ИмяФормы);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",АктивноеОкно.Заголовок);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Исключение
- Сообщить("Ошибка при получении активной формы.");
- ТекстСообщения = "ПолучитьСостояниеФормыTestClient:%1";
+ Сообщить(ПолучитьТекстСообщенияПользователю("Ошибка при получении активной формы."));
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("ПолучитьСостояниеФормыTestClient:%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ОписаниеОшибки());
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Возврат Неопределено;
@@ -18763,7 +18917,7 @@
Если СохраненноеСостояниеФормыTestClient <> Неопределено Тогда
Если СохраненноеСостояниеФормыTestClient.ИмяФормы <> ТекущееСостояниеФормы.ИмяФормы Тогда
- ТекстСообщения = "Изменилось имя формы: было: %1, стало: %2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Изменилось имя формы: было: %1, стало: %2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СохраненноеСостояниеФормыTestClient.ИмяФормы);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",ТекущееСостояниеФормы.ИмяФормы);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -18776,7 +18930,7 @@
Если Тип = "Gherkin" Тогда
Изменения = ВывестиИзмененияФормыGherkin(СохраненноеСостояниеФормыTestClient, ТекущееСостояниеФормы,ДопПараметры);
Иначе
- ВызватьИсключение "Неизвестный тип вывода данных по изменению формы.";
+ ВызватьИсключение ПолучитьТекстСообщенияПользователю("Неизвестный тип вывода данных по изменению формы.");
КонецЕсли;
Объект.СгенерированныйСценарий = Изменения;
@@ -19001,9 +19155,9 @@
Шаги = СтруктураПараметров.Шаги;
Для каждого ТекШаг Из Шаги Цикл
Если Не ЗначениеЗаполнено(ТекШаг.АдресСнипета) Тогда
- ТекстСообщения = "Для шага <%1> не найден EPF файл.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Для шага <%1> не найден EPF файл.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ТекШаг.Имя);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
ИмяПроцедуры = ТекШаг.СтрокаРеальнойПроцедуры;
@@ -19031,7 +19185,7 @@
&НаКлиенте
Процедура ВывестиСообщениеОТомЧтоПоЗаголовкуНайденоБольшеОдногоЭлемента(МассивЭлементов, ИмяРеквизита)
- ТекстСообщения = "Обнаружено несколько полей с заголовком <%1>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Обнаружено несколько полей с заголовком <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяРеквизита);
Сообщить(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
Ном = 0;
@@ -19043,7 +19197,7 @@
ПредставлениеДанных = "";
КонецПопытки;
- ТекстСообщения = "№%1. Заголовок=<%2>. Имя=<%3>. ТекстПоля = <%4>";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("№%1. Заголовок=<%2>. Имя=<%3>. ТекстПоля = <%4>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Ном);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Элем.ТекстЗаголовка);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",Элем.Имя);
@@ -19109,7 +19263,7 @@
PID = Число(PID);
Массив.Добавить(PID);
Исключение
- ТекстСообщения = "Не смог преобразовать к числу PID=%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смог преобразовать к числу PID=%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",PID);
СделатьСообщение(ТекстСообщения);
КонецПопытки;
@@ -19192,7 +19346,7 @@
ТекКоординаты = МассивКоординатОкон1С[ТекProcessID];
- ТекстСообщения = "Активирую окно с координатами: %1;%2";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Активирую окно с координатами: %1;%2");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",XMlСтрока(ТекКоординаты.x));
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",XMlСтрока(ТекКоординаты.y));
СделатьСообщение(ТекстСообщения);
@@ -19284,7 +19438,7 @@
КонецЕсли;
- ТекстСообщения = "Найдено %1 окон.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Найдено %1 окон.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",МассивКоординатОкон1С.Количество());
СделатьСообщение(ТекстСообщения);
@@ -19534,7 +19688,7 @@
СвободныйПорт = ПроверитьПортНаЗанятость(ДанныеЗапускаКлиентаТестирования.ПортЗапускаТестКлиента);
Если СвободныйПорт <> ДанныеЗапускаКлиентаТестирования.ПортЗапускаТестКлиента Тогда
ТекстСообщения = ПолучитьТекстСообщенияПользователю("Порт %1 занят или находится вне указанного диапазона, порт подключения изменен на %2");
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ДанныеЗапускаКлиентаТестирования.ПортЗапускаТестКлиента);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Формат(ДанныеЗапускаКлиентаТестирования.ПортЗапускаТестКлиента, "ЧГ="));
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",СвободныйПорт);
СделатьСообщение(ТекстСообщения);
ДанныеЗапускаКлиентаТестирования.ПортЗапускаТестКлиента = СвободныйПорт;
@@ -19588,7 +19742,7 @@
КонецЕсли;
- ТекстСообщения = "СтрокаЗапуска=%1";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("СтрокаЗапуска=%1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",СтрокаЗапуска);
Отладка(ПолучитьТекстСообщенияПользователю(ТекстСообщения));
@@ -20252,9 +20406,9 @@
&НаКлиенте
Функция НайтиТЧВДаннойФорме(ИмяТЧ,НужнаяФорма,ИскатьПоИмени)
Если НужнаяФорма = Неопределено Тогда
- ТекстСообщения = "Не смогли найти таблицу <%1> в активном окне.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Не смогли найти таблицу <%1> в активном окне.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяТЧ);
- ВызватьИсключение ПолучитьТекстСообщенияПользователю(ТекстСообщения);
+ ВызватьИсключение ТекстСообщения;
КонецЕсли;
Если ИмяТЧ = "" Тогда
ТЧ = НужнаяФорма.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"));
@@ -20330,7 +20484,7 @@
КонецЕсли;
Если НЕ ФайлСуществуетКомандаСистемы(ИмяФайла) Тогда
- ТекстСообщения = "Файл <%1> не существует.";
+ ТекстСообщения = ПолучитьТекстСообщенияПользователю("Файл <%1> не существует.");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
СделатьСообщение(ТекстСообщения);
Возврат Неопределено;
@@ -20434,7 +20588,7 @@
Процедура ПроверитьФлагОстановкаПриВозникновенииОшибки()
Если Объект.ОстановкаПриВозникновенииОшибки Тогда
Если МассивСценариевДляВыполнения.Количество()-1 > ТекИД_СценарияВМассиве Тогда
- СделатьСообщение("Установлен флаг ""Остановка при возникновении ошибки"". Выполнение следующих сценариев отменено.");
+ СделатьСообщение("Установлен флаг <Остановка при возникновении ошибки>. Выполнение следующих сценариев отменено.");
ПрекратитьВыполнениеВсехСценариев = Истина;
КонецЕсли;
КонецЕсли;
@@ -20476,9 +20630,9 @@
ДопПараметры.Вставить("ТекстСообщенийПользователю",ТекстСообщенийПользователю);
- СлужебныеПеременные = Новый Структура;
- СлужебныеПеременные.Вставить("ТекстСообщенийПользователю",ТекстСообщенийПользователю);
- ОбъектСервер.УстановитьСлужебныеПеременные(СлужебныеПеременные);
+ ОбъектСервер.ТекстСообщенийПользователю = ТекстСообщенийПользователю;
+
+ ЗначениеВРеквизитФормы(ОбъектСервер,"Объект");
КонецПроцедуры
&НаКлиенте
diff --git "a/VanessaBehavior/Templates/\320\236\321\202\321\207\320\265\321\202\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217/Ext/Template.xml" "b/VanessaBehavior/Templates/\320\236\321\202\321\207\320\265\321\202\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217/Ext/Template.xml"
index d736037452..241103ebc2 100644
--- "a/VanessaBehavior/Templates/\320\236\321\202\321\207\320\265\321\202\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217/Ext/Template.xml"
+++ "b/VanessaBehavior/Templates/\320\236\321\202\321\207\320\265\321\202\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217/Ext/Template.xml"
@@ -23,6 +23,36 @@