neu

UID/Dienstplan/usrcntlDienstplanStunden.vb

@@ -79,6 +79,7 @@ Public Class usrcntlDienstplanStunden
                     MsgBox("initStdMa-Error: " & ex.StackTrace)
                 End Try
 
+                Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(CalendarWeek(aktWoche, aktJahr))
                 For Each r As DataGridViewRow In .Rows
                     Try : r.DefaultCellStyle.ForeColor = ColorTranslator.FromHtml(r.Cells("dstma_farbe").Value) : Catch : End Try
 
@@ -90,14 +91,15 @@ Public Class usrcntlDienstplanStunden
                     Dim Wochenstunden As Double = 0
 
                     If IsNumeric(ma.dstma_wochenStunden) Then Wochenstunden = ma.dstma_wochenStunden
+
                     'MsgBox(ma.dstma_wochenStunden)
                     'hier wird berechnet, wie viele Stunden tatsächlich zu arbeiten sind (abzgl. Feiertage)
-                    Wochenstunden = cPF.getWochenstunden(Wochenstunden, datum, SCHICHT, r.Cells("dstma_id").Value, ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd)
+                    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)
 
                     'Hier wird berechnet wie viele Std tastächlich gearbeitet wurden:
                     Dim tatStd As Double = SQLDienst.getDstStunden(r.Cells("dstma_id").Value, datum_montag, datum_montag.AddDays(6), niederlassung)
 
-                 
+
                     r.Cells("stundenBerechnet").Value = (Wochenstunden)
                     r.Cells("stunden").Value = (tatStd) & " (" & tatStd - Wochenstunden & ")"
                     Dim arb As New cArbeitstage
@@ -108,7 +110,6 @@ Public Class usrcntlDienstplanStunden
             loaded = True
         Catch ex As Exception
             MsgBox("initStdMa-Error: " & ex.Message)
-
         End Try
         initUestd()
     End Sub