1С 8.3 Получить список действующих пользователей

Данные > Примеры кода 1С > 1С 8.3 Пользователи, роли (права) доступа

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

1С 8.3 Пользователи, роли (права) доступа

Получить список действующих пользователей запросом из справочника в 1С 8.3:

&НаСервере
Процедура ПолучитьПользователей(ВсеЮзеры, СписокЮзеров)

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

   Выборка = Запрос.Выполнить().Выбрать();
   Пока Выборка.Следующий() Цикл
       Если СписокВыбрПольз.НайтиПоЗначению(Выборка.Ссылка) = Неопределено Тогда
           ПользовательОбъект = Выборка.Ссылка.Получитьобъект();
           ХранилищеЗн = ПользовательОбъект.СвойстваПользователяИБ;
           ХранилищеЗнПолучить = ХранилищеЗн.Получить();
           Если НЕ ХранилищеЗнПолучить = Неопределено
               И ХранилищеЗнПолучить.ВходВПрограммуРазрешен Тогда
               ВсеЮзеры.Добавить().Пользователь = Выборка.Ссылка;
           КонецЕсли;
       Иначе
           ПользовательОбъект = Выборка.Ссылка.Получитьобъект();
           ХранилищеЗн = ПользовательОбъект.СвойстваПользователяИБ;
           ХранилищеЗнПолучить = ХранилищеЗн.Получить();
           Если НЕ ХранилищеЗнПолучить = Неопределено
               И ХранилищеЗнПолучить.ВходВПрограммуРазрешен Тогда
               СписокЮзеров.Добавить().Пользователь = Выборка.Ссылка;
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;

   ВсеЮзеры.Сортировать("Пользователь Возр");
   СписокЮзеров.Сортировать("Пользователь Возр");

КонецПроцедуры

Получить список пользователей 1С 8.3:

Процедура ВывестиСписокПользователей()

   СписокПользователей = ПользователиИнформационнойБазы.ПолучитьПользователей();
   Для Каждого ПользовательИБ Из СписокПользователей Цикл
       Сообщить(ПользовательИБ);
   КонецЦикла;

КонецПроцедуры

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник