Имя: Пароль:
1C
1C 7.7
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
http://infostart.ru/public/14593/

(есть нюанс)
14 Vladal
 
28.02.12
17:01
Достижения (опыт): Ну какие в 1с могут быть достижения?

Эт Вы, батенька, загнули. Ну как Вам тут могут помочь, если в 1С достижений никак низзя получить?

А вот если бы "Ну какие у меня могут быть достижения" - эт да, эт субъективно.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан