From 2b631294e1ce0c1f3b6fdfa1a772789dc2aa4a00 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 17 Mar 2026 16:14:56 +0100
Subject: [PATCH] fix

---
 initATLASAufschubkonten/cWorker_NCTS.vb       | 8 +++++++-
 initATLASAufschubkonten/cWorker_Verwahrung.vb | 7 ++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb
index c34c1aa..9f7b4f0 100644
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -4737,7 +4737,13 @@ Public Class cWorker_NCTS
                                 Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
                                 'Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
                                 If gs_row.Item("gs_freitext") <> "" Then
-                                    anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
+
+                                    Try
+                                        anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
+                                    Catch ex As Exception
+                                        anzahlPackstuecke = -1
+                                    End Try
+
                                 End If
 
                                 If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index fac05d8..314ad50 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -772,7 +772,12 @@ Anzeige:
                                 Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
                                 Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
                                 If gs_row.Item("gs_freitext") <> "" Then
-                                    anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
+                                    Try
+                                        anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
+                                    Catch ex As Exception
+                                        anzahlPackstuecke = -1
+                                    End Try
+
                                 End If
 
                                 If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!