Отключить пользователя
Показывать по
10
20
40
сообщений
- 1
- 2
17.02.2009
13:35
#13
"Если текстом, то в справочнике например "Пользователи" реквизит напрмер "Выйти" - тип Чилсо, Длина 1.
В форме списка колонка "В".
В глобальном мобуле:
Процедура ЗакрытьБазу()
Спр=СоздатьОбъект("Справочник.Пользователи");
Спр.НайтиПоНаименованию(ИмяПользователя());
Если Спр.Выйти=1 Тогда
Спр.Выйти=0;
Спр.Записать();
ЗавершитьРаботуСистемы(0);
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьБазу",60);
КонецПроцедуры
Как работает - захобим в правочник и ставим 1 напротив пользователя которого надо выгнать.
Ждем. Где-то через минуту в глобальном модуле срабатывает ОбработкаОжидания. В процедуре
ЗакрытьБазу() проверяется пользователь, происходит обнуление реквизита справочника "Выйти"
и ЗавершитьРаботуСистемы(0);"
В форме списка колонка "В".
В глобальном мобуле:
Процедура ЗакрытьБазу()
Спр=СоздатьОбъект("Справочник.Пользователи");
Спр.НайтиПоНаименованию(ИмяПользователя());
Если Спр.Выйти=1 Тогда
Спр.Выйти=0;
Спр.Записать();
ЗавершитьРаботуСистемы(0);
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьБазу",60);
КонецПроцедуры
Как работает - захобим в правочник и ставим 1 напротив пользователя которого надо выгнать.
Ждем. Где-то через минуту в глобальном модуле срабатывает ОбработкаОжидания. В процедуре
ЗакрытьБазу() проверяется пользователь, происходит обнуление реквизита справочника "Выйти"
и ЗавершитьРаботуСистемы(0);"
18.02.2009
09:20
#15
"в 8.0 создал внешнюю обработку (1 пользователь, админ) - выдались ошибки:
{ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
Спр=<>>СоздатьОбъект("Справочник.Пользователи");
{ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
<>>ОбработкаОжидания("ЗакрытьБазу",60);
"
{ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
Спр=<>>СоздатьОбъект("Справочник.Пользователи");
{ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
<>>ОбработкаОжидания("ЗакрытьБазу",60);
"
18.02.2009
11:18
#17
"> в 8.0 создал внешнюю обработку (1 пользователь, админ) - выдались ошибки:
>
> {ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
> Спр=<>>СоздатьОбъект("Справочник.Пользователи");
> {ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
> <>>ОбработкаОжидания("ЗакрытьБазу",60);
>
Не надо открывать текст на языке 7.7 в 8.0"
>
> {ВнешняяОбработка.ВнешняяОбработка1(2,5)}: Процедура или функция с указанным именем не определена (СоздатьОбъект)
> Спр=<>>СоздатьОбъект("Справочник.Пользователи");
> {ВнешняяОбработка.ВнешняяОбработка1(12,1)}: Процедура или функция с указанным именем не определена (ОбработкаОжидания)
> <>>ОбработкаОжидания("ЗакрытьБазу",60);
>
Не надо открывать текст на языке 7.7 в 8.0"
- 1
- 2
Читают тему
(гостей: 1)