FlowFact - Entwicklungstools

zurück

Sub - cmd_Akt_Link_Click
Verknüpfung erstellen

Es wird eine Aktivität angelegt und mit einem Objekt verknüpft
  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