Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

UID/Dienstplan/frmDienstplan.vb

@@ -862,7 +862,7 @@ Public Class frmDienstplan
 
         Dim datum As Date = montag
         For i = 1 To 7
-            Dim FT As New cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
+            Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
             For Each m In ma
                 Dim eintrag As New cDienstEintrag
                 eintrag.dstetr_dstmaId = m.dstma_id

UID/Dienstplan/frmDienstplanATILLA.vb

@@ -851,7 +851,7 @@ Public Class frmDienstplanATILLA
         '  Dim ma As List(Of cDienstMA) = SQLDienst.getAllDienstMA(niederlassung)
         Dim datum As Date = montag
         For i = 1 To 7
-            Dim FT As New cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
+            Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
             For Each m In ma
                 Dim eintrag As New cDienstEintrag
                 eintrag.dstetr_dstmaId = m.dstma_id

UID/Dienstplan/usrCntlDienstplan.vb

@@ -365,7 +365,7 @@ Public Class usrCntlDienstplan
         Dim tatStdSum As Double = 0
 
         Dim cPF As New cProgramFunctions
-        Dim FT As New cFeiertage
+        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage
 
         AddHandler rpt.Detail.Format, Sub()
 

UID/cProgramFunctions.vb

@@ -918,7 +918,7 @@ Public Class cProgramFunctions
 
         For i = 0 To 6
             ' Wochenstunden -= getWochenstundenTAG(datum, SCHICHT, dstma_id, dstma_muster, dstma_WEStdRegelAZ, dstma_arbvh, niederlassung)
-            Dim FT As New cFeiertage(datum.Year)
+            Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year)
             If FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Feiertag oder 1/2 Tag
                 Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
 
@@ -974,7 +974,7 @@ Public Class cProgramFunctions
 
     Public Function getWochenstundenTAG(datum As Date, SCHICHT As String, dstma_id As Integer, dstma_muster As Boolean, dstma_WEStdRegelAZ As Boolean, dstma_arbvh As String, niederlassung As String) As Double
 
-        Dim FT As New cFeiertage(datum.Year)
+        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year)
         Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
         If FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Then 'Feiertag oder 1/2 Tag
             getWochenstundenTAG = 0

UID/cSqlDb.vb

@@ -3978,7 +3978,7 @@ Public Class cDienstplan
                         Dim datum As Date = CDate(dr.Item("dstetr_datum"))
                         Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
 
-                        Dim FT As New cFeiertage()
+                        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage()
                         '  If FT.isFeiertag(datum) And woTag <> "SO" And woTag <> "SA" Then
                         '     s +=
                         ' End If