From dc1f5281fc512a948f4065bc31968b101db2d090 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 16 Dec 2022 16:49:36 +0100 Subject: [PATCH] =?UTF-8?q?GUI=20=C3=84nderungen=20Bonit=C3=A4ten,=20Credi?= =?UTF-8?q?tsafeausnahme=20f=C3=BCr=20Unisped?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/frmBonitaet.Designer.vb | 20 +++++++++--------- SDL/kunden/frmBonitaet.vb | 3 +++ SDL/kunden/usrCntlKundenuebersicht.vb | 29 ++++++++++++++++++++------- 3 files changed, 35 insertions(+), 17 deletions(-) diff --git a/SDL/kunden/frmBonitaet.Designer.vb b/SDL/kunden/frmBonitaet.Designer.vb index a5fda4ab..3f58e172 100644 --- a/SDL/kunden/frmBonitaet.Designer.vb +++ b/SDL/kunden/frmBonitaet.Designer.vb @@ -47,7 +47,7 @@ Partial Class frmBonitaet ' Me.lblBonitätsindex.AutoSize = True Me.lblBonitätsindex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitätsindex.Location = New System.Drawing.Point(14, 75) + Me.lblBonitätsindex.Location = New System.Drawing.Point(14, 79) Me.lblBonitätsindex.Name = "lblBonitätsindex" Me.lblBonitätsindex.Size = New System.Drawing.Size(87, 13) Me.lblBonitätsindex.TabIndex = 2 @@ -86,7 +86,7 @@ Partial Class frmBonitaet ' 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, 118) + Me.Label1.Location = New System.Drawing.Point(14, 120) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(82, 13) Me.Label1.TabIndex = 5 @@ -95,7 +95,7 @@ Partial Class frmBonitaet 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(104, 95) + Me.Label2.Location = New System.Drawing.Point(154, 97) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(28, 13) Me.Label2.TabIndex = 4 @@ -104,7 +104,7 @@ Partial Class frmBonitaet 'Label12 ' Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(14, 147) + Me.Label12.Location = New System.Drawing.Point(14, 149) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(70, 13) Me.Label12.TabIndex = 7 @@ -113,7 +113,7 @@ Partial Class frmBonitaet 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(14, 173) + Me.Label4.Location = New System.Drawing.Point(14, 175) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(91, 13) Me.Label4.TabIndex = 9 @@ -155,7 +155,7 @@ Partial Class frmBonitaet Me.txtGruendungsdatum._Waehrung = False Me.txtGruendungsdatum._WaehrungZeichen = True Me.txtGruendungsdatum.ForeColor = System.Drawing.Color.Black - Me.txtGruendungsdatum.Location = New System.Drawing.Point(107, 170) + Me.txtGruendungsdatum.Location = New System.Drawing.Point(107, 172) Me.txtGruendungsdatum.MaxLength = 10 Me.txtGruendungsdatum.MaxLineLength = -1 Me.txtGruendungsdatum.MaxLines_Warning = "" @@ -180,7 +180,7 @@ Partial Class frmBonitaet Me.txtHoechstkredit._Waehrung = True Me.txtHoechstkredit._WaehrungZeichen = True Me.txtHoechstkredit.ForeColor = System.Drawing.Color.Black - Me.txtHoechstkredit.Location = New System.Drawing.Point(107, 144) + Me.txtHoechstkredit.Location = New System.Drawing.Point(107, 146) Me.txtHoechstkredit.MaxLineLength = -1 Me.txtHoechstkredit.MaxLines_Warning = "" Me.txtHoechstkredit.MaxLines_Warning_Label = Nothing @@ -195,7 +195,7 @@ Partial Class frmBonitaet 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, 110) + Me.cboRisikostufe.Location = New System.Drawing.Point(107, 112) Me.cboRisikostufe.Name = "cboRisikostufe" Me.cboRisikostufe.Size = New System.Drawing.Size(129, 28) Me.cboRisikostufe.TabIndex = 6 @@ -216,7 +216,7 @@ Partial Class frmBonitaet 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, 67) + Me.txtBonitaetsindex.Location = New System.Drawing.Point(107, 71) Me.txtBonitaetsindex.MaxLength = 10 Me.txtBonitaetsindex.MaxLineLength = -1 Me.txtBonitaetsindex.MaxLines_Warning = "" @@ -274,7 +274,7 @@ Partial Class frmBonitaet ' Me.lblWarning2.AutoSize = True Me.lblWarning2.ForeColor = System.Drawing.Color.Red - Me.lblWarning2.Location = New System.Drawing.Point(14, 95) + Me.lblWarning2.Location = New System.Drawing.Point(14, 97) Me.lblWarning2.Name = "lblWarning2" Me.lblWarning2.Size = New System.Drawing.Size(0, 13) Me.lblWarning2.TabIndex = 18 diff --git a/SDL/kunden/frmBonitaet.vb b/SDL/kunden/frmBonitaet.vb index 960c45b3..9d4203b0 100644 --- a/SDL/kunden/frmBonitaet.vb +++ b/SDL/kunden/frmBonitaet.vb @@ -107,6 +107,9 @@ Public Class frmBonitaet 'Case "IMEX" : cboTool.changeItem("CreditSafe") + Case "UNISPED" : cboTool.changeItem("Creditreform") + + Case Else : If Now.ToShortDateString >= DateTime.Parse("01/12/2022") Then If ADRESSE.LandKz = "A" Or ADRESSE.LandKz = "AT" Then cboTool.changeItem("CreditSafe AT") diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index e1823f6d..6d305dc4 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -567,13 +567,28 @@ Public Class usrCntlKundenuebersicht ' select case backgrounndcolor Select Case lblBonitaetRisikostufe.Text - Case "A", "1" : lblBonitaetRisikostufe.BackColor = Color.Green - Case "B", "2" : lblBonitaetRisikostufe.BackColor = Color.LightGreen - Case "C", "3" : lblBonitaetRisikostufe.BackColor = Color.Yellow - Case "D", "4" : lblBonitaetRisikostufe.BackColor = Color.Orange - Case "E", "5" : lblBonitaetRisikostufe.BackColor = Color.Red - Case "F", "6" : lblBonitaetRisikostufe.BackColor = Color.Red - Case Else : lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke + Case "A", "1" + lblBonitaetRisikostufe.BackColor = Color.Green + lblBonitaetRisikostufe.ForeColor = Color.White + Case "B", "2" + lblBonitaetRisikostufe.BackColor = Color.LightGreen + lblBonitaetRisikostufe.ForeColor = Color.White + Case "C", "3" + lblBonitaetRisikostufe.BackColor = Color.Yellow + lblBonitaetRisikostufe.ForeColor = Color.White + Case "D", "4" + lblBonitaetRisikostufe.BackColor = Color.Orange + lblBonitaetRisikostufe.ForeColor = Color.White + Case "E", "5" + lblBonitaetRisikostufe.BackColor = Color.Red + lblBonitaetRisikostufe.ForeColor = Color.White + Case "F", "6" + lblBonitaetRisikostufe.BackColor = Color.Red + lblBonitaetRisikostufe.ForeColor = Color.White + + Case Else + lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke + lblBonitaetRisikostufe.ForeColor = Color.Black End Select