SDL/VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow.vb

Imports System.Data.SqlClient
Imports System.Reflection

Public Class cAuditFlow

    Private ReadOnly SQL As New SQL

    ''' <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




    ''' <summary>
    ''' Löscht alle offenen (wartPruef_Erledigung = 0) Prüfungen für ein Prüfobjekt.
    ''' Standard: nur fällige (Faelligkeitsdatum <= heute). 
    ''' Rückgabewert: Anzahl gelöschter Datensätze; -1 bei Fehler.
    ''' </summary>
    Shared Function DELETE_ALL_OPEN_FAELLIGE(wartPOId As Integer, Optional onlyFaellige As Boolean = True) As Integer
        Try
            Dim sqlStr As String =
                "DELETE FROM [tblAuditFlow_Pruefungen] " &
                "WHERE [wartPruef_wartPOId]=@wartPruef_wartPOId " &
                "  AND ISNULL([wartPruef_Erledigung],0)=0"

            If onlyFaellige Then
                sqlStr &= " AND [wartPruef_Faelligkeitsdatum] <= CAST(GETDATE() AS DATE)"
            End If

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand(sqlStr, conn)
                    cmd.Parameters.AddWithValue("@wartPruef_wartPOId", wartPOId)
                    Dim affected As Integer = cmd.ExecuteNonQuery()
                    Return affected
                End Using
            End Using

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod().Name)
            Return -1
        End Try
    End Function
End Class