Нет прав на закрытие наряд-заказа. Альфа-авто 5
У пользователя ошибка:
Поискал в типовой палитре прав, не нашел:
Пришлось искать поиском по коду, нашел, что это доработка:
Процедура _ПередЗаписьюДокументаПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт МД = Метаданные.НайтиПоТипу(ТипЗНч(Источник)); Если МД = Метаданные.Документы.ЗаказНаряд Тогда Если ЗначениеЗаполнено(Источник.Ссылка) И НЕ Строка(Источник.Ссылка.Состояние) = "Закрыт" //Справочник.ВидыСостоянийЗаказНарядов И Строка(Источник.Состояние) = "Закрыт" //Справочник.ВидыСостоянийЗаказНарядов И НЕ ЗначениеДополнительногоПрава(Перечисления._ДополнительныеПрава.ЗакрытиеЗаказаНаряда) Тогда Сообщить("У пользователя нет прав закрывать заказ-наряд"); Отказ = истина; Возврат; КонецЕсли; КонецЕсли; КонецПроцедуры Функция ЗначениеДополнительногоПрава(Право, Объект = Неопределено) Экспорт З = Новый Запрос( "ВЫБРАТЬ | Т.Право, | Т.Значение |ИЗ | РегистрСведений._ДополнительныеПрава КАК Т |ГДЕ | Т.Право = &Право | И Т.Пользователь = &Пользователь | И &УсловиеОбъект"); З.УстановитьПараметр("Право", Право); З.УстановитьПараметр("Пользователь", ПараметрыСеанса.Пользователь); Если ЗначениеЗаполнено(Объект) Тогда З.УстановитьПараметр("Объект", Объект); З.Текст = СтрЗаменить(З.Текст, "&УсловиеОбъект", "Т.Объект = &Объект"); Иначе З.Текст = СтрЗаменить(З.Текст, "&УсловиеОбъект", "Истина"); КонецЕсли; Выборка = З.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда Возврат Выборка.Значение; КонецЕсли; //ПО УМОЛЧАНИЮ Если Право = Перечисления._ДополнительныеПрава.ЗакрытиеЗаказаНаряда Тогда Возврат ложь; КонецЕсли; КонецФункции
Проставил нужным пользователям права:
Что самое смешное, сам же писал этот код. Забыл просто. И забыл авторские комментарии поставить.
Среда: Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, редакция 5.1 (5.1.10.09)
Свежие комментарии