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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1266,7 +1266,16 @@ Public Class usrCntlKundenuebersicht
If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = ""
If sumGes <> 0 Then
txtOffenePosten.Text = sumGes.ToString("C")
If sumGes < 0 Then
txtOffenePosten.ForeColor = Color.Green
Else
txtOffenePosten.ForeColor = Color.Red
End If
Else
txtOffenePosten.Text = ""
End If
'If sumGes > 0 Then
' txtOffenePosten.Text = sumGes.ToString("C")
'Else
@@ -1353,10 +1362,15 @@ Public Class usrCntlKundenuebersicht
' If .RowCount > 0 Then
If OP_tmp > 0 Then
If OP_tmp <> 0 Then
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
'txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
txtOffenePosten.Text = OP_tmp.ToString("C")
If OP_tmp < 0 Then
txtOffenePosten.ForeColor = Color.Green
Else
txtOffenePosten.ForeColor = Color.Red
End If
Else
txtOffenePosten.Text = ""
End If