timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -492,9 +492,15 @@ Public Class frmUeberstundenauszahlen
 
             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") = 1598
+                row.Item("value") = gesamt.ToString.Replace(",", ".")
+                dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
+
+                row = dtsetEntries.NewRow
                 row.Item("accountid") = 993
                 row.Item("value") = gesamt.ToString.Replace(",", ".")
                 dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
+
             End If
 
             Dim ues As New cUeberstunden(MA.mit_id, auszahlugsdatum.ToShortDateString, Now())
@@ -546,6 +552,10 @@ Public Class frmUeberstundenauszahlen
 
 
             Dim rowNew = dtdeleteEntries.NewRow
+            rowNew.Item("accountid") = 1598
+            dtdeleteEntries.Rows.InsertAt(rowNew, dtdeleteEntries.Rows.Count)
+
+            rowNew = dtdeleteEntries.NewRow
             rowNew.Item("accountid") = 993
             dtdeleteEntries.Rows.InsertAt(rowNew, dtdeleteEntries.Rows.Count)