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