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

2
UID/Dienstplan/usrcntlDienstplanStunden.vb
View File

@@ -94,6 +94,8 @@ Public Class usrcntlDienstplanStunden
'MsgBox(ma.dstma_wochenStunden)
'hier wird berechnet, wie viele Stunden tatsächlich zu arbeiten sind (abzgl. Feiertage)
Wochenstunden = cPF.getWochenstunden(STD_LIST, Wochenstunden, datum, SCHICHT, r.Cells("dstma_id").Value, ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd, ma.dstma_4wo)
'Hier wird berechnet wie viele Std tastächlich gearbeitet wurden:

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.1.4")>
<Assembly: AssemblyFileVersion("1.2.1.4")>
<Assembly: AssemblyVersion("1.2.1.5")>
<Assembly: AssemblyFileVersion("1.2.1.5")>

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