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

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb

@@ -297,8 +297,8 @@ Public Class frmAuditFlow
             .Columns("wartPruef_Faelligkeitsdatum").HeaderText = "Fälligkeitsdatum"
             .Columns("wartPruef_Faelligkeitsdatum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-            .Columns("wartPO_Kennung").Width = 60
-            .Columns("wartPO_Kennung").HeaderText = "(Kennung)"
+            .Columns("wartPruef_Erledigung").Width = 60
+            .Columns("wartPruef_Erledigung").HeaderText = "Erledigung"
 
             .Columns("wartPO_Kategorie").Width = 100
             .Columns("wartPO_Kategorie").HeaderText = "Kategorie"

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungsojekt.Designer.vb

@@ -24,7 +24,6 @@ Partial Class frmAuditFlow_Pruefungsojekt
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuditFlow_Pruefungsojekt))
         Me.pnlTop = New System.Windows.Forms.Panel()
-        Me.Label4 = New System.Windows.Forms.Label()
         Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -59,6 +58,7 @@ Partial Class frmAuditFlow_Pruefungsojekt
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.pnlTop.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -74,17 +74,6 @@ Partial Class frmAuditFlow_Pruefungsojekt
         Me.pnlTop.Size = New System.Drawing.Size(566, 48)
         Me.pnlTop.TabIndex = 10
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.ForeColor = System.Drawing.Color.White
-        Me.Label4.Location = New System.Drawing.Point(10, 13)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(117, 26)
-        Me.Label4.TabIndex = 0
-        Me.Label4.Text = "AuditFlow"
-        '
         'cboKategorie
         '
         Me.cboKategorie._allowedValuesFreiText = Nothing
@@ -577,6 +566,17 @@ Partial Class frmAuditFlow_Pruefungsojekt
         Me.CheckBox1.Text = "AKTIV"
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(10, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(117, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "AuditFlow"
+        '
         'frmAuditFlow_Pruefungsojekt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -619,7 +619,6 @@ Partial Class frmAuditFlow_Pruefungsojekt
     End Sub
 
     Friend WithEvents pnlTop As Windows.Forms.Panel
-    Friend WithEvents Label4 As Windows.Forms.Label
     Friend WithEvents cboKategorie As MyComboBox
     Friend WithEvents Label1 As Windows.Forms.Label
     Friend WithEvents Label7 As Windows.Forms.Label
@@ -654,4 +653,5 @@ Partial Class frmAuditFlow_Pruefungsojekt
     Friend WithEvents txtZustaendigIntern_Mail As MyTextBox
     Friend WithEvents CheckBox1 As Windows.Forms.CheckBox
     Friend WithEvents CheckBox2 As Windows.Forms.CheckBox
+    Friend WithEvents Label4 As Windows.Forms.Label
 End Class