From a75e3642fab3ce3054c51fa9ccb7fc43baa962ee Mon Sep 17 00:00:00 2001
From: OlgunR <OlgunR@DD-PC-ENT05N>
Date: Thu, 2 Apr 2026 14:13:49 +0200
Subject: [PATCH] NEW NUGET PACKAGE - System.Data.SQLite.Core

---
 ToolCollection/frmNIHauptseite.vb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb
index 31e405c..aeaae59 100644
--- a/ToolCollection/frmNIHauptseite.vb
+++ b/ToolCollection/frmNIHauptseite.vb
@@ -1913,11 +1913,16 @@ Public Class frmNIHauptseite
             If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
                 _Logger.Debug("Nachbearbeitung AD ist aktiviert")
                 Dim sw As New ClassStopwatch("AD-Rework")
-                Nachbearbeitung_AD(pMyWMDoc)
+                Dim adReworkOk As Boolean = Nachbearbeitung_AD(pMyWMDoc)
                 Dim msg = sw.Done
                 If msg <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg}"
                 End If
+                If adReworkOk = False Then
+                    _Logger.Warn($"## Nachbearbeitung AD für [{pMyWMDoc.aName}] fehlgeschlagen - Error-Index wird gesetzt")
+                    File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexValidation)
+                    SetErrorMeldung("Rechtevergabe fehlgeschlagen", pMyWMDoc, aktivesProfil.IndexFehler)
+                End If
             Else
                 If aktivesProfil.NachbearbeitungAD = True Then
                     _Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}")
@@ -2359,7 +2364,9 @@ Public Class frmNIHauptseite
                             End If
                             i += 1
                         Catch ex As Exception
-
+                            _Logger.Error(ex)
+                            _erfolgreich = False
+                            Exit For
                         End Try
 
                     Next