Skip to content

Добавлен метод "УстановитьПризнакОжиданияВыполненияПрограммы" #36

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.

Sign up for GitHub

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

Merged
merged 1 commit into from
Jun 23, 2017
Merged

Добавлен метод "УстановитьПризнакОжиданияВыполненияПрограммы" #36

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
22 changes: 21 additions & 1 deletion src/v8runner.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,8 @@
Перем мТекстФайлаДоВывода;
Перем мОбработчикОжиданияПроцессаGUI;

Перем мПризнакОжиданияВыполненияПрограммы;

//////////////////////////////////////////////////////////////////////////////////
// Программный интерфейс

Expand Down Expand Up @@ -1183,6 +1185,23 @@

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

// УстановитьПризнакОжиданияВыполненияПрограммы
//
// Параметры:
// НовыйПризнак - <Булево> - <описание параметра>
//
// Возвращаемое значение:
// <Булево> - прежнее значение признака
//
Функция УстановитьПризнакОжиданияВыполненияПрограммы(НовыйПризнак) Экспорт

Ожидаем.Что(НовыйПризнак = Ложь или НовыйПризнак = Истина,
"Параметр признак ожидания выполнения программы 1С должен быть или Истина или Ложь, а это не так").ЭтоИстина();

мПризнакОжиданияВыполненияПрограммы = НовыйПризнак;

КонецФункции // УстановитьРежимОжиданияВыполненияПрограммы() Экспорт

Функция СобратьВозможныеКаталогиУстановкиПлатформыWindows()

СИ = Новый СистемнаяИнформация;
Expand Down Expand Up @@ -1343,7 +1362,7 @@
СтрокаЗапуска = Приложение + СтрокаЗапуска;
КонецЕсли;
Если мОбработчикОжиданияПроцессаGUI = Неопределено Тогда
ЗапуститьПриложение(СтрокаЗапуска, , Истина, КодВозврата);
ЗапуститьПриложение(СтрокаЗапуска, , мПризнакОжиданияВыполненияПрограммы, КодВозврата);
Иначе
ЗапуститьПроцессGUI(СтрокаЗапуска, КодВозврата);
КонецЕсли;
Expand Down Expand Up @@ -1546,6 +1565,7 @@

мОчищатьФайлИнформации = Истина;
мФайлИнформацииВнешний = Ложь;
мПризнакОжиданияВыполненияПрограммы = Истина;

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

Expand Down