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