edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TC API -> gross Mass issue behoben

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-05-11 11:30:34 +02:00
parent dc53bc10fa
commit bb14f1910c
2 changed files with 50 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -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

7
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -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