Ошибка не достаточно прав для работы с утверждённым документом.

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

	ПравоРедактирование = МногофункциональныеДокументыБЗККлиентСервер.ВидыПравНаРазделыДанных().Редактирование;	
	ПредыдущееСостояниеДокумента = Неопределено;
	ЗначенияДоступа = Неопределено;
		
	Для Каждого ОписаниеРаздела Из ОписаниеРазделовДанных Цикл
		Если ОписаниеРаздела.Значение.РеквизитСостояние = Неопределено Тогда
			Продолжить;
		КонецЕсли;	
		
		ТребуетсяПроверка = Ложь;	
		Если ОписаниеРаздела.Значение.РеквизитСостояние = "Проведен" 
			Или ДокументОбъект[ОписаниеРаздела.Значение.РеквизитСостояние] Тогда
			
			ТребуетсяПроверка = Истина;
		ИначеЕсли Не ДокументОбъект[ОписаниеРаздела.Значение.РеквизитСостояние]Тогда
			Если ПредыдущееСостояниеДокумента = Неопределено Тогда
				ПредыдущееСостояниеДокумента = СостоянияРазделовДокументаВИБ(ДокументОбъект.Ссылка, ОписаниеРазделовДанных);
			КонецЕсли;
			ТребуетсяПроверка = ПредыдущееСостояниеДокумента[ОписаниеРаздела.Значение.РеквизитСостояние];
		КонецЕсли;	
			
		Если ТребуетсяПроверка Тогда
			Если ЗначенияДоступа = Неопределено Тогда
				ЗначенияДоступа	= МенеджерДокумента.ЗначенияДоступа(ДокументОбъект);
			КонецЕсли;	
			
			Если Не ЕстьПравоНаРаздел(ПравоРедактирование, ОписаниеРаздела.Ключ, ЗначенияДоступа) Тогда
				ТекстСообщения = НСтр("ru = '%1 - недостаточно прав для работы с утвержденным документом.'");
				ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, ДокументОбъект);
				ВызватьИсключение(ТекстСообщения);	
			КонецЕсли;		
		КонецЕсли;	
	КонецЦикла;	
КонецПроцедуры	

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

	Если ВидПрава = ВидыПрав.Редактирование	
		И РазделДанных = РазделыДанных.КадровыеДанные Тогда
			
		Возврат Истина;
	КонецЕсли;	
	
	Если ЗначенияДоступа = Неопределено Тогда
		ЗначенияДоступа = НовыйЗначенияДоступа();
	КонецЕсли;	
	
	ЕстьПравоПоОрганизации = ЕстьПраваНаДоступПоОрганизации(ВидПрава, РазделДанных, ЗначенияДоступа.Организации); 
	ЕстьПравоПоФизическимЛицам = ЕстьПраваНаДоступПоФизическимЛицам(
		ВидПрава, 
		РазделДанных, 
		ЗначенияДоступа.ФизическиеЛица); 
		
	Возврат ЕстьПравоПоОрганизации И ЕстьПравоПоФизическимЛицам;
КонецФункции

ЕстьПравоПоОрганизации = ЕстьПраваНаДоступПоОрганизации(ВидПрава, РазделДанных, ЗначенияДоступа.Организации); 
	ЕстьПравоПоФизическимЛицам = ЕстьПраваНаДоступПоФизическимЛицам(
		ВидПрава, 
		РазделДанных, 
		ЗначенияДоступа.ФизическиеЛица);
Возврат ЕстьПравоПоОрганизации И ЕстьПравоПоФизическимЛицам;