kundenuebersicht

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -718,16 +718,10 @@ Public Class usrCntlKundenuebersicht
 
     Sub initInsolvent(insolvent)
         If insolvent IsNot Nothing Then
-            'Me.BackColor = Color.Red
             lblInsolvent.Visible = True
             lblInsolvent.Text = "KUNDE INSOLVENT " & IIf(IsDate(insolvent), " SEIT " & CDate(insolvent).ToShortDateString, "")
-            rtbInfo.Visible = True
-            'lblTARIFE.ForeColor = Color.White
         Else
-            'Me.BackColor = Color.White
             lblInsolvent.Visible = False
-            rtbInfo.Visible = False
-            'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128)
         End If
     End Sub