Имя: Пароль:
1C
 
ПравоДоступа("Администрирование",?)
0 Джайрикон
 
23.07.09
19:01
Платформа: 1С:Предприятие 8.1.11.67
Конфигурация: "Эргодром" (своя, в разработке)

Цель: узнать для текущего пользователя, имеет ли он право "Администрирование" (и эквивалентные "ОбновлениеКонфигурацииБазыДанных", "МонопольныйРежим", "АктивныеПользователи", "ЖурналРегистрации", "ВнешнееСоединение", "Automation", "ИнтерактивноеОткрытиеВнешнихОбработок", "ИнтерактивноеОткрытиеВнешнихОтчетов", "Вывод" — т. е. из серии Метаданные.Роли.{ИмяРоли}.Права)

Согласно справки:
Метаданные.Роли.{ИмяРоли}.Права преманентно возвращает :неопределено: и что следует пользоваться ПравоДоступа() и ПараметрыДоступа().

Эксперимент №1:
ПравоДоступа("Администрирование",Метаданные.Роли.{ИмяРоли}) всегда возвращает :истина:

Эксперимент №2:
ПравоДоступа("Администрирование",Метаданные.Справочники.{ИмяСправочника}) возвращает похоже значение флажка-права "Чтение".

Работающее решение (только для "Администрирование"):
попытка
 Ъ=ПравоДоступа("Чтение",Метаданные.Справочники.{ИмяСправочника},ПользователиИнформационнойБазы.ТекущийПользователь())
исключение
 возврат ложь
конецпопытки;
возврат истина

Спасибо.
1 ТелепатБот
 
гуру
23.07.09
19:01
2 73
 
23.07.09
19:05
А так?
ПравоДоступа("Администрирование",Метаданные)
3 Джайрикон
 
23.07.09
19:32
Проверил согласно совету "73"-го. Вышло:

Если некий юзер на множестве доступных ем ролей имеет хотя бы одну птичку-право "Администрирование", тогда ПравоДоступа(*,Метаданные) перманентно возвращает :истина: по всему спектру "ОбновлениеКонфигурацииБазыДанных", "МонопольныйРежим", "АктивныеПользователи", "ЖурналРегистрации", "ВнешнееСоединение", "Automation", "ИнтерактивноеОткрытиеВнешнихОбработок", "ИнтерактивноеОткрытиеВнешнихОтчетов", "Вывод". Иначе — для всего спектра возвращает перманентно :ложь:

Задача не решена.
4 Джайрикон
 
29.07.09
19:36
На домашнем компьютере пост (2) сработал. Переустановил платформу 8.1 на рабочем компьютере — тоже заработало. Тема закрыта.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс