essensbestellungen, ueberstundenauszahl.

This commit is contained in:
2025-02-25 11:58:28 +01:00
parent cbeeac234f
commit d0e3e811e5
7 changed files with 327 additions and 156 deletions

View File

@@ -54,6 +54,10 @@ Public Class frmUeberstundenauszahlen
getUeberstunden(False)
'getAddDataFromTimas()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
cbxoverwrite.Enabled = True
End If
End Sub
@@ -69,11 +73,6 @@ Public Class frmUeberstundenauszahlen
End If
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles dtpMonat.ValueChanged, dtpBis.ValueChanged
End Sub
Private Sub cbxTeilzeit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeilzeit.CheckedChanged
@@ -626,11 +625,12 @@ Public Class frmUeberstundenauszahlen
Dim ignoreAuszahlungsdatum As Boolean = False
Select Case IIf(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, 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
'25.02.2025: ATILLA ist bereits auf das einheitliche Auszahlungsschema umgestiegen!
'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"
@@ -988,8 +988,6 @@ Public Class frmUeberstundenauszahlen
Private Sub calxMaxauszahlbar()
'wenn berechneter Saldo negativ, dann ist im Regelfall das aktuelle MOnat noch nicht abgeschlossen!, daher anstatt den berechneten Saldo in overallBalance laden!
txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "dailyBalanceYesterday")
stunden100auszbere = RoundOfDigits(stunden100ausz * faktor100Zuschlag / 100, 2)