Kundenblatt, kundenuebersicht, etc.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb

@@ -1,4 +1,6 @@
-Public Class usrcntlCreditreformBoniAuskunft
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrcntlCreditreformBoniAuskunft
     Implements FormualrInterface
 
     Public Event CHANGED(name, value)
@@ -9,6 +11,7 @@
     Public Event LOADED()
     Public KdNR As Integer = -1
     Public SAVED As Boolean = False
+    Dim creditsafe_newView As Boolean = False
     Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
         initKdNR(kdnr)
     End Sub
@@ -86,6 +89,10 @@
         cboCRArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Wien", "Wien"))
         cboCRArt.SelectedIndex = 0
         If KdNR > 0 Then initKdNR(KdNR)
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
         RaiseEvent LOADED()
     End Sub
 
@@ -138,6 +145,8 @@
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim frmBonitätsverlauf As New frmBonitätsverlauf(KdNR, Me)
+
+        frmBonitätsverlauf.newView = creditsafe_newView
         frmBonitätsverlauf.Show()
     End Sub