GetSecurityClassID

Returns the ID of the security class assigned to a Custom 1, 2, 3, or 4 dimension member.

Syntax

<HsvCustom>.GetSecurityClassID lItemID, plSecurityClassID

Argument	Description
lItemID	Long (ByVal). The ID of the Custom dimension member.
plSecurityClassID	Long. Returns the ID of the Custom dimension member’s security class. If no security class has been assigned to the member, SECURITY_CLASS_NONE is returned.

Example

The following function takes the name of a Custom 1 dimension member and returns the name of the member’s security class, or a blank string if no security class has been assigned.

Function getCustom1SecClassName(sCustom1Label As String) As _ 
String
Dim cCustom1 As HsvCustom, cTreeInfo As IHsvTreeInfo
Dim lCustId As Long, lSecId As Long, sSecLabel As String
Set cCustom1 = m_cMetadata.Custom1
Set cTreeInfo = m_cMetadata.Custom1
lCustId = cTreeInfo.GetItemID(sCustom1Label)
cCustom1.GetSecurityClassID lCustId, lSecId
If lSecId = SECURITY_CLASS_NONE Then
    getCustom1SecClassName = ""
Else
    m_cSecurityAccess.GetSecurityClassLabel lSecId, sSecLabel
    getCustom1SecClassName = sSecLabel
End If
End Function