edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verzollungspreise, Ueberstunden, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-04-10 17:26:05 +02:00
parent 317fff10fc
commit 19f310efd2
4 changed files with 13 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -787,7 +787,7 @@ Public Class frmUeberstundenauszahlen
If txtAusz.Text <> "" AndAlso IsNumeric(txtAusz.Text) Then
Dim summeAusz = CDbl(txtAusz.Text)
If summeAusz <= 0 Then
If summeAusz < 0 Then
txtAusz50vonSaldo.Text = 0
txtAusz50.Text = 0
txtAusz100.Text = 0
@@ -836,24 +836,25 @@ Public Class frmUeberstundenauszahlen
End If
If summeAusz >= stundenlfdSaldo Then
'If summeAusz < 0 Then
' txtAusz50vonSaldo.Text = "0"
'ElseIf summeAusz > stundenlfdSaldo Then
' summeAusz = RoundOfDigits(stundenlfdSaldo - summeAusz, 2)
' txtAusz50vonSaldo.Text = summeAusz
'Else
' txtAusz50vonSaldo.Text = summeAusz
'End If
txtAusz50vonSaldo.Text = summeAusz
ElseIf summeAusz < 0 Then
If summeAusz < 0 Then
txtAusz50vonSaldo.Text = "0"
Else
summeAusz = RoundOfDigits(summeAusz - stundenlfdSaldo, 2)
txtAusz50vonSaldo.Text = summeAusz
End If
End If
If stundenlfdSaldo < 0 And cbxoverwrite.Checked Then txtAusz50vonSaldo.Text = 0 'Wenn Saldo negativ, dann nichts vom lfd Saldo vorschlagen!
If Not refresh Then refresh = Not refresh
If Not refresh Then refresh = Not refresh
End Sub