Skip to content

Commit ceaf37e

Browse files
authored
Merge pull request #173 from EugeneAfanasyev/master
Добавлен метод проверки программных модулей (/CheckModules)
2 parents 8538d61 + 0188275 commit ceaf37e

File tree

1 file changed

+28
-0
lines changed

1 file changed

+28
-0
lines changed

src/v8runner.os

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1637,6 +1637,34 @@
16371637
Возврат Истина;
16381638
КонецФункции
16391639

1640+
Процедура ВыполнитьПроверкуПрограммныхМодулей(
1641+
Знач ТонкийКлиент = Истина,
1642+
Знач ВебКлиент = Истина,
1643+
Знач Сервер = Истина,
1644+
Знач ВнешнееСоединение = Истина,
1645+
Знач ТолстыйКлиентОбычноеПриложение = Истина,
1646+
Знач ИмяРасширения = Неопределено) Экспорт
1647+
1648+
Параметры = СтандартныеПараметрыЗапускаКонфигуратора();
1649+
1650+
Параметры.Добавить("/CheckModules");
1651+
1652+
ДобавитьФлагПроверки(Параметры, ТонкийКлиент, "-ThinClient");
1653+
ДобавитьФлагПроверки(Параметры, ВебКлиент, "-WebClient");
1654+
ДобавитьФлагПроверки(Параметры, Сервер, "-Server");
1655+
ДобавитьФлагПроверки(Параметры, ВнешнееСоединение, "-ExternalConnection");
1656+
ДобавитьФлагПроверки(Параметры, ТолстыйКлиентОбычноеПриложение, "-ThickClientOrdinaryApplication");
1657+
1658+
Если ЗначениеЗаполнено(ИмяРасширения) И Не ИмяРасширения = "-AllExtensions" Тогда
1659+
Параметры.Добавить(СтрШаблон("-Extension ""%1""", ИмяРасширения));
1660+
Иначе
1661+
ДобавитьФлагПроверки(Параметры, Истина, "-AllExtensions");
1662+
КонецЕсли;
1663+
1664+
ВыполнитьКоманду(Параметры);
1665+
1666+
КонецПроцедуры
1667+
16401668
Процедура ВыполнитьПроверкуПрименимостиРасширения(ИмяРасширения = "") Экспорт
16411669

16421670
Параметры = СтандартныеПараметрыЗапускаКонфигуратора();

0 commit comments

Comments
 (0)