neu

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -536,12 +536,13 @@ Public Class frmKundenUebersichtZOLL
             '     End If
             '  End If
             lblBonitaet.Text = If(KUNDE.Bonität, "")
+            If lblBonitaet.Text = "0" Then lblBonitaet.Text = ""
             If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
                 lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
             Else
                 lblBonitaetsdatum.Text = ""
             End If
-
+            lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "")
 
             lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
 
@@ -2100,6 +2101,14 @@ Public Class frmKundenUebersichtZOLL
     End Sub
 
     Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
+
+        Dim f1 As New frmBonitaet(kdNr)
+        f1.ShowDialog(Me)
+
+        setKD(kdNr) 'aktualisieren
+        Exit Sub
+
+
         Dim f As New frmFormulare(kdNr)
         f.Show()
         f.addForm("Boniteatsauskunft")
@@ -2556,4 +2565,5 @@ Public Class frmKundenUebersichtZOLL
             End If
         End If
     End Sub
+
 End Class