FlowFact - Entwicklungstools

zurück

Sub - AKT_SetAktArt
Felder der Aktivität aus Vorgabe der Aktivitätenart setzen

In der Tabelle der Aktivitätenarten werden Vorgaben für die Neuanlage einer Aktivität gespeichert. Felder in der Aktivitätentabelle: Erledigt, Priorität, Km, Betrag, PeriodenArt, PeriodenIntervall, Vorlage und Emsk_Dsn.
  Sub AKT_SetAktArt(ByRef rsAkt As ADODB.Recordset, ByRef rsAktArt As ADODB.Recordset)  
 


strAktDsn: Datensatz (Recordset) der Aktivität
strAktArtDsn: Datensatz (Recordset) der Aktivitätenart


Public Sub AKT_SetAktArt(ByRef rsAkt As ADODB.Recordset, ByRef rsAktArt As ADODB.Recordset)
    Dim dblVolageTage As Double
    Dim dblVolageMinuten As Double
    Dim blnOhneUhrzeit As Boolean
    Dim blnErledigt As Boolean
    Dim dateVorlage As Date

    rsAkt.Fields("Erledigt").value = rsAktArt.Fields("Erledigt").value
    rsAkt.Fields("Priorität").value = rsAktArt.Fields("Priorität").value
    rsAkt.Fields("Km").value = rsAktArt.Fields("Km").value
    rsAkt.Fields("Betrag").value = rsAktArt.Fields("Kosten").value
    rsAkt.Fields("PeriodenArt").value = rsAktArt.Fields("PeriodenArt").value
    rsAkt.Fields("PeriodenIntervall").value = rsAktArt.Fields("PeriodenIntervall").value

    '** Vorlagezeit
    If m_oUtil.b(rsAkt.Fields("Erledigt").value) = False Then
        dblVolageTage = m_oUtil.d(rsAktArt.Fields("Vorlage").value)
        dblVolageMinuten = m_oUtil.d(rsAktArt.Fields("Minuten").value)
        blnOhneUhrzeit = m_oUtil.b(rsAktArt.Fields("Ohne_Uhrzeit").value)

        dateVorlage = rsAkt.Fields("Datum").value
        dateVorlage = dateVorlage + dblVolageTage
        dateVorlage = dateVorlage + dblVolageMinuten / (24 * 60) '** 1Tag = 24 * 60 Min

        If blnOhneUhrzeit Then
            dateVorlage = Int(dateVorlage)
        End If

        If dateVorlage < 100 Then
            dateVorlage = 0
        End If

    Else
        dateVorlage = 0
    End If
    rsAkt.Fields("Vorlage").value = dateVorlage



    '** Emsk
    If m_oUtil.k(rsAkt.Fields("Emsk_Dsn").value) <> "" And m_oUtil.k(rsAktArt.Fields("Default_Emsk_Dsn").value) <> "" Then
        rsAkt.Fields("Emsk_Dsn").value = rsAktArt.Fields("Default_Emsk_Dsn").value
    End If

    '** Update
    AKT_Update rsAkt
End Sub