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