From bac90009de4408378fdc645791d2db37784e9fbe Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 3 Apr 2023 10:22:48 +0200 Subject: [PATCH] Feiertagsberechnung -> die Normalarbeitszeit wird nun ebenfalls veringert, wenn es sich um einen Feiertag in Deutschland handelt (wenn MA = DE). --- UID/Dienstplan/usrcntlDienstplanStunden.vb | 2 ++ UID/My Project/AssemblyInfo.vb | 4 ++-- UID/cSqlDb.vb | 4 +++- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/UID/Dienstplan/usrcntlDienstplanStunden.vb b/UID/Dienstplan/usrcntlDienstplanStunden.vb index a116ff1..da12415 100644 --- a/UID/Dienstplan/usrcntlDienstplanStunden.vb +++ b/UID/Dienstplan/usrcntlDienstplanStunden.vb @@ -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: diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 665ecc1..1e37507 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 9286197..861fea7 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -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