Bonitaeten: Auswahl von Pruefungstool

SDL/kunden/frmBonitaet.Designer.vb

@@ -23,50 +23,28 @@ Partial Class frmBonitaet
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBonitaet))
-        Me.txtBonitaetsindex = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnStandardPreiseLaden = New System.Windows.Forms.Button()
-        Me.txtCRDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.cboRisikostufe = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.txtGruendungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtGruendungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboRisikostufe = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtBonitaetsindex = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCRDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboTool = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SuspendLayout()
         '
-        'txtBonitaetsindex
-        '
-        Me.txtBonitaetsindex._DateTimeOnly = False
-        Me.txtBonitaetsindex._numbersOnly = True
-        Me.txtBonitaetsindex._numbersOnlyKommastellen = ""
-        Me.txtBonitaetsindex._Prozent = False
-        Me.txtBonitaetsindex._ShortDateNew = False
-        Me.txtBonitaetsindex._ShortDateOnly = False
-        Me.txtBonitaetsindex._TimeOnly = False
-        Me.txtBonitaetsindex._value = ""
-        Me.txtBonitaetsindex._Waehrung = False
-        Me.txtBonitaetsindex._WaehrungZeichen = True
-        Me.txtBonitaetsindex.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBonitaetsindex.ForeColor = System.Drawing.Color.Black
-        Me.txtBonitaetsindex.Location = New System.Drawing.Point(107, 32)
-        Me.txtBonitaetsindex.MaxLength = 10
-        Me.txtBonitaetsindex.MaxLineLength = -1
-        Me.txtBonitaetsindex.MaxLines_Warning = ""
-        Me.txtBonitaetsindex.MaxLines_Warning_Label = Nothing
-        Me.txtBonitaetsindex.Name = "txtBonitaetsindex"
-        Me.txtBonitaetsindex.Size = New System.Drawing.Size(129, 26)
-        Me.txtBonitaetsindex.TabIndex = 3
-        Me.txtBonitaetsindex.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(14, 40)
+        Me.Label3.Location = New System.Drawing.Point(14, 68)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(87, 13)
         Me.Label3.TabIndex = 2
@@ -75,7 +53,7 @@ Partial Class frmBonitaet
         'Button1
         '
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(17, 212)
+        Me.Button1.Location = New System.Drawing.Point(17, 240)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(219, 23)
         Me.Button1.TabIndex = 12
@@ -85,27 +63,171 @@ Partial Class frmBonitaet
         'btnStandardPreiseLaden
         '
         Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(17, 167)
+        Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(17, 195)
         Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden"
         Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(219, 43)
         Me.btnStandardPreiseLaden.TabIndex = 11
         Me.btnStandardPreiseLaden.Text = "Speichern"
         Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True
         '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(14, 37)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(67, 13)
+        Me.Label10.TabIndex = 0
+        Me.Label10.Text = "Abfrage, am:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(14, 113)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Risikoklasse:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(104, 89)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(28, 13)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "oder"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(14, 142)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(70, 13)
+        Me.Label12.TabIndex = 7
+        Me.Label12.Text = "Höchstkredit:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(14, 168)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(91, 13)
+        Me.Label4.TabIndex = 9
+        Me.Label4.Text = "Gründungsdatum:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(14, 10)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(82, 13)
+        Me.Label5.TabIndex = 13
+        Me.Label5.Text = "Prüfungstool:"
+        '
+        'txtGruendungsdatum
+        '
+        Me.txtGruendungsdatum._DateTimeOnly = False
+        Me.txtGruendungsdatum._numbersOnly = False
+        Me.txtGruendungsdatum._numbersOnlyKommastellen = ""
+        Me.txtGruendungsdatum._numbersOnlyTrennzeichen = True
+        Me.txtGruendungsdatum._Prozent = False
+        Me.txtGruendungsdatum._ShortDateNew = True
+        Me.txtGruendungsdatum._ShortDateOnly = False
+        Me.txtGruendungsdatum._TimeOnly = False
+        Me.txtGruendungsdatum._TimeOnly_Seconds = False
+        Me.txtGruendungsdatum._value = ""
+        Me.txtGruendungsdatum._Waehrung = False
+        Me.txtGruendungsdatum._WaehrungZeichen = True
+        Me.txtGruendungsdatum.ForeColor = System.Drawing.Color.Black
+        Me.txtGruendungsdatum.Location = New System.Drawing.Point(107, 165)
+        Me.txtGruendungsdatum.MaxLength = 10
+        Me.txtGruendungsdatum.MaxLineLength = -1
+        Me.txtGruendungsdatum.MaxLines_Warning = ""
+        Me.txtGruendungsdatum.MaxLines_Warning_Label = Nothing
+        Me.txtGruendungsdatum.Name = "txtGruendungsdatum"
+        Me.txtGruendungsdatum.Size = New System.Drawing.Size(129, 20)
+        Me.txtGruendungsdatum.TabIndex = 10
+        Me.txtGruendungsdatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtHoechstkredit
+        '
+        Me.txtHoechstkredit._DateTimeOnly = False
+        Me.txtHoechstkredit._numbersOnly = False
+        Me.txtHoechstkredit._numbersOnlyKommastellen = ""
+        Me.txtHoechstkredit._numbersOnlyTrennzeichen = True
+        Me.txtHoechstkredit._Prozent = False
+        Me.txtHoechstkredit._ShortDateNew = False
+        Me.txtHoechstkredit._ShortDateOnly = False
+        Me.txtHoechstkredit._TimeOnly = False
+        Me.txtHoechstkredit._TimeOnly_Seconds = False
+        Me.txtHoechstkredit._value = Nothing
+        Me.txtHoechstkredit._Waehrung = True
+        Me.txtHoechstkredit._WaehrungZeichen = True
+        Me.txtHoechstkredit.ForeColor = System.Drawing.Color.Black
+        Me.txtHoechstkredit.Location = New System.Drawing.Point(107, 139)
+        Me.txtHoechstkredit.MaxLineLength = -1
+        Me.txtHoechstkredit.MaxLines_Warning = ""
+        Me.txtHoechstkredit.MaxLines_Warning_Label = Nothing
+        Me.txtHoechstkredit.Name = "txtHoechstkredit"
+        Me.txtHoechstkredit.Size = New System.Drawing.Size(129, 20)
+        Me.txtHoechstkredit.TabIndex = 8
+        '
+        'cboRisikostufe
+        '
+        Me.cboRisikostufe._allowedValuesFreiText = Nothing
+        Me.cboRisikostufe._allowFreiText = False
+        Me.cboRisikostufe._value = ""
+        Me.cboRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.cboRisikostufe.FormattingEnabled = True
+        Me.cboRisikostufe.Location = New System.Drawing.Point(107, 105)
+        Me.cboRisikostufe.Name = "cboRisikostufe"
+        Me.cboRisikostufe.Size = New System.Drawing.Size(129, 28)
+        Me.cboRisikostufe.TabIndex = 6
+        '
+        'txtBonitaetsindex
+        '
+        Me.txtBonitaetsindex._DateTimeOnly = False
+        Me.txtBonitaetsindex._numbersOnly = True
+        Me.txtBonitaetsindex._numbersOnlyKommastellen = ""
+        Me.txtBonitaetsindex._numbersOnlyTrennzeichen = True
+        Me.txtBonitaetsindex._Prozent = False
+        Me.txtBonitaetsindex._ShortDateNew = False
+        Me.txtBonitaetsindex._ShortDateOnly = False
+        Me.txtBonitaetsindex._TimeOnly = False
+        Me.txtBonitaetsindex._TimeOnly_Seconds = False
+        Me.txtBonitaetsindex._value = ""
+        Me.txtBonitaetsindex._Waehrung = False
+        Me.txtBonitaetsindex._WaehrungZeichen = True
+        Me.txtBonitaetsindex.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBonitaetsindex.ForeColor = System.Drawing.Color.Black
+        Me.txtBonitaetsindex.Location = New System.Drawing.Point(107, 60)
+        Me.txtBonitaetsindex.MaxLength = 10
+        Me.txtBonitaetsindex.MaxLineLength = -1
+        Me.txtBonitaetsindex.MaxLines_Warning = ""
+        Me.txtBonitaetsindex.MaxLines_Warning_Label = Nothing
+        Me.txtBonitaetsindex.Name = "txtBonitaetsindex"
+        Me.txtBonitaetsindex.Size = New System.Drawing.Size(129, 26)
+        Me.txtBonitaetsindex.TabIndex = 3
+        Me.txtBonitaetsindex.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'txtCRDatum
         '
         Me.txtCRDatum._DateTimeOnly = False
         Me.txtCRDatum._numbersOnly = False
         Me.txtCRDatum._numbersOnlyKommastellen = ""
+        Me.txtCRDatum._numbersOnlyTrennzeichen = True
         Me.txtCRDatum._Prozent = False
         Me.txtCRDatum._ShortDateNew = True
         Me.txtCRDatum._ShortDateOnly = False
         Me.txtCRDatum._TimeOnly = False
+        Me.txtCRDatum._TimeOnly_Seconds = False
         Me.txtCRDatum._value = ""
         Me.txtCRDatum._Waehrung = False
         Me.txtCRDatum._WaehrungZeichen = True
         Me.txtCRDatum.ForeColor = System.Drawing.Color.Black
-        Me.txtCRDatum.Location = New System.Drawing.Point(107, 6)
+        Me.txtCRDatum.Location = New System.Drawing.Point(107, 34)
         Me.txtCRDatum.MaxLength = 10
         Me.txtCRDatum.MaxLineLength = -1
         Me.txtCRDatum.MaxLines_Warning = ""
@@ -116,114 +238,25 @@ Partial Class frmBonitaet
         Me.txtCRDatum.TabIndex = 1
         Me.txtCRDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label10
+        'cboTool
         '
-        Me.Label10.AutoSize = True
+        Me.cboTool._allowedValuesFreiText = Nothing
-        Me.Label10.Location = New System.Drawing.Point(14, 9)
+        Me.cboTool._allowFreiText = False
-        Me.Label10.Name = "Label10"
+        Me.cboTool._value = ""
-        Me.Label10.Size = New System.Drawing.Size(67, 13)
+        Me.cboTool.FormattingEnabled = True
-        Me.Label10.TabIndex = 0
+        Me.cboTool.Location = New System.Drawing.Point(107, 7)
-        Me.Label10.Text = "Abfrage, am:"
+        Me.cboTool.Name = "cboTool"
-        '
+        Me.cboTool.Size = New System.Drawing.Size(129, 21)
-        'Label1
+        Me.cboTool.TabIndex = 15
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(14, 85)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
-        Me.Label1.TabIndex = 5
-        Me.Label1.Text = "Risikoklasse:"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(104, 61)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(28, 13)
-        Me.Label2.TabIndex = 4
-        Me.Label2.Text = "oder"
-        '
-        'cboRisikostufe
-        '
-        Me.cboRisikostufe._allowedValuesFreiText = Nothing
-        Me.cboRisikostufe._allowFreiText = False
-        Me.cboRisikostufe._value = ""
-        Me.cboRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.cboRisikostufe.FormattingEnabled = True
-        Me.cboRisikostufe.Location = New System.Drawing.Point(107, 77)
-        Me.cboRisikostufe.Name = "cboRisikostufe"
-        Me.cboRisikostufe.Size = New System.Drawing.Size(129, 28)
-        Me.cboRisikostufe.TabIndex = 6
-        '
-        'txtHoechstkredit
-        '
-        Me.txtHoechstkredit._DateTimeOnly = False
-        Me.txtHoechstkredit._numbersOnly = False
-        Me.txtHoechstkredit._numbersOnlyKommastellen = ""
-        Me.txtHoechstkredit._Prozent = False
-        Me.txtHoechstkredit._ShortDateNew = False
-        Me.txtHoechstkredit._ShortDateOnly = False
-        Me.txtHoechstkredit._TimeOnly = False
-        Me.txtHoechstkredit._value = Nothing
-        Me.txtHoechstkredit._Waehrung = True
-        Me.txtHoechstkredit._WaehrungZeichen = True
-        Me.txtHoechstkredit.ForeColor = System.Drawing.Color.Black
-        Me.txtHoechstkredit.Location = New System.Drawing.Point(107, 111)
-        Me.txtHoechstkredit.MaxLineLength = -1
-        Me.txtHoechstkredit.MaxLines_Warning = ""
-        Me.txtHoechstkredit.MaxLines_Warning_Label = Nothing
-        Me.txtHoechstkredit.Name = "txtHoechstkredit"
-        Me.txtHoechstkredit.Size = New System.Drawing.Size(129, 20)
-        Me.txtHoechstkredit.TabIndex = 8
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(14, 114)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(70, 13)
-        Me.Label12.TabIndex = 7
-        Me.Label12.Text = "Höchstkredit:"
-        '
-        'txtGruendungsdatum
-        '
-        Me.txtGruendungsdatum._DateTimeOnly = False
-        Me.txtGruendungsdatum._numbersOnly = False
-        Me.txtGruendungsdatum._numbersOnlyKommastellen = ""
-        Me.txtGruendungsdatum._Prozent = False
-        Me.txtGruendungsdatum._ShortDateNew = True
-        Me.txtGruendungsdatum._ShortDateOnly = False
-        Me.txtGruendungsdatum._TimeOnly = False
-        Me.txtGruendungsdatum._value = ""
-        Me.txtGruendungsdatum._Waehrung = False
-        Me.txtGruendungsdatum._WaehrungZeichen = True
-        Me.txtGruendungsdatum.ForeColor = System.Drawing.Color.Black
-        Me.txtGruendungsdatum.Location = New System.Drawing.Point(107, 137)
-        Me.txtGruendungsdatum.MaxLength = 10
-        Me.txtGruendungsdatum.MaxLineLength = -1
-        Me.txtGruendungsdatum.MaxLines_Warning = ""
-        Me.txtGruendungsdatum.MaxLines_Warning_Label = Nothing
-        Me.txtGruendungsdatum.Name = "txtGruendungsdatum"
-        Me.txtGruendungsdatum.Size = New System.Drawing.Size(129, 20)
-        Me.txtGruendungsdatum.TabIndex = 10
-        Me.txtGruendungsdatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(14, 140)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(91, 13)
-        Me.Label4.TabIndex = 9
-        Me.Label4.Text = "Gründungsdatum:"
         '
         'frmBonitaet
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(253, 247)
+        Me.ClientSize = New System.Drawing.Size(253, 272)
+        Me.Controls.Add(Me.cboTool)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.txtGruendungsdatum)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.txtHoechstkredit)
@@ -259,4 +292,6 @@ Partial Class frmBonitaet
     Friend WithEvents Label12 As Label
     Friend WithEvents txtGruendungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cboTool As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/kunden/frmBonitaet.vb

@@ -33,6 +33,7 @@
 
             cBonitaetsauskunft.ba_BonitaetsIndex = If(IsNumeric(txtBonitaetsindex.Text), txtBonitaetsindex.Text, 0)
             cBonitaetsauskunft.ba_Risikostufe = If(IsNumeric(cboRisikostufe._value), cboRisikostufe._value, Nothing)
+            cBonitaetsauskunft.ba_Pruefungstool = cboTool._value
 
             cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
             cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -59,6 +60,11 @@
     End Sub
 
     Private Sub frmBonitaet_Load(sender As Object, e As EventArgs) Handles Me.Load
+        cboTool.Items.Clear()
+        cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe", "creditsafe"))
+        cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Creditreform", "creditreform"))
+        cboTool.changeItem("CreditSafe")
+
         txtCRDatum._value = Now
         cboRisikostufe.Items.Clear()
         cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -69,5 +75,8 @@
         cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5", 5))
         cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6", 6))
         cboRisikostufe.changeItem("")
+
     End Sub
+
+
 End Class

SDL/kunden/frmBonitätsverlauf.Designer.vb

@@ -54,7 +54,7 @@ Partial Class frmBonitätsverlauf
         'btnExcel
         '
         Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
+        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
         Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnExcel.Location = New System.Drawing.Point(729, 5)
@@ -66,7 +66,7 @@ Partial Class frmBonitätsverlauf
         'FlatButton7
         '
         Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
+        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
         Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -80,24 +80,29 @@ Partial Class frmBonitätsverlauf
         '
         'KdSearchBox1
         '
+        Me.KdSearchBox1._AlleFirmenCLUSTER = False
         Me.KdSearchBox1._AllowSetValue = False
         Me.KdSearchBox1._autoSizeGross = False
+        Me.KdSearchBox1._display_Name1 = False
         Me.KdSearchBox1._displayAVISO_Email = False
         Me.KdSearchBox1._displayFullName = False
         Me.KdSearchBox1._displayWoelflKd = False
         Me.KdSearchBox1._hideIfListEmpty = True
         Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._UseFIRMA = ""
         Me.KdSearchBox1._ValueKdAndName = True
         Me.KdSearchBox1.dgvpos = "LEFT"
         Me.KdSearchBox1.KdName = Nothing
         Me.KdSearchBox1.KdNr = "-1"
         Me.KdSearchBox1.kdNrField = Nothing
+        Me.KdSearchBox1.KdNrNullInt = Nothing
         Me.KdSearchBox1.Location = New System.Drawing.Point(54, 29)
         Me.KdSearchBox1.Name = "KdSearchBox1"
         Me.KdSearchBox1.nurAktive = True
         Me.KdSearchBox1.searchActive = True
         Me.KdSearchBox1.Size = New System.Drawing.Size(554, 20)
         Me.KdSearchBox1.TabIndex = 1
+        Me.KdSearchBox1.TIMER_SEARCH = True
         Me.KdSearchBox1.usrcntl = Nothing
         '
         'Label2

SDL/kunden/frmBonitätsverlauf.vb

@@ -111,4 +111,5 @@
 
         End If
     End Sub
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb

@@ -25,6 +25,8 @@ Public Class cBonitaetsauskunft
     Property ba_GFName As Object = Nothing
     Property ba_Sonstiges As Object = Nothing
     Property ba_Risikostufe As Object = Nothing
+    Property ba_Pruefungstool As Object = Nothing
+
 
     Dim SQL As New SQL
 
@@ -60,6 +62,7 @@ Public Class cBonitaetsauskunft
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GFName", ba_GFName))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sonstiges", ba_Sonstiges))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Risikostufe", ba_Risikostufe))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Pruefungstool", ba_Pruefungstool))
 
         Return list
     End Function