FlowFact - Entwicklungstools

zurück

Function - BEN_Rechteschablone
Benutzerschablone für Rechte ermitteln

  Function BEN_Rechteschablone(ByVal lngNr As Long) As String  
 


Rückgabewert: ACL der lngNr'ten Rechteschablone zur Basis 0


Public Function BEN_Rechteschablone(ByVal lngNr As Long) As String
    Dim rs As ADODB.Recordset
    Dim strBuffer As String
    Dim strText As String
    Dim i As Long

    Set rs = FF_CurrentUserRS

    strBuffer = m_oUtil.k(rs("Rechteschablonen").value)

    strText = ""
    If strBuffer <> "" Then
        For i = 1 To lngNr
            If strBuffer <> "" Then
                strText = m_oTools.StrList_DeleteFirst(strBuffer, vbCrLf)
            Else
                strText = ""
            End If
        Next
    End If

    If strText <> "" Then
        m_oTools.StrList_DeleteFirst strText, "|"
    End If

    BEN_Rechteschablone = strText
End Function