FlowFact - Entwicklungstools

zurück

Sub - cmd_Akt_Create_Click
Aktivität anlegen

Aktivität in Datenbank anlegen und anschließend in Flowfact anzeigen.
  Sub cmd_Akt_Create_Click()  
 




Public Sub cmd_Akt_Create_Click()
    Dim strInput As String
    Dim strSubject As String
    Dim strNotiz As String
    Dim strAktArtDsn As String
    Dim strAktDsn As String
    Dim strEMSKDsn As String
    Dim strAd1Dsn As String
    Dim strObjDsn As String

    strInput = InputBox("Bitte geben Sie eine Aktivität in der Form 'Betreff,Notiz' ein.", "Aktivität anlegen", "TestAktivität,Das ist eine automatisch angelegte Aktivität")

    strSubject = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strNotiz = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")

    '** Aktivitätart bestimmen >>VORSICHT<< Wenn strAktArtDsn leer, dann wird Aktivität nicht in FlowFact angezeigt!!
    strAktArtDsn = m_oFFDeveloper.AKTART_FindDsnByName("Termin Besichtigung")
    If strAktArtDsn = "" Then
        strAktArtDsn = m_oFFDeveloper.oBase.BEN_ScannerAktArt
    End If

    '** Eingabemaske
    strEMSKDsn = m_oFFDeveloper.EMSK_FindDsnByName("Persönliche Daten/Profin")


    '** Objekt mit der internen Bezeichnung 'TestHaus' suchen. (Sotierung: Absteigend nach Erstellungsdatum)
    strObjDsn = m_oFFDeveloper.OBJ_FindDSN("Intern like 'TestHaus%'", "Angelegt DESC")

    '** Adresse mit dem Firmennamen 'TestFirma' suchen. (Sotierung: Absteigend nach Erstellungsdatum)
    strAd1Dsn = m_oFFDeveloper.AD_FindDSN("IDX_Firma Like 'TestFirma%'", "Angelegt DESC")

    '** Aktivität mit std. Merkmalen anlegen
    strAktDsn = m_oFFDeveloper.AKT_Create(strAktArtDsn, strSubject, strNotiz, False, CDate("01.01.2005 14:15"), CDate("01.01.2005 15:15"), , CDate("01.01.2005 10:00"), 0, "", "", strEMSKDsn, strAd1Dsn, "", strObjDsn)

    '** Priorität, Km, usw. aus Aktivitätenart übernehmen
    m_oFFDeveloper.AKT_SetAktArtByDsn strAktDsn, strAktArtDsn


    '** Aktivität in FlowFact anzeigen
    m_oFFDeveloper.AKT_ShowDSN strAktDsn
End Sub