diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 66b8777e..964d3760 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/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