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