FlowFact - Entwicklungstools

zurück

Function - EMSK_Create
Neue Eingabehilfe anlegen

  Function EMSK_Create(Optional ByVal strEmskName As String = "", _  
 


strEmskName: Name/Bezeichnung der Eingabehilfe
enumEART: Typ der Eingabehilfe z.B. Kauf oder Miete oder KaufMiete
strNotiz: Inhalt des Notizfeldes
strTableCommaList: Alle Tabellen für die die Eingabehilfe verwendet werden soll z.B. "Objekt,Interessent,Details,Verträge,Akten,Akt,Projekte"
strGruppen: z.B. Anfrage,Immonet,Basis,Zusatz,Privat,Expose,PZP=,Diverses=,Archiv./Reserv.=,Excel=,Ungruppiert=
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function EMSK_Create(Optional ByVal strEmskName As String = "", _
                          Optional ByVal enumEART As ENUM_EART = EART_KAUF, _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strTableCommaList As String = "", _
                          Optional ByVal strGruppen As String = "") As String
    Dim rsEMSK As ADODB.Recordset
    Dim strBuffer As String
    Dim strItem As String
    Dim strDsn As String

    Set rsEMSK = EMSK_New()

    rsEMSK("Name").value = Mid(strEmskName, 1, 50)
    rsEMSK("EArt").value = enumEART
    rsEMSK("Notiz").value = strNotiz
    rsEMSK("Gruppen").value = Mid(strGruppen, 1, 1000)

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

    strDsn = rsEMSK("DSN").value

    EMSK_Update rsEMSK

    EMSK_Create = strDsn
End Function