Отключение пользователей в 1С 7.7. #679951

Всем добрый День! Написал в главном модуле: Процедура Сброспользователей   Если НазваниеНабораПрав <> "Мегаадминистратор" Тогда     ЗавершитьРаботуСистемы; КонецЕсли; Если  НазваниеНабораПрав <> "Лаборант"   Тогда Комент="завершить работу"; ЗаписьЖурналаРегистрации(Комент,,,,4); ЗавершитьРаботуСистемы; КонецЕсли; КонецПроцедуры Но при входе в программу ничего не вылетает... Как это можно реализовать????

Написал в главном модуле: Процедура Сброспользователей = Не там написал. Надо в ПриНачалеРаботыСистемы

+ или через ОбработкаОжидания(ЫЫЫ) в проце ЫЫЫ пишешь условие, например, наличие пустякового файлика с определенным именем в какой-нть папке, если есть - ЗавершитьРаботуСистемы

А, как это будет реализовываться при запуске, т.е. я вхожу в 1С и мне должно сразу окно выпасть вырубить всех пользователей?

Мегаадминистратор никогда не слышал про отладчик?

А, блин! т.е. через откладчик, с правами мегаадмина кнопкой мыши всех рублю

чего лаборанту делать в БД ?

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

Вытащи все изо рта и озвучь внятно, что ваяешь?

+8 и кому вопрос, желательно озвучить :)

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

ищи на просторах как это делается и не майся глупостями.

хмык.. отключить пользователей на 10 мин не получится. только всех и навеки

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

в Поиск по форуму, текст "Отключение пользователей" - бездна вариантов

Спасибо!

Чу, щу пиши с "у". Двоешник :)

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

Справочник создал

Вот будет имяпользователя АННА, НАТАША - накроется медным тазиком все

Я от туда и беру    только сейчас пишет эксренно выйти али нет? Лаборант=ИмяПользователя; Если Лаборант="Лаборант" Тогда Предупреждение("Доступ закрыт!|Сохраните изменения!",5); СтатусВозврата;   КонецЕсли;   //Процедура ПриНачалеРаботыСистемы Если ИмяПользователя="администратор" Тогда СтатусВозврата; КонецЕсли; Если ИмяПользователя<>"Лаборант" Тогда Если Константа.Опрос = 2 Тогда     Предупреждение("РАБОТА В СИСТЕМЕ В ДАННОЕ ВРЕМЯ НЕ ВОЗМОЖНА","2"); Сигнал; Комент="Попытка несанкционированного доступа"; ЗаписьЖурналаРегистрации(Комент,,,,4); СтатусВозврата; КонецЕсли; КонецЕсли; ОбработкаОжидания("Выйти",20)

короче убрал все и оставил:       Лаборант=ИмяПользователя; Если Лаборант="Лаборант" Тогда Предупреждение("Доступ закрыт!|Сохраните изменения!",5); СтатусВозврата;   КонецЕсли;   ОбработкаОжидания("Выйти",20); Так не ругается:)