neu

DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb

@@ -28,6 +28,10 @@
 
     Property ATCMRN As String
 
+    Property ABGABEN_EUST As Double = 0
+    Property ABGABEN_ZOLL As Double = 0
+    Property ANZ_POS As Integer = 0
+
     Property isUeT1 As Boolean = False
 
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -183,6 +187,15 @@
                     cnt += 1
                 Next
             End If
+            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)
+                Else
+                    ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
+                End If
+            Next
+
             num_Colli = Colli
             Me.Colli = Colli & " Pk."