Завершение работы пользователей

0_о

ахха )) видимо был уставший )) поправлю )

Это не обработка. Это подсистема. И в данном случае это минус, т.к. многое из предложенного запросто реализуемо без вмешательства в конфигурацию.

никто и не спорит, просто как вариант, в будущем все это будет дорабатываться, перерабатываться :)

Не совсем понятно как можно реализовать отключение пользователей без изменения конфигурации? Объясните концепцию.

тут видимо подразумеваются совсем минимальные изменения конфигурации ну или использование каких то сторонних средств, хотя и самому интересно услышать на будущее для новой версии )

Мне тоже интересно) Как без вмешательства то?
И это... может стоит в виде cf это всё оформить?

Очень много кода.

Для УПП, КА, УТ придется изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной("глТекущийПользователь");

Спасибо за информацию, добавлю на главную страницу

жаль. что не во все типовые конфигурации подобное внедряется, иногда приходится дописывать самому((

Код действительно некомпактный. Неплохо бы ужать.

Будет обязательно новая версия, переработанная, сейчас просто времени немного не хватает

Интегрировал в БП 2.20.1 платформа 8.2
Не работает!
Не выгоняет пользователей! Даже сообщения не выдает!
В чем может быть причина?

посмотреть отладчиком идет ли вызов из модуля Общий модуль "доОтключениеПользователей" процедуры ЦиклическийВызов. Проверьте добавлен ли код в процедуру ПередНачаломРаботыСистемы (СтартПроверкиОтключения(Отказ)) и в тот ли модуль он добавлен (управляемое или обычное приложение)

Проверил под отладчиком. Вызов идет. Проблема видимо в том что функция ОпределитьТекущегоПользователя() в БП возвращает либо "истину" либо "ложь" а не самого пользователя. привожу саму функцию из БП (сорри за оверквотинг если че ;) ):

// Процедура создания пользователя.
// Параметры:
// Нет.
//
Функция ОпределитьТекущегоПользователя(ОписаниеОшибкиОпределенияПользователя) Экспорт

Перем ТекущийПользователь;

ИмяПользователя = ИмяПользователя();
ПолноеИмяПользователя = ПолноеИмяПользователя();

Если ПустаяСтрока(ИмяПользователя) Тогда
// пользователь не авторизовался
ИмяПользователя = "НеАвторизован";
ПолноеИмяПользователя = "Не авторизован";
КонецЕсли;

// Если для пользователя не указано полное имя -
// устанавливаем его равным имени пользователя
Если ПустаяСтрока(ПолноеИмяПользователя) Тогда
ПолноеИмяПользователя = ИмяПользователя;
КонецЕсли;

ОбъектПользователь = Справочники.Пользователи.СоздатьЭлемент();

ОбъектПользователь.Код = ИмяПользователя;
ОбъектПользователь.Наименование = ПолноеИмяПользователя;

Попытка

ОбъектПользователь.Записать();

Исключение

ОписаниеОшибкиОпределенияПользователя = "Пользователь : " + ИмяПользователя + " не был найден в справочнике пользователей. Возникла ошибка при добавлении пользователя в справочник.
|" + ОписаниеОшибки();
Возврат Ложь;

КонецПопытки;

ТекущийПользователь = ОбъектПользователь.Ссылка;
ПолныеПрава.УстановитьПараметрСеансаТекущийПользователь();


Набор = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
Набор.Отбор.Пользователь.Использование = Истина;
Набор.Отбор.Пользователь.Значение = ТекущийПользователь;

// установим пользователю основную организацию
Запрос = Новый Запрос();
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| Организации.Наименование,
| Организации.Ссылка
|ИЗ
| Справочник.Организации КАК Организации";
Выборка = Запрос.Выполнить().Выбрать();

КоличествоЗаписейВВыборке = Выборка.Количество();

Если КоличествоЗаписейВВыборке = 1 Тогда

// выбирать не из чего - запишем значения без лишних вопросов
Выборка.Следующий();
ОсновнаяОрганизация = Выборка.Ссылка;

ИначеЕсли КоличествоЗаписейВВыборке > 0 Тогда

#Если Клиент Тогда
ФормаВыбора = ПолучитьОбщуюФорму("ФормаВыбораОсновнойОрганизации");
ФормаВыбора.ТекущаяОрганизация = Справочники.Организации.ПустаяСсылка();
ФормаВыбора.ОткрытьМодально();
ОсновнаяОрганизация = ФормаВыбора.ТекущаяОрганизация;
#КонецЕсли

КонецЕсли;

Запись = Набор.Добавить();

Запись.Пользователь = ТекущийПользователь;
Запись.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ОсновнаяОрганизация;
Запись.Значение = ОсновнаяОрганизация;

Запись = Набор.Добавить();

Запись.Пользователь = ТекущийПользователь;
Запись.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ЗапрашиватьПодтверждениеПриЗакрытии;
Запись.Значение = Истина;

Запись = Набор.Добавить();

Запись.Пользователь = ТекущийПользователь;
Запись.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ПоказыватьВДокументахСчетаУчета;
Запись.Значение = Истина;

Запись = Набор.Добавить();

Запись.Пользователь = ТекущийПользователь;
Запись.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ОсновнойОтветственный;
Запись.Значение = ТекущийПользователь;

Запись = Набор.Добавить();

Запись.Пользователь = ТекущийПользователь;
Запись.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ЗапрашиватьВидОперацииПриВводеНового;
Запись.Значение = Истина;

Попытка

Набор.Записать();

Исключение

ОписаниеОшибкиОпределенияПользователя = "Ошибка при записи настроек нового пользователя.
|" + ОписаниеОшибки();
Возврат Ложь;

КонецПопытки;

#Если Клиент Тогда
Если НЕ Константы.НомерВерсииКонфигурации.Получить() = "" Тогда
Сообщить("Пользователь зарегистрирован в справочнике пользователей.");
КонецЕсли;
#КонецЕсли

Возврат Истина;

КонецФункции

Тогда нужно руководствоваться вот этим:

Обращаю внимание на то что:
Для УПП, КА, УТ, БП необходимо изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной("глТекущийПользователь");

ИМХО нужно этот код закинуть в Попытку Исключение
тогда обработка станет рабоочей в разных типовых конфах 1С

Здравая мысль!

всё-таки хотелось бы без интеграции, а просто внешним отчётом. ИМХО, полезнее так будет. хотя для 8 ничего страшного в интеграции нет.

в любом случае спасибо за идеи и за код.

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

Большое спасибо, понравилось

вкусная штука, вот только еще бы тонкий клиент прикрутить

сейчас разрабатывается 2 версия, там будут более расширенные возможности + тонкий клиент

Вещь нужная, жду выхода нового релиза, в этом слишком много кода менять надо...

Тоже жду релиза

Стоит добавить запрет на вход пока конфигурация не совпадает с конфигурацией базы данных: подгтовили обновление МД поросили всех выйти => внесли изменнеия => (можно входить) => запустили всех кого закрывали (если рабочее время)

в первоначальной обработке присутствовала ошибка которая позволяла коимтообразом не "выганятся" пользователям. В данной разработке пофиксен баг?

Еще предложение заменить полосу регулировки с вариантами отключения на переключатели - аргумент: не видно что скрывается за положениями полосы, пока не переключишь не узнаеш.

еще просьба - установить привязки элементов формы - невозможно развернуть форму на весь экран а в оригинальном виде видны только 2,5 строки с пользователями

поищу сей баг, тестеры поищут, думаю отловим

согласен, в новой версии сей механизм проработан по новому, все будет более наглядно и гибко

эта недоработка уже устранена в новой версии, все растягиваемо во всех видах приложений

Всем спасибо за предложения!

также не работает быстрое (30 сек) отключение

спасибо, учту при разработке

я аналогичную систему делал на 7.7. Очень устал выгонять пользователей по телефону, особенно когда они уходят на обед. Единственное -открытые документы не сохранялись. Другая проблема возникла: пока выгоняю одних - другие уже заходят. Поэтому пришлось - ставить блокировку на вход

Интерфейс понравился, удобно.

Всем привет. Для тех кто ждет новый релиз: к сожалению он задерживается, работы ведутся но не так быстро как рассчитывал, очень много повседневной работы наволилось навалилось :(

:( хех ждемс.

Еще мысль "вслух": Добавить сюда возможность, как один из вариантов, использование штатной блокировки (через БлокировкаСеанса).

Спасибо за идею, такая возможность уже реализована.

+++++ Спасибо!!! месяц бегал по конторе, как ошарашенный вырубал всех.. а тут нажал и все.. спасибки удружил))) ну все.. бойся бухгалтер)))) всех поотрублю...............................)))))))))))))))))))))))

вот спасибо, давно искал что то этакое, и наконец то нашел. автору респект и +

ахаха )) скоро выйдет новая версия, еще более беспощадная :)

:-) видимо автор готовит целый арсенал репресивных методов убиения нерадивых бухгалтеров

Немного протестил:

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

2. Ставлю время отключения через 3 минуты, включение через 5 мин. по прошествии 10 минут захожу под отключенным пользователем , его состояние отключения "Не активно".

Общие пожелания:

Подразумевается, что список пользователей в базе не маленький, предлагаю расширить табличное поле "СписокАктивныхПользователей", а то больше 2-х пользователей не помещается.

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

Поле "Сообщение" узкое.

Кнопки со скрытыми пунктами тоже не очень удобны.

Желательно добавить Управляемую форму.

+ автору за классный инструмент в моем арсенале

Порой даже мелкие нюансы работы очень важны, обработка классная. Давно искал большое спасибо!!!

спасибо за добрые слова, тем кто ждет 2 версию, обычное приложение полностью готово, остается до насадить все на управляемую форму :)

Спасибо долго искал, судя по описанию наиболее адекватный продукт. Скачаю протестирую. Заранее благодарен!

Спасибо, автору + , жаль не работает в управляемом интерфейсе (Тип не определен Запрос) планируется ли расширить функционал для управляемого интерфейса и когда ждать обновлений?

Автор в этом то году порадуешь нас обновлением?

Полезная вещь, тоже хочу спросить.
Когда будет обновление для управляемого интерфейса?

спасибо за обработку...
помогите с решением проблемы, при открытии обработки выдает эту ошибку:

типовая конфа УПП 1.3.20.1
как бороться?

паходу без правки УПП'шной конфигурации эту обработку не запустить((, жаль. не хотелось бы сниматься с поддержки 1с.

День добрый, не было никак времени посмотреть, сегодня думаю посмотрю вечером что это такое. Времени свободного совсем нет. Самое главное избежать в новой версии подобного.

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

Версия обновилась. Учел комментарии по предыдущей, переработал интерфейс.

зачем такие извращения /CЗавершитьРаботуПользователей (поддерживается всеми станд конфигами) и все робит

зачем такие извращения /CЗавершитьРаботуПользователей (поддерживается всеми станд конфигами) и все робит, более подробно тут http://infostart.ru/public/63716/ и тут http://infostart.ru/public/104654/

Извращения, на мой взгляд, в правке конфиги и дальнейшей ее поддержке ( когда обслуживаешь не одну базу а неколько десятков организаций с разными конф), хотя я еще не смотрел твое творение

первое замечание. как уже писалось почему в код не засунуть обработку конфиги или же попытка-исключение, также предусмотреть поддержку конф других поставщиков, надо создавать универсальные, легкие инструменты

и еще обрати внимание на такой код в
Процедура КонтрольРежимаЗавершенияРаботыПользователей() Экспорт
...
Если НЕ ЗначениеЗаполнено(ВремяНачалаБлокировки)
ИЛИ ВремяНачалаБлокировки - ТекущийМомент <= ИнтервалПрекратить Тогда

ПрекратитьРаботуСистемы(Истина);
...

те почти мгновенное отключение пользователей.

Еще одним пожеланием было бы, возможность выполнения какой либо операции после блокировки(обработка, скрипт и т.д) тогдаб цены ей не было ;)

Для конфигураций Управление торговлей, комплексная автоматизация и управление производственным предприятием необходимо будет изменить следующий код во всех-всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий код:
ТекПользователь = глЗначениеПеременной("глТекущийПользователь");

Спасибо друзья за такую разработку :) будем смотреть и пробовать в будущем понадобится =)

коменты не читал, сильно в нюансы не вникал. Скачал *.cf объединил со своей конфигурацией (добавил всё кроме свойств и справочника пользователей). и НЕ работает.Я в расстройстве. Не работают ни блокировки, ни сообщения.
Минус ставить не охота. Что не не так? моя конфа: Зарплата и Управление Персоналом, редакция 2.5 (2.5.47.1) клиент-серверная версия. SQL 2005

да, справочник пустой. Вот рекомендация: либо в справке, либо ещё как добавить стандартное заполнение справочника, главное что бы было очевидно, как его заполнять,и можно было "на лету" (без разбора кода) разобраться (тупо нету времени, а вечером не охота...лень, лучше жене время уделить...). Есть шаблон заполнения справочника?
Идея, и функционал хорошие, (я бы по другому переделал, но лень, может потом на досуге), подобные видел, щупал, не устраивали, а это ничего так, нормально.

Добавил обработку заполнения справочника "Варианты завершения работы"

вещь очень полезная жду под управляемое приложение

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

В бухгалтерии выскакивает ошибка, не работает

{ВнешняяОбработка.ЗавершениеРаботыПользователейEX2.МодульОбъекта(122)}: Недостаточно фактических параметров
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();

ЗКБУ 8.2 отказывается
почему- сам не знаю
файловый вариант

Добрый день!
В публикации Вы написали:


Дело в том, что я просто бухгалтер и мне сложно самой это сделать. Но мне очень нужна данная обработка, так как часто приходится перепроводить и удалять документы в монопольном режиме. У меня Комплексная автоматизация...

Спасибо за обработку.

В УПП 1.3 объединил конфигурации, заполнил обработкой шаблоны. В результате работает половина функций, а самая главная - выгонять пользователей НЕ РАБОТАЕТ!!!.

Отчего это у меня?

{МодульОбычногоПриложения(181,3)}: Процедура или функция с указанным именем не определена (СтартПроверкиОтключения)
<<?>>СтартПроверкиОтключения(Отказ);
{МодульОбычногоПриложения(496,4)}: Процедура или функция с указанным именем не определена (СтопПроверкиОтключения)
<<?>>СтопПроверкиОтключения();

Полный провал с клиент-серверными взаимодействиями.
УПП 1.3 - НЕ РАБОТАЕТ - ЧАС потратил в пустую.
Автор! Обидно!

Отличная разработка. Спасибо автору!
Для КА пришлось сделать замену на глТекущийПользователь как описано в описании установки, а также сделал общий модуль привелигированным, т.к. были проблемы с правами на не стандартных интерфейсах.

Хорошая вещь

Любопытно опробовать))
Хотел сам написать, а тут такое