FlowFact - Entwicklungstools

zurück

Function - AKT_Create
Aktivität anlegen

Diese Funktion legt mit minimalen Angaben eine Aktivität mit ihren Std.-Merkmalen in der Datenbank an.
  Function AKT_Create(Optional ByVal strAktArtDsn As String = "", _  
 


strAktArtDsn: Datensatznummer (DSN) der Aktivitätenart
strBetreff: Inhalt der Betreffzeile
strNotiz: Inhalt des Notizfeldes
blnErledigt: Aktivität auf erledigt setzen
dateDatum: Anfang des Zeitraumes
dateDatumBis: Ende des Zeitraumes
dateDatumVorlage: Vorlagedatum
dateDatumAlarm: Datum bzw. Zeit, zu dem der Alarm diese Aktivität (z.B. einen Termin) meldet
dateLoeschdatum: Datum, an dem die Aktivität gelöscht werden soll
strStichwort1: Erstes Stichwort
strStichwort2: Zweites Stichwort
strEmskDsn: Datensatznummer (DSN) der Eingabehilfe
strAdDsn1: Datensatznummer (DSN) der ersten verknüpften Adresse
strAdDsn2: Datensatznummer (DSN) der zweiten verknüpften Adresse
strObjDsn: Datensatznummer (DSN) des verknüpften Objektes
strAnfDsn: Datensatznummer (DSN) der verknüpften Anfrage
strProjekteDsn: Datensatznummer (DSN) des verknüpften Projektes
strAktenDsn: Datensatznummer (DSN) der verknüpften Akte
strVertraegeDsn: Datensatznummer (DSN) des verknüpften Vertrages
strDetailsDsn: Datensatznummer (DSN) des verknüpften Detailsdatensatzes einer Adresse
strRootAktDsn: Datensatznummer (DSN) der übergeordneten verknüpften Aktivität (=Vorgangsaktivität)
Rückgabewert: Datensatznummer (DSN) der Aktivität oder 'LEER'


Public Function AKT_Create(Optional ByVal strAktArtDsn As String = "", _
                          Optional ByVal strBetreff As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal blnErledigt As Boolean = False, _
                          Optional ByVal dateDatum As Date = 0, _
                          Optional ByVal dateDatumBis As Date = 0, _
                          Optional ByVal dateDatumVorlage As Date = 0, _
                          Optional ByVal dateDatumAlarm As Date = 0, _
                          Optional ByVal dateLoeschdatum As Date = 0, _
                          Optional ByVal strStichwort1 As String = "", _
                          Optional ByVal strStichwort2 As String = "", _
                          Optional ByVal strEmskDsn As String = "", _
                          Optional ByVal strAdDsn1 As String = "", _
                          Optional ByVal strAdDsn2 As String = "", _
                          Optional ByVal strObjDsn As String = "", _
                          Optional ByVal strAnfDsn As String = "", _
                          Optional ByVal strProjekteDsn As String = "", _
                          Optional ByVal strAktenDsn As String = "", _
                          Optional ByVal strVertraegeDsn As String = "", _
                          Optional ByVal strDetailsDsn As String = "", _
                          Optional ByVal strRootAktDsn As String = "") As String
    Dim rsAkt As ADODB.Recordset
    Dim strMkmDsnList As String
    Dim strAktDsn As String

    Set rsAkt = AKT_New()

    rsAkt("Art_Dsn").value = m_oUtil.SqlStrNull(strAktArtDsn)  'Aktivitätenart (Pflicht; sonst keine anzeige)
    rsAkt("Subject").value = Mid(strBetreff, 1, 256)
    rsAkt("Notiz").value = strNotiz
    rsAkt("Erledigt").value = IIf(blnErledigt, 1, 0)
    rsAkt("Datum").value = IIf(dateDatum = 0, Null, dateDatum)
    rsAkt("Datum_Bis").value = IIf(dateDatumBis = 0, Null, dateDatumBis)
    rsAkt("Vorlage").value = IIf(dateDatumVorlage = 0, Null, dateDatumVorlage)
    rsAkt("Alarm").value = IIf(dateDatumAlarm = 0, Null, dateDatumAlarm)
    rsAkt("Loeschdatum").value = IIf(dateLoeschdatum = 0, Null, dateLoeschdatum)
    rsAkt("Stichwort1").value = Mid(strStichwort1, 1, 50)
    rsAkt("Stichwort2").value = Mid(strStichwort2, 1, 50)
    rsAkt("Emsk_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn)
    rsAkt("AD_Dsn").value = m_oUtil.SqlStrNull(strAdDsn1)             'Verknüpfung mit Adresse
    rsAkt("AD_B_Dsn").value = m_oUtil.SqlStrNull(strAdDsn2)           'Verknüpfung mit einer zweiten Adresse
    rsAkt("OBJ_Dsn").value = m_oUtil.SqlStrNull(strObjDsn)            'Verknüpfung mit Objekt
    rsAkt("ANF_Dsn").value = m_oUtil.SqlStrNull(strAnfDsn)            'Verknüpfung mit Anfrage
    rsAkt("Projekte_Dsn").value = m_oUtil.SqlStrNull(strProjekteDsn)  'Verknüpfung mit Projekt
    rsAkt("Akten_Dsn").value = m_oUtil.SqlStrNull(strAktenDsn)        'Verknüpfung mit Akte
    rsAkt("Verträge_Dsn").value = m_oUtil.SqlStrNull(strVertraegeDsn) 'Verknüpfung mit Vertrag
    rsAkt("Details_Dsn").value = m_oUtil.SqlStrNull(strDetailsDsn)    'Verknüpfung mit Adress-Details
    rsAkt("Akt_Dsn").value = m_oUtil.SqlStrNull(strRootAktDsn)        'Verknüpfung mit 'übergeordneter' Aktivität = Vorgang

    '-- Standard Berechtigung hinzufügen
    rsAkt("ACL").value = m_oBase.BEN_StdACL

    '-- Update
    strAktDsn = rsAkt("Dsn").value
    AKT_Update rsAkt


    '-- Standard Merkmale hinzufügen
    strMkmDsnList = AKT_Merkmal_StdDsnCommaList()
    AKT_Merkmal_Add strAktDsn, strMkmDsnList

    AKT_Create = strAktDsn
End Function