ADMIN/cNCTSPartnerWorker/cTR_NCTS.vb

Imports System.Globalization

Public Class cTR_NCTS

    Public Shared Function GET_FROM_NCTSTR_CC015B(filePath As String, ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) As String
        Dim CC015B As cNCTSPartnerWorker.CC015B.CC015BType = cNCTSPartnerWorker.CC015B.CC015BType.LoadFromFile(filePath)
        'NCTS
        If CC015B.HEAHEA IsNot Nothing Then
            If CC015B.HEAHEA.RefNumHEA4 IsNot Nothing Then NCTS.ncts_ObjectName = CC015B.HEAHEA.RefNumHEA4

            If CC015B.HEAHEA.TypOfDecHEA24 IsNot Nothing Then NCTS.ncts_ArtAnmeldung = CC015B.HEAHEA.TypOfDecHEA24
            If CC015B.HEAHEA.CouOfDesCodHEA30 IsNot Nothing Then NCTS.ncts_BestimmungslandCode = CC015B.HEAHEA.CouOfDesCodHEA30
            If CC015B.HEAHEA.PlaOfLoaCodHEA46 IsNot Nothing Then NCTS.ncts_SumA_Ladeort = CC015B.HEAHEA.PlaOfLoaCodHEA46
            If CC015B.HEAHEA.CouOfDisCodHEA55 IsNot Nothing Then NCTS.ncts_VersendungsLandCode = CC015B.HEAHEA.CouOfDisCodHEA55
            If CC015B.HEAHEA.InlTraModHEA75 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = CC015B.HEAHEA.InlTraModHEA75
            If CC015B.HEAHEA.TraModAtBorHEA76 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = CC015B.HEAHEA.TraModAtBorHEA76
            If CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
            If CC015B.HEAHEA.NatOfMeaOfTraAtDHEA80 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = CC015B.HEAHEA.NatOfMeaOfTraAtDHEA80
            If CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
            If CC015B.HEAHEA.NatOfMeaOfTraCroHEA87 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
            '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 = 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
            If CC015B.HEAHEA.CodPlUnHEA357 IsNot Nothing Then NCTS.ncts_SumA_Entladeort = CC015B.HEAHEA.CodPlUnHEA357

            If CC015B.TRAPRIPC1 IsNot Nothing Then
                If CC015B.TRAPRIPC1.NamPC17 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Name = CC015B.TRAPRIPC1.NamPC17
                If CC015B.TRAPRIPC1.StrAndNumPC122 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = CC015B.TRAPRIPC1.StrAndNumPC122
                If CC015B.TRAPRIPC1.PosCodPC123 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_PLZ = CC015B.TRAPRIPC1.PosCodPC123
                If CC015B.TRAPRIPC1.CitPC124 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Ort = CC015B.TRAPRIPC1.CitPC124
                If CC015B.TRAPRIPC1.CouPC125 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Land = CC015B.TRAPRIPC1.CouPC125
                If CC015B.TRAPRIPC1.TINPC159 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_EORI = CC015B.TRAPRIPC1.TINPC159
            End If

            'AbgangsZollstelle
            If CC015B.CUSOFFDEPEPT IsNot Nothing Then
                If CC015B.CUSOFFDEPEPT.RefNumEPT1 IsNot Nothing Then NCTS.ncts_AbgangsDienststellennummer = CC015B.CUSOFFDEPEPT.RefNumEPT1
            End If

            'BestimmungsZollstelle
            If CC015B.CUSOFFDESEST IsNot Nothing Then
                If CC015B.CUSOFFDESEST.RefNumEST1 IsNot Nothing Then NCTS.ncts_BestimmungsstelleDienststellennummer = CC015B.CUSOFFDESEST.RefNumEST1
            End If

            'Bearbeiter
            If CC015B.REPREP IsNot Nothing Then
                If CC015B.REPREP.NamREP5 IsNot Nothing Then NCTS.ncts_Bearbeiter = CC015B.REPREP.NamREP5
                'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1
            End If

            'Frist
            If CC015B.CONRESERS IsNot Nothing Then
                If CC015B.CONRESERS.DatLimERS69 IsNot Nothing Then NCTS.ncts_Wiedergestellungsdatum = CC015B.CONRESERS.DatLimERS69
            End If

            ''Verschluss
            If CC015B.SEAINFSLI IsNot Nothing Then
                If CC015B.SEAINFSLI.SeaNumSLI2 IsNot Nothing Then NCTS.ncts_Verschluss_Anzahl = CC015B.SEAINFSLI.SeaNumSLI2
                If CC015B.SEAINFSLI.SEAIDSID IsNot Nothing AndAlso CC015B.SEAINFSLI.SEAIDSID.Count > 0 Then
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 0 Then NCTS.ncts_Verschluss_Zeichen1 = CC015B.SEAINFSLI.SEAIDSID(0).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 1 Then NCTS.ncts_Verschluss_Zeichen2 = CC015B.SEAINFSLI.SEAIDSID(1).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 2 Then NCTS.ncts_Verschluss_Zeichen3 = CC015B.SEAINFSLI.SEAIDSID(2).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 3 Then NCTS.ncts_Verschluss_Zeichen4 = CC015B.SEAINFSLI.SEAIDSID(3).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 4 Then NCTS.ncts_Verschluss_Zeichen5 = CC015B.SEAINFSLI.SEAIDSID(4).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 5 Then NCTS.ncts_Verschluss_Zeichen6 = CC015B.SEAINFSLI.SEAIDSID(5).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 6 Then NCTS.ncts_Verschluss_Zeichen7 = CC015B.SEAINFSLI.SEAIDSID(6).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 7 Then NCTS.ncts_Verschluss_Zeichen8 = CC015B.SEAINFSLI.SEAIDSID(7).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 8 Then NCTS.ncts_Verschluss_Zeichen9 = CC015B.SEAINFSLI.SEAIDSID(8).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 9 Then NCTS.ncts_Verschluss_Zeichen10 = CC015B.SEAINFSLI.SEAIDSID(9).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 10 Then NCTS.ncts_Verschluss_Zeichen11 = CC015B.SEAINFSLI.SEAIDSID(10).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 11 Then NCTS.ncts_Verschluss_Zeichen12 = CC015B.SEAINFSLI.SEAIDSID(11).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 12 Then NCTS.ncts_Verschluss_Zeichen13 = CC015B.SEAINFSLI.SEAIDSID(12).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 13 Then NCTS.ncts_Verschluss_Zeichen14 = CC015B.SEAINFSLI.SEAIDSID(13).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 14 Then NCTS.ncts_Verschluss_Zeichen15 = CC015B.SEAINFSLI.SEAIDSID(14).SeaIdeSID1
                    If CC015B.SEAINFSLI.SEAIDSID.Count > 15 Then NCTS.ncts_Verschluss_Zeichen16 = CC015B.SEAINFSLI.SEAIDSID(15).SeaIdeSID1
                End If
                '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
                    If GUAGUA.GUAREFREF IsNot Nothing Then
                        For Each REF In GUAGUA.GUAREFREF
                            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.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 BRG.nctsSA_AbgabenBetragFremdWaehrung IsNot Nothing Then
                                If If(BRG.nctsSA_Waerung, "") <> "EUR" Then
                                    Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE_EURTOCUR(BRG.nctsSA_AbgabenBetragFremdWaehrung, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
                                    BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, BRG.nctsSA_AbgabenBetragFremdWaehrung)
                                Else
                                    BRG.nctsSA_AbgabenBetrag = BRG.nctsSA_AbgabenBetragFremdWaehrung
                                End If
                            End If
                            NCTS.ncts_SICHERHEITSANGABEN.Add(BRG)
                        Next
                    End If
                Next
            End If
        End If
        If CC015B.ITI IsNot Nothing AndAlso CC015B.ITI.Count > 0 Then
            If CC015B.ITI.Count > 0 Then NCTS.ncts_SumA_BefoerderungsrouteLand1 = CC015B.ITI(0).CouOfRouCodITI1
            If CC015B.ITI.Count > 1 Then NCTS.ncts_SumA_BefoerderungsrouteLand2 = CC015B.ITI(1).CouOfRouCodITI1
            If CC015B.ITI.Count > 2 Then NCTS.ncts_SumA_BefoerderungsrouteLand3 = CC015B.ITI(2).CouOfRouCodITI1
            If CC015B.ITI.Count > 3 Then NCTS.ncts_SumA_BefoerderungsrouteLand4 = CC015B.ITI(3).CouOfRouCodITI1
            If CC015B.ITI.Count > 4 Then NCTS.ncts_SumA_BefoerderungsrouteLand5 = CC015B.ITI(4).CouOfRouCodITI1
            If CC015B.ITI.Count > 5 Then NCTS.ncts_SumA_BefoerderungsrouteLand6 = CC015B.ITI(5).CouOfRouCodITI1
            If CC015B.ITI.Count > 6 Then NCTS.ncts_SumA_BefoerderungsrouteLand7 = CC015B.ITI(6).CouOfRouCodITI1
            If CC015B.ITI.Count > 7 Then NCTS.ncts_SumA_BefoerderungsrouteLand8 = CC015B.ITI(7).CouOfRouCodITI1
            If CC015B.ITI.Count > 8 Then NCTS.ncts_SumA_BefoerderungsrouteLand9 = CC015B.ITI(8).CouOfRouCodITI1
            If CC015B.ITI.Count > 9 Then NCTS.ncts_SumA_BefoerderungsrouteLand10 = CC015B.ITI(9).CouOfRouCodITI1
        End If


        'Frächter
        If CC015B.CARTRA100 IsNot Nothing Then
            If CC015B.CARTRA100.NamCARTRA121 IsNot Nothing Then NCTS.ncts_SumA_Befoerderer_Name = CC015B.CARTRA100.NamCARTRA121
            If CC015B.CARTRA100.StrAndNumCARTRA254 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = CC015B.CARTRA100.StrAndNumCARTRA254
            If CC015B.CARTRA100.PosCodCARTRA121 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_PLZ = CC015B.CARTRA100.PosCodCARTRA121
            If CC015B.CARTRA100.CitCARTRA789 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Ort = CC015B.CARTRA100.CitCARTRA789
            If CC015B.CARTRA100.CouCodCARTRA587 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Land = CC015B.CARTRA100.CouCodCARTRA587
            If CC015B.CARTRA100.TINCARTRA254 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_EORI = CC015B.CARTRA100.TINCARTRA254
        End If

        'WARENPOSITIONEN
        If CC015B.GOOITEGDS IsNot Nothing AndAlso CC015B.GOOITEGDS.Count > 0 Then
            For Each GOOITEGDS In CC015B.GOOITEGDS
                Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition

                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 = CDbl(GOOITEGDS.GroMasGDS46)
                If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = CDbl(GOOITEGDS.NetMasGDS48)

                'Versender
                If GOOITEGDS.TRACONCO2 IsNot Nothing Then
                    If GOOITEGDS.TRACONCO2.NamCO27 IsNot Nothing Then POS.nctsWP_Versender_Name = GOOITEGDS.TRACONCO2.NamCO27
                    If GOOITEGDS.TRACONCO2.StrAndNumCO222 IsNot Nothing Then POS.nctsWP_Versender_StrasseHausnummer = GOOITEGDS.TRACONCO2.StrAndNumCO222
                    If GOOITEGDS.TRACONCO2.PosCodCO223 IsNot Nothing Then POS.nctsWP_Versender_PLZ = GOOITEGDS.TRACONCO2.PosCodCO223
                    If GOOITEGDS.TRACONCO2.CitCO224 IsNot Nothing Then POS.nctsWP_Versender_Ort = GOOITEGDS.TRACONCO2.CitCO224
                    If GOOITEGDS.TRACONCO2.CouCO225 IsNot Nothing Then POS.nctsWP_Versender_Land = GOOITEGDS.TRACONCO2.CouCO225
                    If GOOITEGDS.TRACONCO2.TINCO259 IsNot Nothing Then POS.nctsWP_Versender_EORI = GOOITEGDS.TRACONCO2.TINCO259
                End If

                'Empfänger
                If GOOITEGDS.TRACONCE2 IsNot Nothing Then
                    If GOOITEGDS.TRACONCE2.NamCE27 IsNot Nothing Then POS.nctsWP_Empfaenger_Name = GOOITEGDS.TRACONCE2.NamCE27
                    If GOOITEGDS.TRACONCE2.StrAndNumCE222 IsNot Nothing Then POS.nctsWP_Empfaenger_StrasseHausnummer = GOOITEGDS.TRACONCE2.StrAndNumCE222
                    If GOOITEGDS.TRACONCE2.PosCodCE223 IsNot Nothing Then POS.nctsWP_Empfaenger_PLZ = GOOITEGDS.TRACONCE2.PosCodCE223
                    If GOOITEGDS.TRACONCE2.CitCE224 IsNot Nothing Then POS.nctsWP_Empfaenger_Ort = GOOITEGDS.TRACONCE2.CitCE224
                    If GOOITEGDS.TRACONCE2.CouCE225 IsNot Nothing Then POS.nctsWP_Empfaenger_Land = GOOITEGDS.TRACONCE2.CouCE225
                    If GOOITEGDS.TRACONCE2.TINCE259 IsNot Nothing Then POS.nctsWP_Empfaenger_EORI = GOOITEGDS.TRACONCE2.TINCE259
                End If


                If GOOITEGDS.PACGS2 IsNot Nothing Then
                    For Each PACGS2 In GOOITEGDS.PACGS2
                        Dim PK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
                        If PACGS2.NumOfPacGS24 IsNot Nothing Then PK.nctsWpPk_PackstueckeAnzahl = PACGS2.NumOfPacGS24
                        If PACGS2.KinOfPacGS23 IsNot Nothing Then PK.nctsWpPk_Verpackungsart = PACGS2.KinOfPacGS23
                        If PACGS2.MarNumOfPacGS21 IsNot Nothing Then PK.nctsWpPk_ZeichenNummern = PACGS2.MarNumOfPacGS21
                        POS.nctsWP_PACKSTUECKE.Add(PK)
                    Next
                End If
                NCTS.ncts_WARENPOS.Add(POS)
            Next
        End If

    End Function

End Class