neu

UID/Dienstplan/frmDienstplan.vb

@@ -14,6 +14,7 @@ Public Class frmDienstplan
     Private scr_top As Integer = 50
     Dim week() As String = {"SO", "MO", "DI", "MI", "DO", "FR", "SA"}
     Private SCHICHT = "ROT"
+    Dim SETTINGS As cDienstSettings
 
     Dim SQLDienst As New cDienstplan
     Dim ListMA As New List(Of cMAShort)
@@ -270,6 +271,8 @@ Public Class frmDienstplan
         Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me.Name, 1)
         If Me.berechtigung = 99 Then Me.Close() : Exit Sub
 
+        SETTINGS = New cDienstSettings(niederlassung)
+
         Me.Cursor = Cursors.WaitCursor
         aktWoche = DateToWeek(aktDate).Substring(4, 2)
         aktJahr = DateToWeek(aktDate).Substring(0, 4)
@@ -865,7 +868,7 @@ Public Class frmDienstplan
                 eintrag.dstetr_dstmaId = m.dstma_id
                 eintrag.dstetr_datum = datum
 
-                If Not FT.isFeiertag(datum) Then
+                If Not FT.isFeiertag(datum, SETTINGS.dpset_land) Then
                     If m.dstma_muster Then
                         '    MsgBox("HIER")
                         Dim tz As List(Of cDienstTeilzeit) = SQLDienst.getAllDienstTeilzeit(m.dstma_id)