messenger, Ueberstunden, timas

2024-03-07 16:46:16 +01:00
parent dee2b8af48
commit 72e3ca9442
5 changed files with 395 additions and 324 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb
@@ -60,17 +60,17 @@ Partial Class frmUeberstundenauszahlen
        Me.cbx100 = New System.Windows.Forms.CheckBox()
        Me.txtberAusz25 = New System.Windows.Forms.TextBox()
        Me.cbxoverwrite = New System.Windows.Forms.CheckBox()
+        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Label8 = New System.Windows.Forms.Label()
        Me.txt50x1 = New System.Windows.Forms.TextBox()
        Me.cbxTeilzeit = New System.Windows.Forms.CheckBox()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.lblWarning = New System.Windows.Forms.Label()
        CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        CType(Me.picShow, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'dtpMonat
@@ -105,9 +105,8 @@ Partial Class frmUeberstundenauszahlen
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(32, 131)
        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(138, 13)
+        Me.Label3.Size = New System.Drawing.Size(0, 13)
        Me.Label3.TabIndex = 3
-        Me.Label3.Text = "Mehrarbeit (autom. ausbez.)"
        '
        'Label4
        '
@@ -432,6 +431,20 @@ Partial Class frmUeberstundenauszahlen
        Me.cbxoverwrite.Text = "max. auszahlbar"
        Me.cbxoverwrite.UseVisualStyleBackColor = True
        '
+        'dgvUeberstunden
+        '
+        Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUeberstunden.AllowUserToAddRows = False
+        Me.dgvUeberstunden.AllowUserToDeleteRows = False
+        Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White
+        Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUeberstunden.Location = New System.Drawing.Point(381, 30)
+        Me.dgvUeberstunden.Name = "dgvUeberstunden"
+        Me.dgvUeberstunden.ReadOnly = True
+        Me.dgvUeberstunden.Size = New System.Drawing.Size(227, 98)
+        Me.dgvUeberstunden.TabIndex = 13
+        Me.dgvUeberstunden.Visible = False
+        '
        'Label8
        '
        Me.Label8.AutoSize = True
@@ -470,20 +483,6 @@ Partial Class frmUeberstundenauszahlen
        Me.PictureBox1.TabIndex = 38
        Me.PictureBox1.TabStop = False
        '
-        'dgvUeberstunden
-        '
-        Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvUeberstunden.AllowUserToAddRows = False
-        Me.dgvUeberstunden.AllowUserToDeleteRows = False
-        Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White
-        Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvUeberstunden.Location = New System.Drawing.Point(381, 30)
-        Me.dgvUeberstunden.Name = "dgvUeberstunden"
-        Me.dgvUeberstunden.ReadOnly = True
-        Me.dgvUeberstunden.Size = New System.Drawing.Size(227, 98)
-        Me.dgvUeberstunden.TabIndex = 13
-        Me.dgvUeberstunden.Visible = False
-        '
        'lblWarning
        '
        Me.lblWarning.AutoSize = True
@@ -516,8 +515,8 @@ Partial Class frmUeberstundenauszahlen
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        CType(Me.picShow, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
@@ -31,7 +31,7 @@ Public Class frmUeberstundenauszahlen
        MA = New cMitarbeiter(mit_id)
        tag = New cFeiertage(DateTime.Parse(dtpMonat.Value).Year)
        Label7.Text = MA.mit_vname & " " & MA.mit_nname
-        timas.getEmployee(MA.mit_timasId, customFields)
+        customFields = timas.getEmployeecustomFields(MA.mit_timasId)
        timas.getTimeaccountList(dt)

        '65;"01-Lfd Saldo"
@@ -76,38 +76,7 @@ Public Class frmUeberstundenauszahlen

        getUeberstunden(False)

-        For Each row As DataRow In customFields.Rows
-            If Not IsDBNull(row.Item("value")) AndAlso Not IsDBNull(row.Item("name")) Then
-
-                If row.Item("name") = "Teilzeit" Then
-                    If row.Item("value") = "true" Then
-                        cbxTeilzeit.Checked = True
-                    Else
-                        cbxTeilzeit.Checked = False
-                    End If
-                End If
-
-                If row.Item("name") = "SA-Zuschlag" Then
-                    If row.Item("value") = "true" Then
-                        faktorSamstagsarbeit = 150 'Samstagsarbeit wir im Timas hochgerechnet
-                    Else
-                        faktorSamstagsarbeit = 100 'Samstagsarbeit wir im Timas NICHT hochgerechnet
-                    End If
-                End If
-
-                If row.Item("name") = "Zuschlagsfrei" Then
-                    If row.Item("value") = "true" Then
-                        lblWarning.Text = "Zuschlagsfrei"
-                    Else
-                        lblWarning.Text = ""
-                    End If
-                End If
-
-            End If
-
-        Next
-
-
+        getAddDataFromTimas()


    End Sub
@@ -239,6 +208,8 @@ Public Class frmUeberstundenauszahlen
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        customFields = timas.getEmployeecustomFields(MA.mit_timasId)
+        getAddDataFromTimas()
        getUeberstunden(cbxabwDatum.Checked)
    End Sub

@@ -703,7 +674,7 @@ Public Class frmUeberstundenauszahlen
        txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "overallBalance")

        stunden100auszbere = RoundOfDigits(stunden100ausz * 2, 2)
-        stunden50auszbere = RoundOfDigits(stunden50ausz * 1.5, 2)
+        stunden50auszbere = RoundOfDigits(stunden50ausz * 100 / faktorSamstagsarbeit, 2)

        txt100x2.Text = stunden100auszbere
        txt50x15.Text = stunden50auszbere
@@ -729,4 +700,48 @@ Public Class frmUeberstundenauszahlen


    End Sub
+
+    Private Sub getAddDataFromTimas()
+
+        For Each row As DataRow In customFields.Rows
+            If Not IsDBNull(row.Item("value")) AndAlso Not IsDBNull(row.Item("name")) Then
+
+                If row.Item("name") = "Teilzeit" Then
+                    If row.Item("value") = "true" Then
+                        cbxTeilzeit.Checked = True
+                    Else
+                        cbxTeilzeit.Checked = False
+                    End If
+                End If
+
+                If row.Item("name") = "SA-Zuschlag" Then
+                    If row.Item("value") = "true" Then
+                        faktorSamstagsarbeit = 150 'Samstagsarbeit wir im Timas hochgerechnet
+                        lblMA.Text = "Mitarbeiter (mit SA-Zuschlag):"
+                    Else
+                        lblMA.Text = "Mitarbeiter (ohne SA-Zuschlag):"
+                        faktorSamstagsarbeit = 100 'Samstagsarbeit wir im Timas NICHT hochgerechnet
+                    End If
+                End If
+
+                If row.Item("name") = "ÜS werden nicht auf lfd. Saldo hinzugezählt" Then
+                    If row.Item("value") = "true" Then
+                        MsgBox("ÜS werden nicht auf lfd. Saldo hinzugezählt")
+                    Else
+                        lblWarning.Text = ""
+                    End If
+                End If
+
+                If row.Item("name") = "Automatisch auszahlen" Then
+                    If row.Item("value") = "true" Then
+                        Label3.Text = "Mehrarbeit (autom. ausbez.)"
+                    Else
+                        Label3.Text = "Mehrarbeit (NICHT autom. ausbez.)"
+                    End If
+                End If
+
+            End If
+
+        Next
+    End Sub
 End Class