|
1637 | 1637 | Возврат Истина;
|
1638 | 1638 | КонецФункции
|
1639 | 1639 |
|
| 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 | + |
1640 | 1668 | Процедура ВыполнитьПроверкуПрименимостиРасширения(ИмяРасширения = "") Экспорт
|
1641 | 1669 |
|
1642 | 1670 | Параметры = СтандартныеПараметрыЗапускаКонфигуратора();
|
|
0 commit comments