Bonitätsprüfung inkl Warnmeldungen

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -565,6 +565,20 @@ Public Class usrCntlKundenuebersicht
             End If
 
 
+            ' 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
+
+            End Select
+
+
+
             If lblBonitaet.Text = "0" Then lblBonitaet.Text = ""
 
             If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then