Creditsafe-Fix

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2887,10 +2887,19 @@ Public Class usrCntlKundenuebersicht
 
     Private Sub initCreditsave()
 
-        If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Or ADRESSE.LandKz = "NL" Then
+        If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Then
             lblBonitaet.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsScore, "")
         Else
-            lblBonitaet.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsIndex, "")
+            If KUNDE_ERW.kde_CreditSaveBonitaetsIndex IsNot Nothing And IsNumeric(KUNDE_ERW.kde_CreditSaveBonitaetsIndex) Then
+                If CDbl(KUNDE_ERW.kde_CreditSaveBonitaetsIndex) > 0 Then
+                    lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsIndex
+                Else
+                    lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsScore
+                End If
+
+            Else
+                lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsScore
+            End If
         End If
 
         If lblBonitaet.Text = "" Then

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -238,7 +238,9 @@ Public Class usrcntlFiskaluebersicht
                 fk.FK_Kdnr = kdNr
                 fk.FK_Art = cbxFiskalart._value
                 fk.SAVE()
+                dgvFiskaluebersicht.GetOrder()
                 initDGVFiskaluebersicht()
+                dgvFiskaluebersicht.SetOrder()
             Else
                 MsgBox(hint)
             End If
@@ -389,7 +391,7 @@ Public Class usrcntlFiskaluebersicht
 
     Private Sub dgvFiskaluebersicht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFiskaluebersicht.SelectionChanged
 
-
+        clearTXT()
 
         If dgvFiskaluebersicht.SelectedRows.Count > 0 Then
 
@@ -413,7 +415,7 @@ Public Class usrcntlFiskaluebersicht
         Else
 
             Button4.Enabled = False
-            clearTXT()
+            'clearTXT()
         End If
 
         'BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)