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