Создание (программно) ПрофильГруппыДоступа - не записываются роли

@mucha · Регистрация: 06.10.2014

Author24 — интернет-сервис помощи студентам

Пытаюсь создать ПрофильГруппыДоступа из внешней обработки.

1C

// Заполняю ОписаниеПрофиля.
ОписаниеПрофиля = УправлениеДоступом.НовоеОписаниеПрофиляГруппДоступа();
ОписаниеПрофиля.Имя = "МойПрофиль1";
ОписаниеПрофиля.Идентификатор = НРег("12345678-1234-1234-1234-123456789abc");
ОписаниеПрофиля.Наименование  = НСтр("ru = 'Мой профиль 1'");
ОписаниеПрофиля.Описание = НСтр("ru = 'Мой профиль 1.'");
ОписаниеПрофиля.Роли.Добавить("БазовыеПрава");
// … еще добавляю роли
 
// Создаю профиль
ПрофильОбъект = Справочники.ПрофилиГруппДоступа.СоздатьЭлемент();
ПрофильОбъект.Наименование = ОписаниеПрофиля.Наименование;
ПрофильОбъект.ИдентификаторПоставляемыхДанных = Новый УникальныйИдентификатор(ОписаниеПрофиля.Идентификатор);
ПрофильОбъект.Комментарий = ОписаниеПрофиля.Описание;
Для Каждого Роль из ОписаниеПрофиля.Роли Цикл
    Запись = ПрофильОбъект.Роли.Добавить();
    Запись.Роль = Роль; // Что я делаю не так?
КонецЦикла;
 
ПрофильСсылка = ПрофильОбъект.ПолучитьСсылкуНового();
Справочники.ПрофилиГруппДоступа.ЗаполнитьПоставляемыйПрофиль(ПрофильСсылка);
ОбновлениеИнформационнойБазы.ЗаписатьДанные(ПрофильОбъект);

Профиль создается, роли профиля - пустые. Как роли записать?

@Dethmontt · 04.08.2018, 23:35

Сообщение от mucha

Запись.Роль = Роль; // Что я делаю не так?

Сообщение от mucha

ОписаниеПрофиля.Роли.Добавить("БазовыеПрава");

Так у него же тип не строка...

Добавлено через 1 минуту
СправочникСсылка.ИдентификаторыОбъектовМетаданных

Добавлено через 2 минуты

1C

1
2

//ОписаниеПрофиля.Роли.Добавить("БазовыеПрава");
ОписаниеПрофиля.Роли.Добавить(Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоНаименованию("Базовые права (Роль)"));

Добавлено через 22 минуты
или

1C

1	ОписаниеПрофиля.Роли.Добавить(ОбщегоНазначения.ИдентификаторОбъектаМетаданных("БазовыеПрава"));

@mucha · 06.08.2018, 21:14 **[ТС]**

Сообщение от Dethmontt

ОписаниеПрофиля.Роли.Добавить(ОбщегоНазначения.ИдентификаторОбъектаМетаданных("Б азовыеПрава"));

В общем лыжи не поехали (

@Dethmontt · 06.08.2018, 21:54

Сообщение от mucha

В общем лыжи не поехали (

пачему?
Что возвращает эта функция?

1C

1	ОбщегоНазначения.ИдентификаторОбъектаМетаданных("БазовыеПрава")

@mucha · 09.08.2018, 20:00 **[ТС]**

Сообщение от Dethmontt

Что возвращает эта функция?

Для ОбщегоНазначения.ИдентификаторОбъектаМетаданных - исключение, что-то вроде "не найден объект метаданных".
Для Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоНаименованию вроде бы все ОК было, уже не помню.

Да, подсовывая строковой тип в (1), я тупил.
В общем, посмотрел, как делают это разработчики 1С:

1C

1
2
3

МетаданныеРоли = Метаданные.Роли.Найти(Роль); // здесь Роль - имя роли.
// … проверка
ПрофильОбъект.Роли.Добавить().Роль = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(МетаданныеРоли);

@Dethmontt · 09.08.2018, 20:55

Или так

1C

1	МетаданныеРоли = Метаданные.Роли.БазовыеПрава;

@polax · 09.08.2018, 22:17

Одно не понимаю. Какой смысл/необходимость создавать профили групп доступа программно?

@Dethmontt · 09.08.2018, 22:37

polax, например при синхронизации с AD

Добавлено через 2 минуты
когда админы управляют доступом в 1С - незная 1С =)))

@mucha · 11.08.2018, 16:23 **[ТС]**

Сообщение от Dethmontt

МетаданныеРоли = Метаданные.Роли.БазовыеПрава;

Можно и так, зависит от того, устроит нас исключение при отсутствии роли.

Сообщение от polax

Одно не понимаю. Какой смысл/необходимость создавать профили групп доступа программно?

А не программно есть смысл?

@polax · 11.08.2018, 18:12

Сообщение от mucha

А не программно есть смысл?

Любое разграничение прав доступа базируется на Профиле групп доступа. Заранее продумываю кому какие права надо дать, каких лишить в обязательном порядке, какие ограничить в функциональности. Все это отражаю в Профиле. А вот программно зачем?

@mucha · 11.08.2018, 23:40 **[ТС]**

Сообщение от polax

А вот программно зачем?

Вообще, я только втыкаюсь в эту 1с. Но предположу что это нужно в самописной конфигурации. Возможно, еще в расширении.

Мне лично это нужно было для удобства тестирования из внешней обработки.

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@mucha 1 / 1 / 1 Регистрация: 06.10.2014 Сообщений: 12
	06.08.2018, 21:14 [ТС]	3
	Сообщение от Dethmontt ОписаниеПрофиля.Роли.Добавить(ОбщегоНазначения.ИдентификаторОбъектаМетаданных("Б азовыеПрава")); В общем лыжи не поехали ( 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,739
	09.08.2018, 22:17	7
	Одно не понимаю. Какой смысл/необходимость создавать профили групп доступа программно? 0

@Dethmontt Модератор 4029 / 2974 / 591 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	09.08.2018, 22:37	8
	polax, например при синхронизации с AD Добавлено через 2 минуты когда админы управляют доступом в 1С - незная 1С =))) 0

@mucha 1 / 1 / 1 Регистрация: 06.10.2014 Сообщений: 12
	11.08.2018, 16:23 [ТС]	9
	Сообщение от Dethmontt МетаданныеРоли = Метаданные.Роли.БазовыеПрава; Можно и так, зависит от того, устроит нас исключение при отсутствии роли. Сообщение от polax Одно не понимаю. Какой смысл/необходимость создавать профили групп доступа программно? А не программно есть смысл? 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,739
	11.08.2018, 18:12	10
	Сообщение от mucha А не программно есть смысл? Любое разграничение прав доступа базируется на Профиле групп доступа. Заранее продумываю кому какие права надо дать, каких лишить в обязательном порядке, какие ограничить в функциональности. Все это отражаю в Профиле. А вот программно зачем? 0

@mucha 1 / 1 / 1 Регистрация: 06.10.2014 Сообщений: 12
	11.08.2018, 23:40 [ТС]	11
	Сообщение от polax А вот программно зачем? Вообще, я только втыкаюсь в эту 1с. Но предположу что это нужно в самописной конфигурации. Возможно, еще в расширении. Мне лично это нужно было для удобства тестирования из внешней обработки. 0