dakosy, etc.

2026-06-10 08:16:40 +02:00
parent 14fd7c2f69
commit 67965acfea
8 changed files with 245 additions and 17 deletions
--- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
+++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
@@ -548,9 +548,9 @@ Public Class cZollsysteme_Aktenbeschriftung
            ANZ_POS = EZA.eza_WARENPOS.Count
            For Each A In EZA.eza_AUFSCHUB
                If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
-                    ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
+                    ABGABEN_EUST += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
                Else
-                    ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
+                    ABGABEN_ZOLL += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
                End If
            Next