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

Feiertagsberechnung -> die Normalarbeitszeit wird nun ebenfalls veringert, wenn es sich um einen Feiertag in Deutschland handelt (wenn MA = DE).

Browse Source
This commit is contained in:
d.breimaier
2023-04-03 10:22:48 +02:00
parent 575b10f4c4
commit bac90009de
3 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/cSqlDb.vb
View File

@@ -3518,7 +3518,7 @@ Public Class cDienstplan
Dim d As New cDienstMA
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_inaktiv,dstma_TzFeiertageStd FROM tblDienstMitarb WHERE dstma_id=" & dstmaId & " ", conn)
Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_inaktiv,dstma_TzFeiertageStd, dstma_land FROM tblDienstMitarb WHERE dstma_id=" & dstmaId & " ", conn)
'cmd.Parameters.AddWithValue("@semi_id", id)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -3536,6 +3536,8 @@ Public Class cDienstplan
d.dstma_inaktiv = dr.Item("dstma_inaktiv")
If Not dr.Item("dstma_TzFeiertageStd") Is DBNull.Value Then d.dstma_TzFeiertageStd = dr.Item("dstma_TzFeiertageStd")
If Not dr.Item("dstma_land") Is DBNull.Value Then d.dstma_land = dr.Item("dstma_land")
End While
dr.Close()
End Using