0
cons74
14.04.15
✎
12:09
|
// Rarus_ShSe_11.10.2010 >
// Запущена программа-инсталлятор, срочно завершаем свою работу дабы не мешать
// инсталлятору делать свое "черное дело" :-).
// Rarus_ShSe_11.10.2010 <
ЗавершитьРаботуСистемы(Ложь);
Возврат Ложь;
КонецЕсли;
// Проверка загрузилась ли компонента
Если КомпонентаЗагруженаУспешно Тогда
Если НЕ ПустаяСтрока(ФормаМастер.ТекстСообщения) Тогда
// Похоже есть обновление, спросим пользователя а не хочет ли он прекратить работу чтобы его применить.
Если Вопрос(ФормаМастер.ТекстСообщения,РежимДиалогаВопрос.ДаНет,60,КодВозвратаДиалога.Да)=КодВозвратаДиалога.Да Тогда
// Молодец пользователь, сделал правильный выбор! Все выходим
ЗавершитьРаботуСистемы(Ложь);
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Прервать; // Компоненту загрузили успешно - пошли дальше
КонецЕсли;
ТекстСообщения=ФормаМастер.ТекстСообщения;
Если ПустаяСтрока(ТекстСообщения) Тогда
ТекстСообщения= " Из-за возникших ошибок система защиты типового решения не была подключена."+Символы.ПС+
"Рекомендуется исправить возникшие проблемы перед следующей попыткой запуска программы."+Символы.ПС+
"(возможно вам следует заново установить систему защиты типового решения)";
КонецЕсли;
// Сначала спросим пользователя хочет ли он попробовать все исправить, а то может устал уже?.
ОтветПользователя=Вопрос(ТекстСообщения+"
|
| ЗАПУСТИТЬ МАСТЕР НАСТРОЙКИ СИСТЕМЫ ЗАЩИТЫ ?
|
|Нажатие на кнопку ""Да"" откроет форму мастера настройки защиты.
|Нажатие на кнопку ""Нет"" приведет к НЕМЕДЛЕННОМУ ЗАВЕРШЕНИЮ РАБОТЫ",РежимДиалогаВопрос.ДаНет,60,КодВозвратаДиалога.Нет);
Если ОтветПользователя=КодВозвратаДиалога.Отмена Тогда
// Выбрал плохой, не рекомендуемый вариант, ну пусть сам плачет
ПараметрыСеанса.РежимРаботы="120"+СтрИсхРежимработы; // не включать автоматически, работа с оборудованием запрещена, сессия не серверная
Прервать; // прервем внутренний цикл
ИначеЕсли ОтветПользователя=КодВозвратаДиалога.Да Тогда
// Захотел попробовать все исправить, ну-ну
ФормаМастер.ЭтоПовторныйВызовМастера=Истина;
Иначе // Ответил "Нет" или проспал таймаут - нужно выходить (это наиболее правильный вариант)
ЗавершитьРаботуСистемы(Ложь);
Возврат Ложь;
КонецЕсли;
КонецЦикла; // попыток загрузить внешнюю компоненту типового решения
|
|