Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
20 мая 2024, 22:38

Добавить пользователей в группу

Автор Yuran9393, 01 июн 2023, 10:02

0 Пользователей и 1 гость просматривают эту тему.

Yuran9393

Добрый день! Подскажите пожалуйста, в настоящее время требуется найти пользователей которые входят в определенную группу (справочник ГруппыПользователей - Администратор тестовой базы).
После требуется данных пользователей добавить в другие группы "Открытие внешних обработок" и "Администратор", не совсем ясно как реализовать (
Бух 8.3

ГруппаДоступа = Справочники.ГруппыПользователей.НайтиПоНаименованию("Администратор тестовой базы");   

ГруппаДоступаАдм = Справочники.ГруппыПользователей.НайтиПоНаименованию("Администраторы").ПолучитьОбъект();
ГруппаДоступаОткрОбработок = Справочники.ГруппыПользователей.НайтиПоНаименованию("Открытие внешних обработок").ПолучитьОбъект();
Запрос = Новый Запрос;
Запрос.Текст =
  "ВЫБРАТЬ
  |   СоставыГруппПользователей.Пользователь КАК Пользователь
  |ИЗ
  |   РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
  |ГДЕ
  |   СоставыГруппПользователей.ГруппаПользователей = &ГруппаПользователей";
Запрос.УстановитьПараметр("ГруппаПользователей",ГруппаДоступа);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда 
   Сообщение = Новый СообщениеПользователю;
   Сообщение.Текст = "Результат пустой";
   Сообщение.Сообщить();       
Иначе
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл 

КонецЦикла;   
КонецЕсли;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск