Пробовал выгшнать путем записис в глобальный модуль: "Процедура ВыбросПользователя()
                  Польз = СоздатьОбъект("Справочник.Пользователи");
      
              Если Польз.НайтиПоКоду(СОКРЛП(ИмяПользователя()),0) = 1 Тогда
                        Если Польз.Выброс=1 Тогда
                             Польз.Выброс=0;
                          Польз.Записать();
                          ЗавершитьРаботуСистемы(0);
                     КонецЕсли;
           Иначе
               ЗавершитьРаботуСистемы(0);
          КонецЕсли;
КонецПроцедуры // ВыбросПользователя
ОбработкаОжидания("ВыбросПользователя",5);"

Пишет постоянно ошибки "Ошибка глобального модуля", а мне над чтобы работало... в чем проблема не могу понять...

напиши служебку

Ну тут несколько путей:
- ЗавершениеРаботы должно запускаться на компе у пользователя. Используй обработчик ожидания.
- Выдернуть сервер из сети
- Поднести источник огня к противопожарному датчику

(0) на компе, где база 7.7 выполни команду
net use * /delete /yes

Нажатие на букву "Я" в правом верхнем углу этого экрана - зачастую помогает. Особенно когда тема - баян рваный.

(0) фигня какая-то.


Обычно "выгонялку" вешают на Константу, а обработку ожидания подключают ПриНачалеРаботыСистемы. И еще надо позаботится чтобы они все не смогли зайти.. Опыт показывает, что те, кого выкинули имеют свойство тут-же ломиться обратно :)

Правильно  коллега в (4) говорит. Поиск наше все.

У мене проще.
Создаем в базе доп таблицу с полями:
скажем ИмяПользователя,Блокировка
ПриНачалеРаботыСистемы

Добавляем если нет запись о входе пользователя

Вешаем ОбработкуОжидания() сканированием это таблички.

При надобности выгнать всех или когось записываем в Блокировать 1.
и все.

(5) не слишком универсально.

Короче если все писать в глобальный модуль, то ничего не сработает.
А be-may,в "Константах" выгонялку я просто прописываю - создаю, а вот с "Обработкой ожидания"  проблем: если ставлю в начало ПриНачале Работы Системы, то ошибки: "Определения процедур и функций должны размещаться перед операторами основной программы", куда лучше, т.е. после чего лучше записать "Обработку Ожидания"?

процедура выгнатьвсех();
спрПольз=СоздатьОбъект("справочник.Пользователи");
Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда
глПользователь=СпрПольз.ТекущийЭлемент();
Если глПользователь.РазрешитьРаботу=0 тогда
глПользователь.РазрешитьРаботу=1;
спрПольз.Записать();
Сообщить("Административное отключение системы");
ЗавершитьРаботусистемы();
конецесли;
конецесли;
конецпроцедуры
спрПольз=СоздатьОбъект("справочник.Пользователи");
Если спрПольз.НайтиПоНаименованию(Строка(Имяпользователя()))=1 тогда
    глПользователь=СпрПольз.ТекущийЭлемент();
конецесли;
  ОбработкаОжидания ("Выгнатьвсех",45);
Строка ОбработкаОжидания ("Вырубить",45);

Причем в Константы внес "Выгнатьвсех"

Не работает!!!!

ЗавершитьРаботусистемы() работает только если пользователь "свободен" от например временной блокировки или выполнения отчета

+ и вообще, фигня какая то (с) ... некто

(9) Обработку ожидания размести в конце глобального модуля

Блин, почему тогда у одних получается и все работает при выложенном таком модуле?

Вообще уже не понимаю как заставить это работать!

Пишет постоянно ошибки "Ошибка глобального модуля"

Ты бы хоть ошибки бы постоянные озвучил бы тут... А то все уже телепатировать начинают

ошибки: "Определения процедур и функций должны размещаться перед операторами основной программы"

(17) -> (13)

Пошел по ссылкам и наткнулся на примеры выгона пользователей и эти примеры записал в Глобальный модуль, а при контроле ошибки: Определения процедур и функций должны размещаться перед операторами основной программы"
В конец Глобального модуля уже это разместить...

(17) вроде вполне четко пишет - перенеси текст обработки ожидания выше

Перенес! Ошибка: "<<?>>Функция глОборудованиеКоманда(Вид, Обработка, Параметры) Экспорт
{Глобальный модуль(241)}: Определения процедур и функций должны размещаться перед операторами основной программы"

кинь скрин куда перенес )))

(21) :))))))
Найди последнюю строку КонецПроцедуры ГМ и вставляй после нее

{Глобальный модуль(241)}: чтото в начале ГМ плохо у тя, судя по номеру строки

Самый конец ГМ заканчивается "глПечатьДокумента(ДокДляПечати, Способ)" после нее это не совсем корректно писать

ОбработкаОжидания ("Выгнатьвсех",45);
Строка ОбработкаОжидания ("Выгнатьвсех",45);

Тады см (22)

(25) Ты как определил, что не совсем корректно?

моя имха:
в районе строки 241 ненужная точка с запятой, скорее всего в конце предыдущей строки

ужасть

В конец глобальника это:
Процедура Выгнатьвсех()

    ...

КонецПроцедуры

а _под_ ней пиши это:
ОбработкаОжидания("Выгнатьвсех", 45);

Щас по-пробую

Написал, кидаю часть:

Процедура ПриУдаленииДокумента(докум,режим)
    Если докум.вид() = "КомплектовочнаяТестСистема" Тогда
        спр = создатьобъект("Справочник.СерияГотовойПродукции");
        Если   спр.найтипореквизиту("документ", докум,1) = 1 Тогда
                спр.текущийэлемент();
                спр.удалить(0);
        КонецЕсли;
    КонецЕсли;

конецПроцедуры


глПрефиксШтучногоШтрихкода = "20";
глКаталогОписаний = КаталогИБ() + "ExtForms\Equip\";  


глФлагРасшифровки = 0;
глРасшифровка = 0;
глОбновить = 0;    


процедура выгнатьвсех();
спрПольз=СоздатьОбъект("справочник.Пользователи");
Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда
глПользователь=СпрПольз.ТекущийЭлемент();
Если глПользователь.РазрешитьРаботу=0 тогда
глПользователь.РазрешитьРаботу=1;
спрПольз.Записать();
Сообщить("Административное отключение системы");
ЗавершитьРаботусистемы();
конецесли;
конецесли;
конецпроцедуры
спрПольз=СоздатьОбъект("справочник.Пользователи");
Если спрПольз.НайтиПоНаименованию(Строка(Имяпользователя()))=1 тогда
    глПользователь=СпрПольз.ТекущийЭлемент();

КонецЕсли;

Строка ОбработкаОжидания ("Выгнатьвсех",45);
ОбработкаОжидания ("Выгнатьвсех",45);

Ошибка, блин ее!!! "<<?>>процедура выгнатьвсех();
{Глобальный модуль(1237)}: Определения процедур и функций должны размещаться перед операторами основной программы"

(32) епрст... подними процедуру выше переменных! )))

(32) А это что за хрень?

Строка ОбработкаОжидания ("Выгнатьвсех",45);

Сработало! Только теперь ругается на"Строка<<?>> ОбработкаОжидания ("Выгнатьвсех",45);
{Глобальный модуль(1265)}: Ожидается символ '('"

Вот что здесь не верно? Строка ОбработкаОжидания ("Выгнатьвсех",45); ??

школота detected

Не понял "школота detected"?

(35) убей эту строку

Блииин! реально без ошибок!

Так, поскольку Спавочник Пользователи -созда, то там надо прописывать имеющихся пользователей, отключать я должен выборочно, правильно, сидя под админом через Монитор?

Зачем пользователей мучить? Перейди на ночной график обслуживания.

Ночью не могу - надо спать тоже)

Теперь надо реализовать выключение, есть Тест - он сидит, я захожу в Монитор под админом и... ничего...

та йо , твайо занаху ;))
пользователь выключает себя САМ через обработку ожидания при проверке параметра на выключение (например реквизит - выйти - У ДАННОГО конкретного пользователя который проверяется в обработке ожидания и потом завершаетработусистемы ИМЕННО под ЭТИМ пользователем) а кто ЕМУ реквизит поставит на выход - монопенисуально

Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда
глПользователь=СпрПольз.ТекущийЭлемент();
Если глПользователь.РазрешитьРаботу=0 тогда
глПользователь.РазрешитьРаботу=1;
//спрПольз.Записать();
Сообщить("Административное отключение системы");
ЗавершитьРаботусистемы();
Иначе
Сообщить("Пользователь на нейден. Административное отключение системы");
ЗавершитьРаботусистемы();
конецесли;

Понял! Спасибо МимохожийОднако!

Но это не дают мне пускать других пользователей, а если надо заново их впустить?

Надо же чтобы они работали и оба! все вырубилось и не могли зайти минут 10 в систему, а я пока обновлю что надо

Слушай, а может, не надо на живой базе? А то есть сомнения, что получится "что надо". Пробуй на тестовой.

А вообще поставь себе права администратора, в твоей процедуре выкидывания проверяй их и администраторов не трогай. Тогда сможешь войти в базу и снять галочки.

Я на тестовой и пробую

Я захожу как админ, а вот скажем лаборант вообще войти не может, я хочу понять как я могу под админом отключать не админов когда они работают?

(50) Терминальный сеанс сруби

Добавь при входе проверку на права в случае включения ограничений.
Однако, нехорошо мешать людям работать. Днём можно отработать на копии, а после работы за полчаса обновить без геморроя для пользователей. ))

Тогда вообще на фиг я все писал в ГМ???

(53) Мы не знаем ;)

при входн на права написать вроде этого?

Процедура глобального модуля!!!

Процедура ПриНачалеРаботыСистемы()
User=ИмяПользователя();
Если User="Иванов" Тогда
Предупреждение("Доступ закрыт!")
СтатусВозврата(0);
КонецЕсли;
КонецПроцедуры

Но опять же это отключает, а как мне будучи админом взять и выключить всех когда мне надо? а потом включить?

(50)Гарантированного вывода пользователя из 1С средствами только 1С практически нет.

Если ТекПользователь = Админ  Тогда
//игнорировать твою процедуру.

т.е. если в начале перед процедурой:

Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда
глПользователь=СпрПольз.ТекущийЭлемент();
Если глПользователь.РазрешитьРаботу=0 тогда
глПользователь.РазрешитьРаботу=1;
//спрПольз.Записать();
Сообщить("Административное отключение системы");
ЗавершитьРаботусистемы();
Иначе
Сообщить("Пользователь на нейден. Административное отключение системы");
ЗавершитьРаботусистемы();
конецесли;

написать"Если ТекПользователь = Админ  Тогда
//игнорировать твою процедуру."

То это запустить проверку пользователей, а следовательно и допуск к системе и, если это пусть будет Тест, то он после подтвеждения выключится, так?

Кто-нибудь может подсказать, что делать-то. что зря в ГМ все написано?

Если ИмяПользователя = "Администратор" Тогда
//здесь ты админ и заходишь спокойно в систему,
//правишь справочник Пользователей
Иначе
ВыбросПользователя()
КонецЕсли;

(60) Стучись в аську.
Поделюсь своей выгонялкой.

(0) Вроде патч был для bkend.dll на инфостарте, для таких целей. Я пользовал год назад, удобно. И морочи нет. Почти))

Рекомендую стартер Ромикса
Позволяет выгонять с определенным таймаутом и миганием в трее
И что самое нужное - не позволяет бесконечно ломиться и блокировать файлы

+ Ничего в конфигурации менять не надо
Кроме этого он может прописывать базы пользователю

вот косчно и есть ошибки с циклом:
функция ПриНачалеРаботыСистемы()  
Для ИмяПользователя = Администратор тогда
    СтатусВозврата(1);
если пользователь=ИмяПользователя(Лаборант)тогда    

Сообщить("Административное отключение системы");
    СтатусВозврата(0);
конецесли;  
Иначе
ВыбросПользователя();

Конецфункции

хочу пока я под админом, чтобы другие не админы вылетали и все, подскажите как корректно это реализовать

Борис, раз ты такой настойчивый напиши мне на почту [email protected]

Спасибо! Scanvir! короче, пока я под админом никто не входит и это устраивает моего бухгалтера! :)