Skip to content

Commit

Permalink
Добавил возможность открытия основной формы ПВХ, issue 467 (#470)
Browse files Browse the repository at this point in the history
* Исправил опечатки

* Добавил возможность открытия основной формы плана видов характеристик, исправил опечатку

* Изменил "основную форму" на "основную форму списка"
  • Loading branch information
ovcharenko-di authored and artbear committed Apr 26, 2019
1 parent 42548b0 commit e6f1b1c
Show file tree
Hide file tree
Showing 4 changed files with 31 additions and 17 deletions.
2 changes: 2 additions & 0 deletions .github/CONTRIBUTING.md
Original file line number Diff line number Diff line change
Expand Up @@ -112,6 +112,8 @@ git checkout -b feature/issue-9999
* теперь нужно собрать бинарные файлы из исходников. Для этого запустите сборку:
```opm run cepf```

> ВНИМАНИЕ: текущая версия `opm` использует версию библиотери `fs`, которая не поддерживает некоторые методы, использующиеся в скриптах сборки. Поэтому необходимо либо запускать задание вызовом `oscript tasks/cepf.os`, либо обновить локальную установку `fs` внутри `opm` (запустить `opm install -l fs` в каталоге установки `opm`).
##### Изменения в плагинах/фичах/шагах/тестах

* в каталоге `add\features` добавьте новый `feature-файл`, если необходимо
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -46,7 +46,11 @@
"UI.Формы.Открыть форму объекта");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯОткрываюОсновнуюФормуРегистраСведений(Парам01)","ЯОткрываюОсновнуюФормуРегистраСведений",
"Дано Я открываю основную форму регистра сведений ""РегистрСведений1""",
"Открывает основную форму регистра накопления по его имени в метаданных",
"Открывает основную форму регистра сведений по его имени в метаданных",
"UI.Формы.Открыть форму объекта");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯОткрываюОсновнуюФормуСпискаПланаВидовХарактеристик(Парам01)","ЯОткрываюОсновнуюФормуСпискаПланаВидовХарактеристик",
"Дано Я открываю основную форму списка плана видов характеристик ""ПланВидовХарактеристик1""",
"Открывает основную форму списка плана видов характеристик по его имени в метаданных",
"UI.Формы.Открыть форму объекта");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯОткрываюНавигационнуюСсылку(Парам01)","ЯОткрываюНавигационнуюСсылку",
"Дано Я открываю навигационную ссылку ""e1cib/data/Справочник.Справочник1?ref=ad018df0619b11d5458a440b8c472f30""",
Expand Down Expand Up @@ -134,13 +138,21 @@
КонецПроцедуры

&НаКлиенте
//Дано Я открываю основную форму регистра накопления "РегистрСведений1"
//Дано Я открываю основную форму регистра сведений "РегистрСведений1"
//@ЯОткрываюОсновнуюФормуРегистраСведений(Парам01)
Процедура ЯОткрываюОсновнуюФормуРегистраСведений(ИмяОбъекта) Экспорт
АктивноеОкно = Ванесса.ПолучитьГлавноеОкноИзТестовоеПриложение();
АктивноеОкно.ВыполнитьКоманду("e1cib/list/РегистрСведений." + ИмяОбъекта);
КонецПроцедуры

&НаКлиенте
//Дано Я открываю основную форму списка плана видов характеристик "ПланВидовХарактеристик1"
//@ЯОткрываюОсновнуюФормуСпискаПланаВидовХарактеристик(Парам01)
Процедура ЯОткрываюОсновнуюФормуСпискаПланаВидовХарактеристик(ИмяОбъекта) Экспорт
АктивноеОкно = Ванесса.ПолучитьГлавноеОкноИзТестовоеПриложение();
АктивноеОкно.ВыполнитьКоманду("e1cib/list/ПланВидовХарактеристик." + ИмяОбъекта);
КонецПроцедуры

&НаКлиенте
//Дано Я открываю навигационную ссылку "e1cib/data/Справочник.Справочник1?ref=ad018df0619b11d5458a440b8c472f30"
//@ЯОткрываюНавигационнуюСсылку(Парам01)
Expand Down
2 changes: 1 addition & 1 deletion tasks/init.os
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
// SQLYOffs - нафиг этот прошлый век, такой параметр неправильным даже поддерживать не будем.
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--locale", "язык (страна)");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--crsqldb", "создать базу в случаии ее ее отсутствия [Y|N], по умолчанию Y");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--schjobdn", "апретить выполнение регламентных созданий (Y/N). Значение по умолчанию — Y");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--schjobdn", "Запретить выполнение регламентных созданий (Y/N). Значение по умолчанию — Y");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--susr", "имя администратора кластера");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--spwd", "пароль администратора кластера");
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды1, "--licdstr", "разрешить получение клиентских лицензий через сервер Y|N, default Y");
Expand Down
28 changes: 14 additions & 14 deletions tasks/Модули/Исходники.os
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,7 @@
Если ПредыдущийКлючМассиваПутей <> КлючМассиваФайловВФайлеНастроек Тогда
ПрочитатьНастройки(КлючМассиваФайловВФайлеНастроек);
КонецЕсли;

ПолучитьЛог();
Лог.Отладка("Полученные пути внешних файлов из файла настроек:");
Для каждого Путь Из МассивПутей Цикл
Expand All @@ -53,15 +53,15 @@
// ПарсерАргументовКоманднойСтроки - ПарсерАргументовКоманднойСтроки - <описание параметра>
//
Процедура УстановитьПараметрыСборкиРазборкиДляКоманднойСтроки(Знач ПарсерАргументовКоманднойСтроки) Экспорт
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметр(КлючКаталогБинарныхФайлов(),
ПарсерАргументовКоманднойСтроки.ДобавитьИменованныйПараметр(КлючКаталогБинарныхФайлов(),
"Путь к каталогу бинарных файлов.
// |По умолчанию это ""./build""");
|По умолчанию это ""./build""",
|По умолчанию это ""./build""",
Истина);
КонецПроцедуры

// Получить описание структуры для сборки/разборки
// В структу
// В структуру
//
// Параметры:
// ЗначенияПараметров - Соответствие - результата разбора командной строки через ПарсерАргументовКоманднойСтроки
Expand All @@ -83,11 +83,11 @@
ПутьКаталогаСборки = Значение + "/";
КонецЕсли;

Лог.Информация("Указан вариант хранения бинарных внешних файлов (epf,erf) %1",
Лог.Информация("Указан вариант хранения бинарных внешних файлов (epf,erf) %1",
?(Бинарники1СХранятсяРядомСИсходниками, "- в корневом каталоге", "- в каталоге " + ПутьКаталогаСборки));

Описание = Новый Структура("ПутьКаталогаСборки, Бинарники1СХранятсяРядомСИсходниками",

Описание = Новый Структура("ПутьКаталогаСборки, Бинарники1СХранятсяРядомСИсходниками",
ПутьКаталогаСборки, Бинарники1СХранятсяРядомСИсходниками);
Возврат Описание;
КонецФункции
Expand All @@ -103,7 +103,7 @@
Если Не ЗначениеЗаполнено(КлючМассиваПутей) Тогда
КлючМассиваПутей = "include";
КонецЕсли;

Настройки = ПолучитьИзJSONФайла(ПутьФайлаНастроек());
Ожидаем.Что(Настройки, "Не загружены настройки из файла настроек").Заполнено();

Expand Down Expand Up @@ -137,13 +137,13 @@
КонецФункции

Функция ИсполнитьКоманду(Знач СтрокаВыполнения, Знач КодировкаВывода = "") Экспорт

Команда = Новый Команда;
Команда.ПоказыватьВыводНемедленно(Истина);
Если Не ПустаяСтрока(КодировкаВывода) Тогда
Команда.УстановитьКодировкуВывода(КодировкаВывода);
КонецЕсли;

// Команда.ДобавитьЛогВыводаКоманды(ИмяЛога());//TODO вернуть после проверки на CI

Команда.УстановитьПравильныйКодВозврата(0);
Expand All @@ -153,11 +153,11 @@
Команда.Исполнить();

Возврат Команда.ПолучитьВывод();

КонецФункции

Функция Форматировать(Знач Уровень, Знач Сообщение) Экспорт

Если Не ЭтоWindows Тогда
Сообщение = СтрЗаменить(Сообщение, "No bp log location saved, using default.", "");
Если ПустаяСтрока(Сообщение) Тогда
Expand All @@ -172,7 +172,7 @@
Если РегуляркаПроверкиВерсииВанессаРаннер.Совпадает(Сообщение) Тогда
Результат = "";
Иначе

Результат = Сообщение;
Если Не РегуляркаПроверкиДатыВремени.Совпадает(Сообщение) Тогда
Результат = СтрШаблон("%1: %2 - %3", ТекущаяДата(), УровниЛога.НаименованиеУровня(Уровень), Сообщение);
Expand All @@ -189,7 +189,7 @@
Лог = Логирование.ПолучитьЛог(ИмяЛога());
Лог.УстановитьРаскладку(ЭтотОбъект);
КонецЕсли;
Возврат Лог;
Возврат Лог;
КонецФункции

Функция КаталогПроекта() Экспорт
Expand Down

0 comments on commit e6f1b1c

Please sign in to comment.