![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | cmd_Akt_Link_Click() |
Public Sub cmd_Akt_Link_Click() Dim rsAkt As ADODB.Recordset Dim strAktDsn As String Dim strDsn As String Set rsAkt = m_oFFDeveloper.AKT_Find("Subject like 'TestAktivität%'") If rsAkt.EOF = True Then MsgBox "TestAktivität nicht gefunden. Bitte legen Sie zuerst eine Aktivität mit dem Betreff 'TestAktivität' an." Exit Sub End If strAktDsn = m_oFFDeveloper.oUtil.k(rsAkt("DSN").Value) If m_oFFDeveloper.oUtil.k(rsAkt("OBJ_DSN").Value) <> "" Then rsAkt("OBJ_DSN").Value = Null rsAkt("AD_DSN").Value = Null rsAkt("AD_B_DSN").Value = Null rsAkt("Verträge_DSN").Value = Null rsAkt("AKTEN_DSN").Value = Null rsAkt("DETAILS_DSN").Value = Null rsAkt("ANF_DSN").Value = Null rsAkt("PROJEKTE_DSN").Value = Null rsAkt("AKT_DSN").Value = Null '** WICHTIG! Änderungen in der Datenbank speichern m_oFFDeveloper.AKT_Update rsAkt Else '** Objekt mit der internen Bezeichnung 'TestHaus' suchen. (Sotierung: Absteigend nach Erstellungsdatum) strDsn = m_oFFDeveloper.OBJ_FindDSN("Intern like 'TestHaus%'", "Angelegt DESC") rsAkt("OBJ_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Adresse mit dem Firmennamen 'TestFirma' suchen. (Sotierung: Absteigend nach Erstellungsdatum) strDsn = m_oFFDeveloper.AD_FindDSN("IDX_Firma Like 'TestFirma%'", "Angelegt DESC") '-- 1. Adresse veknüpfen rsAkt("AD_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '-- 2. Adresse veknüpfen (Aktivitäten können mit zwei unterschiedlichen Adressen verknüpft werden) rsAkt("AD_B_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Vertrag strDsn = m_oFFDeveloper.VERTRAEGE_FindDSN("Intern like 'TestVertrag%'") rsAkt("Verträge_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Akten strDsn = m_oFFDeveloper.AKTEN_FindDSN("Rubrum like 'TestAkte%'") rsAkt("Akten_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Anfrage strDsn = m_oFFDeveloper.ANF_FindDSN("Notiz like 'TestAnfrage%'") rsAkt("ANF_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Projekte strDsn = m_oFFDeveloper.PROJEKTE_FindDSN("Bezeichnung like 'TestProjekt%'") rsAkt("PROJEKTE_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** Vorgang strDsn = m_oFFDeveloper.AKT_FindDSN("Subject like 'TestEMail%'") rsAkt("AKT_DSN").Value = m_oFFDeveloper.oUtil.SQLStrNull(strDsn) '** WICHTIG! Änderungen in der Datenbank speichern m_oFFDeveloper.AKT_Update rsAkt End If m_oFFDeveloper.AKT_ShowDSN strAktDsn End Sub |