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