Bug FaktEmail, Essensbestellungen, Formulare, Ueberstunden

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -447,6 +447,30 @@ Public Class frmUeberstundenauszahlen
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
+        '65;"01-Lfd Saldo"
+        '66;02-Krank
+        '67;03-Urlaub
+        '69;"10-Na 22-06"
+        '70;"11-Sa 00-24"
+        '72;"13-So 00-24"
+        '73;"14-FtN 00-24"
+        '438;04-Sonstige
+        '986;Stundenlohn
+        '987;FT-Ersatzzeit
+        '993;"Ausz. ÜS"
+        '1209;Mehrarbeit
+        '1210;"Script hilfskonto WSaldo"
+        '1227;Schichtzulage
+        '1231;Urlaubsstunden
+        '1235;"Überstunden 100% gesamt"
+        '1257;Zuschlag
+        '1272;"unbezahlter Urlaub"
+        '1366;"Mehrarbeit am 25. des Monats gesamt"
+        '1393;"Urlaub (Stunden)"
+        '1550;"AUSZ ÜS 100%"
+        '1551;"AUSZ ÜS 50%"
+        '1598; Korrektur MJ - ÜBER API ansprechen!
+
 
         Dim sum100, sum50, sum0, gesamt As Double
         sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / 200, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
@@ -493,7 +517,7 @@ 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(",", ".")
+                row.Item("value") = gesamt.ToString.Replace(",", ".") * (-1)
                 dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
 
                 row = dtsetEntries.NewRow