Каталог решений - Изменение функционала получения списка пользователей

Изменение функционала получения списка пользователей

Изменение функционала получения списка пользователей

В наличии

В данной процедуре изменен механизм получения списка действующих пользователей.

Категория:

Описание

   

    Перед заполнением списка в таблице производится перепроверка на статус входа в программу. Данный функционал был изменен в связи с постоянным поиском тех карточек пользователей что были помечены на удаление или был снят признак "Вход в программу разрешен", но в тоже время оставался в списке пользователей.  

 

  Данная процедура находится в справочнике "Дополнительные отчеты и обработки" формы "Быстрый доступ к дополнительным отчетам и обработкам"

 

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

 

После внесенных изменений при открытии списка пользователей из формы "Дополнительная обработка" 

 

Изменился список пользователей при новом варианте отображения.

 

 

В список не попали карточки пользователей у которых в настройках не проставлен признак "Вход в программу разрешен". 

 

Данный пример был взят на базе тестовой конфигурации Бухгалтерия предприятия, редакция 3.0 (3.0.80.40) запущенной на платформе 1С:Предприятие 8.3 (8.3.15.1565).

 

has been added to your cart:
Оформление заказа