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

Ansicht Urlaub Feiertag verbessert.

Browse Source
This commit is contained in:
d.breimaier
2023-01-27 14:25:21 +01:00
parent 8684bd0f56
commit 4461f45be4
1 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
UID/Dienstplan/frmUrlKW.vb
View File

@@ -102,42 +102,63 @@ Public Class frmUrlKW
lblMo.TextAlign = ContentAlignment.TopLeft
lblMo.Text &= ftString
lblMo.ForeColor = Color.Red
Else
lblMo.TextAlign = ContentAlignment.TopCenter
lblMo.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(1), cDienstSettings.getLand(niederlassung))) Then
lblDi.TextAlign = ContentAlignment.TopLeft
lblDi.Text &= ftString
lblDi.ForeColor = Color.Red
Else
lblDi.TextAlign = ContentAlignment.TopCenter
lblDi.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(2), cDienstSettings.getLand(niederlassung))) Then
lblMi.TextAlign = ContentAlignment.TopLeft
lblMi.Text &= ftString
lblMi.ForeColor = Color.Red
Else
lblMi.TextAlign = ContentAlignment.TopCenter
lblMi.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(3), cDienstSettings.getLand(niederlassung))) Then
lblDo.TextAlign = ContentAlignment.TopLeft
lblDo.Text &= ftString
lblDo.ForeColor = Color.Red
Else
lblDo.TextAlign = ContentAlignment.TopCenter
lblDo.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(4), cDienstSettings.getLand(niederlassung))) Then
lblFr.TextAlign = ContentAlignment.TopLeft
lblFr.Text &= ftString
lblFr.ForeColor = Color.Red
Else
lblFr.TextAlign = ContentAlignment.TopCenter
lblFr.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(5), cDienstSettings.getLand(niederlassung))) Then
lblSa.TextAlign = ContentAlignment.TopLeft
lblSa.Text &= ftString
lblSa.ForeColor = Color.Red
Else
lblSa.TextAlign = ContentAlignment.TopCenter
lblSa.ForeColor = Color.Black
End If
If (FT.isFeiertag(montag.AddDays(6), cDienstSettings.getLand(niederlassung))) Then
lblSo.TextAlign = ContentAlignment.TopLeft
lblSo.Text &= ftString
lblSo.ForeColor = Color.Red
Else
lblSo.TextAlign = ContentAlignment.TopCenter
lblSo.ForeColor = Color.Black
End If