Ueberstundenauszahlung (Prüfung bei manuell ausgetragenen ÜS auf MAX-Auszahlung).

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -626,6 +626,11 @@ Public Class frmUeberstundenauszahlen
         Dim stichtag As Integer = 25
         Dim ignoreAuszahlungsdatum As Boolean = False
 
+        If cbxoverwrite.Checked AndAlso (CDbl(txtSummeAuszb.Text) < CDbl(txtAuszManuell.Text) Or CDbl(txtSummeAuszb.Text) < CDbl(txtAuszManuell_hhmm.Text)) Then
+            MsgBox("Auszahlungssumme übersteigt den aktuellen Saldo!" & vbNewLine & "Vorgang wird abgebrochen")
+            Exit Sub
+        End If
+
         Select Case IIf(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)
             '25.02.2025: ATILLA ist bereits auf das einheitliche Auszahlungsschema umgestiegen! 
             'Case "ATILLA"