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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
UID/Dienstplan/frmDienstplan.vb
View File

@@ -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

9
UID/Dienstplan/frmDienstplanATILLA.vb
View File

@@ -49,9 +49,10 @@ Public Class frmDienstplanATILLA
End Sub
Public Sub initDienstplan()
Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(CalendarWeek(aktWoche, aktJahr))
Dim pf As New cProgramFunctions
pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
pf.KWAbschluss(STD_LIST, niederlassung, aktJahr, aktWoche, SCHICHT)
' initDienstplan()
If pnl.Controls.Count > 0 Then DirectCast(pnl.Controls(0), usrcntlDienstplanStunden).loaded = False
@@ -1897,9 +1898,9 @@ Public Class frmDienstplanATILLA
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

62
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -56,7 +56,9 @@ Public Class frmDienstplanVariabel
End Sub
Public Sub initDienstplan()
pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(CalendarWeek(aktWoche, aktJahr))
pf.KWAbschluss(STD_LIST, niederlassung, aktJahr, aktWoche, SCHICHT)
' initDienstplan()
If Panel6.Controls.Count > 0 Then DirectCast(Panel6.Controls(0), usrcntlDienstplanStunden).loaded = False
@@ -636,7 +638,7 @@ Public Class frmDienstplanVariabel
End If
End Function
Public Function CalendarWeek(ByVal nWeek As Integer, ByVal nYear As Integer) As Date
Public Shared Function CalendarWeek(ByVal nWeek As Integer, ByVal nYear As Integer) As Date
' Wochentag des 4. Januar des Jahres ermitteln
Dim dStart As New Date(nYear, 1, 4)
@@ -2355,8 +2357,8 @@ Public Class frmDienstplanVariabel
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()
'pf.KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT)
'initDienstplan()
End Sub
@@ -2449,12 +2451,18 @@ Public Class frmDienstplanVariabel
Try
With exclApp
.Visible = False
Dim useAlwaysTime = False
If SQLDienst.getValueTxtBySql("SELECT isnull([dpset_firma],'') FROM [tblDienstSettings] WHERE [dpset_niederlassung]='" & niederlassung & "'", "ADMIN") = "IMEX" Then
Datei = .Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory & "Resources\Dienstplan Variabel Monat IMEX.xlsx")
Else
Datei = .Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory & "Resources\Dienstplan Variabel Monat.xlsx")
End If
Select Case SQLDienst.getValueTxtBySql("SELECT isnull([dpset_firma],'') FROM [tblDienstSettings] WHERE [dpset_niederlassung]='" & niederlassung & "'", "ADMIN")
Case "IMEX"
Datei = .Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory & "Resources\Dienstplan Variabel Monat IMEX.xlsx")
Case "AMBAR"
Datei = .Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory & "Resources\Dienstplan Variabel Monat AMBAR.xlsx")
useAlwaysTime = True
Case Else
Datei = .Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory & "Resources\Dienstplan Variabel Monat.xlsx")
End Select
Blatt = Datei.Worksheets("DIENSTPLAN")
@@ -2464,11 +2472,12 @@ Public Class frmDienstplanVariabel
Dim cnt = 0
If dt_Ma IsNot Nothing Then
'-----------------------Datum-------------------
Dim dateWork = CDate("01." & aktDate.Month & "." & aktDate.Year & "")
Dim dateEnde = dateWork.AddMonths(1).AddDays(-1)
Blatt.Range("C1").Value = dateWork.ToString("MMMM yyyy")
Dim FT As New cFeiertage(dateWork.Year) 'Evtl Jahressprung, darum neu definieren
Dim cnt3 = 0
@@ -2495,9 +2504,6 @@ Public Class frmDienstplanVariabel
'-----------------------------------------------
Blatt.Range("C1").Value = dateWork.ToString("MMMM yyyy")
For Each r As DataRow In dt_Ma.Rows
Dim splate = Chr(Asc("B") + cnt)
Blatt.Range(splate & "2").Value = r("dstma_kuerzel")
@@ -2515,30 +2521,36 @@ Public Class frmDienstplanVariabel
If dt_Tag IsNot Nothing AndAlso dt_Tag.Rows.Count > 0 Then
If dt_Tag.Rows(0)("dstetr_info") IsNot DBNull.Value AndAlso dt_Tag.Rows(0)("dstetr_info") <> "" Then
Tag_Bez = dt_Tag.Rows(0)("dstetr_info")
Else
Tag_Bez = dt_Tag.Rows(0)("dstetr_von") & "-" & dt_Tag.Rows(0)("dstetr_bis")
'useAlwaysTime --> keine Bezeichnungen der Schicht zulassen, nur die Uhrzeiten
Dim dt_Zeit = SQLDienst.loadDGV("SELECT * FROM [ADMIN].[dbo].[tblDienstplanSchichtenZeiten] where dsz_dedetId=" & dt_Tag.Rows(0)("dedet_id") & " and dsz_woTag='" & dateWork.ToString("ddd").Replace(".", "").ToUpper & "'")
If dt_Tag IsNot Nothing AndAlso dt_Tag.Rows.Count > 0 Then
If Not useAlwaysTime Or dt_Tag.Rows(0)("dedet_benutzerdefinierteSchicht") = 0 Then
'Wenn keine benutzerdefinierteSchicht ODER von=von, bis=bis --> Bezeichnung hinschreiben, sonst wird die Zeit (lt. oben) genau angegeben.
If dt_Tag.Rows(0)("dedet_benutzerdefinierteSchicht") = 0 Or (dt_Zeit.Rows(0)("dsz_von") = dt_Tag.Rows(0)("dstetr_von") And dt_Zeit.Rows(0)("dsz_bis") = dt_Tag.Rows(0)("dstetr_bis")) Then
If dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung") IsNot DBNull.Value AndAlso dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung") <> "" Then
Tag_Bez = dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung")
If dt_Tag.Rows(0)("dedet_ExcelMonatFarbe") IsNot DBNull.Value Then BGcolor = dt_Tag.Rows(0)("dedet_ExcelMonatFarbe")
ElseIf dt_Tag.Rows(0)("dedet_bezeichnungDP") IsNot DBNull.Value AndAlso dt_Tag.Rows(0)("dedet_bezeichnungDP") <> "" Then
Tag_Bez = dt_Tag.Rows(0)("dedet_bezeichnungDP")
Else
Tag_Bez = dt_Tag.Rows(0)("dedet_abt")
End If
' Tag_Bez = If(dt_Tag.Rows(0)("dedet_bezeichnungDP") <> "", dt_Tag.Rows(0)("dedet_bezeichnungDP"), dt_Tag.Rows(0)("dedet_abt"))
'Wenn keine benutzerdefinierteSchicht ODER von=von, bis=bis --> Bezeichnung hinschreiben, sonst wird die Zeit (lt. oben) genau angegeben.
If dt_Tag.Rows(0)("dedet_benutzerdefinierteSchicht") = 0 Or (dt_Zeit.Rows(0)("dsz_von") = dt_Tag.Rows(0)("dstetr_von") And dt_Zeit.Rows(0)("dsz_bis") = dt_Tag.Rows(0)("dstetr_bis")) Then
If dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung") IsNot DBNull.Value AndAlso dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung") <> "" Then
Tag_Bez = dt_Tag.Rows(0)("dedet_ExcelMonatBezeichnung")
If dt_Tag.Rows(0)("dedet_ExcelMonatFarbe") IsNot DBNull.Value Then BGcolor = dt_Tag.Rows(0)("dedet_ExcelMonatFarbe")
ElseIf dt_Tag.Rows(0)("dedet_bezeichnungDP") IsNot DBNull.Value AndAlso dt_Tag.Rows(0)("dedet_bezeichnungDP") <> "" Then
Tag_Bez = dt_Tag.Rows(0)("dedet_bezeichnungDP")
Else
Tag_Bez = dt_Tag.Rows(0)("dedet_abt")
End If
' Tag_Bez = If(dt_Tag.Rows(0)("dedet_bezeichnungDP") <> "", dt_Tag.Rows(0)("dedet_bezeichnungDP"), dt_Tag.Rows(0)("dedet_abt"))
End If
End If
End If
End If

33
UID/Dienstplan/frmDiestAddMa.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmDiestAddMa
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDiestAddMa))
Me.cboMA = New System.Windows.Forms.ComboBox()
Me.txtWoStd = New System.Windows.Forms.TextBox()
@@ -264,6 +265,7 @@ Partial Class frmDiestAddMa
Me.txtBlau2BisMo = New System.Windows.Forms.TextBox()
Me.cboBlau2So = New System.Windows.Forms.ComboBox()
Me.txtBlau2VonMo = New System.Windows.Forms.TextBox()
Me.dgvAbwWStd = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label26 = New System.Windows.Forms.Label()
Me.txtReihenfolge = New System.Windows.Forms.TextBox()
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
@@ -276,6 +278,7 @@ Partial Class frmDiestAddMa
Me.cbxInaktiv = New System.Windows.Forms.CheckBox()
Me.Label57 = New System.Windows.Forms.Label()
Me.txtStdFeiertagTZ = New System.Windows.Forms.TextBox()
Me.Label58 = New System.Windows.Forms.Label()
Me.grpTeilzeit.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -284,6 +287,7 @@ Partial Class frmDiestAddMa
Me.pnl4.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.pnl3.SuspendLayout()
CType(Me.dgvAbwWStd, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cboMA
@@ -402,7 +406,7 @@ Partial Class frmDiestAddMa
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnOK.Location = New System.Drawing.Point(15, 427)
Me.btnOK.Location = New System.Drawing.Point(15, 555)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(161, 37)
Me.btnOK.TabIndex = 22
@@ -2711,6 +2715,15 @@ Partial Class frmDiestAddMa
Me.txtBlau2VonMo.TabIndex = 22
Me.txtBlau2VonMo.Text = "00:00"
'
'dgvAbwWStd
'
Me.dgvAbwWStd.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAbwWStd.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAbwWStd.Location = New System.Drawing.Point(21, 439)
Me.dgvAbwWStd.Name = "dgvAbwWStd"
Me.dgvAbwWStd.Size = New System.Drawing.Size(459, 110)
Me.dgvAbwWStd.TabIndex = 0
'
'Label26
'
Me.Label26.AutoSize = True
@@ -2771,7 +2784,7 @@ Partial Class frmDiestAddMa
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button2.Location = New System.Drawing.Point(182, 427)
Me.Button2.Location = New System.Drawing.Point(182, 555)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(86, 37)
Me.Button2.TabIndex = 23
@@ -2817,12 +2830,23 @@ Partial Class frmDiestAddMa
Me.txtStdFeiertagTZ.TabIndex = 26
Me.txtStdFeiertagTZ.Visible = False
'
'Label58
'
Me.Label58.AutoSize = True
Me.Label58.Location = New System.Drawing.Point(18, 423)
Me.Label58.Name = "Label58"
Me.Label58.Size = New System.Drawing.Size(138, 13)
Me.Label58.TabIndex = 27
Me.Label58.Text = "Abweichende WochenStd.:"
'
'frmDiestAddMa
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(503, 476)
Me.ClientSize = New System.Drawing.Size(503, 626)
Me.Controls.Add(Me.Label58)
Me.Controls.Add(Me.dgvAbwWStd)
Me.Controls.Add(Me.Label57)
Me.Controls.Add(Me.txtStdFeiertagTZ)
Me.Controls.Add(Me.cbxInaktiv)
@@ -2867,6 +2891,7 @@ Partial Class frmDiestAddMa
Me.TabPage3.ResumeLayout(False)
Me.pnl3.ResumeLayout(False)
Me.pnl3.PerformLayout()
CType(Me.dgvAbwWStd, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3124,4 +3149,6 @@ Partial Class frmDiestAddMa
Friend WithEvents cbxInaktiv As CheckBox
Friend WithEvents Label57 As Label
Friend WithEvents txtStdFeiertagTZ As TextBox
Friend WithEvents dgvAbwWStd As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label58 As Label
End Class

36
UID/Dienstplan/frmDiestAddMa.vb
View File

@@ -12,6 +12,7 @@ Public Class frmDiestAddMa
Dim MusterErr As Boolean = False
Dim SCHICHTEN_ARTEN As New List(Of cDienstplanSchicht)
Dim ADMIN As New cOptionenDAL
Dim DGVBind As VERAG_PROG_ALLGEMEIN.cEasyBinding
Private Sub frmDiestAddMa_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
@@ -34,8 +35,6 @@ Public Class frmDiestAddMa
initCboMuster()
fillCboMA()
'
If niederlassung = "ATILLA" Then
cboAbt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL", "ZOLL"))
@@ -64,7 +63,13 @@ Public Class frmDiestAddMa
If cboMyItemSelect(cboMA, SQLDienst.getValueTxtBySql("SELECT isnull([dstma_mitId],-1) FROM [tblDienstMitarb] WHERE dstma_id=" & MA_ID, "ADMIN")) Then
loadMA()
End If
Else
dgvAbwWStd.Enabled = False
End If
initDgvAbwWStd()
loaded = True
End Sub
Sub fillCboMA()
@@ -73,6 +78,31 @@ Public Class frmDiestAddMa
Next
End Sub
Sub initDgvAbwWStd()
Try
With dgvAbwWStd
' .DataSource = SQLDienst.loadDGV("SELECT * FROM [tblDienstMitarbAbweichendeWochenstunden] WHERE [dstaw_dstmaId]=133")
DGVBind = New VERAG_PROG_ALLGEMEIN.cEasyBinding("ADMIN")
DGVBind.initBinding("SELECT * FROM [tblDienstMitarbAbweichendeWochenstunden] WHERE [dstaw_dstmaId]='" & MA.dstma_id & "'", "tblDienstMitarbAbweichendeWochenstunden")
.DataSource = DGVBind.bindingdataTable
DGVBind.bindingdataTable.Columns("dstaw_dstmaId").DefaultValue = MA.dstma_id
If .Columns.Count > 0 Then
.Columns("dstaw_id").Visible = False
.Columns("dstaw_dstmaId").Visible = False
.Columns("dstaw_von").HeaderText = "von"
.Columns("dstaw_bis").HeaderText = "bis"
.Columns("dstaw_std").HeaderText = "Std."
End If
End With
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
' MsgBox(txtRotVonMo.Text)
MusterErr = False
@@ -80,7 +110,7 @@ Public Class frmDiestAddMa
If initMA() Then
Dim tz As List(Of cDienstTeilzeit) = initArbVerh()
If MusterErr Then MsgBox("Bei der Prüfung der Daten für die Muster-Vorlage ist ein Fehler aufgetreten! Bitte um Prüfung!") : Exit Sub
If SQLDienst.insertDienstMA(MA, niederlassung) Then ' Me.Close()
If SQLDienst.insertDienstMA(MA, niederlassung) And DGVBind.updateBinding Then ' Me.Close()
SQLDienst.delDienstTeilzeit(MA.dstma_id)
If cbxMuster.Checked Then 'cboArbVerh.SelectedIndex = 1 Then
For Each t In tz

7
UID/Dienstplan/usrCntlAuswertungWocheAuslastung.vb
View File

@@ -77,7 +77,9 @@
Return getStd
End Function
Function getAbf(datum As Date) As Double
Dim art = ""
Try
Dim art = ""
Dim nl = ""
If DP_SETTINGS Is Nothing Then Return 0
@@ -115,5 +117,8 @@
' Return cDIENST.getValueTxtBySql("SELECT count(*) as anz FROM [Speditionsbuch] where Abfertigungsdatum = '" & datum.ToShortDateString & "' AND FilialenNr IN (" & filiale & ") AND Abfertigungsart IN(" & art & ")", "FMZOLL")
Return cDIENST.getValueTxtBySql(sql, "FMZOLL")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Function
End Class

4
UID/Dienstplan/usrCntlDienstplan.vb
View File

@@ -452,7 +452,9 @@ Public Class usrCntlDienstplan
Dim aktJahr = cPF.DateToWeek(datumMO).Substring(0, 4)
Dim SCHICHT = cPF.getSchicht(aktWoche, aktJahr)
Dim sollStd As Double = cPF.getWochenstunden(MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd)
Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(datumMO)
Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd)
Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datumMO, datumMO.AddDays(6), niederlassung)
' MsgBox(sollStd)

7
UID/Dienstplan/usrcntlDienstplanStunden.vb
View File

@@ -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