Выгонялка.
Часто сталкиваюсь с проблемой: просишь пользователей выйти из базы, а они не слушаются! Для этого написала такую вот выгонялку.
- Описание
- Подробнее
Описание
Процедура ЗакрытьПрогу()
Если Константа.Выгнать = 1 тогда
Если НазваниеНабораПрав() <> "Администратор" тогда
ЗавершитьРаботуСистемы(0)
КонецЕсли
КонецЕсли
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
КонецПроцедуры //ПриНачалеРаботыСистемы()
