![]() |
FlowFact - Entwicklungstools |
![]() |
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 |