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

NCTS_TR CC015B, ATLAS Codelisten, BugFixes DY Nachrichtenverarbeitung, EZOLL: Zollbeleg versenden

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-06 22:04:21 +01:00
parent bdcac48401
commit 6dd614544d
14 changed files with 969 additions and 625 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd
View File

@@ -674,13 +674,13 @@
<xs:documentation/>
</xs:annotation>
</xs:element>
<xs:element name="CurREF8" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:element name="CurREF8" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation/>
</xs:annotation>
</xs:element>
<xs:element name="AmoConREF7" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:element name="AmoConREF7" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation/>
</xs:annotation>
</xs:element>

39
cNCTSPartnerWorker/cTR_NCTS.vb
View File

@@ -21,7 +21,9 @@ Public Class cTR_NCTS
'If CC015B.HEAHEA.ConIndHEA96 IsNot Nothing Then NCTS. = CC015B.HEAHEA.ConIndHEA96 CONTAINER
If CC015B.HEAHEA.TotNumOfPacHEA306 IsNot Nothing Then NCTS.ncts_GesamtAnzahlPackstuecke = CC015B.HEAHEA.TotNumOfPacHEA306
'If CC015B.HEAHEA.TotNumOfIteHEA305 IsNot Nothing Then NCTS.itemsGEsamt = CC015B.HEAHEA.TotNumOfIteHEA305
If CC015B.HEAHEA.TotGroMasHEA307 IsNot Nothing Then NCTS.ncts_GesamtRohmasse = CC015B.HEAHEA.TotGroMasHEA307
If CC015B.HEAHEA.TotGroMasHEA307 IsNot Nothing Then NCTS.ncts_GesamtRohmasse = CDbl(CC015B.HEAHEA.TotGroMasHEA307)
If CC015B.HEAHEA.DecDatHEA383 IsNot Nothing Then NCTS.ncts_Trans_DatumZeit = DateTime.ParseExact(CC015B.HEAHEA.DecDatHEA383, "yyyyMMdd", CultureInfo.CurrentCulture)
If CC015B.HEAHEA.DecPlaHEA394 IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394 '?
'If CC015B.HEAHEA.DecPlaHEA394LNG IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394LNG
@@ -81,7 +83,6 @@ Public Class cTR_NCTS
'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1
End If
'Bürgschaft
If CC015B.GUAGUA IsNot Nothing AndAlso CC015B.GUAGUA.Count > 0 Then
For Each GUAGUA In CC015B.GUAGUA
@@ -90,17 +91,37 @@ Public Class cTR_NCTS
Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
If GUAGUA.GuaTypGUA1 IsNot Nothing Then BRG.nctsSA_ArtCode = GUAGUA.GuaTypGUA1
If REF.GuaRefNumGRNREF1 IsNot Nothing Then BRG.nctsSA_GRN = REF.GuaRefNumGRNREF1
If REF.CurREF8 IsNot Nothing Then BRG.nctsSA_Waerung = REF.CurREF8
'If REF.CurREF8 IsNot Nothing Then BRG.nctsSA_Waerung = REF.CurREF8
If REF.AccCodREF6 IsNot Nothing Then BRG.nctsSA_Zugriffcode = REF.AccCodREF6
If REF.AmoConREF7 IsNot Nothing Then BRG.nctsSA_AbgabenBetragFremdWaehrung = REF.AmoConREF7
Try
'KEINE AHNUNG...
If REF.CurREF8 IsNot Nothing Then
Dim node As System.Xml.XmlNode = REF.CurREF8(0)
BRG.nctsSA_Waerung = node.InnerText
End If
Catch ex As Exception
End Try
Try
'KEINE AHNUNG...
If REF.AmoConREF7 IsNot Nothing Then
Dim node As System.Xml.XmlNode = REF.AmoConREF7(0)
BRG.nctsSA_AbgabenBetragFremdWaehrung = node.InnerText
End If
Catch ex As Exception
End Try
'--> EUR
If REF.AmoConREF7 IsNot Nothing Then
If BRG.nctsSA_AbgabenBetragFremdWaehrung IsNot Nothing Then
If If(BRG.nctsSA_Waerung, "") <> "EUR" Then
Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(REF.AmoConREF7, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, REF.AmoConREF7)
Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(BRG.nctsSA_AbgabenBetragFremdWaehrung, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, BRG.nctsSA_AbgabenBetragFremdWaehrung)
Else
BRG.nctsSA_AbgabenBetrag = REF.AmoConREF7
BRG.nctsSA_AbgabenBetrag = BRG.nctsSA_AbgabenBetragFremdWaehrung
End If
End If
NCTS.ncts_SICHERHEITSANGABEN.Add(BRG)
@@ -141,8 +162,8 @@ Public Class cTR_NCTS
If GOOITEGDS.IteNumGDS7 IsNot Nothing Then POS.nctsWP_PositionsNummer = GOOITEGDS.IteNumGDS7
If GOOITEGDS.ComCodTarCodGDS10 IsNot Nothing Then POS.nctsWP_Warennummer = GOOITEGDS.ComCodTarCodGDS10
If GOOITEGDS.GooDesGDS23 IsNot Nothing Then POS.nctsWP_Warenbezeichnung = GOOITEGDS.GooDesGDS23
If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = GOOITEGDS.GroMasGDS46
If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = GOOITEGDS.NetMasGDS48
If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = CDbl(GOOITEGDS.GroMasGDS46)
If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = CDbl(GOOITEGDS.NetMasGDS48)
'Versender
If GOOITEGDS.TRACONCO2 IsNot Nothing Then