FlowFact - Entwicklungstools

zurück

Function - MKM_Create
Neues Merkmal anlegen

  Function MKM_Create(Optional ByVal strMerkmalName As String = "", _  
 


strMerkmalName: Name/Bezeichnung des Merkmals
strSortierung: Eingabefeld; siehe FlowFact-Hilfe
strNotiz: Inhalt des Notizfeldes
strTableCommaList: Alle Tabellen für die das Merkmal verwendet werden soll z.B. "Ad,Anf,Obj,Akt,Details,Verträge,Projekte,Gantt,"
strGruppen: Baumhierarchie durch Gruppenbezeichnung (Pfadangabe) z.B. Eins\Zwei\Drei
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function MKM_Create(Optional ByVal strMerkmalName As String = "", _
                          Optional ByVal strSortierung As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strTableCommaList As String = "", _
                          Optional ByVal strGruppe As String = "") As String
    Dim rsMKM As ADODB.Recordset
    Dim strBuffer As String
    Dim strDsn As String
    Dim strItem As String

    Set rsMKM = MKM_New()

    rsMKM("Merkmal").value = Mid(strMerkmalName, 1, 20)
    rsMKM("Sortierung").value = Mid(strSortierung, 1, 10)
    rsMKM("Notiz").value = strNotiz
    rsMKM("Gruppe").value = Mid(strGruppe, 1, 254)
    rsMKM("BackColor").value = vbWhite
    rsMKM("FontColor").value = vbBlack

    strBuffer = strTableCommaList
    While strBuffer <> ""
        strItem = LCase(Trim(m_oTools.StrList_DeleteFirst(strBuffer, ",")))
        rsMKM(strItem).value = 1
    Wend


    strDsn = rsMKM("DSN").value

    MKM_Update rsMKM

    MKM_Create = strDsn
End Function