TimasAPI, Ueberstundenprotokollierung, etc.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -337,9 +337,10 @@ Public Class frmUeberstundenauszahlen
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
-        Dim sum100, sum50, gesamt As Double
+        Dim sum100, sum50, sum0, gesamt As Double
         sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 0.5, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
-        sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / 150, 2) + CDbl(txtAusz50vonSaldo.Text)
+        sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / 150, 2)
+        sum0 = CDbl(txtAusz50vonSaldo.Text)
         gesamt = CDbl(txtAusz.Text)
 
         Dim aksAuszahlung As MsgBoxResult = MsgBox("Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " auszahlen?" & vbNewLine & sum100 & "x 100% ÜS :" & txtAusz100.Text & vbNewLine & sum50 & "x 50% ÜS: " & CDbl(txtAusz50.Text) + CDbl(txtAusz50vonSaldo.Text) & vbNewLine & "ÜS gesamt: " & gesamt, vbYesNo)
@@ -364,6 +365,13 @@ Public Class frmUeberstundenauszahlen
                 dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
             End If
 
+            If sum0 >= 0 Then
+                Dim row = dtsetEntries.NewRow
+                row.Item("accountid") = 1551
+                row.Item("value") = sum0.ToString.Replace(",", ".")
+                dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
+            End If
+
             If gesamt >= 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!!
                 Dim row = dtsetEntries.NewRow
                 row.Item("accountid") = 993
@@ -371,9 +379,16 @@ Public Class frmUeberstundenauszahlen
                 dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
             End If
 
+            Dim ues As New cUeberstunden(MA.mit_id, auszahlugsdatum.ToShortDateString, Now())
+            ues.uest_timasId = MA.mit_timasId
+            ues.uest_100 = sum100
+            ues.uest_50 = sum50
+            ues.uest_0 = sum0
+            ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
 
             Dim info As String = ""
-            If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) Then
+            If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) AndAlso ues.SAVE() Then
 
                 MsgBox("Erfolgreich in Timas eingetragen")
             Else
@@ -409,6 +424,11 @@ Public Class frmUeberstundenauszahlen
             End If
 
             If timas.deleteTimeAccounts(auszahlugsdatum, auszahlugsdatum, MA.mit_timasId, dtdeleteEntries) Then
+                Dim ues As New cUeberstunden(MA.mit_id, auszahlugsdatum.ToShortDateString)
+                ues.uest_deleted = True
+                ues.uest_lastChanged = Now()
+                ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                ues.SAVE()
 
                 MsgBox("Erfolgreich aus Timas zurückgesetzt!")
                 picDel.Visible = False