bugfix cDHF_Anhaenge.docID, aliqu Urlaubsrechner

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -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
 
-                    If days > 0 AndAlso uansp > 0 Then
                     calcUrlaubsabspruch(cbUrlaubInStund.Checked)
+                    If days > 0 AndAlso uansp > 0 Then
+                        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

initATLASAufschubkonten/frmStartOptions.vb

@@ -611,6 +611,7 @@ Public Class frmStartOptions
 
                         cDHF_Anhaenge.SAVE()
                         Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
+                        If cDHF_Anhaenge.docID > 0 AndAlso cDHF_Anhaenge.LRN <> "" Then
                             Select Case row("MsgTyp")
                                 Case "EZ922"
                                     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 If
 
                     End If
                 Next