Is a metadata object visible or not?

IsMetadataObjectAccessible.bsl

Function IsMetadataObjectAccessible(MetadataObject)
	
	Result = False;
	
	AreFunctionalOptionsInvolved = False;
	
	For Each FunctionalOption In Metadata.FunctionalOptions Do
		
		If FunctionalOption.Content.Contains(MetadataObject) Then
					
			AreFunctionalOptionsInvolved = True;
			
			If GetFunctionalOption(FunctionalOption.Name) Then
				
				Result = True;				
				Break;
				
			EndIf;
			
		EndIf;
		
	EndDo;
	
	If Not AreFunctionalOptionsInvolved Then		
		Result = True;
	EndIf;
	
	Return Result;
	
EndFunction // IsMetadataObjectAccessible()

Заметка