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