neu

DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb

@@ -84,7 +84,20 @@ Public Class cDakosy_Zollanmeldungen
             Dim split = Me.dy_BezugsNr.Split("/")
             If split.Length >= 2 Then
                 srchStrFiliale = split(0)
-                srchStrAbf = split(1)
+
+                'Wenn Abfertigungsnummer korrekt gefunden wurde...
+                If IsNumeric(split(1)) Then
+                    srchStrAbf = split(1)
+                Else
+                    Dim tmp = ""
+                    'Bis zum ersten Buchstaben...
+                    For Each s In split(1)
+                        If IsNumeric(s) Then : tmp &= s
+                        Else : Exit For : End If
+                    Next
+                    srchStrAbf = tmp
+                End If
+
                 ' ElseIf  Then
                 '      srchStrAbf = split(X)
             Else