AuditFlow

VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow.vb

@@ -0,0 +1,99 @@
+Imports System.Data.SqlClient
+
+Public Class cAuditFlow
+    ''' <summary>
+    ''' Erzeugt alle fälligen Prüfungen ab dem gegebenen Startdatum.
+    ''' Unterstützt sowohl Intervall-basierte als auch einmalige Prüfobjekte.
+    ''' Berücksichtigt das Enddatum und Erinnerungsvorlauf jedes Prüfobjekts.
+    ''' </summary>
+    ''' <param name="vonDatum">Datum, ab dem fällige Prüfungen nachträglich berechnet werden sollen</param>
+    Public Shared Sub ErzeugeFaelligePruefungen(vonDatum As Date)
+        Dim pruefobjekte = cAuditFlow_Pruefobjekte.LoadAllAktiv()
+        Dim heute As Date = Date.Today
+
+        For Each obj In pruefobjekte
+            ' Intervalltyp ermitteln (immer in Großbuchstaben, Leerzeichen entfernt)
+            Dim intervallTyp As String = If(obj.wartPO_IntervallTyp, "").Trim().ToUpper()
+
+            ' Erinnerungsvorlauf ermitteln
+            Dim vorlauf As Integer = obj.wartPO_Erinnerung_VorlaufInTagen
+
+            ' Enddatum aus Datenbank (leer = unbegrenzt)
+            Dim dbEndDatum As Date = If(obj.wartPO_enddatum > Date.MinValue, obj.wartPO_enddatum, Date.MaxValue)
+
+            ' System-Enddatum = heute + Vorlauf (aber max. bis zum definierten Enddatum)
+            Dim systemEndDatum As Date = heute.AddDays(vorlauf)
+            Dim endDatum As Date = If(systemEndDatum <= dbEndDatum, systemEndDatum, dbEndDatum)
+
+            ' Startdatum zur Prüfung: das spätere von vonDatum oder Startdatum aus DB
+            Dim startDatum As Date = If(vonDatum > obj.wartPO_startdatum, vonDatum, obj.wartPO_startdatum)
+
+            ' Wenn Startdatum bereits hinter dem Enddatum liegt → überspringen
+            If startDatum > endDatum Then Continue For
+
+            ' === EINMALIGE PRÜFUNG ===
+            If intervallTyp = "EINMALIG" Then
+                Dim faellig As Date = obj.wartPO_startdatum
+                If faellig >= startDatum AndAlso faellig <= endDatum Then
+                    If Not cAuditFlow_Pruefungen.ExistiertBereits(obj.wartPO_Id, faellig) Then
+                        Dim einmaligePruefung As New cAuditFlow_Pruefungen With {
+                        .wartPruef_wartPOId = obj.wartPO_Id,
+                        .wartPruef_Faelligkeitsdatum = faellig,
+                        .wartPruef_Erledigung = False,
+                        .wartPruef_Bemerkung = "Einmalige Prüfung"
+                    }
+                        einmaligePruefung.SAVE()
+                    End If
+                End If
+                Continue For
+            End If
+
+            ' === WIEDERKEHRENDE PRÜFUNG ===
+            If Not obj.wartPO_IntervallWert.HasValue Then Continue For
+
+            Dim laufDatum As Date = startDatum
+            Do While laufDatum <= endDatum
+                If Not cAuditFlow_Pruefungen.ExistiertBereits(obj.wartPO_Id, laufDatum) Then
+                    Dim neuePruefung As New cAuditFlow_Pruefungen With {
+                    .wartPruef_wartPOId = obj.wartPO_Id,
+                    .wartPruef_Faelligkeitsdatum = laufDatum,
+                    .wartPruef_Erledigung = False
+                }
+                    neuePruefung.SAVE()
+                End If
+
+                ' Nächstes Datum berechnen
+                laufDatum = BerechneNaechstesDatum(laufDatum, intervallTyp, obj.wartPO_IntervallWert.Value)
+            Loop
+        Next
+    End Sub
+
+
+    ''' <summary>
+    ''' Berechnet das nächste Fälligkeitsdatum auf Basis eines Ausgangsdatums, des Intervalltyps und -werts.
+    ''' </summary>
+    ''' <param name="start">Ausgangspunkt für die nächste Fälligkeit</param>
+    ''' <param name="typ">Intervalltyp: "TAGE", "WOCHEN", "MONATE", "JAHRE"</param>
+    ''' <param name="wert">Anzahl der Einheiten, die zwischen zwei Fälligkeiten liegen</param>
+    ''' <remarks>
+    ''' Beispiele:
+    '''   typ: "TAGE",    wert: 10   → alle 10 Tage
+    '''   typ: "WOCHEN",  wert: 1    → jede Woche
+    '''   typ: "MONATE",  wert: 3    → alle 3 Monate
+    '''   typ: "JAHRE",   wert: 2    → alle 2 Jahre
+    ''' </remarks>
+    Private Shared Function BerechneNaechstesDatum(start As Date, typ As String, wert As Integer) As Date
+        Select Case typ.Trim.ToUpper()
+            Case "TAGE"
+                Return start.AddDays(wert)
+            Case "WOCHEN"
+                Return start.AddDays(wert * 7)
+            Case "MONATE"
+                Return start.AddMonths(wert)
+            Case "JAHRE"
+                Return start.AddYears(wert)
+            Case Else
+                Throw New ArgumentException("Ungültiger Intervalltyp: " & typ)
+        End Select
+    End Function
+End Class