Автоматическое отключение пользователя из системы 1С:Предприятие в случае, когда пользователь не работает в запущенном сеансе

6 Comments

1. Darklight 27.09.2018 at 13:53

   Reply ↓
2. mityushov.vv 27.09.2018 at 14:37

   (1) Много написали)))
   
   Да вариантов реализации много, хотите допилите сами.
   
   Но данное решение работает уже не в одной организации и ничего пользователи не возмущаются.
   
   Наоборот это решение дисциплинирует пользователя при работе с системой. Не надо куда то убегать ничего не сохранив в 1С.
   
   А если пользователь в запарке куда то там нажал, ну надо значит воспитывать таких пользователей что бы в запарке они никуда не нажимали.
   
   Это из области «Я ехала на мерседесе и засмотрелась в телефон и врезалась» Кто в этом виноват производители Мерседеса?

   Да вопрос зависших сеансов эта доработка не решает, зависшие сеансы иногда и через консоль серверов «убить» не получается, только помогает перезапуск агента сервера.

   Зато эта доработка решает вопрос с нехваткой лицензий очень, очень хорошо, и экономит большие деньги для организации на покупку доп лицензий.

   Представляете в той организации где я ранее работал было 800 пользователей, и если они откроют по одному разу 4-5 разных баз и убегут в туалет на 5 часов. Там вообще ни каких лицензий не хватит.

   Reply ↓
3. mityushov.vv 27.09.2018 at 14:40

   (1) Таймаут кстати у меня 5 минут, можно поменять при желании

   &НаКлиенте
   Процедура КлиентГлобальныйПриНачалеРаботыСистемы() Экспорт
   
   ПолныеПраваМодуль.УстановитьВремяНачалаСеанса();
   
   ПодключитьОбработчикОжидания(«ПроверитьНеобходимостьДальнейшейРаботыПользователя», 900);
   
   КонецПроцедуры
   
   &НаКлиенте
   Процедура ПроверитьНеобходимостьДальнейшейРаботыПользователя() Экспорт
   
   ВремяРаботыВБазе = 120;
   ВремяНачалаСеанса = ПолныеПраваМодуль.ПолучитьВремяНачалаСеанса();
   Если ЗначениеЗаполнено(ВремяНачалаСеанса) Тогда
   ВремяРаботыПользователя = ПолныеПраваМодуль.ПолучитьВремяРаботыПользователяВСистеме();
   Если ВремяРаботыПользователя > 0 Тогда
   ВремяРаботыВБазе = ВремяРаботыПользователя;
   КонецЕсли;
   
   Если ТекущаяДата() — ВремяНачалаСеанса > ВремяРаботыВБазе * 60 Тогда
   ПоказатьОповещениеПользователя(«! Завершение работы 1С !»);
   
   Режим = РежимДиалогаВопрос.ДаНет;
   Оповещение = Новый ОписаниеОповещения(«ПослеЗакрытияВопроса»,СтандартныеПодсистемыКлиент);
   ПоказатьВопрос(Оповещение, «Система запрашивает необходимость продолжения работы с информационной базой.» + Символы.ПС + «Продолжить работу?», Режим, 300);
   КонецЕсли;
   КонецЕсли;
   
   КонецПроцедуры

   Показать

   Reply ↓
4. Darklight 27.09.2018 at 14:52

   (2)Это будет больше похоже не на воспитание а на дрессировку. Ну, не мне Вас судить. Не жалуются — ну и хорошо. У меня бы вой был бы на всю компанию! Пользователи тут ого-го с каким норовом есть. Да и простой офисный планктон бы тоже ещё тот писк поднял бы!

   А контроллировать многократно занятые лицензии — лучше через web-сервис, и механизм «Внешнее управление сеансами» — через обработку каждого нового сеанса. Там и число сеансов можно ограничить на пользователя (причем по своей логике и классификации пользователей). Вести учет числа занятых лицензий и заниматься поиском как зависших сеансов, так и сеансов с отлучившимися надолго, сотрудниками — когда лицензий станет не хватать.

   ну а вообще-то, если пользователи часто открывают по куче баз — лучше использовать аппаратные ключи — экономически более выгодно — на крайняк — ставить лицензии на компьютеры (если, конечно, речь не идёт о работе в web, хотя на лицензии на копьютеры, кажется, и в терминальном сервере тоже нельзя использовать).

   Reply ↓
5. mityushov.vv 27.09.2018 at 15:19

   (4) У нас как раз вся работа через терминальный сервер и планируется работа через web.
   
   Тем более уже лицензии куплены и стоят на сервере, один ключ. На каждый компьютер покупать нет возможности и так далее.

   Тем более эта разработка рассчитана как на работу в клиент-серверном так и в файловом режиме работы 1С. Кстати про это надо написать, забыл.

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

   А если у вас дерзкие пользователи, значит ИТ наверное всегда в запарке и всегда во всем виновато))) ну это уже как бы ваши проблемы и не мне вас судить.

   Reply ↓
6. Darklight 27.09.2018 at 15:28

   (5)У нас как раз чем больше сеансов открыто — тем нам лучше — дочерним компаниям мы сдаём лицензии в аренду — и считаем макс число открытых сеансов в день по организациям — выставляем в конце месяца счет!
   
   Пока лишь просто ограничились макс числом сеансов на пользователя, и ночью все (не находящиеся в исключении) сеансы закрываются.

   Reply ↓