GUI Änderungen Bonitäten, Creditsafeausnahme für Unisped

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

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")

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 "A", "1"
-                Case "B", "2" : lblBonitaetRisikostufe.BackColor = Color.LightGreen
+                    lblBonitaetRisikostufe.BackColor = Color.Green
-                Case "C", "3" : lblBonitaetRisikostufe.BackColor = Color.Yellow
+                    lblBonitaetRisikostufe.ForeColor = Color.White
-                Case "D", "4" : lblBonitaetRisikostufe.BackColor = Color.Orange
+                Case "B", "2"
-                Case "E", "5" : lblBonitaetRisikostufe.BackColor = Color.Red
+                    lblBonitaetRisikostufe.BackColor = Color.LightGreen
-                Case "F", "6" : lblBonitaetRisikostufe.BackColor = Color.Red
+                    lblBonitaetRisikostufe.ForeColor = Color.White
-                Case Else : lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke
+                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