Обработка которая показывает активных пользователей (для 1С версии 8.1)

Просмотр действий активного пользователя

Просмотреть можно с помощью отбора в журнале регистрации, но можно как мне кажется быстрее.
Открываем список активных пользователей, выбираем пользователя и в панели инструментов нажимаем кнопку “работа пользователя”.

В результате вы увидите тот же Журнал регистрации с уже готовым отбором по пользователю, который можно отредактировать(к примеру по событию).

Не помню зачем ее делал, но только она устроила заказчика. Возможно я к ней прикрутил еще внутренний телефон, информацию о сотруднике или что то в этом духе, но к сожалению конечной версии обработки у меня нет.

Данная процедура вызывалась при срабатывании события ОбновлениеОтображения и при клике кнопки Обновить

Структура таблиц:

Таблица значений 1: АктивныеПользов

Поля:

Пользователь //строка(250)

Приложение //строка(250)

НачалоРаботы //строка(250)

Компьютер //строка(250)

Соединение //строка(250)

Таблица значений 2: ВсеПользов

Поля:

Имя //строка(250)

Пользователь //строка(250)

Пароль //строка(250)

Роли //строка(250)

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

Если интересно данное решение для 8.2 и не знаете как сделать напишите я сделаю и выложу.

Дата добавления: 2014-11-25