Kundenblatt, kundenuebersicht, etc.

SDL/kunden/frmKundenblatt.vb

@@ -45,6 +45,7 @@ Public Class frmKundenblatt
     Private WithEvents timShow As New Timer With {.Interval = 10}
     Private WithEvents timHide As New Timer With {.Interval = 10}
     Dim isVerag360 As Boolean = False
+    Dim creditsafe_newView As Boolean = False
 
     Sub New()
 
@@ -122,6 +123,10 @@ Public Class frmKundenblatt
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
             btnBonitaetBearbeiten.Visible = True
         End If
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
         'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
         Me.KeyPreview = True
         pnlInfo.Height = 0
@@ -2188,6 +2193,7 @@ Public Class frmKundenblatt
     Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
 
         Dim f As New frmBonitätsverlauf(kdNr)
+        f.newView = creditsafe_newView
         f.Show()
         AddHandler f.FormClosed, Sub()
                                      KdSearchBox1.KdNr = kdNr