Удобная проверка прав пользователей

22.12.20

Администрирование - Роли и права

+5 –

При небольшой настройке прав мне хватает данной обработки.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Проверка прав пользователей .epf 15,43Kb 17	17	Скачать (1 SM)	Купить за 1 850 руб.

В обработках для настройки прав обычно отображается много инфы. Написал обработку с функциями с просмотром полной и выборочной информации по правам:

форма обработки

1. вывод огромной таблички с измерениями "объект метаданных" и "роль" и с реквизитами видов прав и списка пользователей, имеющих роль.

пример общей таблицы

2. вывод прав на выбранный объект метаданных по всем пользователям

пример таблицы по объекту метаданных

3. вывод РОЛей с правами на выбранный объект метаданных и выбранного пользователя

пример таблицы

Испытывал на ЗГУ ЗУП 3.1.14.265, на БГУ 2.0.74.37

Модуль формы обработки



// 1-ый инструмент. Табличка: в строках пользователи, в колонках роли
&НаСервере
Процедура печать_ролей_пользователейНаСервере()
	
	
	тз_пользаков = Новый ТаблицаЗначений;
	тз_пользаков.Колонки.Добавить("имя_пользователя");
	
	тз_индексов_колонок = Новый ТаблицаЗначений;
	тз_индексов_колонок.Колонки.Добавить("имя");
	тз_индексов_колонок.Колонки.Добавить("индекс");
	
	сообщ = Новый СообщениеПользователю;
	//сообщ.Текст = "---------------- индексы ролей ----------------";
	//сообщ.Сообщить();
	//сообщ.Текст = "-----------------------------------------------";
	//сообщ.Сообщить();
	счётчик_1 = 1;
	Для каждого Роль Из Метаданные.Роли Цикл
		тз_пользаков.Колонки.Добавить(Роль.Имя);
		нов_колонка = тз_индексов_колонок.Добавить();
		нов_колонка.имя = Роль.Имя;
		нов_колонка.индекс = счётчик_1;
		
		//сообщ = Новый СообщениеПользователю;
		//сообщ.Текст = " "+счётчик_1+" - "+Роль.Имя;
		//сообщ.Сообщить();
		
		счётчик_1 = счётчик_1 + 1;
	КонецЦикла;
	
	
	мас_пользаков = ПользователиИнформационнойБазы.ПолучитьПользователей();
	Для каждого тек_польз из мас_пользаков Цикл
		
		//сообщ = Новый СообщениеПользователю;
		//сообщ.Текст = " "+тек_польз;
		//сообщ.Сообщить();
		
		нов_стр = тз_пользаков.Добавить();
		нов_стр.имя_пользователя = тек_польз;
		Для счётчик = 1 по (тз_пользаков.Колонки.Количество() - 1) Цикл
			нов_стр.Установить(счётчик, Ложь);
		КонецЦикла;
		
		Для каждого тек_роли из тек_польз.роли Цикл 
			
			найд_кол = тз_индексов_колонок.найти(тек_роли.имя,"имя");
			Если (найд_кол = Неопределено) Тогда
				сообщ = Новый СообщениеПользователю;
				сообщ.Текст = " ошибка кода 1";
				сообщ.Сообщить();
				Возврат;
			КонецЕсли;
			
			нов_стр.Установить(найд_кол.индекс, Истина)
		КонецЦикла;
	КонецЦикла;
	
	
	
// в отладчике смотри результат - тз_пользаков

	сообщ = Новый СообщениеПользователю;

	Для каждого тек_колонка из тз_пользаков.Колонки Цикл
		сообщ.Текст = сообщ.Текст+" / "+тек_колонка.Имя;
	КонецЦикла;
	сообщ.Сообщить();
	
	
	Для каждого тек_стр из тз_пользаков Цикл
		сообщ = Новый СообщениеПользователю;
		Для тек_индекс = 1 по тз_пользаков.Колонки.Количество() Цикл
			сообщ.Текст = сообщ.Текст+" / "+тек_стр.Получить(тек_индекс - 1);
		КонецЦикла;
		сообщ.Сообщить();
	КонецЦикла;

	
КонецПроцедуры

&НаКлиенте
Процедура печать_ролей_пользователей(Команда)
	печать_ролей_пользователейНаСервере();
КонецПроцедуры




// 2-ой инструмент. Содержание роли по правам доступа на объекты метаданных.
// !!%%% Если БСП, то можно смотреть регистр "Права ролей"
&НаСервере
Процедура печать_разрешений_у_выбранной_ролиНаСервере()
	                   
	// всё основано на ПравоДоступа("Использование", Объект, ТекущаяРоль);
	
	
	//вар 1
	
			//Для каждого лРоль из Метаданные.Роли Цикл 
			//    Для Каждого лОбъектКоллекции из Метаданные.Справочники Цикл 
			//        ЕстьПраво = ПравоДоступа("Чтение", лОбъектКоллекции, лРоль); 
			//        Если ЕстьПраво Тогда 
			//            ............. 
			//        КонецЕсли; 
			//    КонецЦикла; 
			//КонецЦикла; 	
	
	
	//вар 2
	
	//Для каждого Объект из Метаданные["Интерфейсы"] Цикл
	//    Использование                         = ПравоДоступа("Использование", Объект, ТекущаяРоль);
	//    Если Использование Тогда
	//        НоваяСтрока = ТаблицаРоли.Добавить();
	//        НоваяСтрока.РольПользователя                   = ТекущаяРоль;
	//        НоваяСтрока.РольПользователяИмя                = ТекущаяРоль.Имя;
	//        НоваяСтрока.ВидОбъектаМетаданных               = ВидОбъектаМетаданных;
	//        НоваяСтрока.ОбъектМетаданных                   = ОбъектМетаданных;
	//        НоваяСтрока.ОбъектМетаданныхИмя                = ОбъектМетаданных.Имя;
	//        НоваяСтрока.Использование                      = Использование;
	//    КонецЕсли;
	//КонецЦикла;
	
	//вар 3
	
//Для каждого ТекПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
//        РолиПользователя = ТекПользователь.Роли;
//        Для каждого ТекущаяРольПользователя Из РолиПользователя Цикл
//                ...;
//            КонецЕсли;
//        КонецЦикла;
//    КонецЦикла;	
	
КонецПроцедуры

&НаКлиенте
Процедура печать_прав_у_выбранной_роли(Команда)
	печать_разрешений_у_выбранной_ролиНаСервере();
	
	сообщ = Новый СообщениеПользователю;
	сообщ.Текст = "Если есть Библиотека Стандартных Подсистем, то можно смотреть регистр ""Права ролей""";
	сообщ.Сообщить();
КонецПроцедуры



// 3-ий инструмент. Из каких профилей получает пользователь выбранную роль
&НаСервере
Процедура печать3_всех_профилей_доступа_включающие_рольНаСервере()
	
	запрос = новый Запрос;
	запрос.Текст = "ВЫБРАТЬ
	               |	ПрофилиГруппДоступаРоли.Ссылка КАК Ссылка,
	               |	ПрофилиГруппДоступаРоли.Роль КАК Роль
	               |ИЗ
	               |	Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли
	               |ГДЕ
	               |	ПрофилиГруппДоступаРоли.Роль = &выбр_роль
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	Ссылка";
	запрос.УстановитьПараметр("выбр_роль", выбр_роль);
	тз_рез = запрос.Выполнить().Выгрузить();
	сообщ = Новый СообщениеПользователю;
	сообщ.Текст = "все профили включающие роль:";
	сообщ.Сообщить();
	Для каждого тек_стр из тз_рез Цикл
		сообщ.Текст = ""+тек_стр.Ссылка;
		сообщ.Сообщить();
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура печать3_всех_профилей_доступа_включающие_роль(Команда)
	печать3_всех_профилей_доступа_включающие_рольНаСервере();
КонецПроцедуры





// 4-ый инструмент. Печать таблицы прав доступа к метаданным по пользователям
&НаСервере
Процедура печать4_прав_к_метаданным_по_пользователямНаСервере(ТабДок)
	
	тз_прав_пользаков = Новый ТаблицаЗначений;
	
	тз_прав_пользаков.Колонки.Добавить("Пользователь");
	тз_прав_пользаков.Колонки.Добавить("Роль");
	тз_прав_пользаков.Колонки.Добавить("Роли_все");
	
	тз_прав_пользаков.Колонки.Добавить("Добавление");
	тз_прав_пользаков.Колонки.Добавить("Изменение");
	тз_прав_пользаков.Колонки.Добавить("ЧтениеБезОграничения");
	тз_прав_пользаков.Колонки.Добавить("ДобавлениеБезОграничения");
	тз_прав_пользаков.Колонки.Добавить("ИзменениеБезОграничения");
	тз_прав_пользаков.Колонки.Добавить("Просмотр");
	тз_прав_пользаков.Колонки.Добавить("ИнтерактивноеДобавление");
	тз_прав_пользаков.Колонки.Добавить("Редактирование");
	
	Для каждого ТекПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
        РолиПользователя = ТекПользователь.Роли;
		Для каждого ТекущаяРольПользователя Из РолиПользователя Цикл
			// заполнение таблицы по тек_роли
			
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ
			               |	ПраваРолей.Добавление КАК Добавление,
			               |	ПраваРолей.Изменение КАК Изменение,
			               |	ПраваРолей.ЧтениеБезОграничения КАК ЧтениеБезОграничения,
			               |	ПраваРолей.ДобавлениеБезОграничения КАК ДобавлениеБезОграничения,
			               |	ПраваРолей.ИзменениеБезОграничения КАК ИзменениеБезОграничения,
			               |	ПраваРолей.Просмотр КАК Просмотр,
			               |	ПраваРолей.ИнтерактивноеДобавление КАК ИнтерактивноеДобавление,
			               |	ПраваРолей.Редактирование КАК Редактирование,
			               |	ПраваРолей.Роль КАК Роль
			               |ИЗ
			               |	РегистрСведений.ПраваРолей КАК ПраваРолей
			               |ГДЕ
			               |	ПраваРолей.ОбъектМетаданных = &выбр_объект_метаданных
			               |	И ПраваРолей.Роль.Имя = &выбр_роль";
			Запрос.УстановитьПараметр("выбр_объект_метаданных", выбр_объект_метаданных);
			Запрос.УстановитьПараметр("выбр_роль", ТекущаяРольПользователя.Имя);
			тз_прав_1 = запрос.Выполнить().Выгрузить();
			
			//Для каждого тек_стр_1 из тз_прав_1 Цикл
			//КонецЦикла;
			Если (тз_прав_1.Количество() = 1) Тогда
				
				тз_прав_1.Колонки.Добавить("Пользователь");
				тек_стр_1 = тз_прав_1.Получить(0);
				тек_стр_1.Пользователь = ТекПользователь;
				
				// ... скопировать никак ?
				//есть ... ЗаполнитьЗначенияСвойств(ТаблицаЗарплат.Добавить(), СтрокаЗарплаты);
				
				// НОВАЯ строка
				нов_стр = тз_прав_пользаков.Добавить();
				нов_стр.Пользователь = тек_стр_1.Пользователь;
				нов_стр.Роль = тек_стр_1.Роль;
				
				нов_стр.Добавление = ?(тек_стр_1.Добавление,1,0);
				нов_стр.Изменение = ?(тек_стр_1.Изменение,1,0);
				нов_стр.ЧтениеБезОграничения = ?(тек_стр_1.ЧтениеБезОграничения,1,0);
				нов_стр.ДобавлениеБезОграничения = ?(тек_стр_1.ДобавлениеБезОграничения,1,0);
				нов_стр.ИзменениеБезОграничения = ?(тек_стр_1.ИзменениеБезОграничения,1,0);
				нов_стр.Просмотр = ?(тек_стр_1.Просмотр,1,0);
				нов_стр.ИнтерактивноеДобавление = ?(тек_стр_1.ИнтерактивноеДобавление,1,0);
				нов_стр.Редактирование = ?(тек_стр_1.Редактирование,1,0);
				
			КонецЕсли;
        КонецЦикла;
	КонецЦикла;	
	
	
	// конвертация колонки в строку
	Для каждого тек_стр_п из тз_прав_пользаков Цикл
		тек_стр_п.Роли_Все = ", "+СокрЛП(тек_стр_п.Роль);
	КонецЦикла;
	
	// свёртка по пользователям
//	тз_прав_пользаков.Свернуть("Пользователь, Добавление, Изменение, ЧтениеБезОграничения, ДобавлениеБезОграничения, ИзменениеБезОграничения, Просмотр, ИнтерактивноеДобавление, Редактирование","Роли_Все");
	тз_прав_пользаков.Свернуть("Пользователь", "Добавление, Изменение, ЧтениеБезОграничения, ДобавлениеБезОграничения, ИзменениеБезОграничения, Просмотр, ИнтерактивноеДобавление, Редактирование, Роли_Все");
	
	// вывод
	ОбъектОбработка = РеквизитФормыВЗначение("Объект");
	Макет = ОбъектОбработка.ПолучитьМакет("права_пользователей_на_объект_метаданных");
	
	// Шапка
	Область = Макет.ПолучитьОбласть("шапка");
	Область.Параметры.выбр_объект_метаданных = выбр_объект_метаданных;
	ТабДок.Вывести(Область);
	// строки
	ОбластьСтр = Макет.ПолучитьОбласть("Строка");
	Для каждого тек_стр из тз_прав_пользаков Цикл
		ОбластьСтр.Параметры.Заполнить(тек_стр);
		//ОбластьСтр.Параметры.сумма = тек_стр.Сумма;
		ТабДок.Вывести(ОбластьСтр);
	КонецЦикла;
	
	
КонецПроцедуры

&НаКлиенте
Процедура печать4_прав_к_метаданным_по_пользователям(Команда)
	
	ТабДок = Новый ТабличныйДокумент;
	печать4_прав_к_метаданным_по_пользователямНаСервере(ТабДок);
	
	ТабДок.РазмерСтраницы = "A4";
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
	ТабДок.АвтоМасштаб = Истина;
	ТабДок.ОтображатьСетку = Истина;
	ТабДок.Защита = Ложь;
	ТабДок.ТолькоПросмотр = Ложь;
	ТабДок.ОтображатьЗаголовки = Ложь;
	ТабДок.Показать("права пользователей на объект метаданных");
	
КонецПроцедуры


// 5-ый инструмент. Печать таблицы прав доступа к метаданным по ВЫБРАННОМУ пользователЮ и подробно по ролям
&НаСервере
Процедура печать5_прав_к_метаданным_по_пользователюНаСервере(ТабДок)
	тз_прав_ролей = Новый ТаблицаЗначений;
	
	тз_прав_ролей.Колонки.Добавить("Роль");
	тз_прав_ролей.Колонки.Добавить("Добавление");
	тз_прав_ролей.Колонки.Добавить("Изменение");
	тз_прав_ролей.Колонки.Добавить("ЧтениеБезОграничения");
	тз_прав_ролей.Колонки.Добавить("ДобавлениеБезОграничения");
	тз_прав_ролей.Колонки.Добавить("ИзменениеБезОграничения");
	тз_прав_ролей.Колонки.Добавить("Просмотр");
	тз_прав_ролей.Колонки.Добавить("ИнтерактивноеДобавление");
	тз_прав_ролей.Колонки.Добавить("Редактирование");
	
	выбр_польз = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(выбр_пользователь.ИдентификаторПользователяИБ);
    РолиПользователя = выбр_польз.Роли;
	
	Для каждого ТекущаяРольПользователя Из РолиПользователя Цикл
		// заполнение таблицы по тек_роли
		
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ
		               |	ПраваРолей.Добавление КАК Добавление,
		               |	ПраваРолей.Изменение КАК Изменение,
		               |	ПраваРолей.ЧтениеБезОграничения КАК ЧтениеБезОграничения,
		               |	ПраваРолей.ДобавлениеБезОграничения КАК ДобавлениеБезОграничения,
		               |	ПраваРолей.ИзменениеБезОграничения КАК ИзменениеБезОграничения,
		               |	ПраваРолей.Просмотр КАК Просмотр,
		               |	ПраваРолей.ИнтерактивноеДобавление КАК ИнтерактивноеДобавление,
		               |	ПраваРолей.Редактирование КАК Редактирование,
		               |	ПраваРолей.Роль КАК Роль
		               |ИЗ
		               |	РегистрСведений.ПраваРолей КАК ПраваРолей
		               |ГДЕ
		               |	ПраваРолей.ОбъектМетаданных = &выбр_объект_метаданных
		               |	И ПраваРолей.Роль.Имя = &выбр_роль";
		Запрос.УстановитьПараметр("выбр_объект_метаданных", выбр_объект_метаданных);
		Запрос.УстановитьПараметр("выбр_роль", ТекущаяРольПользователя.Имя);
		тз_прав_1 = запрос.Выполнить().Выгрузить();
		
		//Для каждого тек_стр_1 из тз_прав_1 Цикл
		//КонецЦикла;
		Если (тз_прав_1.Количество() = 1) Тогда
			
			тек_стр_1 = тз_прав_1.Получить(0);
			
			// ... скопировать никак ?
			//есть ... ЗаполнитьЗначенияСвойств(ТаблицаЗарплат.Добавить(), СтрокаЗарплаты);
			
			// НОВАЯ строка
			нов_стр = тз_прав_ролей.Добавить();
			нов_стр.Роль = тек_стр_1.Роль;
			нов_стр.Добавление = тек_стр_1.Добавление;
			нов_стр.Изменение = тек_стр_1.Изменение;
			нов_стр.ЧтениеБезОграничения = тек_стр_1.ЧтениеБезОграничения;
			нов_стр.ДобавлениеБезОграничения = тек_стр_1.ДобавлениеБезОграничения;
			нов_стр.ИзменениеБезОграничения = тек_стр_1.ИзменениеБезОграничения;
			нов_стр.Просмотр = тек_стр_1.Просмотр;
			нов_стр.ИнтерактивноеДобавление = тек_стр_1.ИнтерактивноеДобавление;
			нов_стр.Редактирование = тек_стр_1.Редактирование;
			
		КонецЕсли;
    КонецЦикла;
	
	// вывод
	ОбъектОбработка = РеквизитФормыВЗначение("Объект");
	Макет = ОбъектОбработка.ПолучитьМакет("права_и_роли_пользователя_на_объект_метаданных");
	
	// Шапка
	Область = Макет.ПолучитьОбласть("шапка");
	Область.Параметры.выбр_объект_метаданных = выбр_объект_метаданных;
	Область.Параметры.выбр_пользователь = выбр_пользователь.Наименование;
	ТабДок.Вывести(Область);
	
	// строки
	ОбластьСтр = Макет.ПолучитьОбласть("Строка");
	Для каждого тек_стр из тз_прав_ролей Цикл
		ОбластьСтр.Параметры.Заполнить(тек_стр);
		//ОбластьСтр.Параметры.сумма = тек_стр.Сумма;
		ТабДок.Вывести(ОбластьСтр);
	КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура печать5_прав_к_метаданным_по_пользователю(Команда)
	ТабДок = Новый ТабличныйДокумент;
	печать5_прав_к_метаданным_по_пользователюНаСервере(ТабДок);
	
	ТабДок.РазмерСтраницы = "A4";
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
	ТабДок.АвтоМасштаб = Истина;
	ТабДок.ОтображатьСетку = Истина;
	ТабДок.Защита = Ложь;
	ТабДок.ТолькоПросмотр = Ложь;
	ТабДок.ОтображатьЗаголовки = Ложь;
	ТабДок.Показать("права и роли пользователя на объект метаданных");
КонецПроцедуры



// 6-ый инструмент. Печать таблицы прав доступа к метаданным по ВСЕМ ролям и ВСЕМ пользователям
&НаСервере
Процедура печать6_ВСЕХ_ДАННЫХ_ПО_ПРАВАМНаСервере(ТабДок)
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	ПраваРолей.ОбъектМетаданных КАК ОбъектМетаданных,
	               |	ПраваРолей.Роль КАК Роль,
	               |	ПраваРолей.Добавление КАК Добавление,
	               |	ПраваРолей.Изменение КАК Изменение,
	               |	ПраваРолей.ЧтениеБезОграничения КАК ЧтениеБезОграничения,
	               |	ПраваРолей.ДобавлениеБезОграничения КАК ДобавлениеБезОграничения,
	               |	ПраваРолей.ИзменениеБезОграничения КАК ИзменениеБезОграничения,
	               |	ПраваРолей.Просмотр КАК Просмотр,
	               |	ПраваРолей.ИнтерактивноеДобавление КАК ИнтерактивноеДобавление,
	               |	ПраваРолей.Редактирование КАК Редактирование
	               |ИЗ
	               |	РегистрСведений.ПраваРолей КАК ПраваРолей";
	тз_прав_1 = запрос.Выполнить().Выгрузить();
	
	тз_прав_1.Колонки.Добавить("Пользователи");
	Для каждого тек_стр_1 из тз_прав_1 Цикл
		тек_стр_1.Пользователи = "";
	КонецЦикла;
	
	Для каждого ТекПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
        РолиПользователя = ТекПользователь.Роли;
		Для каждого ТекущаяРольПользователя Из РолиПользователя Цикл
			Для каждого тек_стр_1 из тз_прав_1 Цикл
				Если (ТекущаяРольПользователя.Имя = тек_стр_1.Роль.Имя) Тогда
					// строчка соответствует тек_роли
					тек_стр_1.Пользователи = тек_стр_1.Пользователи+" / "+СокрЛП(ТекПользователь);
				КонецЕсли;
			КонецЦикла;
        КонецЦикла;
	КонецЦикла;	
	
				//нов_стр.Добавление = ?(тек_стр_1.Добавление,1,0);
				//нов_стр.Изменение = ?(тек_стр_1.Изменение,1,0);
				//нов_стр.ЧтениеБезОграничения = ?(тек_стр_1.ЧтениеБезОграничения,1,0);
				//нов_стр.ДобавлениеБезОграничения = ?(тек_стр_1.ДобавлениеБезОграничения,1,0);
				//нов_стр.ИзменениеБезОграничения = ?(тек_стр_1.ИзменениеБезОграничения,1,0);
				//нов_стр.Просмотр = ?(тек_стр_1.Просмотр,1,0);
				//нов_стр.ИнтерактивноеДобавление = ?(тек_стр_1.ИнтерактивноеДобавление,1,0);
				//нов_стр.Редактирование = ?(тек_стр_1.Редактирование,1,0);
				
	// вывод
	ОбъектОбработка = РеквизитФормыВЗначение("Объект");
	Макет = ОбъектОбработка.ПолучитьМакет("права_пользователей_на_ВСЕ_объекты_метаданных");
	
	// Шапка
	Область = Макет.ПолучитьОбласть("шапка");
	ТабДок.Вывести(Область);
	// строки
	ОбластьСтр = Макет.ПолучитьОбласть("Строка");
	Для каждого тек_стр из тз_прав_1 Цикл
		ОбластьСтр.Параметры.Заполнить(тек_стр);
		ТабДок.Вывести(ОбластьСтр);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура печать6_ВСЕХ_ДАННЫХ_ПО_ПРАВАМ(Команда)
	
	ТабДок = Новый ТабличныйДокумент;
	печать6_ВСЕХ_ДАННЫХ_ПО_ПРАВАМНаСервере(ТабДок);
	
	ТабДок.РазмерСтраницы = "A4";
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
	ТабДок.АвтоМасштаб = Истина;
	ТабДок.ОтображатьСетку = Истина;
	ТабДок.Защита = Ложь;
	ТабДок.ТолькоПросмотр = Ложь;
	ТабДок.ОтображатьЗаголовки = Ложь;
	ТабДок.Показать("ВСЕ роли и пользователи с правами на ВСЕ объекты метаданных");
	
КонецПроцедуры

&НаСервере
Процедура печать7_все_роли_выбр_пользователяНаСервере()
	
	сообщ = Новый СообщениеПользователю;
	выбр_польз = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(выбр_пользователь.ИдентификаторПользователяИБ);
    РолиПользователя = выбр_польз.Роли;
	
	Для каждого ТекущаяРольПользователя Из РолиПользователя Цикл
		сообщ.Текст = ""+ТекущаяРольПользователя;
		сообщ.Сообщить();
    КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура печать7_все_роли_выбр_пользователя(Команда)
	печать7_все_роли_выбр_пользователяНаСервере();
КонецПроцедуры

8.3 права ЗГУ БГУ

+5 –

См. также

SALE! 15%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 159435 872 399

861

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права Системный администратор Программист Пользователь 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 18.09.2024, версия 1.2

16800 руб.

06.12.2023 8843 42 5

SALE! 15%

Infostart DataFormWizard: Управление данными и формами в 1С 8.3

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

~~10000~~ 8500 руб.

10.11.2023 10429 36 24

SALE! 20%

Запрет доступа к данным по зарплате для БП 3.0 и КА 2.5

Зарплата Роли и права Системный администратор Бухгалтер Платформа 1С v8.3 Бухгалтерский учет Управление правами 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х Молдова Россия Казахстан Бухгалтерский учет Платные (руб)

Расширение позволяет максимально полно ограничить доступ пользователей к данным по заработной плате, а именно закрывает доступ к документам начисления и выплаты заработной платы, не позволяет просматривать бухгалтерские отчеты по счету учета зарплаты а также убирает зарплатные проводки из журнала проводок. Расширение запрещает просматривать платежные документы на выплату зарплаты, так же не доступны регламентные отчеты в ПФР и ИФНС. Расширение предлагает готовые настроенные профили "Бухгалтер без зарплаты", "Только просмотр без зарплаты".

~~5940~~ 4752 руб.

27.05.2021 37567 264 92

205

Обработка по настройке прав доступа пользователей в 1С 8 (ЗУП, КА, УТ, ЕРП, ERP, УНФ, Розница, Управление холдингом)

Роли и права Платформа 1С v8.3 Управление правами 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Платные (руб)

Универсальная обработка по настройке прав доступа пользователей в 1С 8 и разграничений позволяет в несколько кликов настроить даже самые нестандартные права.

3000 руб.

22.12.2021 25158 142 68

180

Роли для кладовщика в 1С:Бухгалтерия 3.0

Логистика, склад и ТМЦ Роли и права Программист Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет Управление правами 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для 1С:Бухгалтерия 3.0, которое позволяет использовать отдельные роли для доступа к складским документам, для доступа к документам раздела "Производство" и для доступа к документам раздела "Покупки".

4560 руб.

21.05.2019 1694764 570 194

137

1С УНФ: настройка прав пользователей и ограничений

Ценообразование, анализ цен Роли и права Системный администратор Платформа 1С v8.3 Управление правами 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Расширение возможностей программы 1С УНФ. Функционал расширения - разграничение всевозможных прав пользователей и контроль при совершении различных действий.

3000 руб.

23.02.2018 58454 160 261

152

Универсальная система оповещений в базе или по почте по произвольным условиям, расписанием, ролям и пользователям (Расширение / конфигурация для платформ 8.3.6+, для ЛЮБЫХ баз)

Роли и права Системный администратор Программист Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Платные (руб)

Данная система разработана как альтернатива стандартной системе напоминаний. Но имеет ряд существенных преимуществ: отображение в базе или с отправкой по почте, свое расписание, возможность фильтрации по ролям и пользователям, формирование своих запросов и макетов, шаблоны писем, работа в фоне. А также может блокировать работу пользователей при заданных условиях. Может работать в составе любой конфигурации. Имеется справка с описанием возможностей. (Обновление от 20.02.2024, версия 2.2, расширение)

19200 руб.

29.11.2019 25657 16 8