Skip to content

Commit

Permalink
Merge branch 'release/1.2.006'
Browse files Browse the repository at this point in the history
  • Loading branch information
Pr-Mex committed Jun 12, 2018
2 parents ab49b3d + 2847d5f commit 1423b87
Show file tree
Hide file tree
Showing 94 changed files with 11,031 additions and 3,867 deletions.
3 changes: 2 additions & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -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).

В данном репозитории хранятся только исходники.
Expand All @@ -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.

Expand Down
36 changes: 36 additions & 0 deletions VanessaBehavior.xml
Original file line number Diff line number Diff line change
Expand Up @@ -4522,6 +4522,42 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="992aa7c4-4d9d-4dba-97e0-828dd4f87ab2">
<Properties>
<Name>ТекстСообщенийПользователю</Name>
<Synonym>
<v8:item>
<v8:lang>bg</v8:lang>
<v8:content>ТекстСообщенийПользователю</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Text of messages to the user</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type/>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Form>Форма</Form>
<Form>УправляемаяФорма</Form>
<Form>ВыборИзвестногоШага</Form>
Expand Down
272 changes: 189 additions & 83 deletions VanessaBehavior/Ext/ObjectModule.bsl

Large diffs are not rendered by default.

Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,7 @@

ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
КонецПроцедуры

Expand Down Expand Up @@ -149,7 +149,7 @@

НайденныеСтрокиДерева = Дерево.Строки.НайтиСтроки(Новый Структура("ПолныйТипШага",Тип),Истина);
Если НайденныеСтрокиДерева.Количество() = 0 Тогда
ТекстСообщения = "Не найден тип шага <%1>";
ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Не найден тип шага <%1>",ДопПараметры.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
ВызватьИсключение(ТекстСообщения);
КонецЕсли;
Expand All @@ -167,8 +167,6 @@
СтрокаШага.Язык = "ru";

Если ТаблицаПеревода <> Неопределено Тогда
//СтрокаПоиска = НРег(СтрТаблицаИзвестныхStepDefinition.Id);
//СтрокаПоиска = Лев(СтрокаПоиска,Найти(СтрокаПоиска,"(")-1);
СтрокаПоиска = СтрТаблицаИзвестныхStepDefinition.СтрокаДляПоиска;

СтрокаТаблицаПеревода = ТаблицаПеревода.Найти(СтрокаПоиска,"СтрокаДляПоискаРусский");
Expand All @@ -181,9 +179,9 @@
СтрокаШага.ОписаниеШага = СтрокаТаблицаПеревода.ТекстПереводаОписание;
КонецЕсли;
Иначе
ТекстСообщения = "Не найден перевод для шага <%1>";
ТекстСообщения = ПолучитьТекстСообщенияПользователюСервер("Не найден перевод для шага <%1>",ДопПараметры.ТекстСообщенийПользователю);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ПредставлениеТеста);
Сообщить(ПолучитьТекстСообщенияПользователюСервер(ТекстСообщения,ДопПараметры.ТекстСообщенийПользователю));
Сообщить(ТекстСообщения);
КонецЕсли;
КонецЕсли;

Expand Down Expand Up @@ -426,7 +424,7 @@
КонецЕсли;

Оповестить("ВыборИзвестногоШага",Элемент.ТекущиеДанные.ПредставлениеТеста);
ТекстСообщения = "Добавил шаг: %1";
ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Добавил шаг: %1");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Элемент.ТекущиеДанные.ПредставлениеТеста);
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения));
КонецПроцедуры
Expand All @@ -435,7 +433,7 @@
Процедура ПоказыватьСлужебныеШагиПриИзменении(Элемент)
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();
ДопПараметры = Новый Структура;
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
КонецПроцедуры

Expand Down Expand Up @@ -513,7 +511,7 @@
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();

ДопПараметры = Новый Структура;
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);
Если Не ЗначениеЗаполнено(ФильтрДереваШагов) Тогда
Если ЗначениеЗаполнено(ТекстШага) Тогда
Expand Down Expand Up @@ -724,7 +722,7 @@
ДвДанныеvbFeatureReader = ПолучитьДДFeatureReader();

ДопПараметры = Новый Структура;
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ТекстСообщенийПользователю);
ДопПараметры.Вставить("ТекстСообщенийПользователю",Ванесса.ДанныеПереводаСообщенийПользователю());
ЗаполнитьДеревоИзвестныхШаговНаСервере(ДвДанныеvbFeatureReader,ДопПараметры);

Если ЗначениеЗаполнено(ТекстШага) Тогда
Expand Down
4 changes: 4 additions & 0 deletions VanessaBehavior/Forms/ДеталиОшибки/Ext/Form.xml
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,10 @@
<v8:lang>ru</v8:lang>
<v8:content>Детали ошибки</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Error details</v8:content>
</v8:item>
</Title>
<Width>50</Width>
<Height>20</Height>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -60,9 +60,9 @@
Процедура ПоказатьСравнениеТабличныхДокументовВСлужебнойБазе(ТаблицаЭталонТабДок,ТаблицаТекущееЗначениеТабДок)
ФайлТолстогоКлиента = КаталогПрограммы() + "1cv8.exe";
Если Не Ванесса.ФайлСуществуетКомандаСистемы(ФайлТолстогоКлиента) Тогда
ТекстСообщения = "Не найден файл толстого клиента <%1>";
ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не найден файл толстого клиента <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФайлТолстогоКлиента);
ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
ВызватьИсключение ТекстСообщения;
КонецЕсли;

КаталогTools = Ванесса.Объект.КаталогИнструментов + "\Tools\";
Expand All @@ -76,9 +76,9 @@
КонецЕсли;

Если Не Ванесса.ФайлСуществуетКомандаСистемы(КаталогСлужебнойБазы) Тогда
ТекстСообщения = "Не найден файл служебной базы. <%1>";
ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не найден файл служебной базы. <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КаталогСлужебнойБазы);
ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
ВызватьИсключение ТекстСообщения;
КонецЕсли;

СписокКаталогов = Новый СписокЗначений;
Expand All @@ -90,9 +90,9 @@
ИмяКоманды = """" + КаталогПрограммы() + "1cv8"" CreateInfoBase File=""" + КаталогСлужебнойБазы + """";
СтатусВозврата = Ванесса.ВыполнитьКомандуОСБезПоказаЧерногоОкна(ИмяКоманды);
Если СтатусВозврата <> 0 Тогда
ТекстСообщения = "Не смог выполнить команду. <%1>";
ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Не смог выполнить команду. <%1>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяКоманды);
ВызватьИсключение Ванесса.ПолучитьТекстСообщенияПользователю(ТекстСообщения);
ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецЕсли;

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -124,7 +124,7 @@

КонтекстСохраняемый = Ванесса.ПолучитьКонтекстСохраняемый();
Если НЕ КонтекстСохраняемый.Свойство("ТестовоеПриложение") Тогда
Сообщить("Не подключен TestClient.");
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("Не подключен TestClient."));
Возврат;
КонецЕсли;

Expand Down Expand Up @@ -225,7 +225,7 @@
ЗаполнитьТекстШаговПоАктивномуЭлементу();


Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("$Найден активный элемент формы$") + " <" + Имя + ">");
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("Найден активный элемент формы") + " <" + Имя + ">");
КонецЕсли;
КонецПроцедуры

Expand Down Expand Up @@ -816,4 +816,3 @@
ВключитьПоискАктивногоЭлементаФомры();
КонецЕсли;
КонецПроцедуры

Original file line number Diff line number Diff line change
Expand Up @@ -3275,6 +3275,10 @@
<v8:lang>ru</v8:lang>
<v8:content>№ строки</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Line number</v8:content>
</v8:item>
</Title>
<EditMode>EnterOnInput</EditMode>
<Width>3</Width>
Expand Down
Loading

0 comments on commit 1423b87

Please sign in to comment.