From b838d664fc3fa1869661dee55e5c9747607309a5 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Wed, 5 Aug 2026 13:03:21 +0200
Subject: [PATCH] Verbesserung der Dokumentfreigabe und Fehlerbehandlung
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Die Freigabe von Dokumenten wurde zentralisiert, indem
`PRTF_PROFILE_FILES_WORK("FreeFile")` an mehreren Stellen
hinzugefügt wurde. Dies stellt sicher, dass Ressourcen
konsistent freigegeben werden, insbesondere vor dem
Schließen des Formulars oder bei Fehlern.

Die SQL-Logik für das Löschen von Einträgen in
`TBPM_DOCWALKOVER` wurde vereinfacht, und redundante
SQL-Aufrufe wurden entfernt. Die Funktion
`PRTF_PROFILE_FILES_WORK` wurde robuster gestaltet, indem
sie nur bei gültigen Dokument-IDs eine Abfrage ausführt.

Ein Fix wurde implementiert, um Grid-Events sofort zu
deregistrieren und potenzielle Zugriffe auf freigegebene
UI-Objekte zu verhindern. Zusätzlich wurden nicht mehr
benötigte Codezeilen entfernt, um die Lesbarkeit und
Wartbarkeit zu verbessern.
---
 app/TaskFlow/frmValidator.vb | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb
index 5005b52..8372ad6 100644
--- a/app/TaskFlow/frmValidator.vb
+++ b/app/TaskFlow/frmValidator.vb
@@ -720,6 +720,11 @@ Public Class frmValidator
         _isClosingGuard = True
         _FormClosing = True
 
+        ' KRITISCH: Dokument freigeben bevor Form schließt
+        If Current_Document IsNot Nothing Then
+            PRTF_PROFILE_FILES_WORK("FreeFile")
+        End If
+
         ' ===== FIX: Grid-Events SOFORT deregistrieren =====
         ' Der GridControl-Lambda läuft noch asynchron weiter und greift sonst
         ' nach DocumentViewer.Done() auf bereits freigegebene UI-Objekte zu.
@@ -808,13 +813,7 @@ Public Class frmValidator
 
             Try
                 Dim oSQL As String
-                If CURRENT_DOC_GUID <> 0 Then
-                    Dim oPRoc = String.Format("EXEC PRTF_PROFILE_FILES_WORK {0},{1},{2},'FreeFile';", CURRENT_DOC_ID, CURRENT_ProfilGUID, USER_ID)
-                    oSQL = $"DELETE FROM TBPM_DOCWALKOVER WHERE UserID = {USER_ID};" & vbCrLf & oPRoc
-                Else
-                    oSQL = $"DELETE FROM TBPM_DOCWALKOVER WHERE UserID = {USER_ID};"
-                End If
-
+                oSQL = $"DELETE FROM TBPM_DOCWALKOVER WHERE UserID = {USER_ID};"
                 DatabaseFallback.ExecuteNonQueryECM(oSQL)
             Catch ex As Exception
                 MyValidationLogger.Error(ex)
@@ -4388,7 +4387,7 @@ Public Class frmValidator
             MyValidationLogger.Error(ex)
             errormessage = "unexpected error in Load_Next_Document:" & ex.Message
             My.Settings.Save()
-
+            PRTF_PROFILE_FILES_WORK("FreeFile")
             MyValidationLogger.Info("unexpected error in Load_Next_Document: " & ex.Message)
 
             frmError.ShowDialog()
@@ -8049,9 +8048,8 @@ Public Class frmValidator
 
         Try
             MyValidationLogger.Debug("Skipping document....(Datei_ueberspringen)")
-            Dim oPRoc = String.Format("EXEC PRTF_PROFILE_FILES_WORK {0},{1},{2},{3}", CURRENT_DOC_ID, CURRENT_ProfilGUID, USER_ID, "FreeFile")
-            Dim oSQL = oPRoc & vbCrLf &
-                   $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{DocPathWindows}',{CURRENT_DOC_GUID};"
+            PRTF_PROFILE_FILES_WORK("FreeFile")
+            Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{DocPathWindows}',{CURRENT_DOC_GUID};"
             If LOG_HOTSPOTS Then
                 ' ========== DIAGNOSE: Vor DB-Execute ==========
                 MyValidationLogger.Info($"[INFO] Führe DB-UPDATE aus...")
@@ -8104,8 +8102,13 @@ Public Class frmValidator
     End Sub
     Private Function PRTF_PROFILE_FILES_WORK(ByVal pMode As String) As Boolean
         Try
-            Dim sql = $"EXEC PRTF_PROFILE_FILES_WORK {CURRENT_DOC_ID},{CURRENT_ProfilGUID},{USER_ID},'{pMode}'"
-            Return DatabaseFallback.ExecuteNonQueryECM(sql)
+            If CURRENT_DOC_ID <> 0 Then
+                Dim sql = $"EXEC PRTF_PROFILE_FILES_WORK {CURRENT_DOC_ID},{CURRENT_ProfilGUID},{USER_ID},'{pMode}'"
+                Return DatabaseFallback.ExecuteNonQueryECM(sql)
+            Else
+                Return False
+            End If
+
         Catch ex As Exception
             MyValidationLogger.Error(ex)
             Return False
@@ -8444,11 +8447,8 @@ Public Class frmValidator
                 ' ========== ENDE DIAGNOSE ==========
             End If
 
-
-
             Datei_ueberspringen()
 
-
             If LOG_HOTSPOTS Then
                 MyValidationLogger.Info($"[PERF] Nach Datei_ueberspringen: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
                 ' ========== DIAGNOSE: Nach Datei_ueberspringen ==========
@@ -8710,6 +8710,7 @@ Public Class frmValidator
                     oNoError = IDBData.SetVariableValue(PROFIL_REJECT_COMMENT_ATTRIBUTE, frmRejCommit.pRejection_Comment)
                 End If
             End If
+            PRTF_PROFILE_FILES_WORK("FreeFile")
             If oNoError Then
                 REJECTION_ACTIVE = True
                 If Check_UpdateIndexe() = True Then
@@ -8789,7 +8790,7 @@ Public Class frmValidator
             '        End If
             '    End If
             'Next
-
+            PRTF_PROFILE_FILES_WORK("FreeFile")
 
             If IDB_ACTIVE = False Then
                 Indexiere_File(CURRENT_WMFILE, PROFIL_NOT_RESP_COMMENT_ATTR, frmDialog.oComment)