bugfix cDHF_Anhaenge.docID, aliqu Urlaubsrechner
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user