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