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