AMbar, Vorauskasse, etc.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -593,6 +593,29 @@ Public Class frmUeberstundenauszahlen
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
+        Dim checkauszahlungsdatum As Boolean = False
+        Dim meldung As String = ""
+        Dim stichtag As Integer = 25
+        Select Case MA.mit_firma
+            Case "ATILLA"
+                meldung = " des Vormonats"
+                If auszahlugsdatum.Month = Now.Month - 1 AndAlso Now.Day < 25 Or auszahlugsdatum.Month = Now.Month AndAlso Now.Day < 25 Or auszahlugsdatum.Month > Now.Month Then
+                    checkauszahlungsdatum = True
+                End If
+
+            Case Else
+                meldung = " des Monats"
+                If auszahlugsdatum.Month = Now.Month AndAlso Now.Day < 25 Or auszahlugsdatum.Month > Now.Month Then
+                    checkauszahlungsdatum = True
+                End If
+
+        End Select
+
+        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
+        End If
+
         '65;"01-Lfd Saldo"
         '66;02-Krank
         '67;03-Urlaub
@@ -617,6 +640,10 @@ Public Class frmUeberstundenauszahlen
         '1551;"AUSZ ÜS 50%"
         '1598; Korrektur MJ - ÜBER API ansprechen!
 
+
+
+
+
         'sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / faktor100Zuschlag, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
         'sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / faktor50Zuschlag, 2)
         'sum0 = RoundOfDigits(CDbl(txtAusz50vonSaldo.Text) * 100 / faktorTeilzeit, 2)