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

Bugfix Feiertagsberechnung, Feature Urlaubskalender nachträglich synchronisieren -> hierfür muss der DP bzw. MA nicht neu gesynched werden

Browse Source
This commit is contained in:
d.breimaier
2023-01-27 13:44:23 +01:00
parent d9680713ee
commit 8f3925d4cf
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -1405,11 +1405,13 @@ Public Class frmDienstplanVariabel
'MsgBox("MA-ID: " & eintrag.dstetr_dstmaId & " " & "existingEntry: " & existingEntry & " Art: " & eintrag.dstetr_art & " DATUM: " & eintrag.dstetr_datum) 'MsgBox("MA-ID: " & eintrag.dstetr_dstmaId & " " & "existingEntry: " & existingEntry & " Art: " & eintrag.dstetr_art & " DATUM: " & eintrag.dstetr_datum)
If existingEntry = 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Or existingEntry = 0 Then If existingEntry = 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Or existingEntry = 0 Then
SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False) SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
Else ElseIf existingEntry > 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Then 'wenn mehr als 1 Eintrag pro Tag -> Splitschicht
SQLDienst.delDstEintraegeMaId(datum, datum, niederlassung, m.dstma_id)
SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
End If End If
Else Else
'SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False)
SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung) SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung)
End If End If

2
UID/Dienstplan/usrCntlDienstplan.vb
View File

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

2
UID/cSqlDb.vb
View File

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