SPedBuch

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -2796,12 +2796,19 @@ Public Class usrCntlSpeditionsBuchSuche
     Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
 
         Dim kdnrsrch As Integer = -1
+        Dim KUNDE
 
         If kdnrsrch < 0 Then
 
-            Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Auswertung abbrechen")
-            If IsNumeric(inputKdNr) And inputKdNr > 0 Then
+            Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Kundenauswertung generieren")
+            If inputKdNr <> "" AndAlso IsNumeric(inputKdNr) AndAlso inputKdNr > 0 Then
                 kdnrsrch = inputKdNr
+
+                KUNDE = New cKunde(kdnrsrch)
+                If KUNDE Is Nothing Then
+                    MsgBox("KundenNr " & inputKdNr & " nicht vorhanden!")
+                    Exit Sub
+                End If
             Else
                 MsgBox("KundenNr " & inputKdNr & " nicht gültig!")
                 Exit Sub
@@ -2809,7 +2816,7 @@ Public Class usrCntlSpeditionsBuchSuche
 
         End If
 
-            Dim KUNDE As New cKunde(kdnrsrch)
+
 
 
         Dim dt As DataTable = SQL.loadDgvBySql("SELECT   CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer