FlowFact - Entwicklungstools

zurück

Function - BEN_VorlageDsnCommaList
Standard Merkmale ermitteln

Bei der Neuanlage werden einer Adresse, Objekt, Aktivität, Anfrage usw. diese(s) Merkmal(e) automatisch hinzugefügt. Die bei der Neuanlage vergebenen Merkmale sind Benutzer abhängig und somit in der Tabelle 'Ben' hinterlegt.
  Function BEN_VorlageDsnCommaList() As String  
 


Rückgabewert: Datensatznummern (DSN's) der Standardmerkmale durch Kommata getrennt oder 'LEER'


Public Function BEN_VorlageDsnCommaList() As String
    Dim strResult As String
    Dim strItem As String
    Dim rs As ADODB.Recordset
    Dim i As Long

    Set rs = FF_CurrentUserRS

    strResult = ""
    For i = 1 To 5
        strItem = m_oUtil.k(rs("VOR_MKM" & CStr(i)).value)
        If strItem <> "" Then
            strResult = strResult & strItem & ","
        End If
    Next

    '-- letztes Komma entfernen
    If strResult <> "" Then
        strResult = Mid(strResult, 1, Len(strResult) - 1)
    End If

    BEN_VorlageDsnCommaList = strResult
End Function