Выгонялка пользователей (файловый вариант)

Опубликовал kadr (kadr) в раздел Администрирование - Сервисные утилиты

Позволяет выполнять выход указанных пользователей из системы (в файловом варианте работы) и выполнять произвольный код в сеансе выбранного пользователя

Реализовано в виде подсистемы

Для полноценного использования необходимо иметь пользователя с ролью "ПолныеПрава" (функции "Выход из системы" и выполнение кода доступны только для пользователя с полными правами, хотя все это можно изменить) и добавить строки в модуль приложения (см. демку)

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

Основные процедуры модуля обработки

Перем _ТекущийПользователь Экспорт; // Текущий пользователь Тип(ПользователиИнформационнойБазы)
Перем ТекущийУИД Экспорт;                // УИД текущего пользователя Тип(УникальныйИдентификатор)
Перем Форма Экспорт;                        // основная форма обработки Тип(Форма)

// процедура формирует сообщение для пользователя
// ПАРАМЕТРЫ
// ТипСобытия     - Число (1-выход из системы, 2 - сообщение, остальные (до 999) - пользовательские)
// ВремяДоСтарта     - Число (время ожидания перед реакцией на событие)
// УИДПолучателя     - Строка36 (УИД пользователя-получателя сообщения)
// УИДОтправителя     - Строка36 (УИД пользователя-отправителя сообщения)
// _ТекстОповещения - Строка (текст сообщения пользователю)
// КодИсполнения    - Строка (код для выполнения на стороне клиента)

Процедура СформироватьСообщение(ТипСобытия, ВремяДоСтарта=5, УИДПолучателя, УИДОтправителя,
                                _ТекстОповещения="", КодИсполнения="") Экспорт

// очистим события для пользователя
// ПАРАМЕТРЫ
// ТипСобытия - Число (если ТипСобытия = 999 - очищаются сообщения для всех пользователей
//                иначе только выбранного типа)
Процедура _ОчиститьСообщения(ТипСобытия = Неопределено) Экспорт

Скачать файлы

Наименование Файл Версия Размер
Демо-база (1CD) 1Cv8.zip
.1235473060 138,16Kb
15.10.14
612
.1235473060 138,16Kb 612 Скачать
Файл cf 1Cv8.cf
.1235474089 19,09Kb
15.10.14
299
.1235474089 19,09Kb 299 Скачать

См. также

Комментарии
1. Сергей Кучеров (СергейКа) 610 24.02.09 14:11 Сейчас в теме
Неплохо было бы:
1. Написать что это отдельная подсистема.
2. Выгрузить в формате cf.
Или всё же сделать обработкой...
2. Сергей Кучеров (СергейКа) 610 24.02.09 14:28 Сейчас в теме
Хоть и много аналогичных разроботок, но тут достаточно просто :)
3. Евгений Гайдайчук (evgaid) 140 25.02.09 03:55 Сейчас в теме
А в серверном варианте не имеется?
4. gem (gem2004@mail.ru) 25.02.09 08:38 Сейчас в теме
сервеный вариант бы сделать)да)
5. Василий Демидов (Душелов) 3790 25.02.09 09:10 Сейчас в теме
6. kadr (kadr) 36 25.02.09 10:44 Сейчас в теме
а серверный вариант - средствами сервера :)
ИМХО здесь более удобно код на стороне клиента
сюда прикрутить ВК Нетленка и radmin в 1С готов :)
7. Федор Шаляпин (DDDSSS) 21.07.09 19:22 Сейчас в теме
запускаю на ноуте сразу несколько пользователей, себя отключаю без проблем, а других пользователей не отключает
8. г. Казань Рустем Гумеров (Rustig) 790 21.06.11 10:56 Сейчас в теме
(0) Спасибо!!!
Проверил - работает.
Есть вопрос. Если я правильно понял, имеется ограничение: выгонять можно только пользователей с полными правами. Так?
9. г. Казань Рустем Гумеров (Rustig) 790 21.06.11 17:41 Сейчас в теме
(0), (7) если у вас открыт конфигуратор и режим предприятия одновременно, тогда именно так и будет. закройте конфигуратор, и подсистема заработает в полную меру.:)
10. Николай Первушин (kolia047) 27.07.11 08:41 Сейчас в теме
Как это работает не могу сообразить как ее окрыть подскажите очень надо.
11. Владимир Федин (fwa) 07.10.11 11:18 Сейчас в теме
к сожалению не работает файл - сервер
12. Reik Reik (reik) 11.11.11 13:56 Сейчас в теме
13. alex alex (temp2003) 3 09.12.11 14:14 Сейчас в теме
Неплохо было бы выгрузить в формате cf-ника. Но минус в том, что надо конфигурацию изменять... Внешней обработкой как-то привычнее и практичнее... думаю...
14. Марина Александрова (Mary2222) 27.12.11 19:25 Сейчас в теме
Для обычной (файловой) базы сработала, спасибо Вам! А для серверного варианта сделала батник.
15. Олег Петрухин (гвость) 04.07.12 14:03 Сейчас в теме
автор жжот, это ещё надо додуматься чтобы выложить CD