AuditFlow Prüfung erledigen

VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow.vb

@@ -133,4 +133,41 @@ Public Class cAuditFlow
             Return -1
         End Try
     End Function
+
+    ''' <summary>
+    ''' Markiert eine Prüfung als erledigt, speichert das Datum und übergibt Base64-Anhänge an ein externes Archivsystem.
+    ''' Die erzeugte dsId wird als Referenz in die Prüfung eingetragen.
+    ''' </summary>
+    ''' <param name="pruefungsId">ID der Prüfung, die erledigt werden soll</param>
+    ''' <param name="anhaengeBase64">Liste von Base64-kodierten Dateiinhalten</param>
+    ''' <returns>True, wenn erfolgreich gespeichert</returns>
+    Public Shared Function SetzePruefungAufErledigtMitAnhaengen(pruefungsId As Integer, Bemerkung As String, anhaengeBase64 As List(Of String)) As Boolean
+        Try
+            ' Prüfung laden
+            Dim pruefung As New cAuditFlow_Pruefungen(pruefungsId)
+            If Not pruefung.hasEntry Then Return False
+
+            ' 1. Archivierung der Base64-Dateien (Platzhalter)
+            ' ===============================================
+            ' Hier wird angenommen, dass du die Base64-Anhänge an dein Dokumentenarchiv (z. B. DMS) übergibst.
+            ' Die Rückgabe ist eine eindeutige dsId (z. B. Integer oder Guid), die in der Prüfungstabelle gespeichert wird.
+
+            Dim dsId As Integer = -1 ' <== Platzhalter für spätere Archivierung / Dateiübertragung
+            ' TODO: Übergabe der Dateien und Erhalt der dsId vom Archivsystem
+
+            ' 2. Prüfung als erledigt markieren
+            ' =================================
+            pruefung.wartPruef_Erledigung_Datum = Date.Now
+            pruefung.wartPruef_Erledigung = True
+            pruefung.wartPruef_Anhaenge_daId = dsId
+            pruefung.wartPruef_Bemerkung = dsId
+
+            ' 3. Speichern
+            Return pruefung.SAVE()
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
 End Class