messenger, Ueberstunden, timas

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