Выгонялка пользователей.

Поискав и не найдя того что мне нужно для отключения забывчивых пользователей из базы данных решил написать данную обработку.

Обработка позволяет:

• просматривать список пользователей;
• задавать кто не будет отключен для сервисной работы;
• возможность быстрого отключения;
• установка монопольного режима;
• выдержка времени не подключения;
• запрет подключения к базе в течении определенного времени;
• отключение не всех пользователей.

Доработка конфигурации:

• Обработка настройки отключения (в приложении);
• Регистр сведений;
• Модуль приложения.

Регистр сведений

ргОтключениеПользователей, непереодический, с независимым режимом записи.

Измерения:

Пользователь - справочник пользователи, ведущее или основной отбор

Ресурсы:

• Отключить - Булево;
• ЗапретПодключения - Булево;
• БыстроеОтключение - Булево;
• СостояниеОтключения - Строка, 3 символа, фиксированная;
• Сообщение - Строка, 300 символов, переменная;
• ДатаВремяПуска - Дата, Дата и время;
• ОтключениеМинут - Число, 2 разряда;  // до 99 минут
• ПаузаДоОтключения - Число, 1 разряд. // от 3  до 5 минут

Модуль приложения

// Процедура контроля возможности подключения.
//
Процедура СтартПроверкиОтключения(Отказ) Экспорт
    Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
    Зп = Новый Запрос;
    Зп.УстановитьПараметр("Пользователь",Пользователь);
    Зп.Текст = "ВЫБРАТЬ
    | ргОтключениеПользователей.Пользователь,
    | ргОтключениеПользователей.ЗапретПодключения,
    | ргОтключениеПользователей.ДатаВремяПуска,
    | ргОтключениеПользователей.ОтключениеМинут,
    | ргОтключениеПользователей.ПаузаДоОтключения
    |ИЗ
    | РегистрСведений.ргОтключениеПользователей КАК ргОтключениеПользователей
    |ГДЕ
    | ргОтключениеПользователей.Пользователь = &Пользователь";
    РезультатЗп = Зп.Выполнить().Выбрать();
    Если РезультатЗп.Следующий() Тогда
        Если РезультатЗп.ЗапретПодключения Тогда
            НеПодключать = Ложь;
            // Расчет времени не подключения
            ТекДата = ТекущаяДата();
            СтартДата = РезультатЗп.ДатаВремяПуска;
            ВремяПаузы = (РезультатЗп.ОтключениеМинут + РезультатЗп.ПаузаДоОтключения) * 60;
            ДельтаПаузы = ТекДата - СтартДата;
            Если ВремяПаузы > ДельтаПаузы Тогда
                НеПодключать = Истина;
            КонецЕсли;
            // Конец Расчета времени не подключения
            Если НеПодключать Тогда
                #Если Клиент Тогда
                    Предупреждение("Подключение запрещено. Ведутся сервисные работы.", 5, "Подключение...");
                #КонецЕсли
                //Отказ = Истина;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    // Проверка и опрос состояния отключения
    ПодключитьОбработчикОжидания("ЦиклическийВызов",15);
КонецПроцедуры // СтартПроверкиОтключения()

// Процедура контроля отключения. Конечный автомат состояний отключения.
//
Процедура ЦиклическийВызов() Экспорт
    ОтклПользователей = РегистрыСведений.ргОтключениеПользователей;
    Отбор = Новый Структура("Пользователь");
    Отбор.Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
    ВыборкаРегистра = ОтклПользователей.Выбрать(Отбор);
    Пока ВыборкаРегистра.Следующий() Цикл
        Запись = ВыборкаРегистра.ПолучитьМенеджерЗаписи();
        Запись.Прочитать();
        СостОткл = Запись.СостояниеОтключения;
        ВремяОткл = Запись.ПаузаДоОтключения;
        Пр = Лев(СостОткл,1);
        Если Пр = "А" Тогда
            СостОткл = "Б" + Строка(ВремяОткл*4);
            Запись.СостояниеОтключения = СостОткл;
            Запись.Записать();
            #Если Клиент Тогда
                Сигнал();
                Сигнал();
                Сигнал();
                Предупреждение(Запись.Сообщение,15,"Предупреждение");
            #КонецЕсли
        ИначеЕсли Пр = "Б" Тогда
            Время = Число(Прав(СостОткл,2));
            Время = Время - 1;
            Если Время = 0 Тогда
                СостОткл = "В";
            Иначе
                СостОткл = "Б" + Строка(Время);
            КонецЕсли;
            Запись.СостояниеОтключения = СостОткл;
            Запись.Записать();
        ИначеЕсли Пр = "В" Тогда
            СостОткл = "Г" + Строка(ВремяОткл-1);
            Запись.СостояниеОтключения = СостОткл;
            Запись.Записать();
            #Если Клиент Тогда
                Сигнал();
                Сигнал();
                Сигнал();
                Предупреждение(Запись.Сообщение,15,"Предупреждение!");
            #КонецЕсли
        ИначеЕсли Пр = "Г" Тогда
            Время = Число(Прав(СостОткл,2));
            Время = Время - 1;
            Если Время = 0 Тогда
                СостОткл = "Д";
            Иначе
                СостОткл = "Г" + Строка(Время);
            КонецЕсли;
            Запись.СостояниеОтключения = СостОткл;
            Запись.Записать();
        ИначеЕсли Пр = "Д" Тогда
            СостОткл = "Ш";
            Запись.СостояниеОтключения = СостОткл;
            Запись.Записать();
            #Если Клиент Тогда
                Сигнал();
                Сигнал();
                Сигнал();
                Предупреждение("Извините но вы не предприняли никаких действий.",5,"Отключение.");
                ЗавершитьРаботуСистемы();
            #КонецЕсли
        ИначеЕсли Пр = "Ш" Тогда
            СтопПроверкиОтключения();
            #Если Клиент Тогда
                Сигнал();
                Сигнал();
                Сигнал();
                Предупреждение("Тушим...",5,"Отключение.");
                ПрекратитьРаботуСистемы();
            #КонецЕсли
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры // ЦиклическийВызов()

// Процедура контроля отключения.
//
Процедура СтопПроверкиОтключения() Экспорт
    ОтклПользователей = РегистрыСведений.ргОтключениеПользователей;
    Отбор = Новый Структура("Пользователь");
    Отбор.Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
    ВыборкаРегистра = ОтклПользователей.Выбрать(Отбор);
    Пока ВыборкаРегистра.Следующий() Цикл
        Запись = ВыборкаРегистра.ПолучитьМенеджерЗаписи();
        Запись.Отключить = Ложь;
        Запись.СостояниеОтключения = "К";
        Запись.Записать();
    КонецЦикла;
КонецПроцедуры // СтопПроверкиОтключения()

Процедура ПередНачаломРаботыСистемы(Отказ)
    // Типовый вызовы
    СтартПроверкиОтключения(Отказ);
КонецПроцедуры

Процедура ПриЗавершенииРаботыСистемы()
    // Типовый вызовы
    СтопПроверкиОтключения();
КонецПроцедуры

PS Первая проба пера. Если что не так пишите откорректирую.

UPD: Спасибо за рейтинг. Скачал Разукрашку. Обновил код.

UPD2: Поправил обязательную настройку регистра.

UPD3: Откорректировал процедуру кнопки отключить, заполнение регистра значений. Заполняется все отмеченные пользователи а не только последний.

Ребята читаем комментарии! Все вопросы по ошибкам там уже обсуждались! Следуя всем замечаниям перенес обработку из УТП в УПП (без дополнительного модуля) все заработало с первого раза.