neu

UID/Dienstplan/frmDienstplan.vb

@@ -48,8 +48,11 @@ Public Class frmDienstplan
     End Sub
 
     Public Sub initDienstplan()
+        Dim datum As Date = CalendarWeek(aktWoche, aktJahr)
         Dim pf As New cProgramFunctions
-        pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
+
+        Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(datum)
+        pf.KWAbschluss(STD_LIST, niederlassung, aktJahr, aktWoche, SCHICHT)
         '  initDienstplan()
 
         If pnl.Controls.Count > 0 Then DirectCast(pnl.Controls(0), usrcntlDienstplanStunden).loaded = False
@@ -63,7 +66,6 @@ Public Class frmDienstplan
         Else
             Button14.Text = "Woche abschließen"
         End If
-        Dim datum As Date = CalendarWeek(aktWoche, aktJahr)
 
         Dim arrZoll1 As String() = {"dgvZoll1_Mo", "dgvZoll1_Di", "dgvZoll1_Mi", "dgvZoll1_Do", "dgvZoll1_Fr", "dgvZoll1_Sa", "dgvZoll1_So"}
         Dim arrZoll2 As String() = {"dgvZoll2_Mo", "dgvZoll2_Di", "dgvZoll2_Mi", "dgvZoll2_Do", "dgvZoll2_Fr", "dgvZoll2_Sa", "dgvZoll2_So"}
@@ -1844,9 +1846,9 @@ Public Class frmDienstplan
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
         Exit Sub
-        Dim pf As New cProgramFunctions
-        pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
-        initDienstplan()
+        'Dim pf As New cProgramFunctions
+        'pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
+        'initDienstplan()
 
 
     End Sub