From bb14f1910c35fd5bc50ebf00c93689aaa70f9650 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 11 May 2026 11:30:34 +0200
Subject: [PATCH] TC API -> gross Mass issue behoben

---
 DAKOSY_Worker/cImporter_DakosyToVERAG.vb | 59 ++++++++++++++++++------
 TELOTEK_Worker_lib/cTelokec.vb           |  7 ++-
 2 files changed, 50 insertions(+), 16 deletions(-)

diff --git a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
index c64b775..2503465 100644
--- a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
@@ -170,23 +170,25 @@ Public Class cImporter_DakosyToVERAG
 
             If eza.eza_AUFSCHUB IsNot Nothing Then
                 For Each d In eza.eza_AUFSCHUB
+                    If d.ezaAfb_PositionsNummer Is Nothing Then
 
-                    Dim duty As New cVERAG_CustomsDeclarations_Duty
+                        Dim duty As New cVERAG_CustomsDeclarations_Duty
 
-                    duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
-                    duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
-                    duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
-                    duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
-                    duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
-                    duty.zaDuty_AccountHolderName = d.AufschubnehmerName
-                    duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
-                    duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
-                    duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
-                    duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
-                    duty.zaDuty_Currency = "EUR"
-                    duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+                        duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+                        duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+                        duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+                        duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+                        duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+                        duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+                        duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+                        duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+                        duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                        duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                        duty.zaDuty_Currency = "EUR"
+                        duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
 
-                    ZA.Duties.Add(duty)
+                        ZA.Duties.Add(duty)
+                    End If
                 Next
             End If
 
@@ -286,6 +288,35 @@ Public Class cImporter_DakosyToVERAG
                         Next
                     End If
 
+                    ' ================================================================
+                    ' ABGABEN  POS
+                    ' ================================================================
+
+                    If eza.eza_AUFSCHUB IsNot Nothing Then
+                        For Each d In eza.eza_AUFSCHUB
+                            If d.ezaAfb_PositionsNummer IsNot Nothing AndAlso CInt(d.ezaAfb_PositionsNummer) = item.zaItem_PosNo Then
+
+                                Dim duty As New cVERAG_CustomsDeclarations_Duty
+
+                                duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+                                duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+                                duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+                                duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+                                duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+                                duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+                                duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+                                duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+                                duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                                duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                                duty.zaDuty_Currency = "EUR"
+                                duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+                                duty.zaDuty_Prozentsatz = ToNullableDecimal(d.ezaAfb_Prozentsatz)
+
+                                item.Duties.Add(duty)
+                            End If
+                        Next
+                    End If
+
                     ZA.Items.Add(item)
                 Next
             End If
diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb
index 114300c..555a577 100644
--- a/TELOTEK_Worker_lib/cTelokec.vb
+++ b/TELOTEK_Worker_lib/cTelokec.vb
@@ -921,7 +921,9 @@ Public Class cTelotec_Anmeldung
 
             SPEDITIONSBUCH.Rechnungsbetrag = DY.ValData_InvVal
             ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
-            SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross
+            If DY.Hea_TotGross IsNot Nothing Then
+                SPEDITIONSBUCH.Rohmasse = CDbl(DY.Hea_TotGross)
+            End If
 
             'Anhang
             If If(DY.Refs_CRN, "") <> String.Empty Then
@@ -1076,7 +1078,8 @@ Public Class cTelotec_Anmeldung
             ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
             SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross
 
-
+            MsgBox(SPEDITIONSBUCH.Rohmasse)
+            MsgBox(DY.Hea_TotGross)
             'Personal Abfertigung:
             Try
                 If If(DY.dec_CreatePersonalID, DY.Represent_Na) IsNot Nothing Then