fix

2026-03-17 16:14:56 +01:00
parent 82e54fcef2
commit 2b631294e1
2 changed files with 13 additions and 2 deletions
--- 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!