|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
1C // Функция для проверки прав доступа менеджера по продажам на просмотр операций Функция ПроверкаПравДоступа(Ответственный) Экспорт // Получаем текущего пользователя ТекущийПользователь = Пользователи.ТекущийПользователь(); // Если ответственный не заполнен, разрешаем просмотр Если Не ЗначениеЗаполнено(Ответственный) Тогда Возврат Истина; КонецЕсли; // Если текущий пользователь является ответственным, разрешаем просмотр Если Ответственный = ТекущийПользователь Тогда Возврат Истина; КонецЕсли; // Запрос для проверки, является ли текущий пользователь автором операции Запрос = Новый Запрос; Запрос.Текст = " ВЫБРАТЬ ПЕРВЫЕ 1 Операции.Ссылка КАК Ссылка ИЗ Документ.ЗаказПокупателя КАК Операции ГДЕ Операции.Ответственный = &ТекущийПользователь И Операции.Ссылка = &Ответственный"; Запрос.УстановитьПараметр("ТекущийПользователь", ТекущийПользователь); Запрос.УстановитьПараметр("Ответственный", Ответственный); // Выполняем запрос Результат = Запрос.Выполнить(); // Если запрос вернул результат, разрешаем просмотр Если Результат.Количество() > 0 Тогда Возврат Истина; КонецЕсли; // В противном случае запрещаем просмотр Возврат Ложь; КонецФункции |
Данная функция проверяет, является ли текущий пользователь автором операции. Если да, то доступ на просмотр разрешен. Если нет, то доступ запрещен.