Как получить сводную таблицу прав пользователей?
19.11.2004
13:28
#1
Есть очень большой список пользователей с разными правами. Можно ли как то получить обобщенный список пользователей с указанием прав по всем операциям и документам учетной системы?
21.11.2004
13:27
#2
в "Описании Структуры Метаданных" по каждому набору прав развернуто во каждому объекту какие права....это не подойдет?....
22.11.2004
07:35
#3
"На сколько я понимаю в 1С не получиться построить для всех сразу.
Но вот для одного текущего можно.
//--------------------------------------------------------------------
перем сводная_таблица;
перем сч;
перем название;
сводная_таблица = СоздатьОбъект("ТаблицаЗначений");
сводная_таблица.НоваяКолонка("Объект", "строка", 64);
сводная_таблица.НоваяКолонка("Чтение", "число", 1);
сводная_таблица.НоваяКолонка("ЛюбыеИзменения", "число", 1);
// И т.д. по остальным (Удаление, ввод нового) ....
для сч = 1 по Метаданные.Документ() Цикл
название = "Документ."+ Метаданные.Документ(сч).Идентификатор;
сводная_таблица.НоваяСтрока();
сводная_таблица.Объект = название;
сводная_таблица.Чтение = ПравоДоступа("Чтение", название);
сводная_таблица.ЛюбыеИзменения = ПравоДоступа("ЛюбыеИзменения", название);
КонецЦикла;
// И т.д. по всем объектам (справочники.....)
//--------------------------------------------------------------------
Если хошь, то далее записывай в файл и скоро у тебя будет по всем
пользователям (кто запускал 1С)....
"
Но вот для одного текущего можно.
//--------------------------------------------------------------------
перем сводная_таблица;
перем сч;
перем название;
сводная_таблица = СоздатьОбъект("ТаблицаЗначений");
сводная_таблица.НоваяКолонка("Объект", "строка", 64);
сводная_таблица.НоваяКолонка("Чтение", "число", 1);
сводная_таблица.НоваяКолонка("ЛюбыеИзменения", "число", 1);
// И т.д. по остальным (Удаление, ввод нового) ....
для сч = 1 по Метаданные.Документ() Цикл
название = "Документ."+ Метаданные.Документ(сч).Идентификатор;
сводная_таблица.НоваяСтрока();
сводная_таблица.Объект = название;
сводная_таблица.Чтение = ПравоДоступа("Чтение", название);
сводная_таблица.ЛюбыеИзменения = ПравоДоступа("ЛюбыеИзменения", название);
КонецЦикла;
// И т.д. по всем объектам (справочники.....)
//--------------------------------------------------------------------
Если хошь, то далее записывай в файл и скоро у тебя будет по всем
пользователям (кто запускал 1С)....
"
Читают тему
(гостей: 1)