edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

kundenuebersicht

Browse Source
This commit is contained in:
d.breimaier
2025-09-29 15:13:24 +02:00
parent 334e277c94
commit 0dbc85574e
1 changed files with 0 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

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