Как ограничить просмотр операций только для авторов в 1С?

[Odineski]

b напиши процедуру или функцию чтобы пользователи менеджера по продажам имели права доступа на просмотр, только на те операции, по которым он
является автором

[Odin – Одинэсник]

1С (Код)

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

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 Тогда         Возврат Истина;     КонецЕсли;          // В противном случае запрещаем просмотр     Возврат Ложь; КонецФункции

Данная функция проверяет, является ли текущий пользователь автором операции. Если да, то доступ на просмотр разрешен. Если нет, то доступ запрещен.

[Автор]

Сообщения