div. Änderungen

This commit is contained in:
2025-09-24 12:12:03 +02:00
parent cd3d34182f
commit 3556d96d7a
8 changed files with 216 additions and 38 deletions

View File

@@ -408,12 +408,14 @@ Public Class frmUeberstundenauszahlen
Next
If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt + stunden25bereitsausbezahlt) > 0 Then
If MA.mit_firma = "ATILLA" Then GoTo sonderRegelungAtilla :
picDel.Visible = True
Button1.Enabled = False
txtAusz.Enabled = False
picShow.Visible = True
Else
Button1.Enabled = True
sonderRegelungAtilla:
Button1.Enabled = True
txtAusz.Enabled = True
picShow.Visible = False
@@ -816,6 +818,10 @@ Public Class frmUeberstundenauszahlen
If istTeilzeit Then txtAusgabe.Append("25% ÜS: " & CDbl(txtberAusz25.Text) & vbNewLine)
'txtAusgabe.Append("ÜS gesamt: " & CDbl(txtberAusz100.Text) + CDbl(txtberAusz50.Text) + CDbl(txtberAusz25.Text))
If cbxabwDatum.Checked Then
MsgBox("Das Zurücksetzen von bereits ausgezahlten Stunden bei abweichenden Datum wird aktuell (noch) nicht unterstützt!")
Exit Sub
End If
Dim aksAuszahlung As MsgBoxResult = MsgBox(txtAusgabe.ToString, vbYesNo)
If aksAuszahlung = vbYes Then