![]() |
FlowFact - Entwicklungstools |
![]() |
Function | PROJEKTE_Create(Optional ByVal strBezeichnung As String = "", _ |
strBezeichnung: Name des Projektes strNotiz: Inhalt des Notizfeldes strStichwort: Erstes Stichwort strStichwort2: Zweites Stichwort strEMSKDsn: Datensatznummer (DSN) der Eingabehilfe strRootProjekteDsn: Datensatznummer (DSN) des übergeordneten Projektes (Projektbaum) Rückgabewert: Datensatznummer (DSN) des Projektes oder 'LEER' Public Function PROJEKTE_Create(Optional ByVal strBezeichnung As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal strStichwort As String = "", _ Optional ByVal strStichwort2 As String = "", _ Optional ByVal strEmskDsn As String = "", _ Optional ByVal strRootProjekteDsn As String = "") As String Dim rsPROJEKTE As ADODB.Recordset Dim strMkmDsnList As String Dim strProjekteDsn As String Set rsPROJEKTE = PROJEKTE_New() rsPROJEKTE("Bezeichnung").value = Mid(strBezeichnung, 1, 50) rsPROJEKTE("Notiz").value = strNotiz rsPROJEKTE("Stichwort").value = Mid(strStichwort, 1, 100) rsPROJEKTE("Stichwort2").value = Mid(strStichwort2, 1, 100) rsPROJEKTE("EMSK_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn) rsPROJEKTE("Projekte_Dsn").value = m_oUtil.SqlStrNull(strRootProjekteDsn) '-- Standard Berechtigung hinzufügen rsPROJEKTE("ACL").value = m_oBase.BEN_StdACL '-- Update strProjekteDsn = rsPROJEKTE("Dsn").value PROJEKTE_Update rsPROJEKTE '-- Standard Merkmale hinzufügen strMkmDsnList = PROJEKTE_Merkmal_StdDsnCommaList() PROJEKTE_Merkmal_Add strProjekteDsn, strMkmDsnList PROJEKTE_Create = strProjekteDsn End Function |