Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

DAKOSY_Worker/cImporter_DakosyToVERAG.vb

@@ -170,6 +170,7 @@ 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
 
@@ -187,6 +188,7 @@ Public Class cImporter_DakosyToVERAG
                         duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
 
                         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

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