diff --git a/UID/Dienstplan/frmUrlKW.vb b/UID/Dienstplan/frmUrlKW.vb index 2cb50da..eeb98e7 100644 --- a/UID/Dienstplan/frmUrlKW.vb +++ b/UID/Dienstplan/frmUrlKW.vb @@ -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