&НаСервере

Функция ПользовательВГруппе(Знач Группа)

            Запрос = Новый Запрос;

            Запрос.Текст =

                        "ВЫБРАТЬ

                        |           ГруппыДоступаПользователи.Ссылка КАК Ссылка,

                        |           ГруппыДоступаПользователи.Пользователь КАК Пользователь

                        |ИЗ

                        |           Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи

                        |ГДЕ

                        |           ГруппыДоступаПользователи.Пользователь = &Пользователь

                        |           И ГруппыДоступаПользователи.Ссылка.Наименование = &Группа";

            Запрос.УстановитьПараметр("Группа", Группа);

            Запрос.УстановитьПараметр("Пользователь", ПараметрыСеанса.ТекущийПользователь);

            РезЗапр = Запрос.Выполнить();

            Выборка = РезЗапр.Выбрать();

            Если Выборка.Следующий() Тогда

                        Возврат Истина;

            Иначе

                        Возврат Ложь;

            КонецЕсли;

КонецФункции//ПользовательВГруппе

&НаСервере

Функция ЕстьДоступКОтчету()

            Возврат РольДоступна("ЕДС_ДоступКОтчетуИсполнителей") ИЛИ

                    ПользовательВГруппе("Исполнители: доступ к отчету Справка по выполнению");

КонецФункции