FlowFact - Entwicklungstools

zurück

Function - PROJEKTE_Create
Projekt anlegen

Diese Funktion legt mit minimalen Angaben ein Projekt mit seinen Std.-Merkmalen in der Datenbank an.
  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