Mailsender, status EZA send

DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb

@@ -396,6 +396,7 @@ Public Class cZollsysteme_Aktenbeschriftung
             Dim ABGABEN_LIST = VERAG_PROG_ALLGEMEIN.cAbgaben.LOAD_LIST(ATCMRN)
             If ABGABEN_LIST IsNot Nothing AndAlso ABGABEN_LIST.Count > 0 Then
                 For Each A In ABGABEN_LIST
+
                     Select Case A.Belegart
                         Case "2EU", "2IG", "5EU" ' "2PE",
                             ABGABEN_EUST += If(A.Betrag, 0)
@@ -547,10 +548,13 @@ Public Class cZollsysteme_Aktenbeschriftung
             End If
             ANZ_POS = EZA.eza_WARENPOS.Count
             For Each A In EZA.eza_AUFSCHUB
-                If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
-                    ABGABEN_EUST += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
-                Else
-                    ABGABEN_ZOLL += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
+                If A.ezaAfb_PositionsNummer Is Nothing OrElse A.ezaAfb_PositionsNummer <= 0 Then
+
+                    If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
+                        ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
+                    Else
+                        ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
+                    End If
                 End If
             Next