Пользователи передают пароль другим сотрудникам и сидят целой толпой в базе под одной и той же учетной записью. Как это запретить? я хочу чтоб перед началом работы системы, происходила проверка кто сидит в базе. И выдавать сообщение "не смейте заходить в базу второй раз". при этом нужно иметь ввиду, что пользователь может сидеть в конфигураторе - тогда этот экземпляр не должен попадать в выборку. Нужно только тех, кто в режиме 1с предприятие сидят.

Блокировать учётки

в типовых есть, запретить открытие нескольких сеансов, в настройках юзера

смотри в типовой УПП

(3) +100 Там есть настройка "Запретить открытие нескольких сеансов"

несколько раз заголовок перечитал...

(5) +100500

(5)ой. а как исправить?

(0) Прописать пользователям лечебный пи**юлин.

Можно еще попробовать угрозой физической расправы вопрос решить

Переименовал тему

(2)-(4) согласен, но если у ТС терминал...

(12) без разницы, смотрит сеансы активные же

(13) так они активные будут )

ЗапретитьОткрытиеНесколькихСеансов = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ЗапретитьОткрытиеНесколькихСеансов");
    Если ЗапретитьОткрытиеНесколькихСеансов Тогда
        ТекущийНомерСоединения = НомерСоединенияИнформационнойБазы();
        УникальныйИдентификаторПользователя = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;
        
        МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
        Для Каждого ТекСоединение Из МассивСоединений Цикл
            Если (ТекСоединение.ИмяПриложения = "1CV8")
               И (НЕ ТекСоединение.НомерСоединения = ТекущийНомерСоединения)
               И (НЕ ТекСоединение.Пользователь = неопределено)
               И (ТекСоединение.Пользователь.УникальныйИдентификатор = УникальныйИдентификаторПользователя) Тогда
              
                Предупреждение("Пользователем с таким именем уже выполнен вход в систему");
                ЗавершитьРаботуСистемы(Ложь);
                Возврат;
                
            КонецЕсли;
        КонецЦикла;    
    КонецЕсли;

(14) пользователя 1с проверяет)

(16) ты не поверишь ) но всё так и будет с зависшими сессиями )

верните мне инженера. тоже хочу переименовывать ветки

(18)  у нас нет зависших, люди работают и не жалуются, в т.ч. и на терминале. Это исключение, а не правило, нормальный механизм

(20)благодарю. нашел вашь код вот где:
http://forum.ru-board.com/topic.cgi?forum=5&topic=30415&start=1040

а ещё вот код тоже альтернативный:
  СоединенияСИБ = ПолучитьСоединенияИнформационнойБазы();
    
    Для Каждого Соединение Из СоединенияСИБ Цикл
        
        Если Соединение.НомерСоединения = НомерСоединенияИнформационнойБазы()  
            ИЛИ Соединение.ИмяПриложения = "Designer" Тогда
            Продолжить;
        КонецЕсли;
        
        Если ПользователиИнформационнойБазы.ТекущийПользователь().Имя  = Соединение.Пользователь.Имя Тогда
            Предупреждение("Доступ запрещен, т.к. пользователь: " + Соединение.Пользователь.Имя + " работает в программе с компьютера: " + Соединение.ИмяКомпьютера);
            Отказ = Истина;
        КонецЕсли;
        
    КонецЦикла;

(21) код (15) из типовой УПП, а на руборде жулики и воры )

(22)Макс, а можно код из УПП использовать в своих конфигурациях? Не посадят за это?

(23) можно, конфигурации открытые

(23) конечно посадят )))

Похоже это реинкарнация Светы Семененко )