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

bugfix cDHF_Anhaenge.docID, aliqu Urlaubsrechner

Browse Source
This commit is contained in:
d.breimaier
2024-01-18 08:33:18 +01:00
parent 865eb72965
commit 4249e3609d
2 changed files with 35 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -1349,10 +1349,10 @@ Public Class frmMitarbDetails
Dim days As Double = span.TotalDays
Dim uansp As Double = 0
Dim aliquU As Double = 0
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
calcUrlaubsabspruch(cbUrlaubInStund.Checked)
If days > 0 AndAlso uansp > 0 Then
calcUrlaubsabspruch(cbUrlaubInStund.Checked)
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
If Not cbUrlaubInStund.Checked Then
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
txtaliquUA.Text = aliquU