AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

NEW NUGET PACKAGE - System.Data.SQLite.Core

Browse Source
This commit is contained in:
OlgunR
2026-04-02 14:13:49 +02:00
parent 0999ba2f3d
commit a75e3642fa
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
ToolCollection/frmNIHauptseite.vb
View File

@@ -1913,11 +1913,16 @@ Public Class frmNIHauptseite
If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
_Logger.Debug("Nachbearbeitung AD ist aktiviert") _Logger.Debug("Nachbearbeitung AD ist aktiviert")
Dim sw As New ClassStopwatch("AD-Rework") Dim sw As New ClassStopwatch("AD-Rework")
Nachbearbeitung_AD(pMyWMDoc) Dim adReworkOk As Boolean = Nachbearbeitung_AD(pMyWMDoc)
Dim msg = sw.Done Dim msg = sw.Done
If msg <> "" Then If msg <> "" Then
Stopwatch1 += vbNewLine & $"{msg}" Stopwatch1 += vbNewLine & $"{msg}"
End If 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 Else
If aktivesProfil.NachbearbeitungAD = True Then If aktivesProfil.NachbearbeitungAD = True Then
_Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}") _Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}")
@@ -2359,7 +2364,9 @@ Public Class frmNIHauptseite
End If End If
i += 1 i += 1
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex)
_erfolgreich = False
Exit For
End Try End Try
Next Next