ueberstunden, messenger

VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb

@@ -19,6 +19,7 @@ Public Class cUeberstunden
     Property uest_maxUE As Object = Nothing
     Property uest_ignoreLimit As Boolean
     Property uest_overwriteValue As Boolean
+    Property uest_paidout_sum As Object = Nothing
 
     Public hasEntry = False
 
@@ -55,6 +56,7 @@ Public Class cUeberstunden
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_ignoreLimit", uest_ignoreLimit))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_maxUE", uest_maxUE))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_overwriteValue", uest_overwriteValue))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_paidout_sum", uest_paidout_sum))
 
         Return list
         End Function

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -827,8 +827,6 @@ Public Class frmMessenger
                 End If
             Next
 
-
-
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -372,6 +372,7 @@ Public Class frmUeberstundenauszahlen
             ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
             ues.uest_ignoreLimit = Not maxUberstundenpruefung
             ues.uest_maxUE = CDbl(txtSummeAuszb.Text)
+            ues.uest_paidout_sum = gesamt
 
             If istTeilzeit Then
                 ues.uest_25 = sum0
@@ -561,8 +562,8 @@ Public Class frmUeberstundenauszahlen
 
         If stundenlfdSaldo <= 0 Then Button1.Enabled = False
 
-        txtSummeAuszb.Text = stundenlfdSaldo
-        'txtSummeAuszb.Text = stundenlfdSaldobere
+        'txtSummeAuszb.Text = stundenlfdSaldo
+        txtSummeAuszb.Text = stundenlfdSaldobere
 
 
     End Sub