bugfix cDHF_Anhaenge.docID, aliqu Urlaubsrechner

This commit is contained in:
2024-01-18 08:33:18 +01:00
parent 865eb72965
commit 4249e3609d
2 changed files with 35 additions and 34 deletions

View File

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

View File

@@ -611,6 +611,7 @@ Public Class frmStartOptions
cDHF_Anhaenge.SAVE() cDHF_Anhaenge.SAVE()
Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
If cDHF_Anhaenge.docID > 0 AndAlso cDHF_Anhaenge.LRN <> "" Then
Select Case row("MsgTyp") Select Case row("MsgTyp")
Case "EZ922" Case "EZ922"
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
@@ -649,7 +650,7 @@ Public Class frmStartOptions
End Select End Select
End If
End If End If
Next Next