RPT

VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow.vb

@@ -1,6 +1,10 @@
 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.
@@ -96,4 +100,37 @@ Public Class cAuditFlow
                 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

VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow_Pruefobjekte.vb

@@ -11,7 +11,7 @@ Public Class cAuditFlow_Pruefobjekte
     Public Property wartPO_Kategorie As String
     Public Property wartPO_Firma As String
     Public Property wartPO_Niederlasung As String
-    Public Property wartPO_Standort As String
+    Public Property wartPO_StandortId As Integer
     Public Property wartPO_Aktiv As Boolean = True
     Public Property wartPO_IntervallTyp As String                  ' VARCHAR(30)
     Public Property wartPO_IntervallWert As Nullable(Of Integer)   ' NULL
@@ -58,7 +58,7 @@ Public Class cAuditFlow_Pruefobjekte
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Kategorie", wartPO_Kategorie))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Firma", wartPO_Firma))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Niederlasung", wartPO_Niederlasung))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Standort", wartPO_Standort))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_StandortId", wartPO_StandortId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Aktiv", wartPO_Aktiv))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_IntervallTyp", wartPO_IntervallTyp))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_IntervallWert", wartPO_IntervallWert))
@@ -166,6 +166,27 @@ Public Class cAuditFlow_Pruefobjekte
             Return ""
         End Try
     End Function
+
+
+
+    Private Function DELETE_ALL_OPEN_FAELLIGE() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim setParts As New List(Of String)
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    setParts.Add("[" & i.Text & "]=@" & i.Scalarvariable)
+                End If
+            Next
+            Dim setClause As String = String.Join(",", setParts)
+            Return "UPDATE [tblAuditFlow_Pruefobjekte] SET " & setClause & " WHERE [wartPO_Id]=@wartPO_Id"
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return ""
+        End Try
+    End Function
+
+
     Public Shared Function LoadAllAktiv() As List(Of cAuditFlow_Pruefobjekte)
         Dim result As New List(Of cAuditFlow_Pruefobjekte)