Имя: Пароль:
IT
Админ
Отключение пользователей в 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);

Так не ругается:)
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn