Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Соответствие ролей и профиля пользователя программно.

Соответствие ролей и профиля пользователя программно.
Я
   uytreq
 
01.07.19 - 18:28
Добрый день уважаемые!
Конфигурация на БСП 3.0.2.156.
Создаю программно пользователя и пользователяБД. В режиме Предприятия пользователь добавляется в справочник и у наго в правах доступа есть указанный профиль "Пр". Но пользователюБД в конфигураторе права не добавляются. Если пользователя интерактивно открыть и записать, то все отлично. Как программно проставить соответствие профиля и ролей? ИдентификаторыОбъектовМетаданных обновлял, /c ЗапуститьОбновлениеИнформационнойБазы запускал.    

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

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.