div. Änderungen
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user