Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Возможность инициализации требуемой версии платформы 1С Предприятие и сообщение об ошибке в случае ее отсутствия #130

Open
wants to merge 8 commits into
base: develop
Choose a base branch
from
Open
14 changes: 7 additions & 7 deletions packagedef
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@

Описание.Имя("v8runner")
.Версия("1.7.0")
.Версия("1.8.0")
.ВерсияСреды("1.0.19")
.ЗависитОт("asserts", "0.4.0")
.ЗависитОт("fs", "0.5.0")
.ЗависитОт("logos", "1.0.2")
.ЗависитОт("tempfiles", "0.2.2")
.ЗависитОт("asserts", "1.3.0")
.ЗависитОт("fs", "1.0.0")
.ЗависитОт("logos", "1.3.0")
.ЗависитОт("tempfiles", "1.0.0")
.ЗависитОт("strings", "0.4.1")
.ЗависитОт("v8find", "0.1.2")
.ЗависитОт("1commands", "1.3.2")
.ЗависитОт("v8find", "0.1.5")
.ЗависитОт("1commands", "1.5.0")
.ВключитьФайл("src")
.ВключитьФайл("tests")
.ВключитьФайл("lib.config")
Expand Down
4 changes: 2 additions & 2 deletions readme.md
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,7 @@
Конфигуратор.УстановитьКонтекст("/IBConnectionString""Srvr=someserver:2041; Ref='database'""","Admin", "passw0rd");
```

В более простой форме - для файловой базы можно указать через ключ ```/S```:
В более простой форме - для файловой базы можно указать через ключ ```/F```:

```bsl
Конфигуратор.УстановитьКонтекст("/FC:\1cdb\mydatabase","Admin", "passw0rd");
Expand Down Expand Up @@ -102,4 +102,4 @@
- Функция КаталогСборки(Знач Каталог = "")
- Функция ПутьКПлатформе1С(Знач Путь = "")
- Процедура УстановитьКодЯзыка(Знач КодЯзыка)
- Процедура УстановитьКодЯзыкаСеанса(Знач КодЯзыкаСеанса)
- Процедура УстановитьКодЯзыкаСеанса(Знач КодЯзыкаСеанса)
29 changes: 20 additions & 9 deletions src/v8runner.os
Original file line number Diff line number Diff line change
Expand Up @@ -135,6 +135,10 @@

Параметры.Добавить(ТипГруппировки);

Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.17") Тогда
Параметры.Добавить("-IncludeCommentLinesWithDoubleSlash");
КонецЕсли;

ВыполнитьКоманду(Параметры);

КонецПроцедуры
Expand Down Expand Up @@ -854,7 +858,7 @@
ВыполнитьКоманду(Параметры);

Если ОбновитьКонфигурациюИБ Тогда
ОбновитьКонфигурациюБазыДанных(Ложь, Истина, Ложь, ИмяРасширения);
ОбновитьКонфигурациюБазыДанных(Ложь, Ложь, Ложь, ИмяРасширения);
КонецЕсли;

КонецПроцедуры
Expand Down Expand Up @@ -954,14 +958,14 @@

ПараметрыСвязиСБазой = СтандартныеПараметрыЗапускаКонфигуратора();
ПараметрыСвязиСБазой.Добавить("/UpdateDBCfg");
Если Не ДинамическоеОбновление Тогда
Если Не ДинамическоеОбновление И Не ЗначениеЗаполнено(ИмяРасширения) Тогда
ПараметрыСвязиСБазой.Добавить("-Dynamic-");
КонецЕсли;

Если ПредупрежденияКакОшибки Тогда
ПараметрыСвязиСБазой.Добавить("-WarningsAsErrors");
КонецЕсли;
Если НаСервере Тогда
Если НаСервере И Не ЗначениеЗаполнено(ИмяРасширения) Тогда
ПараметрыСвязиСБазой.Добавить("-Server");
КонецЕсли;
Если ЗначениеЗаполнено(ИмяРасширения) Тогда
Expand Down Expand Up @@ -2128,7 +2132,7 @@

КонецФункции // ПолучитьПараметр()

Процедура Инициализация()
Процедура Инициализация(ВерсияПлатформы)
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
мВерсияПлатформы = "";
Expand All @@ -2142,7 +2146,7 @@
мКонтекстКоманды.Вставить("КодЯзыкаСеанса", "");


ПутьКПлатформе1С(ПолучитьПутьКВерсииПлатформы("8.3", РазрядностьПлатформы.x64x86));
ПутьКПлатформе1С(ПолучитьПутьКВерсииПлатформы(ВерсияПлатформы, РазрядностьПлатформы.x64x86));

мОчищатьФайлИнформации = Истина;
мФайлИнформацииВнешний = Ложь;
Expand Down Expand Up @@ -2391,7 +2395,7 @@

// Функция проверяет версию текущей платформы по сравнению с требуемой
//
Функция ИспользуемаяВерсияПлатформыСтаршеИлиРавна(Знач ТребуемаяВерсияПлатформы)
Функция ИспользуемаяВерсияПлатформыСтаршеИлиРавна(Знач ТребуемаяВерсияПлатформы) Экспорт

Лог.Отладка(СтрШаблон("Сравниваю версию <%1> с эталоном <%2>", мВерсияПлатформы, ТребуемаяВерсияПлатформы));

Expand All @@ -2401,7 +2405,14 @@

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

#КонецОбласти
Процедура ПриСозданииОбъекта(ВерсияПлатформы = "8.3")

Лог = Логирование.ПолучитьЛог("oscript.lib.v8runner");
Если ПустаяСтрока(ВерсияПлатформы) Тогда
ВерсияПлатформы = "8.3";
КонецЕсли;
Инициализация(ВерсияПлатформы);

КонецПроцедуры

Лог = Логирование.ПолучитьЛог("oscript.lib.v8runner");
Инициализация();
#КонецОбласти