Отключить пользователя

Новая тема
Показывать по 10 20 40 сообщений
отправил
Как?
"Если текстом, то в справочнике например "Пользователи" реквизит напрмер "Выйти" - тип Чилсо, Длина 1.
В форме списка колонка "В".

В глобальном мобуле:
Процедура ЗакрытьБазу()
Спр=СоздатьОбъект("Справочник.Пользователи");
Спр.НайтиПоНаименованию(ИмяПользователя());
Если Спр.Выйти=1 Тогда
Спр.Выйти=0;
Спр.Записать();
ЗавершитьРаботуСистемы(0);
КонецЕсли;
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьБазу",60);
КонецПроцедуры

Как работает - захобим в правочник и ставим 1 напротив пользователя которого надо выгнать.
Ждем. Где-то через минуту в глобальном модуле срабатывает ОбработкаОжидания. В процедуре
ЗакрытьБазу() проверяется пользователь, происходит обнуление реквизита справочника "Выйти"
и ЗавершитьРаботуСистемы(0);"
:))) я почему то прочел что нужно в 8.1 отключить
"в 8.0 создал внешнюю обработку (1 пользователь, админ) - выдались ошибки:

{ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
Спр=<>СоздатьОбъект("Справочник.Пользователи");
{ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
<>ОбработкаОжидания("ЗакрытьБазу",60);
"
Спасибо. Попробую сделать.
"> в 8.0 создал внешнюю обработку (1 пользователь, админ) - выдались ошибки:
>
> {ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
> Спр=<>СоздатьОбъект("Справочник.Пользователи");
> {ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
> <>ОбработкаОжидания("ЗакрытьБазу",60);
>
Не надо открывать текст на языке 7.7 в 8.0"
Читают тему
(гостей: 1)

Быстрый переход