Bonitätsprüfung beim Creditreform -> Fehlerkorrektur

SDL/kunden/frmBonitaet.vb

@@ -211,61 +211,89 @@ Public Class frmBonitaet
             Return False
         End If
 
+        If txtBonitaetsindex.Text <> "" Then
+            If Not IsNumeric(txtBonitaetsindex.Text) Then
+                lblWarning.Text = "eingetragener Bonitätsindex ist kein Zahlenwert!"
+                Return False
+            End If
+
+        End If
+
+
 
         Select Case ADRESSE.LandKz.ToString
 
             Case "AT", "A"
+                If txtBonitaetsindex.Text <> "" Then
                     If (CInt(txtBonitaetsindex.Text) < 100 Or CInt(txtBonitaetsindex.Text) > 700) And cboTool._value = "creditsafe AT" Then
                         lblWarning.Text = "B-Score muss zwischen 100 und 700 liegen"
                         Return False
                     End If
+                End If
+
 
                 If cboTool._value = "creditsafe" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte AT auswählen"
                     Return False
                 End If
 
-
+                If txtBonitaetsindex.Text <> "" Then
                     If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
                         lblWarning.Text = "B-Index muss größer als 10 sein"
                         Return False
                     End If
+                End If
+
+
+
 
 
 
 
             Case "DE", "D"
+                If txtBonitaetsindex.Text <> "" Then
                     If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 6.0) And cboTool._value = "creditsafe" Then
                         lblWarning.Text = "B-Index muss zwischen 1.0 und 6.0 liegen"
                         Return False
                     End If
+                End If
+
 
                 If cboTool._value = "creditsafe AT" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
                     Return False
                 End If
 
+                If txtBonitaetsindex.Text <> "" Then
                     If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
                         lblWarning.Text = "B-Index muss größer als 10 sein"
                         Return False
                     End If
+                End If
+
 
 
             Case Else
+                If txtBonitaetsindex.Text <> "" Then
                     If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 1000.0) And cboTool._value = "creditsafe" Then
                         lblWarning.Text = "B-Index muss zwischen 1.0 und 1000.0 liegen"
                         Return False
                     End If
+                End If
+
 
                 If cboTool._value = "creditsafe AT" Then
                     lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
                     Return False
                 End If
 
+                If txtBonitaetsindex.Text <> "" Then
                     If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
                         lblWarning.Text = "B-Index muss größer als 10 sein"
                         Return False
                     End If
+                End If
+
 
 
         End Select

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2792,6 +2792,7 @@ Public Class usrCntlKundenuebersicht
         End If
 
         initCreditsave()
+        setKD(kdNr)
         Cursor = Cursors.Default
 
     End Sub