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