|
Отключение пользователей в 1С 7.7. | ☑ | ||
---|---|---|---|---|
0
Борис_16
09.09.13
✎
08:56
|
Всем добрый День! Написал в главном модуле:
Процедура Сброспользователей() Если НазваниеНабораПрав() <> "Мегаадминистратор" Тогда ЗавершитьРаботуСистемы(0); КонецЕсли; Если НазваниеНабораПрав() <> "Лаборант" Тогда Комент="завершить работу"; ЗаписьЖурналаРегистрации(Комент,,,,4); ЗавершитьРаботуСистемы(); КонецЕсли; КонецПроцедуры Но при входе в программу ничего не вылетает... Как это можно реализовать???? |
|||
1
KUBIK
09.09.13
✎
08:58
|
Написал в главном модуле:
Процедура Сброспользователей() = Не там написал. Надо в ПриНачалеРаботыСистемы() |
|||
2
aka AMIGO
09.09.13
✎
09:02
|
+ или через ОбработкаОжидания(ЫЫЫ)
в проце ЫЫЫ пишешь условие, например, наличие пустякового файлика с определенным именем в какой-нть папке, если есть - ЗавершитьРаботуСистемы(0) |
|||
3
Борис_16
09.09.13
✎
09:04
|
А, как это будет реализовываться при запуске, т.е. я вхожу в 1С и мне должно сразу окно выпасть вырубить всех пользователей?
|
|||
4
dk
09.09.13
✎
09:05
|
Мегаадминистратор никогда не слышал про отладчик?
|
|||
5
Борис_16
09.09.13
✎
09:06
|
А, блин! т.е. через откладчик, с правами мегаадмина кнопкой мыши всех рублю
|
|||
6
zak555
09.09.13
✎
09:06
|
чего лаборанту делать в БД ?
|
|||
7
Борис_16
09.09.13
✎
09:07
|
)))), это понятно, думал, что типа окно само будет вываливаться при заходе в программу)
|
|||
8
KUBIK
09.09.13
✎
09:08
|
(3) Вытащи все изо рта и озвучь внятно, что ваяешь?
|
|||
9
aka AMIGO
09.09.13
✎
09:09
|
+8 и кому вопрос, желательно озвучить :)
|
|||
10
Борис_16
09.09.13
✎
09:10
|
надо запсутить отключение пользователей, скажем на 10 мин, для обновления базы, вот и пытаюсь это сделать
|
|||
11
KUBIK
09.09.13
✎
09:11
|
(10) ищи на просторах как это делается и не майся глупостями.
|
|||
12
aka AMIGO
09.09.13
✎
09:11
|
(10) хмык.. отключить пользователей на 10 мин не получится.
только всех и навеки |
|||
13
Борис_16
09.09.13
✎
09:12
|
Так и ищю! наткнулся на это, а придется и обработкуожиданий ваять еще, понимаю, что это просто, но пока я только учусь
|
|||
14
aka AMIGO
09.09.13
✎
09:15
|
в Поиск по форуму, текст "Отключение пользователей" - бездна вариантов
|
|||
15
Борис_16
09.09.13
✎
09:17
|
Спасибо!
|
|||
16
Масянька
09.09.13
✎
09:48
|
(13) Чу, щу пиши с "у". Двоешник :)
|
|||
17
Борис_16
10.09.13
✎
07:47
|
Еще раз всем привет! написал:
Лаборант=ИмяПользователя(); Если Лаборант="Анна,Наташа" Тогда Предупреждение("Доступ закрыт!|Сохраните изменения!",5); СтатусВозврата(0); КонецЕсли; ОбработкаОжидания("Выйти",15); процедура Выйти(); СоздатьОбъект ("Выйти"); спрПольз=СоздатьОбъект("справочник.Пользователи"); Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда глПользователь=СпрПольз.ТекущийЭлемент(); Если глПользователь.РазрешитьРаботу=0 тогда глПользователь.РазрешитьРаботу=1; спрПольз.Записать(); Сообщить("Административное отключение системы"); ЗавершитьРаботусистемы(); конецесли; конецесли; конецпроцедуры Но мне вылетает ошибка Глобального модуля, через откладчик запускал, ругается на процедуру "Выйти"... |
|||
18
Борис_16
10.09.13
✎
07:48
|
Справочник создал
|
|||
19
Злопчинский
10.09.13
✎
10:06
|
Вот будет имяпользователя АННА, НАТАША - накроется медным тазиком все
|
|||
20
Злопчинский
10.09.13
✎
10:07
|
||||
21
Злопчинский
10.09.13
✎
10:08
|
||||
22
Борис_16
10.09.13
✎
10:33
|
Я от туда и беру http://kb.mista.ru/article.php?id=79
только сейчас пишет эксренно выйти али нет? Лаборант=ИмяПользователя(); Если Лаборант="Лаборант" Тогда Предупреждение("Доступ закрыт!|Сохраните изменения!",5); СтатусВозврата(0); КонецЕсли; //Процедура ПриНачалеРаботыСистемы() Если ИмяПользователя()="администратор" Тогда СтатусВозврата(1); КонецЕсли; Если ИмяПользователя()<>"Лаборант" Тогда Если Константа.Опрос = 2 Тогда Предупреждение("РАБОТА В СИСТЕМЕ В ДАННОЕ ВРЕМЯ НЕ ВОЗМОЖНА","2"); Сигнал(); Комент="Попытка несанкционированного доступа"; ЗаписьЖурналаРегистрации(Комент,,,,4); СтатусВозврата(0); КонецЕсли; КонецЕсли; ОбработкаОжидания("Выйти",20) |
|||
23
Борис_16
10.09.13
✎
10:53
|
короче убрал все и оставил:
Лаборант=ИмяПользователя(); Если Лаборант="Лаборант" Тогда Предупреждение("Доступ закрыт!|Сохраните изменения!",5); СтатусВозврата(0); КонецЕсли; ОбработкаОжидания("Выйти",20); Так не ругается:) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |