Как узнать в процедуре ПередЗавершениемРаботыСистемы модуля обычного приложения что установлена блокировка начала сеансов?

А тебе зачем?

(1) если Установлена() тогда Предупреждение("Мы больше не встретимся. Прощайте")

(1) надо предупредить пользователя, что бы он сворачивал свою деятельность

(1) а то, по умолчанию выходит предупреждение "Завершить работу?" и пользователь, естественно, жмет "нет".

(2) Бесполезное предупреждение. Блокировка на и блокировка, что бы всех выгнать и никого не пустить.

...
А если у вас бардак, то 1С тут ни причем :)

(4) Надо пользователя предупреждать с нарастающим времени интенсивности.

1. через 3 минуты
2. через 2 м.
3. через 1 м.
4. и по 10. через 30 сек
11. Усе, завершение всего без предупреждений :)

+(6) или заставить загадки разгадывать для продолжения работы

(0) (4) вломись в код, который показывает этот вопрос и в случае, если блокировка установлена, не показывай вопрос вообще

(2) как применить в коде?

см. процедуру КонтрольРежимаЗавершенияРаботыПользователей()

(10) Процедура КонтрольРежимаЗавершенияРаботыПользователей() Экспорт

    // Получим текущее значение параметров блокировки
    ТекущийРежим = УправлениеСоединениямиИБ.ПараметрыБлокировкиСеансов();
    БлокировкаУстановлена = ТекущийРежим.Установлена;
    
    Если Не БлокировкаУстановлена Тогда
        Возврат;
    КонецЕсли;

...







Функция ПараметрыБлокировкиСеансов(Знач ПолучитьКоличествоСеансов = Ложь) Экспорт
    
    УстановитьПривилегированныйРежим(Истина);
    ТекущийРежимИБ = ПолучитьБлокировкуСеансов();
    ТекущаяДата = ТекущаяДатаСеанса();
    ТекущийРежим = НовыеПараметрыБлокировкиСоединений();
    Если УстановленаБлокировкаСоединенийНаДату(ТекущийРежимИБ, ТекущаяДата) Тогда
        ТекущийРежим = ТекущийРежимИБ;
    ИначеЕсли ТекущийРежимИБ.Установлена Тогда
        ТекущийРежим = ТекущийРежимИБ;
    КонецЕсли;
    
    ПараметрыБлокировки = Новый Структура(
        "Установлена,Начало,Конец,Сообщение,ИнтервалОжиданияЗавершенияРаботыПользователей,КоличествоСеансов,ТекущаяДатаСеанса,ПерезапуститьПриЗавершении",
        ТекущийРежим.Установлена,
        ТекущийРежим.Начало,
        ТекущийРежим.Конец,
        ТекущийРежим.Сообщение,
        5 * 60, // 5 минут; интервал ожидания завершения пользователей после установки
                // блокировки информационной базы (в секундах).
        ?(ПолучитьКоличествоСеансов, КоличествоСеансовИнформационнойБазы(), 0),
        ТекущаяДатаСеанса(),
        Истина
    );
    
    УправлениеСоединениямиИБПереопределяемый.ЗаполнитьПараметрыБлокировкиСеансов(ПараметрыБлокировки, ТекущаяДата);

    Возврат ПараметрыБлокировки;
    
КонецФункции

Спасибо большое. Все получилось.

(9) Глобальный контекст.ПолучитьБлокировкуСеансов (Global context.GetSessionsLock)
Глобальный контекст (Global context)
ПолучитьБлокировкуСеансов (GetSessionsLock)
Синтаксис:

ПолучитьБлокировкуСеансов()
Возвращаемое значение:

Тип: БлокировкаСеансов.

Описание:

Получает объект, описывающий блокировку сеансов.

Доступность:

Сервер, толстый клиент, внешнее соединение.