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