FlowFact - Entwicklungstools

zurück

Function - AKTART_Create
Neue Aktivitätenart anlegen

  Function AKTART_Create(Optional ByVal strAktivitaetenartName As String = "", _  
 


strAktivitaetenartName: Name der Aktivitätenart
strKurz: Kürzel als Abkürzung (kann leer bleiben)
strNotiz: Inhalt des Notizfeldes
strDefaultViews: Aktivitäten können in verschiedenen Views (Anzeigeformen) angezeigt werden z.B. 'Dokument,Anhaenge,Termin,Notiz,Classic,Mail,Maildetails' oder 'Alle'
dblVorlageInTagen: Vorlagezeit
dblVorlageInMinuten: Vorlagezeit
dblKosten: Kosteneingabe; siehe FlowFact-Hilfe
dblKilometer: Kilometereingabe; siehe FlowFact-Hilfe
intBackColor: Hintergrundfarbe; Anzeige in der Vorlage
intFontColor: Farbe der Schrift; Anzeige in der Vorlage
blnOhneUhrzeit: keine Uhrzeit in der Vorlagezeit speichern => keine Meldung im Alarm
blnInKalenderAnzeigen: TRUE => Es handelt sich um einen Termin
blnAlsQuickAktAnzeigen: In QuickAktivitätenliste aufnehmen
blnErledigtNachAktCreate: Wenn eine Aktivität mit dieser Aktivitätenart erzeugt wird, dann wird diese auf erledigt gesetzt
blnAdressverknuepfungLoesen: Wenn eine Aktivität mit dieser Aktivitätenart erzeugt wird, dann wird die aktuelle Adresse nicht automatisch verknüpft
strDefEmskDsn: Default Eingabehilfe
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function AKTART_Create(Optional ByVal strAktivitaetenartName As String = "", _
                          Optional ByVal strKurz As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strDefaultViews As String = "", _
                          Optional ByVal dblVorlageInTagen As Long = 0, _
                          Optional ByVal dblVorlageInMinuten As Double = 0, _
                          Optional ByVal dblKosten As Double = 0, _
                          Optional ByVal dblKilometer As Double = 0, _
                          Optional ByVal intBackColor As Long = 0, _
                          Optional ByVal intFontColor As Long = 0, _
                          Optional ByVal blnOhneUhrzeit As Boolean = False, _
                          Optional ByVal blnInKalenderAnzeigen As Boolean = False, _
                          Optional ByVal blnAlsQuickAktAnzeigen As Boolean = False, _
                          Optional ByVal blnErledigtNachAktCreate As Boolean = False, _
                          Optional ByVal blnAdressverknuepfungLoesen As Boolean = False, _
                          Optional ByVal strDefEmskDsn As String = "") As String
    Dim rsAktArt As ADODB.Recordset
    Dim strDsn As String

    Set rsAktArt = AKTART_New()

    rsAktArt("Name").value = Mid(strAktivitaetenartName, 1, 50)
    rsAktArt("Kurz").value = Mid(strKurz, 1, 5)
    rsAktArt("Notiz").value = strNotiz
    rsAktArt("default_views").value = Mid(strDefaultViews, 1, 50)
    rsAktArt("Vorlage").value = dblVorlageInTagen
    rsAktArt("Minuten").value = dblVorlageInMinuten
    rsAktArt("Kosten").value = dblKosten
    rsAktArt("km").value = dblKilometer
    rsAktArt("BackColor").value = intBackColor
    rsAktArt("FontColor").value = intFontColor
    rsAktArt("Ohne_Uhrzeit").value = IIf(blnOhneUhrzeit, 1, 0)
    rsAktArt("Kalender").value = IIf(blnInKalenderAnzeigen, 1, 0)
    rsAktArt("Quickakt").value = IIf(blnAlsQuickAktAnzeigen, 1, 0)
    rsAktArt("Erledigt").value = IIf(blnErledigtNachAktCreate, 1, 0)
    rsAktArt("Adlos").value = IIf(blnAdressverknuepfungLoesen, 1, 0)
    rsAktArt("default_emsk_dsn").value = m_oUtil.SqlStrNull(strDefEmskDsn)

    strDsn = rsAktArt("DSN").value

    AKTART_Update rsAktArt

    AKTART_Create = strDsn
End Function