Нет прав на закрытие наряд-заказа. Альфа-авто 5

У пользователя ошибка:

Поискал в типовой палитре прав, не нашел:

Пришлось искать поиском по коду, нашел, что это доработка:

Процедура _ПередЗаписьюДокументаПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
	
	МД = Метаданные.НайтиПоТипу(ТипЗНч(Источник));
	
	Если МД = Метаданные.Документы.ЗаказНаряд Тогда
		Если ЗначениеЗаполнено(Источник.Ссылка) 
			И НЕ  Строка(Источник.Ссылка.Состояние) = "Закрыт" //Справочник.ВидыСостоянийЗаказНарядов
			И Строка(Источник.Состояние) = "Закрыт" //Справочник.ВидыСостоянийЗаказНарядов
			И НЕ ЗначениеДополнительногоПрава(Перечисления._ДополнительныеПрава.ЗакрытиеЗаказаНаряда)  Тогда
			Сообщить("У пользователя нет прав закрывать заказ-наряд");
			Отказ = истина; Возврат;
			
			
			
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры

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

Проставил нужным пользователям права:

Что самое смешное, сам же писал этот код. Забыл просто. И забыл авторские комментарии поставить.

Среда: Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, редакция 5.1 (5.1.10.09)

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *