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

Dakosy Anpassung - Datumsfehler

Browse Source 
Dienstplan Feiertage
This commit is contained in:
Andreas Luxbauer
2022-11-07 13:22:36 +01:00
parent 43d68083aa
commit 655a5fedae
12 changed files with 26652 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -1226,7 +1226,7 @@ Public Class frmDienstplanVariabel
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
@@ -2503,7 +2503,7 @@ Public Class frmDienstplanVariabel
Blatt.Range("C1").Value = dateWork.ToString("MMMM yyyy")
Dim FT As New cFeiertage(dateWork.Year) 'Evtl Jahressprung, darum neu definieren
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(dateWork.Year) 'Evtl Jahressprung, darum neu definieren
Dim cnt3 = 0
While dateWork <= dateEnde