From b1eb10f8ea1c6a5ce6d8c20d75638ea803d643ae Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 14 Nov 2022 13:48:58 +0100 Subject: [PATCH] Bonitaeten: Auswahl von Pruefungstool --- SDL/kunden/frmBonitaet.Designer.vb | 303 ++++++++++-------- SDL/kunden/frmBonitaet.vb | 9 + SDL/kunden/frmBonitätsverlauf.Designer.vb | 9 +- SDL/kunden/frmBonitätsverlauf.vb | 1 + .../Classes/cBonitaetsauskunft.vb | 3 + 5 files changed, 189 insertions(+), 136 deletions(-) diff --git a/SDL/kunden/frmBonitaet.Designer.vb b/SDL/kunden/frmBonitaet.Designer.vb index e51720c9..868361b7 100644 --- a/SDL/kunden/frmBonitaet.Designer.vb +++ b/SDL/kunden/frmBonitaet.Designer.vb @@ -23,50 +23,28 @@ Partial Class frmBonitaet _ 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 diff --git a/SDL/kunden/frmBonitaet.vb b/SDL/kunden/frmBonitaet.vb index 1cbe3a7a..74ee0f85 100644 --- 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 \ No newline at end of file diff --git a/SDL/kunden/frmBonitätsverlauf.Designer.vb b/SDL/kunden/frmBonitätsverlauf.Designer.vb index 86ba1949..febf424e 100644 --- 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 diff --git a/SDL/kunden/frmBonitätsverlauf.vb b/SDL/kunden/frmBonitätsverlauf.vb index 1eb27676..de7951a9 100644 --- a/SDL/kunden/frmBonitätsverlauf.vb +++ b/SDL/kunden/frmBonitätsverlauf.vb @@ -111,4 +111,5 @@ End If End Sub + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb index 2614fce6..d989b048 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb +++ b/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