From 3211e1e60f05eda29c695ebc79fe464c58ee010b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 1 Mar 2024 08:20:45 +0100 Subject: [PATCH] ueberstunden, messenger --- VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb | 2 ++ VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb | 2 -- .../Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb | 5 +++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb index 6537794f..8156c66a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 8538eb0b..37d48d11 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index ae2db613..a3ee2f98 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/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