|
Соответствие ролей и профиля пользователя программно.
| ☑ |
0
uytreq
01.07.19
✎
18:28
|
Добрый день уважаемые!
Конфигурация на БСП 3.0.2.156.
Создаю программно пользователя и пользователяБД. В режиме Предприятия пользователь добавляется в справочник и у наго в правах доступа есть указанный профиль "Пр". Но пользователюБД в конфигураторе права не добавляются. Если пользователя интерактивно открыть и записать, то все отлично. Как программно проставить соответствие профиля и ролей? ИдентификаторыОбъектовМетаданных обновлял, /c ЗапуститьОбновлениеИнформационнойБазы запускал.
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоИмени(НаименованиеПользователя);
Если ПользовательИБ = Неопределено Тогда
ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
КонецЕсли;
ПользовательИБ.Имя = НаименованиеПользователя;
ПользовательИБ.ПолноеИмя = НаименованиеПользователя;
ПользовательИБ.АутентификацияСтандартная = ИСТИНА;
ПользовательИБ.Пароль = СтруктураСоздания.Комментарий;
ПользовательИБ.ПоказыватьВСпискеВыбора = ЛОЖЬ;
ПользовательИБ.Записать();
НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
//НовыйПользователь.ОбменДанными.Загрузка = Истина;
НовыйПользователь.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;
НовыйПользователь.Наименование = НаименованиеПользователя;
НовыйПользователь.Подразделение = СтруктураСоздания.ОргПользователяСсылка;
НовыйПользователь.Комментарий = СтруктураСоздания.Комментарий;
НовыйПользователь.ИМДатаСоздания = ТекущаяДата();
НовыйПользователь.Записать();
//Группа доступа
ГруппаДоступа = Справочники.ГруппыДоступа.НайтиПоНаименованию("Пр").ПолучитьОбъект();
НСтр = ГруппаДоступа.Пользователи.Добавить();
НСтр.Пользователь = НовыйПользователь.Ссылка;
ГруппаДоступа.Записать();
|
|
1
uytreq
01.07.19
✎
18:32
|
запись в РегистрыСведений.СведенияОПользователях тоже делаю
|
|
2
uytreq
01.07.19
✎
18:33
|
Почитал; была Константы.ПараметрыРаботыПользователей.СоздатьМенеджерЗначения().ОбновитьОбщиеПараметры(); но теперь нет жеж.
|
|
3
singlych
01.07.19
✎
18:35
|
может,
УправлениеДоступом.ОбновитьРолиПользователей(Знач МассивПользователей = Неопределено, Знач ПарольПользователяСервиса = Неопределено)
|
|
4
uytreq
01.07.19
✎
18:36
|
(3) делал уже, не помогает
|
|