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

Fixes

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-12 14:20:57 +02:00
parent 00330cccda
commit 2ca94dcf78
3 changed files with 254 additions and 252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/frmHauptfenster.vb
View File

@@ -1135,9 +1135,10 @@ Public Class frmHauptfenster
Case Color.Red
sqlStr &= " AND (Status = 3 ) "
Case Color.Orange
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
Case Color.Yellow
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 1,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 2,GETDATE()) AS DATE) ) ) "
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY,2,GETDATE()) AS DATE) AND cast(DATEADD(DAY,3,GETDATE()) AS DATE) ) ) "
End Select
End If
''Farbe
@@ -1435,9 +1436,9 @@ Public Class frmHauptfenster
' r.DefaultCellStyle.BackColor = Color.LightYellow
'End If
If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
r.DefaultCellStyle.BackColor = Color.Orange
ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(2).ToShortDateString) Then 'morgen
ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
r.DefaultCellStyle.BackColor = Color.LightYellow
End If