|
v7: Как в 1с77 сделать выкидывалку пользователей | ☑ | ||
---|---|---|---|---|
0
Холодец
28.02.12
✎
14:35
|
прошу прощения!
Не силен в 1с77. Есть готовое решение? Заранее признателен |
|||
1
Скользящий
28.02.12
✎
14:36
|
тема порванный баян.
|
|||
2
Холодец
28.02.12
✎
14:38
|
знаю! не нашел. туплю
|
|||
3
Холодец
28.02.12
✎
14:38
|
(1)помогите тем паче
|
|||
4
Скользящий
28.02.12
✎
14:39
|
||||
5
Холодец
28.02.12
✎
14:44
|
(4)там куча ссылок друг на друга. реальной работающей четко не описано
|
|||
6
BlackSeaCat
28.02.12
✎
16:31
|
Я использую где-то подсмотренное:
1. Константа ДоЗавершенияРаботы - число минут. 2. В начале глобального модуля вставка: Перем ПериодОпроса, ОсталосьДоЗавершенияРаботы; Процедура ОпросСостоянияСистемы() Если Константа.ДоЗавершенияРаботы>0 Тогда Если ОсталосьДоЗавершенияРаботы=0 Тогда ОсталосьДоЗавершенияРаботы=Константа.ДоЗавершенияРаботы*60; Предупреждение("Через "+СокрЛП(Константа.ДоЗавершенияРаботы)+" мин программа автоматически завершит работу!"+ РазделительСтрок+"Просьба сохранить данные и закрыть все открытые окна.",10); Иначе ОсталосьДоЗавершенияРаботы=ОсталосьДоЗавершенияРаботы-ПериодОпроса; Если ОсталосьДоЗавершенияРаботы<=0 Тогда ЗавершитьРаботуСистемы(0); ИначеЕсли ОсталосьДоЗавершенияРаботы<=60 Тогда Предупреждение("До завершения работы осталось "+СокрЛП(ОсталосьДоЗавершенияРаботы)+" сек",5); КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры 3. В процедуре ПриНачалеРаботыСистемы() вставка: Если Константа.ДоЗавершенияРаботы>0 Тогда Если ВРег(ИмяПользователя())="АДМИНИСТРАТОР" Тогда Константа.ДоЗавершенияРаботы=0; Иначе Предупреждение("Установлен режим автоматического завершения работы через "+СокрЛП(Константа.ДоЗавершенияРаботы)+" мин!"+ РазделительСтрок+"Вход в программу невозможен.",10); СтатусВозврата(0); Возврат; КонецЕсли; КонецЕсли; ОбработкаОжидания("ОпросСостоянияСистемы",ПериодОпроса); 4. В процедуре |
|||
7
andrewks
28.02.12
✎
16:32
|
||||
8
Mikeware
28.02.12
✎
16:33
|
В демоверсии а+ - выгонялка, сообщалка, запускалка и т.д.
|
|||
9
BlackSeaCat
28.02.12
✎
16:33
|
+(6)
4. В процедуре ПриЗавершенииРаботыСистемы() замена: // ЗапрашиватьПодтверждениеПриВыходе = ПустоеЗначение(ВосстановитьЗначение("НеЗапрашиватьПодтверждениеПриВыходе")); ЗапрашиватьПодтверждениеПриВыходе=?(Константа.ДоЗавершенияРаботы>0,0,ПустоеЗначение(ВосстановитьЗначение("НеЗапрашиватьПодтверждениеПриВыходе"))); 5. В конце гловбального модуля вставка: ПериодОпроса=30; // секунд ОсталосьДоЗавершенияРаботы=0; |
|||
10
el-gamberro
28.02.12
✎
16:34
|
kill @@spid
|
|||
11
andrewks
28.02.12
✎
16:34
|
(10) а вот и вандалы подтянулись. щас ещё tskill заюзают
|
|||
12
el-gamberro
28.02.12
✎
16:35
|
+(11) это самоубийственный скрипт
|
|||
13
andrewks
28.02.12
✎
16:38
|
||||
14
Vladal
28.02.12
✎
17:01
|
Достижения (опыт): Ну какие в 1с могут быть достижения?
Эт Вы, батенька, загнули. Ну как Вам тут могут помочь, если в 1С достижений никак низзя получить? А вот если бы "Ну какие у меня могут быть достижения" - эт да, эт субъективно. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |