Bonitaeten: Auswahl von Pruefungstool

2022-11-14 13:48:58 +01:00
parent 359e125488
commit b1eb10f8ea
5 changed files with 189 additions and 136 deletions
--- a/SDL/kunden/frmBonitaet.Designer.vb
+++ b/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.Label10.Location = New System.Drawing.Point(14, 9)
-        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, 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:"
+        Me.cboTool._allowedValuesFreiText = Nothing
+        Me.cboTool._allowFreiText = False
+        Me.cboTool._value = ""
+        Me.cboTool.FormattingEnabled = True
+        Me.cboTool.Location = New System.Drawing.Point(107, 7)
+        Me.cboTool.Name = "cboTool"
+        Me.cboTool.Size = New System.Drawing.Size(129, 21)
+        Me.cboTool.TabIndex = 15
        '
        '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
--- a/SDL/kunden/frmBonitaet.vb
+++ b/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
--- a/SDL/kunden/frmBonitätsverlauf.Designer.vb
+++ b/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
--- a/SDL/kunden/frmBonitätsverlauf.vb
+++ b/SDL/kunden/frmBonitätsverlauf.vb
@@ -111,4 +111,5 @@

        End If
    End Sub
+
 End Class