Element_Test_V2/Koncept/Testovoe/Основное/КлючДоступаРуководителя.xbsl
Vladislav_k0ncept f16c003f46 Initial commit
2025-02-20 15:05:58 +00:00

26 lines
1.6 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

@Обработчик
метод ПроверитьНаличиеКлючейДоступа(Ключи: ЧитаемыйМассив<КлючДоступаРуководителя.Объект>, Пользователи: ЧитаемыйМассив<Пользователи.Объект>): ЧитаемоеСоответствие<КлючДоступаРуководителя.Объект, ЧитаемаяКоллекция<Пользователи.Объект|Пользователи.Ссылка>>
знч ПользователиСсылки = Пользователи.Преобразовать(Пользователь -> Пользователь.Ссылка)
знч Запрос = Запрос{
ВЫБРАТЬ
Пользователь
ИЗ
Сотрудники
ГДЕ
Пользователь В (%ПользователиСсылки)
И Роль == РольСотрудника.Руководитель
}
исп РезультатЗапроса = Запрос.Выполнить()
знч Руководители = РезультатЗапроса.Преобразовать(СтрокаРезультата -> СтрокаРезультата.Пользователь!)
знч Результат = <КлючДоступаРуководителя.Объект, Массив<Пользователи.Ссылка>>{:}
для Ключ из Ключи
Результат.Вставить(Ключ, Руководители)
;
возврат Результат
;