div. Änderungen

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -596,6 +596,7 @@ Public Class frmUeberstundenauszahlen
         Dim checkauszahlungsdatum As Boolean = False
         Dim meldung As String = ""
         Dim stichtag As Integer = 25
+        Dim ignoreAuszahlungsdatum As Boolean = False
         Select Case MA.mit_firma
             Case "ATILLA"
                 meldung = " des Vormonats"
@@ -613,7 +614,13 @@ Public Class frmUeberstundenauszahlen
 
         If Not checkauszahlungsdatum Then
             Dim check = InputBox("Die Ü-Std. von " & MonthName(auszahlugsdatum.Month) & " wurden uU schon in die Lohnverrechnung übertragen (Stichtag: " & stichtag & meldung & ")!" & vbNewLine & "Wollten Sie die Ü-Std. trotzdem in Timas austragen, dann bitte GELESEN eingeben!", "Auszahlungsmonat beachten!")
-            If check <> "GELESEN" Then Exit Sub
+            If check <> "GELESEN" Then
+                Exit Sub
+            Else
+                ignoreAuszahlungsdatum = True
+            End If
+
+
         End If
 
         '65;"01-Lfd Saldo"
@@ -750,6 +757,7 @@ Public Class frmUeberstundenauszahlen
             ues.uest_maxUE = CDbl(txtSummeAuszb.Text)
             ues.uest_paidout_sum = gesamt
             ues.uest_isParttime = cbxTeilzeit.Checked
+            ues.uest_ignorePayoutDate = ignoreAuszahlungsdatum
 
             If istTeilzeit Then
                 ues.uest_25 = sum0