FlowFact - Entwicklungstools

zurück

Function - FldArt_Create
Neue Feldart anlegen

  Function FldArt_Create(Optional ByVal strFldArtKuerzel As String = "", _  
 


strFldArtKuerzel: Kürzel/Bezeichnung der Feldart
enumFldArtTyp: Typ der Feldart z.B. Text,Nummerisch,Option,Datum ...
strSortierung: Eingabefeld; siehe FlowFact-Hilfe
strPlausibilitaet: Eingabefeld; siehe FlowFact-Hilfe
strFormat: Eingabefeld; siehe FlowFact-Hilfe
strNotiz: Inhalt des Notizfeldes
strTableCommaList: Alle Tabellen für die die Eingabehilfe verwendet werden soll z.B. "Obj,Anf,Details,Verträge,Akten,Selektion,Akt,Projekte"
strIntern: Interne Bezeichnung für vorgegebene Feldarten
strGruppen: z.B. Basis,Zusatz,Anfrage,Expose,PZP,Immonet,Privat,Excel,Diverses
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function FldArt_Create(Optional ByVal strFldArtKuerzel As String = "", _
                          Optional ByVal enumFldArtTyp As ENUM_FLDARTTYP = FLDARTTYP_TEXT, _
                          Optional ByVal strSortierung As String = "", _
                          Optional ByVal strPlausibilitaet As String = "", _
                          Optional ByVal strFormat As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strTableCommaList As String = "", _
                          Optional ByVal strIntern As String = "", _
                          Optional ByVal strGruppen As String = "") As String
    Dim rsFldArt As ADODB.Recordset
    Dim strBuffer As String
    Dim strItem As String
    Dim strDsn As String

    Set rsFldArt = FldArt_New()

    rsFldArt("Kürzel").value = Mid(strFldArtKuerzel, 1, 25)
    rsFldArt("Typ").value = enumFldArtTyp
    rsFldArt("Sortierung").value = Mid(strSortierung, 1, 10)
    rsFldArt("Plausibilität").value = Mid(strPlausibilitaet, 1, 40)
    rsFldArt("Format").value = Mid(strFormat, 1, 50)
    rsFldArt("Notiz").value = strNotiz
    rsFldArt("Intern").value = Mid(strIntern, 1, 254)
    rsFldArt("Gruppen").value = Mid(strGruppen, 1, 1000)


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

    strDsn = rsFldArt("DSN").value

    FldArt_Update rsFldArt

    FldArt_Create = strDsn
End Function