gifts2017

Пользователи, права и интерфейсы.

Опубликовал александр (whtblck) в раздел Администрирование - Защита, права, пароли

При большом количестве пользователей рано  или  поздно  станет большим и количество наборов прав и интерфейсов (ИФ). И подчас довольно сложно разобраться, какие  же  права  и  ИФ  дать пользователю. Чтобы упростить себе такую задачу и была написана данная обработка.

Обработка умеет:
1. Показать  всех  пользователей  БД,  добавить,  удалить  или
править пользователя.
2. Показать разрешения для выбранного  набора  (наборов)  прав
и указанных объектов метаданных.
3. Показать все пункты меню и панели для выранных ИФ.
Как "побочный эффект" попутно было добавлено:
4. Показать список активных  сеансов со временем входа и типом
входа (конфигуратор, отладчик или предприятие).
5. Показать список заблокированных пользователями документов.
6. Показать текущее время и  раскладку клавиатуры в статусбаре,
(полезно  при  полноэкранной  терминальной сессии), переключить
раскладку.

Для работы ныжны внешние компоненты:
- Admin1C
- GComp
- UsersDef
Все они есть  в  комплекте и должны лежать в КаталогИБ()+"\dll"
или там, куда положите (перепропишете путь).

На даннй момент все.
Уверен, что я не первый подобное сделал, но подчас найти готовое сложнее,
чем сделать самому.

Отдельное спасибо vcv за то, что пинал в нужном направлении

Скачать файлы

Наименование Файл Версия Размер
ПраваИнтерфейсы.zip 331
.zip 621,29Kb
26.06.14
331
.zip 621,29Kb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. cdr (phsin) 18.11.10 17:42
Нажимаю на кнопку Разобрать...
пишет:
Код возврата pkunzip - 1
Обновление не произведено
2. александр (whtblck) 18.11.10 17:58
(1)
эм... даже не знаю, откуда такая ошибка...
какая у тебя конфигурация?
можешь показать?
3. cdr (phsin) 18.11.10 18:30
Стандартная Комплексная с 1с++
4. александр (whtblck) 19.11.10 09:03
(3)
смог смоделировать такую ошибку, когда у пользователя нет своего рабочего каталога.
разбор мд-шника происходит в каталоге пользователя. или назначь каталог пользователю, или перепропиши на, скажем, каталог временных файлов.
я, пожалуй, тоже переделаю и выложу заново
5. александр (whtblck) 19.11.10 10:30
(3), (4)
пересобрал, переложил.
хотя все равно без каталога пользователя почему-то не работает. почему - пока не знаю.
кроме того, разобранный мд-шник убираю командной строкой. УдалитьКаталог(), УдалитьФайл() не всегда нормально отрабатыват :(
6. Jancoy (Jancoy) 24.11.10 16:58
КодВозврата = Скрипт.Run(Команда,0,-1);
каталог пользователя указан. не стартует Разобрать и все тут! :cry:
7. александр (whtblck) 27.11.10 23:25
8. Владимир Миров (VladMir) 08.12.10 10:34
Вот такое выдаёт мне при нажатии "Разобрать":
> Код возврата gcomp.exe 1
> Разбор метаданных не произведен
Отчего такое? (ТиС 9.2)
9. александр (whtblck) 02.03.11 15:34
При работе был отловлен интересный баг, пофиксить не могу.
Если кто поможет, скажу спасибо...
Итак, когда открываем обработку через "Файл\Открыть" - чаще всего gcomp не разбирает метаданные.
Возвращает:
> Код возврата gcomp.exe 1
> Разбор метаданных не произведен
Почему - понять не могу.
Если же обработку запустить из списка последних открытых (в меню "файл"), или добавить ее в меню (панель) - работает без вопросов.
10. Иван (Casey Jones) 30.08.11 16:45
Нажимаю разобрать, выскакивает по ошибке:
КодВозврата = Скрипт.Run(Команда,0,-1);
11. Иван (Casey Jones) 30.08.11 17:23
Все, разобрался. Он не в каждом каталоге разбирает данные. Если не работает с каталог юзверя, меняйте на каталог временных файлов или любой другой. Что ему не нравится в каталоге юзера (даже если он есть) хз.
12. Сергей Яхонтов (newbas) 13.09.11 17:19
При работе был отловлен интересный баг, пофиксить не могу.
Если кто поможет, скажу спасибо...

Перед
КодВозврата = Скрипт.Run(Команда,0,-1);

Надо добавить
ФС.УстТекКаталог(ТемпДир);


Еще обнаружил одну фишку.
Какой-то хлопчик назвал набор прав "Адм+Банк", а gcomp сохраняет файл "Адм_Банк".
Вылечено
			
ИмяФайла	= КаталогПрав+СтрЗаменить(ТекНаборПрав, "/", "_")+".txt";
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
          ИмяФайла	= СтрЗаменить(ИмяФайла,"+","_");
КонецЕсли;
Попытка
	Т.Открыть(ИмяФайла);
Исключение             
	Предупреждение("Ошибка открытия файла из-за "+ОписаниеОшибки());
	СтатусВозврата(0);Возврат;
КонецПопытки; 
...Показать Скрыть
13. Vladimir Ivanovitch (tmm) 16.09.11 12:30
Удобно, хотя не всё работает...
14. александр (whtblck) 16.09.11 13:12
(13)не все работает даже у мелкомягких.
что именно не отработало?
15. Vladimir Ivanovitch (tmm) 16.09.11 16:11
Во первых: хотелось бы чтобы в графе Pass действительно высвечивался пароль, ну и "разобрать" конфигурацию тоже бы хотелось (хотя и не обязательно). А у мелкомягких НИКОГДА не будет работать даже половина того-чего они так рьяно рекламируют.
16. александр (whtblck) 16.09.11 16:24
(15)
хотелось бы чтобы в графе Pass действительно высвечивался пароль

если мне не изменяет мой склероз, 1с-ка хранит не пароль, а его хеш. посему вывсетить его просто невозможно.
"разобрать" конфигурацию тоже бы хотелось (хотя и не обязательно)

ну дык она и разбирает. или что-то не так? ошибки есть? в студию...
17. Vladimir Ivanovitch (tmm) 16.09.11 16:37
Так побороть не удаётся даже по рекомендациям.
> Код возврата gcomp.exe 1
> Разбор метаданных не произведен.
И из меню тоже.
"Если не работает с каталог юзверя, меняйте на каталог временных файлов или любой другой" менял. Но может не там менял?
18. александр (whtblck) 16.09.11 16:56
(17)
был замечен еще такой баг, сам не знаю, откуда берется и как его победить:
если открываешь через "файл\открыть" - может не разобрать.
если из списка последних открытых, или же кнопочкой в меню (или панели) - открывает. попробуй
19. Роман Хусяинов (rom-x) 01.11.11 22:10
(18)Пробовал, не помогает, так и пишет:
Вот такое выдаёт мне при нажатии "Разобрать":
> Код возврата gcomp.exe 1
> Разбор метаданных не произведен
(ТиС 9.2)
20. Иван Шевченко (imshev) 17.11.11 11:15
такую бы штуку еще на 8.2 цены бы ей небыло
21. александр (whtblck) 17.11.11 12:08
(20) ну извините, на 8-ке пока не обучен, так что как-то сами уж...
22. Михаил Скряга (PRO100_NigGaZ) 23.01.12 21:38
Аналогичная проблема, с КодВозврата = Скрипт.Run(Команда,0,-1); решилось танцами с бубном, теперь новая проблема Код возврата gcomp.exe 1
23. Михаил Скряга (PRO100_NigGaZ) 23.01.12 21:57
разобрался теперь пишет неверное имя файла...
блин совсем запутался пробел не лишний (
24. Андрей Чернов (Bahyt) 19.11.12 12:35
(23) PRO100_NigGaZ,
Убрать пробелы из имени файлов - заработает.
ИмяФайла = КаталогПрав+СтрЗаменить(ТекНаборПрав, "/", "_")+".txt";
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
ИмяФайла = СтрЗаменить(ИмяФайла,"+","_");
ИмяФайла = СтрЗаменить(ИмяФайла," ","_");
КонецЕсли;
Попытка
Т.Открыть(ИмяФайла);
Исключение
Предупреждение("Ошибка открытия файла из-за "+ОписаниеОшибки());
СтатусВозврата(0);Возврат;
КонецПопытки;
25. berator37 (berator37) 02.06.13 10:15
Не могли бы Вы выслать на почту http://infostart.ru/public/78232/. Заранее спасибо
26. александр (whtblck) 02.06.13 15:51
(25)
скачай, она бесплатная
27. Роман * (Black Cat) 06.06.13 11:40
Очень удобный отчет !
Хотелось бы добавить туда возможность печати списка пользователей из вкладки "Пользователи"
28. александр (whtblck) 06.06.13 12:27
(27)
добавь, кто же запрещает? сложного ничего нет...
если сам не можешь - за отдельную плату добавлю
29. Figaro ----- (Fighter) 27.06.13 06:42
КодВозврата = Скрипт.Run(Команда,0,-1);
не работает... вылетает в данной строке
30. александр (whtblck) 27.06.13 10:48
(29) - у меня работает.
ОСь?
Платформа?
Пофигурация?
31. Figaro ----- (Fighter) 28.06.13 05:27
Спс. Заработало.
была ошибка с каталогом пользователя... нарушение прав доступа к папке...
прописал другой путь и всё пошло...
32. александр (whtblck) 28.06.13 15:07
33. Виктор Плаунов (StiVitS) 26.06.14 14:28
Что уже только не делал пишет:
Код возврата gcomp.exe 1
Разбор метаданных не произведен
34. александр (whtblck) 26.06.14 16:09
(33)
согласен, было такое.
у самого.
себе пофиксил, а перевыложить запамятовал.
перевыложил.
могу намылить, если мыло дашь
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа