Имя: Пароль:
1C
1С v8
Соответствие ролей и профиля пользователя программно.
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) делал уже, не помогает