Public Class cMICInterface Shared Function generateVersandanmeldungNCTS(cDY As cNCTS_TR, ByRef saveFile As String, DY_ACTION As String) As Boolean Try Dim Interface_VERSION = "003" Dim ObjectAktion = DY_ACTION Dim XML As New CC015B_TR_EXT_V4_3.CC015B 'Transaktion: XML.HEAHEA.RefNumHEA4 = cDY.ncts_ObjectName ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" Dim saveDir = "\\share01\Datenarchiv\MIC\SEND\" If Not System.IO.Directory.Exists(saveDir) Then System.IO.Directory.CreateDirectory(saveDir) End If saveFile = saveDir & "MIC_" & Now.ToString("yyMMdd_HHmmss") & ".xml" 'MsgBox(saveFile) XML.SaveToFile(saveFile) replaceNullDateXML(saveFile) Return False 'TEST! Return True Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) Return False End Try 'XML.Transaktion.IOPartner = getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") 'XML.Transaktion.IODatumZeit = Now 'XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.ncts_firma) '"SUW" 'XML.Transaktion.Version = Interface_VERSION 'XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp ''ObjektIdentifizierung: 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" 'XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE.ObjektIdentifizierungVATyp 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName 'If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias 'Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion 'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB 'If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung ''Kopfdaten: 'XML.EinzelVersandanmeldung.KopfDaten = New VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer 'If cDY.ncts_BestimmungsstelleDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungsstelleDienststellnummer = cDY.ncts_BestimmungsstelleDienststellennummer 'If cDY.ncts_VersendungsLandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.VersendungslandCode = cDY.ncts_VersendungsLandCode 'If cDY.ncts_BestimmungslandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungslandCode = cDY.ncts_BestimmungslandCode 'If cDY.ncts_ArtAnmeldung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.ArtAnmeldungKopfCode = cDY.ncts_ArtAnmeldung 'If cDY.ncts_BeladungsOrt IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BeladungsOrt = cDY.ncts_BeladungsOrt 'XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer = New List(Of String) 'If cDY.ncts_DurchgangszollstelleDienststellnummer1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer1) 'If cDY.ncts_DurchgangszollstelleDienststellnummer2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer2) 'If cDY.ncts_DurchgangszollstelleDienststellnummer3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer3) 'If cDY.ncts_DurchgangszollstelleDienststellnummer4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer4) 'If cDY.ncts_DurchgangszollstelleDienststellnummer5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer5) 'If cDY.ncts_DurchgangszollstelleDienststellnummer6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer6) 'If cDY.ncts_DurchgangszollstelleDienststellnummer7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer7) 'If cDY.ncts_DurchgangszollstelleDienststellnummer8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer8) 'If cDY.ncts_DurchgangszollstelleDienststellnummer9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer9) 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer 'If cDY.ncts_Wiedergestellungsdatum IsNot Nothing AndAlso IsDate(cDY.ncts_Wiedergestellungsdatum) Then ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = cDY.ncts_Wiedergestellungsdatum 'Else ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = Nothing 'End If 'If cDY.ncts_KzVereinfachtesVerfahren IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.KzVereinfachtesVerfahren = CInt(Int(cDY.ncts_KzVereinfachtesVerfahren)) ' sonst true = -1 ''GesRoh -> auto ''GesPk -> auto ''Verschluss: 'If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.Verschluss = New VersandanmeldungNCTSDE.VerschlussVATyp ' If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.ArtCode = cDY.ncts_Verschluss_ArtCode ' If cDY.ncts_Verschluss_Anzahl IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Anzahl = cDY.ncts_Verschluss_Anzahl ' If cDY.ncts_Verschluss_Zeichen1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen1) ' If cDY.ncts_Verschluss_Zeichen2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen2) ' If cDY.ncts_Verschluss_Zeichen3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen3) ' If cDY.ncts_Verschluss_Zeichen4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen4) ' If cDY.ncts_Verschluss_Zeichen5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen5) ' If cDY.ncts_Verschluss_Zeichen6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen6) ' If cDY.ncts_Verschluss_Zeichen7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen7) ' If cDY.ncts_Verschluss_Zeichen8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen8) ' If cDY.ncts_Verschluss_Zeichen9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen9) ' If cDY.ncts_Verschluss_Zeichen10 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen10) ' If cDY.ncts_Verschluss_Zeichen11 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen11) ' If cDY.ncts_Verschluss_Zeichen12 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen12) ' If cDY.ncts_Verschluss_Zeichen13 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen13) ' If cDY.ncts_Verschluss_Zeichen14 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen14) ' If cDY.ncts_Verschluss_Zeichen15 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen15) ' If cDY.ncts_Verschluss_Zeichen16 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen16) 'End If ''Sicherheitsangaben: 'If cDY.ncts_SICHERHEITSANGABEN.Count > 0 Then ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben = New List(Of VersandanmeldungNCTSDE.SicherheitsangabenVATyp) ' For Each s In cDY.ncts_SICHERHEITSANGABEN ' Dim SA As New VersandanmeldungNCTSDE.SicherheitsangabenVATyp ' If s.nctsSA_ArtCode IsNot Nothing Then SA.ArtCode = s.nctsSA_ArtCode ' If s.nctsSA_BezeichnungBescheinigun IsNot Nothing Then SA.BezeichnungBescheinigung = s.nctsSA_BezeichnungBescheinigun ' If s.nctsSA_AbgabenBetrag IsNot Nothing Then SA.Abgabenbetrag = s.nctsSA_AbgabenBetrag ' If s.nctsSA_GRN IsNot Nothing Then ' SA.GRN = s.nctsSA_GRN ' If If(s.nctsSA_GRN, "") = "05AT510000G000FP7" Then ' If If(s.nctsSA_Zugriffcode, "").replace("0000", "").length <> 4 Then ' s.nctsSA_Zugriffcode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") ' If s.nctsSA_Zugriffcode.length > 4 Then ' s.nctsSA_Zugriffcode = s.nctsSA_Zugriffcode.ToString.Substring(0, 4) ' End If ' End If ' End If ' If s.nctsSA_Zugriffcode IsNot Nothing Then SA.Zugriffscode = s.nctsSA_Zugriffcode ' ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben.Add(SA) ' End If ' Next 'End If ''Beförderungsmittel: '' If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang Or cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode isnot nothing then 'XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel = New VersandanmeldungNCTSDE.BefoerderungsmittelVATyp 'If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenAbgang = cDY.ncts_Befoerderungsmittel_KennzeichenAbgang 'If cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitAbgangCode = cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode 'If cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.VerkehrszweigGrenzueberschreitent = cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent 'If cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.ArtGrenzueberschreitentCode = cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung 'If cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenGrenzueberschreitend = cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend 'If cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitGrenzueberschreitendCode = cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode ''End If ''Adressen 'XML.EinzelVersandanmeldung.KopfDaten.Adressen = New VersandanmeldungNCTSDE.AdressenVATyp 'If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ ' If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI ' If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR ' If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name ' If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer ' If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ ' If cDY.ncts_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Ort = cDY.ncts_Versender_Ort ' If cDY.ncts_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Land = cDY.ncts_Versender_Land ' If cDY.ncts_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.TIN = cDY.ncts_Versender_TIN 'End If 'If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ ' If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI ' If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR ' If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name ' If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer ' If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ ' If cDY.ncts_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Ort = cDY.ncts_Empfaenger_Ort ' If cDY.ncts_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Land = cDY.ncts_Empfaenger_Land ' If cDY.ncts_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.TIN = cDY.ncts_Empfaenger_TIN 'End If 'If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp ' If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI ' If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR ' If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name ' If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer ' If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ ' If cDY.ncts_Hauptverpflichteter_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Ort = cDY.ncts_Hauptverpflichteter_Ort ' If cDY.ncts_Hauptverpflichteter_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Land = cDY.ncts_Hauptverpflichteter_Land ' If cDY.ncts_Hauptverpflichteter_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.TIN = cDY.ncts_Hauptverpflichteter_TIN ' If cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.BewilligungsnummerVersender = cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender ' If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet 'End If ''SumA 'XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit = New VersandanmeldungNCTSDE.SumASicherheitVATyp 'If cDY.ncts_SumA_KzSumASicherheit IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KzSumASicherheit = CInt(Int(cDY.ncts_SumA_KzSumASicherheit)) ' sonst true = -1 'If cDY.ncts_SumA_KennnummerSendung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KennnummerSendung = cDY.ncts_SumA_KennnummerSendung 'If cDY.ncts_SumA_BesondereUmstaende IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BesondereUmstaende = cDY.ncts_SumA_BesondereUmstaende 'If cDY.ncts_SumA_NummerBefoerderung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.NummerBefoerderung = cDY.ncts_SumA_NummerBefoerderung 'If cDY.ncts_SumA_Ladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Ladeort = cDY.ncts_SumA_Ladeort 'If cDY.ncts_SumA_Entladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Entladeort = cDY.ncts_SumA_Entladeort 'If cDY.ncts_SumA_BefoerderungskostenZahlungsweise IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungskostenZahlungsweise = cDY.ncts_SumA_BefoerderungskostenZahlungsweise 'If cDY.ncts_SumA_BefoerderungsrouteLand1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand1) 'If cDY.ncts_SumA_BefoerderungsrouteLand2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand2) 'If cDY.ncts_SumA_BefoerderungsrouteLand3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand3) 'If cDY.ncts_SumA_BefoerderungsrouteLand4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand4) 'If cDY.ncts_SumA_BefoerderungsrouteLand5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand5) 'If cDY.ncts_SumA_BefoerderungsrouteLand6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand6) 'If cDY.ncts_SumA_BefoerderungsrouteLand7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand7) 'If cDY.ncts_SumA_BefoerderungsrouteLand8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand8) 'If cDY.ncts_SumA_BefoerderungsrouteLand9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand9) 'If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp ' If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI ' If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR ' If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name ' If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer ' If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ ' If cDY.ncts_SumA_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Ort = cDY.ncts_SumA_Versender_Ort ' If cDY.ncts_SumA_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Land = cDY.ncts_SumA_Versender_Land ' If cDY.ncts_SumA_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.TIN = cDY.ncts_SumA_Versender_TIN 'End If 'If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp ' If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI ' If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR ' If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name ' If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer ' If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ ' If cDY.ncts_SumA_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Ort = cDY.ncts_SumA_Empfaenger_Ort ' If cDY.ncts_SumA_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Land = cDY.ncts_SumA_Empfaenger_Land ' If cDY.ncts_SumA_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.TIN = cDY.ncts_SumA_Empfaenger_TIN 'End If 'If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp ' If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI ' If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR ' If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name ' If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer ' If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ ' If cDY.ncts_SumA_Befoerderer_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Ort = cDY.ncts_SumA_Befoerderer_Ort ' If cDY.ncts_SumA_Befoerderer_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Land = cDY.ncts_SumA_Befoerderer_Land ' If cDY.ncts_SumA_Befoerderer_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.TIN = cDY.ncts_SumA_Befoerderer_TIN 'End If ''Warenposition: 'If cDY.ncts_WARENPOS IsNot Nothing AndAlso cDY.ncts_WARENPOS.Count > 0 Then ' XML.EinzelVersandanmeldung.WarenPosition = New List(Of VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp) ' For Each p In cDY.ncts_WARENPOS ' Dim WP As New VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp ' If p.nctsWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = p.nctsWP_PositionsNummer ' If p.nctsWP_Warennummer IsNot Nothing Then WP.Warennummer = p.nctsWP_Warennummer ' If p.nctsWP_ArtAnmeldungPositionCode IsNot Nothing Then WP.ArtAnmeldungPositionCode = p.nctsWP_ArtAnmeldungPositionCode ' If p.nctsWP_Warenbezeichnung IsNot Nothing Then WP.Warenbezeichnung = p.nctsWP_Warenbezeichnung ' If p.nctsWP_Warenwert IsNot Nothing Then WP.Warenwert = p.nctsWP_Warenwert.ToString.Replace(",", ".") 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) ' If p.nctsWP_WarenwertWaehrung IsNot Nothing Then WP.WarenwertWaehrung = p.nctsWP_WarenwertWaehrung 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) ' If p.nctsWP_WarenwertProzent IsNot Nothing Then WP.WarenwertProzent = p.nctsWP_WarenwertProzent ' If p.nctsWP_SchaetzKz IsNot Nothing Then WP.SchaetzKz = p.nctsWP_SchaetzKz ' If p.nctsWP_VersendungslandPositionCode IsNot Nothing Then WP.VersendungslandPositionCode = p.nctsWP_VersendungslandPositionCode ' If p.nctsWP_BestimmungslandPositionCode IsNot Nothing Then WP.BestimmungslandPositionCode = p.nctsWP_BestimmungslandPositionCode ' If p.nctsWP_Rohmasse IsNot Nothing Then WP.Rohmasse = p.nctsWP_Rohmasse ' If p.nctsWP_Eigenmasse IsNot Nothing AndAlso CDbl(p.nctsWP_Eigenmasse) > 0 Then WP.Eigenmasse = p.nctsWP_Eigenmasse ' If p.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then WP.BesondereVermerke.ExportAusEU = CInt(Int(p.nctsWP_BesondereVermeke_ExportAusEU)) ' sonst true = -1 ' If p.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing Then WP.BesondereVermerke.ExportAusLand = p.nctsWP_BesondereVermeke_ExportAusLand ' If p.nctsWP_BesondereVermeke_Export IsNot Nothing Then WP.BesondereVermerke.Export = CInt(Int(p.nctsWP_BesondereVermeke_Export)) ' sonst true = -1 ' If p.nctsWP_BesondereVermeke_ExportBeschraenkung IsNot Nothing Then WP.BesondereVermerke.ExportBeschraenkung = CInt(Int(p.nctsWP_BesondereVermeke_ExportBeschraenkung)) ' sonst true = -1 ' If p.nctsWP_BesondereVermeke_ExportAbgaben IsNot Nothing Then WP.BesondereVermerke.ExportAbgaben = CInt(Int(p.nctsWP_BesondereVermeke_ExportAbgaben)) ' sonst true = -1 ' If p.nctsWP_BesondereVermeke_Vermerk IsNot Nothing Then WP.BesondereVermerke.Vermerk = p.nctsWP_BesondereVermeke_Vermerk ' If p.nctsWP_BesondereVermeke_Kz10600 IsNot Nothing Then WP.BesondereVermerke.Kz10600 = CInt(Int(p.nctsWP_BesondereVermeke_Kz10600)) ' sonst true = -1 ' If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then ' WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ ' If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI ' If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR ' If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name ' If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer ' If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ ' If p.nctsWP_Versender_Ort IsNot Nothing Then WP.AdressenPosition.Versender.Ort = p.nctsWP_Versender_Ort ' If p.nctsWP_Versender_Land IsNot Nothing Then WP.AdressenPosition.Versender.Land = p.nctsWP_Versender_Land ' If p.nctsWP_Versender_TIN IsNot Nothing Then WP.AdressenPosition.Versender.TIN = p.nctsWP_Versender_TIN ' End If ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then ' WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI ' If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR ' If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name ' If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer ' If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ ' If p.nctsWP_Empfaenger_Ort IsNot Nothing Then WP.AdressenPosition.Empfaenger.Ort = p.nctsWP_Empfaenger_Ort ' If p.nctsWP_Empfaenger_Land IsNot Nothing Then WP.AdressenPosition.Empfaenger.Land = p.nctsWP_Empfaenger_Land ' If p.nctsWP_Empfaenger_TIN IsNot Nothing Then WP.AdressenPosition.Empfaenger.TIN = p.nctsWP_Empfaenger_TIN ' End If ' If p.nctsWP_SumAKennnummerSendung IsNot Nothing Then WP.SumASicherheit.KennnummerSendung = p.nctsWP_SumAKennnummerSendung ' If p.nctsWP_SumABefoerderungskostenZahlungsweise IsNot Nothing Then WP.SumASicherheit.BefoerderungskostenZahlungsweise = p.nctsWP_SumABefoerderungskostenZahlungsweise ' If p.nctsWP_SumAUNGefahrgutnummer IsNot Nothing Then WP.SumASicherheit.UNGefahrgutnummer = p.nctsWP_SumAUNGefahrgutnummer ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then ' WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI ' If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR ' If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name ' If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer ' If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ ' If p.nctsWP_SumAVersender_Ort IsNot Nothing Then WP.SumASicherheit.Versender.Ort = p.nctsWP_SumAVersender_Ort ' If p.nctsWP_SumAVersender_Land IsNot Nothing Then WP.SumASicherheit.Versender.Land = p.nctsWP_SumAVersender_Land ' If p.nctsWP_SumAVersender_TIN IsNot Nothing Then WP.SumASicherheit.Versender.TIN = p.nctsWP_SumAVersender_TIN ' End If ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then ' WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI ' If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR ' If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name ' If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer ' If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ ' If p.nctsWP_SumAEmpfaenger_Ort IsNot Nothing Then WP.SumASicherheit.Empfaenger.Ort = p.nctsWP_SumAEmpfaenger_Ort ' If p.nctsWP_SumAEmpfaenger_Land IsNot Nothing Then WP.SumASicherheit.Empfaenger.Land = p.nctsWP_SumAEmpfaenger_Land ' If p.nctsWP_SumAEmpfaenger_TIN IsNot Nothing Then WP.SumASicherheit.Empfaenger.TIN = p.nctsWP_SumAEmpfaenger_TIN ' End If ' If p.nctsWP_PACKSTUECKE IsNot Nothing AndAlso p.nctsWP_PACKSTUECKE.Count > 0 Then ' WP.Packstueck = New List(Of VersandanmeldungNCTSDE.PackstueckVATyp) ' For Each w In p.nctsWP_PACKSTUECKE ' Dim PK As New VersandanmeldungNCTSDE.PackstueckVATyp ' If w.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then PK.Anzahl = w.nctsWpPk_PackstueckeAnzahl.ToString.Replace(".", "") ' If w.nctsWpPk_Verpackungsart IsNot Nothing Then PK.Verpackungsart = w.nctsWpPk_Verpackungsart ' If w.nctsWpPk_ZeichenNummern IsNot Nothing Then PK.ZeichenNummern = w.nctsWpPk_ZeichenNummern ' WP.Packstueck.Add(PK) ' Next ' End If ' If p.nctsWP_VorpapierTyp IsNot Nothing Then ' WP.Vorpapier = New VersandanmeldungNCTSDE.VorpapierVATyp ' WP.Vorpapier.Typ = If(p.nctsWP_VorpapierTyp, "") ' WP.Vorpapier.VorpapierAngaben = New List(Of VersandanmeldungNCTSDE.VorpapierAngabenVATyp) ' If p.nctsWP_VorpapierReferenz1 IsNot Nothing And p.nctsWP_VorpapierReferenz1 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz1, "") ' If p.nctsWP_VorpapierZusatz1 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz1, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz2 IsNot Nothing And p.nctsWP_VorpapierReferenz2 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz2, "") ' If p.nctsWP_VorpapierZusatz2 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz2, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz3 IsNot Nothing And p.nctsWP_VorpapierReferenz3 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz3, "") ' If p.nctsWP_VorpapierZusatz3 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz3, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz4 IsNot Nothing And p.nctsWP_VorpapierReferenz4 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz4, "") ' If p.nctsWP_VorpapierZusatz4 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz4, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz5 IsNot Nothing And p.nctsWP_VorpapierReferenz5 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz5, "") ' If p.nctsWP_VorpapierZusatz5 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz5, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz6 IsNot Nothing And p.nctsWP_VorpapierReferenz6 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz6, "") ' If p.nctsWP_VorpapierZusatz6 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz6, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz7 IsNot Nothing And p.nctsWP_VorpapierReferenz7 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz7, "") ' If p.nctsWP_VorpapierZusatz7 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz7, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz8 IsNot Nothing And p.nctsWP_VorpapierReferenz8 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz8, "") ' If p.nctsWP_VorpapierZusatz8 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz8, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' If p.nctsWP_VorpapierReferenz9 IsNot Nothing And p.nctsWP_VorpapierReferenz9 <> "" Then ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp ' vp.Referenz = If(p.nctsWP_VorpapierReferenz9, "") ' If p.nctsWP_VorpapierZusatz9 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz9, "") ' WP.Vorpapier.VorpapierAngaben.Add(vp) ' End If ' End If ' If p.nctsWP_UNTERLAGEN IsNot Nothing AndAlso p.nctsWP_UNTERLAGEN.Count > 0 Then ' WP.VorgelegteUnterlagen = New List(Of VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp) ' For Each w In p.nctsWP_UNTERLAGEN ' Dim UL As New VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp ' If w.nctsWpUl_Typ IsNot Nothing Then UL.Typ = w.nctsWpUl_Typ ' If w.nctsWpUl_Referenz IsNot Nothing Then UL.Referenz = w.nctsWpUl_Referenz ' If w.nctsWpUl_Zusatz IsNot Nothing Then UL.Zusatz = w.nctsWpUl_Zusatz ' WP.VorgelegteUnterlagen.Add(UL) ' Next ' End If ' XML.EinzelVersandanmeldung.WarenPosition.Add(WP) ' Next 'End If 'Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" 'If Not System.IO.Directory.Exists(saveDir) Then ' System.IO.Directory.CreateDirectory(saveDir) 'End If 'saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" ''MsgBox(saveFile) 'XML.SaveToFile(saveFile) 'replaceNullDateXML(saveFile) 'Return True End Function Shared Sub replaceNullDateXML(XMLFile As String) Try If Not System.IO.File.Exists(XMLFile) Then Exit Sub Dim lines() As String = System.IO.File.ReadAllLines(XMLFile) Using writer = New System.IO.StreamWriter(XMLFile, False) For Each line In lines If Not line.Contains("0001-01-01") Then writer.WriteLine(line) Next End Using Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub 'Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES ' Try ' cDY.aes_Trans_Partner = "VERA" ' cDY.aes_Trans_DatumZeit = Now ' 'cDY.aes_Gestellt = False ' cDY.aes_Status = "00" ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig ' cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) ' 'cDY.aes_Trans_Version = "003" ' cDY.aes_Trans_Div1 = "ATILLA" ' ' cDY.aes_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) ' ' cDY.aes_BezugsnummerVorblendung = cDY.aes_Stammreferenz ' cDY.aes_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) ' 'cDY.aes_Trans_Div1 = "ATILLA" ' 'cDY.aes_Trans_Div1 = "ATILLA" ' cDY.aes_ObjectName = USRCNTL.BezugsNr ' 'cDY.aes_ObjectAlias = USRCNTL.AVISO.AvisoID ' USRCNTL.ALLG.getValues(cDY) ' USRCNTL.ADRESSEN.getValues(cDY) ' 'USRCNTL.POSITIONEN.getValues(cDY) ' ' cDY.aes_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) ' 'cDY.aes_WARENPOS=USRCNTL.POSITIONEN.getValues() ' '-------------------------------- ' cDY.aes_WARENPOS.Clear() ' Return cDY ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' Return Nothing ' End Try 'End Function 'Shared Function loadInClass_VersandanmeldungEZA(ByRef cDY As cDakosyEZA, USRCNTL As usrCntlATLAS_EZA, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyEZA ' Try ' cDY.eza_Trans_Partner = "VERA" ' cDY.eza_Trans_DatumZeit = Now ' 'cDY.EZA_Gestellt = False ' cDY.eza_Status = "00" ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig ' cDY.eza_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) ' 'cDY.EZA_Trans_Version = "003" ' cDY.eza_Trans_Div1 = "VERAG" ' 'cDY.EZA_Trans_Div1 = "ATILLA" ' 'cDY.EZA_Trans_Div1 = "ATILLA" ' ' cDY.eza_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) ' cDY.eza_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) ' cDY.eza_ObjectName = USRCNTL.BezugsNr ' 'cDY.EZA_ObjectAlias = USRCNTL.AVISO.AvisoID ' USRCNTL.ALLG.getValues(cDY) ' USRCNTL.ADRESSEN.getValues(cDY) ' USRCNTL.POSITIONEN.getValues(cDY) ' USRCNTL.DV1.getValues(cDY) ' ' MsgBox(cDY.eza_WARENPOS.Count) ' ' cDY.EZA_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) ' 'cDY.EZA_WARENPOS=USRCNTL.POSITIONEN.getValues() ' '-------------------------------- ' ' cDY.eza_WARENPOS.Clear() ' Return cDY ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' Return Nothing ' End Try 'End Function 'Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then ' Return "SUB" ' Else ' Select Case FIRMA_DY ' Case "ATILLA" ' Return "SUW" ' Case "AMBAR" ' Return "AMBWO" ' Case "VERAG" ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung ' Case "SUB" : Return "SUB" ' Case "SBG" : Return "SBG" ' Case "NKD" : Return "NKD" ' Case "NEU" : Return "NEU" ' Case "WAI" : Return "WAI" ' Case Else : Return "SUB" ' End Select ' Case "UNISPED" ' Return ""'"ATSP" ' Case "IMEX" ' If fiskal Then ' Return "GLO" ' Else ' Return "IME" ' End If ' Case Else : Return "SUB" ' End Select ' End If 'End Function 'Shared Function getIOPartner(FIRMA_DY) As String ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then ' Return "VERA" ' Else ' Select Case FIRMA_DY ' Case "ATILLA" ' Return "VERG" ' Case "VERAG" ' Return "VERG" ' Case "DURMAZ" ' Return "DUR" ' Case "IMEX" ' Return "IMEX" ' Case "UNISPED" ' Return "UNAT" ' Case Else : Return "VERG" ' End Select ' End If 'End Function ''If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") 'Shared Function generateVersandanmeldungEZA(cDY As cDakosyEZA, ByRef saveFile As String, DY_ACTION As String) As Boolean ' Dim Interface_VERSION = "004" ' Dim ObjectAktion = DY_ACTION ' Dim XML As New DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004.FreierVerkehrAktVeredelUmwandlungAVUVTyp ' 'Transaktion: ' XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004.TransaktionFreierVerkehrTyp ' XML.Transaktion.IOPartner = getIOPartner(cDY.eza_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") ' XML.Transaktion.IODatumZeit = Now ' XML.Transaktion.IOReferenz = cDY.eza_Trans_Referenz ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False))) ' XML.Transaktion.Version = Interface_VERSION ' Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" ' 'ObjektIdentifizierung: ' EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName ' If cDY.eza_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAlias = cDY.eza_ObjectAlias ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) ' 'EA.ObjektIdentifizierung.CompliancePruefung= ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName ' If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter ' If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung ' If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung ' EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld ' 'KopfDaten ' EA.KopfDaten = New FreierVerkehrAktVeredelUmwandlung_004.KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp ' If cDY.eza_AdressierteZollstelle IsNot Nothing Then EA.KopfDaten.AdressierteZollstelle = cDY.eza_AdressierteZollstelle ' If cDY.eza_AnmelderistEmpfaenger IsNot Nothing Then EA.KopfDaten.AnmelderIstEmpfaenger = cDY.eza_AnmelderistEmpfaenger ' If cDY.eza_VertretungsVerhaeltnisCode IsNot Nothing Then EA.KopfDaten.VertretungsverhaeltnisCode = cDY.eza_VertretungsVerhaeltnisCode ' If cDY.eza_Vorsteuerabzug IsNot Nothing Then EA.KopfDaten.Vorsteuerabzug = cDY.eza_Vorsteuerabzug ' If cDY.eza_AnmeldenderBearbeiterName IsNot Nothing Then EA.KopfDaten.NameAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterName ' If cDY.eza_AnmeldenderBearbeiterTel IsNot Nothing Then EA.KopfDaten.TelefonnummerAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterTel ' If cDY.eza_AnmeldenderBearbeiterStellung IsNot Nothing Then EA.KopfDaten.StellungAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterStellung ' If cDY.eza_AnmeldenderBearbeiterEMail IsNot Nothing Then EA.KopfDaten.EmailAdresseAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterEMail ' If cDY.eza_FiskalvertretungKz IsNot Nothing Then EA.KopfDaten.FiskalvertretungKz = CInt(Int(cDY.eza_FiskalvertretungKz)) ' If cDY.eza_Ausstellungsort IsNot Nothing Then EA.KopfDaten.Ausstellungsort = cDY.eza_Ausstellungsort ' If cDY.eza_ZollrechtlicherStatus IsNot Nothing Then EA.KopfDaten.ZollrechtlicherStatus = cDY.eza_ZollrechtlicherStatus ' If cDY.eza_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.eza_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.eza_GesamtRohmasse).ToString("N1")) ' If cDY.eza_VerfahrenBeantragtCode IsNot Nothing Then EA.KopfDaten.VerfahrenBeantragtCode = cDY.eza_VerfahrenBeantragtCode ' If cDY.eza_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.eza_VerkehrszweigInland ' If cDY.eza_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.eza_VerkehrszweigGrenze ' If cDY.eza_VersendungsLandCode IsNot Nothing Then EA.KopfDaten.VersendungslandCode = cDY.eza_VersendungsLandCode ' If cDY.eza_Bestimmungsland IsNot Nothing Then EA.KopfDaten.Bestimmungsland = cDY.eza_Bestimmungsland ' If cDY.eza_Bestimmungsbundesland IsNot Nothing Then EA.KopfDaten.Bestimmungsbundesland = cDY.eza_Bestimmungsbundesland ' If cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft IsNot Nothing Then EA.KopfDaten.KennzeichenNameBefoerderungsmittelAnkunft = cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft ' If cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode ' If cDY.eza_BeförderungsmittelGrenzeArt IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeArt = cDY.eza_BeförderungsmittelGrenzeArt ' If cDY.eza_BeförderungsmittelGrenze IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze = cDY.eza_BeförderungsmittelGrenze ' If cDY.eza_LieferbedingungCode IsNot Nothing Then EA.KopfDaten.LieferbedingungCode = cDY.eza_LieferbedingungCode ' If cDY.eza_LieferbedingungText IsNot Nothing Then EA.KopfDaten.LieferbedingungText = cDY.eza_LieferbedingungText ' If cDY.eza_LieferbedingungSchluessel IsNot Nothing Then EA.KopfDaten.LieferbedingungSchluessel = cDY.eza_LieferbedingungSchluessel ' If cDY.eza_LieferbedingungOrt IsNot Nothing Then EA.KopfDaten.LieferbedingungOrt = cDY.eza_LieferbedingungOrt ' If cDY.eza_VorpapierArtCode IsNot Nothing Then EA.KopfDaten.VorpapierArtCode = cDY.eza_VorpapierArtCode ' If cDY.eza_VorpapierNr IsNot Nothing Then EA.KopfDaten.VorpapierNr = cDY.eza_VorpapierNr ' If cDY.eza_ArtGeschaeftCode IsNot Nothing Then EA.KopfDaten.ArtGeschaeftCode = cDY.eza_ArtGeschaeftCode ' If cDY.eza_Statistikstatus IsNot Nothing Then EA.KopfDaten.StatistikStatus = cDY.eza_Statistikstatus ' If cDY.eza_Warenort IsNot Nothing Then EA.KopfDaten.Warenort = cDY.eza_Warenort ' If cDY.eza_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.eza_Rechnungspreis ' If cDY.eza_Rechnungswaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.eza_Rechnungswaehrung ' If If(cDY.eza_DV1Kz, False) Then ' If cDY.eza_DV1Kz IsNot Nothing Then EA.KopfDaten.DV1Angaben.DV1Kz = CInt(Int(cDY.eza_DV1Kz)) ' If cDY.eza_DV1Vertretungsverhaeltnis IsNot Nothing Then EA.KopfDaten.DV1Angaben.Vertretungsverhaeltnis = cDY.eza_DV1Vertretungsverhaeltnis ' If cDY.eza_DV1FruehereEntscheidungen IsNot Nothing Then EA.KopfDaten.DV1Angaben.FruehereEntscheidungen = cDY.eza_DV1FruehereEntscheidungen ' If cDY.eza_DV1Verbundenheit IsNot Nothing Then EA.KopfDaten.DV1Angaben.Verbundenheit = cDY.eza_DV1Verbundenheit ' If cDY.eza_DV1VerbungenheitEinzelheiten IsNot Nothing Then EA.KopfDaten.DV1Angaben.VerbundenheitEinzelheiten = cDY.eza_DV1VerbungenheitEinzelheiten ' If cDY.eza_DV1EinschraenkungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.EinschraenkungenKz = cDY.eza_DV1EinschraenkungenKz ' If cDY.eza_DV1BedingungenLeistungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenKz = cDY.eza_DV1BedingungenLeistungenKz ' If cDY.eza_DV1BedingungenLeistungenArt IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenArt = cDY.eza_DV1BedingungenLeistungenArt ' If cDY.eza_DV1LizenzgebuehrenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenKz = cDY.eza_DV1LizenzgebuehrenKz ' If cDY.eza_DV1LizenzgebuehrenUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenUmstand = cDY.eza_DV1LizenzgebuehrenUmstand ' If cDY.eza_DV1SpezielleVereinbarungKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungKz = cDY.eza_DV1SpezielleVereinbarungKz ' If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand ' End If ' If cDY.eza_UNTERLAGEN.Count > 0 Then ' EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp) ' For Each u In cDY.eza_UNTERLAGEN ' Dim UNTERLAGE As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp ' If u.ezaUl_Bereich IsNot Nothing Then UNTERLAGE.Bereich = u.ezaUl_Bereich ' If u.ezaUl_Art IsNot Nothing Then UNTERLAGE.Art = u.ezaUl_Art ' If u.ezaUl_Nummer IsNot Nothing Then UNTERLAGE.Nummer = u.ezaUl_Nummer ' If u.ezaUl_DatumAusstellung IsNot Nothing Then UNTERLAGE.DatumAusstellung = u.ezaUl_DatumAusstellung ' EA.KopfDaten.Unterlage.Add(UNTERLAGE) ' Next ' End If ' If cDY.eza_ZusatzangabenAnmeldung IsNot Nothing Then EA.KopfDaten.ZusatzAngabenAnmeldung = cDY.eza_ZusatzangabenAnmeldung ' If cDY.eza_KzAutoBestaetigung IsNot Nothing Then EA.KopfDaten.KzAutoBestaetigung = CInt(Int(cDY.eza_KzAutoBestaetigung)) ' If cDY.eza_AnschreibungDatum IsNot Nothing Then EA.KopfDaten.AnschreibungDatum = cDY.eza_AnschreibungDatum ' If cDY.eza_Eingangszollstelle IsNot Nothing Then EA.KopfDaten.Eingangszollstelle = cDY.eza_Eingangszollstelle ' If cDY.eza_Zahlungsart IsNot Nothing Then EA.KopfDaten.Zahlungsart = cDY.eza_Zahlungsart ' If cDY.eza_AUFSCHUB.Count > 0 Then ' EA.KopfDaten.Aufschub = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp) ' For Each u In cDY.eza_AUFSCHUB ' Dim AUFSCHUB As New FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp ' If u.ezaAfb_ArtAufschubantrag IsNot Nothing Then AUFSCHUB.ArtAufschubantrag = u.ezaAfb_ArtAufschubantrag ' If u.ezaAfb_Aufschubart IsNot Nothing Then AUFSCHUB.Aufschubart = u.ezaAfb_Aufschubart ' If u.ezaAfb_AufschubnehmerEORI IsNot Nothing Then AUFSCHUB.AufschubnehmerEORI = u.ezaAfb_AufschubnehmerEORI ' 'If u.ezaAfb_KontoNr IsNot Nothing Then AUFSCHUB.KontoNr = u.ezaAfb_KontoNr 'ohne Funktion ' If u.ezaAfb_AufschuBIN IsNot Nothing Then AUFSCHUB.AufschubBIN = u.ezaAfb_AufschuBIN ' EA.KopfDaten.Aufschub.Add(AUFSCHUB) ' Next ' End If ' If cDY.eza_SUMABA.Count > 0 Then ' EA.KopfDaten.SumABeendigungsAnteil = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp) ' For Each u In cDY.eza_SUMABA ' Dim SUMA As New FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp ' If u.ezaBa_SumARegistriernummer IsNot Nothing Then SUMA.SumARegistriernummer = u.ezaBa_SumARegistriernummer ' If u.ezaBa_SumAPosNr IsNot Nothing Then SUMA.SumAPosNr = u.ezaBa_SumAPosNr ' If u.ezaBa_BeendigungsPackstueckzahl IsNot Nothing Then SUMA.BeendigungsPackstueckzahl = u.ezaBa_BeendigungsPackstueckzahl.ToString.Replace(".", "") ' If u.ezaBa_Artidentifikation IsNot Nothing Then SUMA.ArtIdentifikation = u.ezaBa_Artidentifikation ' If u.ezaBa_VerwahrerEORI IsNot Nothing Then SUMA.VerwahrerEORI = u.ezaBa_VerwahrerEORI ' If u.ezaBa_SpezifOrdnungsbegriff IsNot Nothing Then SUMA.SpezifOrdnungsbegriff = u.ezaBa_SpezifOrdnungsbegriff ' If u.ezaBa_SpezifOrdnungsbegriffArt IsNot Nothing Then SUMA.SpezifOrdnungsbegriffArt = u.ezaBa_SpezifOrdnungsbegriffArt ' EA.KopfDaten.SumABeendigungsAnteil.Add(SUMA) ' Next ' End If ' If cDY.eza_ContainerNr1 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr1) ' If cDY.eza_ContainerNr2 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr2) ' If cDY.eza_ContainerNr3 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr3) ' If cDY.eza_ContainerNr4 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr4) ' If cDY.eza_ContainerNr5 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr5) ' If cDY.eza_ContainerNr6 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr6) ' If cDY.eza_ContainerNr7 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr7) ' If cDY.eza_ContainerNr8 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr8) ' If cDY.eza_ContainerNr9 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr9) ' If cDY.eza_BeendigungsanteilArtCode IsNot Nothing Then EA.KopfDaten.BeendigungsAnteilArtCode = cDY.eza_BeendigungsanteilArtCode ' If cDY.eza_BewilligungsIDZLAVUV IsNot Nothing Then EA.KopfDaten.BewilligungsIDZLAVUV = cDY.eza_BewilligungsIDZLAVUV ' If cDY.eza_BezugsnummerBEAnteilZL IsNot Nothing Then EA.KopfDaten.BezugsnummerBEAnteilZL = cDY.eza_BezugsnummerBEAnteilZL ' 'Property eza_BEA_ZLAvuv As New List(Of cDakosy_EZA_BEAnteilZLAVUV) ' If cDY.eza_BEA_ZLAvuv.Count > 0 Then ' EA.KopfDaten.BEAnteilZLAVUV = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp) ' For Each u In cDY.eza_BEA_ZLAvuv ' Dim BEA As New FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp ' If u.ezaBAZ_RegistrierNummerZugang IsNot Nothing Then BEA.RegistriernummerZugang = u.ezaBAZ_RegistrierNummerZugang ' If u.ezaBAZ_PositionZugang IsNot Nothing Then BEA.PositionZugang = u.ezaBAZ_PositionZugang ' If u.ezaBAZ_ArtikelCodeATZL IsNot Nothing Then BEA.ArtikelcodeATZL = u.ezaBAZ_ArtikelCodeATZL ' If u.ezaBAZ_AtlasKz IsNot Nothing Then BEA.AtlasKz = CInt(Int(u.ezaBAZ_AtlasKz)) ' If u.ezaBAZ_EigentuemerATUL IsNot Nothing Then BEA.EigentuemerATZL = u.ezaBAZ_EigentuemerATUL ' If u.ezaBAZ_ChargennummerATZL IsNot Nothing Then BEA.ChargennummerATZL = u.ezaBAZ_ChargennummerATZL ' If u.ezaBAZ_UrsprungslandATZL IsNot Nothing Then BEA.UrsprungslandATZL = u.ezaBAZ_UrsprungslandATZL ' If u.ezaBAZ_UeblicheBehandlungKz IsNot Nothing Then BEA.UeblicheBehandlungKz = CInt(Int(u.ezaBAZ_UeblicheBehandlungKz)) ' If u.ezaBAZ_Handelsmenge IsNot Nothing Then BEA.Handelsmenge = u.ezaBAZ_Handelsmenge ' If u.ezaBAZ_MasseinheitHandelsmenge IsNot Nothing Then BEA.MasseinheitHandelsmenge = u.ezaBAZ_MasseinheitHandelsmenge ' If u.ezaBAZ_Wartennummer IsNot Nothing Then BEA.Warennummer = u.ezaBAZ_Wartennummer ' If u.ezaBAZ_QualifikatorHandelsmenge IsNot Nothing Then BEA.QualifikatorHandelsmenge = u.ezaBAZ_QualifikatorHandelsmenge ' If u.ezaBAZ_Abgangsmenge IsNot Nothing Then BEA.Abgangsmenge = u.ezaBAZ_Abgangsmenge ' If u.ezaBAZ_MasseinheitAbgangsmenge IsNot Nothing Then BEA.MasseinheitAbgangsmenge = u.ezaBAZ_MasseinheitAbgangsmenge ' If u.ezaBAZ_QualifikatorAbgangsmenge IsNot Nothing Then BEA.QualifikatorAbgangsmenge = u.ezaBAZ_QualifikatorAbgangsmenge ' If u.ezaBAZ_Positionszusatz IsNot Nothing Then BEA.Positionszusatz = u.ezaBAZ_Positionszusatz ' If u.ezaBAZ_WarenbezogeneAngaben IsNot Nothing Then BEA.WarenbezogeneAngaben = u.ezaBAZ_WarenbezogeneAngaben ' EA.KopfDaten.BEAnteilZLAVUV.Add(BEA) ' Next ' End If ' If cDY.eza_ADRESSEN.Count > 0 Then ' EA.KopfDaten.Adressen = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp) ' For Each u In cDY.eza_ADRESSEN ' Dim ADR As New FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp ' If u.ezaAd_AdressTyp IsNot Nothing Then ADR.AdressTyp = u.ezaAd_AdressTyp ' If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode ' If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI ' If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR ' If u.ezaAd_NameFirma1 IsNot Nothing Then ' ADR.NameFirma = u.ezaAd_NameFirma1 & If(u.ezaAd_NameFirma2, "") & If(u.ezaAd_NameFirma3, "") ' End If ' 'If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1) ' 'If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2) ' 'If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3) ' If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ' ADR.StrasseHausNr = u.ezaAd_StrasseHausNr1 & If(u.ezaAd_StrasseHausNr2, "") ' End If ' 'If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1) ' 'If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2) ' If u.ezaAd_Ortsteil IsNot Nothing Then ADR.Ortsteil = u.ezaAd_Ortsteil ' If u.ezaAd_LandCode IsNot Nothing Then ADR.LandCode = u.ezaAd_LandCode ' If u.ezaAd_PLZ IsNot Nothing Then ADR.PLZS = u.ezaAd_PLZ ' If u.ezaAd_Ort IsNot Nothing Then ADR.OrtS = u.ezaAd_Ort ' If u.ezaAd_UStIDAnmelder IsNot Nothing Then ADR.UStIDAnmelder = u.ezaAd_UStIDAnmelder ' If u.ezaAd_FinanzamtIDAnmelder IsNot Nothing Then ADR.FinanzamtIDAnmelder = u.ezaAd_FinanzamtIDAnmelder ' If u.ezaAd_Bewilligungsnummer IsNot Nothing Then ADR.Bewilligungsnummer = u.ezaAd_Bewilligungsnummer ' If u.ezaAd_BewilligungsFachVerfahren IsNot Nothing Then ADR.BewilligungFachVerfahren = u.ezaAd_BewilligungsFachVerfahren ' If u.ezaAd_BewilligungsnummerEndverwender IsNot Nothing Then ADR.BewilligungsnummerEndverwender = u.ezaAd_BewilligungsnummerEndverwender ' EA.KopfDaten.Adressen.Add(ADR) ' Next ' End If ' If cDY.eza_WARENPOS.Count > 0 Then ' EA.WarenPosition = New List(Of FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp) ' For Each u In cDY.eza_WARENPOS ' Dim WP As New FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp ' If u.ezaWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = u.ezaWP_PositionsNummer ' If u.ezaWP_Artikelnummer IsNot Nothing Then WP.ArtikelNummer = u.ezaWP_Artikelnummer ' If u.ezaWP_WarennummerEZT IsNot Nothing Then WP.WarenNummerEZT = u.ezaWP_WarennummerEZT ' If u.ezaWP_Warennummerzusatz1 IsNot Nothing Then WP.WarenNummerZusatz1 = u.ezaWP_Warennummerzusatz1 ' If u.ezaWP_Warennummerzusatz2 IsNot Nothing Then WP.WarenNummerZusatz2 = u.ezaWP_Warennummerzusatz2 ' If u.ezaWP_WarennummerZusatzCode1 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode1) ' If u.ezaWP_WarennummerZusatzCode2 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode2) ' If u.ezaWP_WarennummerZusatzCode3 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode3) ' If u.ezaWP_WarennummerZusatzCode4 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode4) ' If u.ezaWP_WarennummerZusatzCode5 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode5) ' If u.ezaWP_WarennummerZusatzCode6 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode6) ' If u.ezaWP_WarennummerZusatzCode7 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode7) ' If u.ezaWP_WarennummerZusatzCode8 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode8) ' If u.ezaWP_WarennummerZusatzCode9 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode9) ' If u.ezaWP_WarennummerZusatzCode10 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode10) ' If u.ezaWP_Warenbezeichnung IsNot Nothing Then WP.WarenBezeichnung = u.ezaWP_Warenbezeichnung ' If u.ezaWP_VerfahrensCodeVorangegangenesVerfahren IsNot Nothing Then WP.VerfahrenscodeVorangegangenesVerfahren = u.ezaWP_VerfahrensCodeVorangegangenesVerfahren ' If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz)) ' If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode ' If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode ' If cDY.eza_WARENPOS.Count > 1 Then ' WP.Rohmasse = Nothing ' Else ' If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse ' End If ' If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse ' If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge ' If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit ' If u.ezaWP_AHStatMengeQualifier IsNot Nothing Then WP.AHStatMengeQualifier = u.ezaWP_AHStatMengeQualifier ' If u.ezaWP_AHStatWert IsNot Nothing AndAlso IsNumeric(u.ezaWP_AHStatWert) Then WP.AHStatWert = CInt(u.ezaWP_AHStatWert) ' If u.ezaWP_AHStatWertManuellKZ IsNot Nothing Then WP.AHStatWertManuellKZ = CInt(Int(u.ezaWP_AHStatWertManuellKZ)) ' If u.ezaWP_KostenEUSt IsNot Nothing Then WP.KostenEUSt = u.ezaWP_KostenEUSt ' If u.ezaWP_PackstueckAnzahl IsNot Nothing Then WP.PackstueckAnzahl = u.ezaWP_PackstueckAnzahl.ToString.Replace(".", "") ' If u.ezaWP_PackstueckArt IsNot Nothing Then WP.PackstueckArt = u.ezaWP_PackstueckArt ' If u.ezaWP_PackstueckZeichen IsNot Nothing Then WP.PackstueckZeichen = u.ezaWP_PackstueckZeichen ' If u.ezaWP_Warenmenge1 IsNot Nothing Then ' WP.WarenMenge = New List(Of FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp) ' If u.ezaWP_Warenmenge1 IsNot Nothing Then ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 ' WP.WarenMenge.Add(WM) ' End If ' If u.ezaWP_Warenmenge2 IsNot Nothing Then ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp ' If u.ezaWP_Warenmenge2 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge2 ' If u.ezaWP_WarenMasseinheit2 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit2 ' If u.ezaWP_WarenQualifier2 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier2 ' WP.WarenMenge.Add(WM) ' End If ' If u.ezaWP_Warenmenge3 IsNot Nothing Then ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp ' If u.ezaWP_Warenmenge3 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge3 ' If u.ezaWP_WarenMasseinheit3 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit3 ' If u.ezaWP_WarenQualifier3 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier3 ' WP.WarenMenge.Add(WM) ' End If ' If u.ezaWP_Warenmenge4 IsNot Nothing Then ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp ' If u.ezaWP_Warenmenge4 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge4 ' If u.ezaWP_WarenMasseinheit4 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit4 ' If u.ezaWP_WarenQualifier4 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier4 ' WP.WarenMenge.Add(WM) ' End If ' If u.ezaWP_Warenmenge1 IsNot Nothing Then ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 ' WP.WarenMenge.Add(WM) ' End If ' End If ' If u.ezaWP_BeguenstigungBenatragtCode IsNot Nothing Then WP.BeguenstigungBeantragtCode = u.ezaWP_BeguenstigungBenatragtCode ' If u.ezaWP_Kentigentnummer1 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer1) ' If u.ezaWP_Kentigentnummer2 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer2) ' If u.ezaWP_PositionsZusatz IsNot Nothing Then WP.PositionsZusatz = u.ezaWP_PositionsZusatz ' If u.ezaWP_Artikelpreis IsNot Nothing Then WP.Artikelpreis = u.ezaWP_Artikelpreis ' If u.ezaWP_OrtVerbringens IsNot Nothing Then WP.OrtVerbringens = u.ezaWP_OrtVerbringens ' If u.ezaWP_AbflughafenIATACode IsNot Nothing Then WP.AbflughafenIATACode = u.ezaWP_AbflughafenIATACode ' If u.ezaWP_WarenmengeAVUVZugang IsNot Nothing Then WP.WarenmengeAVUVZugang = u.ezaWP_WarenmengeAVUVZugang ' If u.ezaWP_WarenmengeAVUVZugangMasseinheit IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheit = u.ezaWP_WarenmengeAVUVZugangMasseinheit ' If u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheitQualifier = u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier ' If u.ezaWP_Sachbereich IsNot Nothing Then WP.Sachbereich = u.ezaWP_Sachbereich ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode ' If u.ezaWP_BedingungCode IsNot Nothing Then WP.BedingungCode = u.ezaWP_BedingungCode ' If u.ezaWP_VeredelungWertsteigerung IsNot Nothing Then WP.VeredelungWertsteigerung = u.ezaWP_VeredelungWertsteigerung ' If u.ezaWP_TabakSteuerzeichenID IsNot Nothing Then WP.TabakSteuerzeichenID = u.ezaWP_TabakSteuerzeichenID ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then ' WP.Gehaltsangaben = New List(Of FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp) ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode1 ' If u.ezaWP_GehaltsAngabenGradProzent1 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent1 ' WP.Gehaltsangaben.Add(GA) ' End If ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode2 ' If u.ezaWP_GehaltsAngabenGradProzent2 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent2 ' WP.Gehaltsangaben.Add(GA) ' End If ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode3 ' If u.ezaWP_GehaltsAngabenGradProzent3 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent3 ' WP.Gehaltsangaben.Add(GA) ' End If ' End If ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then ' WP.Beguenstigungsmenge = New FreierVerkehrAktVeredelUmwandlung_004.BeguenstigungsMengeAVUVTyp ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then WP.Beguenstigungsmenge.Menge = u.ezaWP_BeguenstigungsMengeMenge ' If u.ezaWP_BeguenstigungsMengeMasseinheitCode IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitCode = u.ezaWP_BeguenstigungsMengeMasseinheitCode ' If u.ezaWP_BeguenstigungsMengeQualifier IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitQualifier = u.ezaWP_BeguenstigungsMengeQualifier ' End If ' If u.ezaWP_VERBRAUCHSSTEUER.Count > 0 Then ' WP.Verbrauchssteuer = New List(Of FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp) ' For Each v In u.ezaWP_VERBRAUCHSSTEUER ' Dim VS As New FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp ' If v.ezaWpVs_VerbrauchsteuerCode IsNot Nothing Then VS.VerbrauchsteuerCode = v.ezaWpVs_VerbrauchsteuerCode ' If v.ezaWpVs_VerbrauchssteuerMenge IsNot Nothing Then VS.VerbrauchssteuerMenge = v.ezaWpVs_VerbrauchssteuerMenge ' If v.ezaWpVs_VerbrauchssteuerMasseinheitCode IsNot Nothing Then VS.VerbrauchssteuerMasseinheitCode = v.ezaWpVs_VerbrauchssteuerMasseinheitCode ' If v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier IsNot Nothing Then VS.VerbrauchssteuerMasseinheitQualifier = v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier ' If v.ezaWpVs_GradProzent IsNot Nothing Then VS.GradProzent = v.ezaWpVs_GradProzent ' If v.ezaWpVs_VerbrauchssteuerWertbasis IsNot Nothing Then VS.VerbrauchssteuerWertBasis = v.ezaWpVs_VerbrauchssteuerWertbasis ' WP.Verbrauchssteuer.Add(VS) ' Next ' End If ' 'Abgabenminderiung ' If u.ezaWP_Abgabenminderung_AbgabengruppeCode1 IsNot Nothing Then ' WP.Abgabenminderung = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp) ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode1 ' If u.ezaWP_Abgabenminderung_Minderungsbetrag1 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag1 ' WP.Abgabenminderung.Add(AM) ' End If ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode2 ' If u.ezaWP_Abgabenminderung_Minderungsbetrag2 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag2 ' WP.Abgabenminderung.Add(AM) ' End If ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode3 ' If u.ezaWP_Abgabenminderung_Minderungsbetrag3 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag3 ' WP.Abgabenminderung.Add(AM) ' End If ' End If ' 'Sonderfalldaten ' If u.ezaWP_SONDERFALLDATEN.Count > 0 Then ' WP.Sonderfalldaten = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp) ' For Each v In u.ezaWP_SONDERFALLDATEN ' Dim SD As New FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp ' If v.ezaWpSfd_SonderabgabenGruppeCode IsNot Nothing Then SD.SonderabgabenGruppeCode = v.ezaWpSfd_SonderabgabenGruppeCode ' If v.ezaWpSfd_AnwendungArt IsNot Nothing Then SD.AnwendungArt = v.ezaWpSfd_AnwendungArt ' If v.ezaWpSfd_SatzBetragFaktor IsNot Nothing Then SD.SatzBetragFaktor = v.ezaWpSfd_SatzBetragFaktor ' WP.Sonderfalldaten.Add(SD) ' Next ' End If ' 'unterlagen ' If u.ezaWP_UNTERLAGEN.Count > 0 Then ' WP.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp) ' For Each v In u.ezaWP_UNTERLAGEN ' Dim UL As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp ' If v.ezaWpUl_Bereich IsNot Nothing Then UL.Bereich = v.ezaWpUl_Bereich ' If v.ezaWpUl_Art IsNot Nothing Then UL.Art = v.ezaWpUl_Art ' If v.ezaWpUl_Nummer IsNot Nothing Then UL.Nummer = v.ezaWpUl_Nummer ' If v.ezaWpUl_DatumAusstellung IsNot Nothing Then UL.DatumAusstellung = v.ezaWpUl_DatumAusstellung ' If v.ezaWpUl_VorlageKz IsNot Nothing Then UL.VorlageKz = CInt(Int(v.ezaWpUl_VorlageKz)) ' If v.ezaWpUl_AbschreibungsMenge IsNot Nothing Then UL.AbschreibungsMenge = v.ezaWpUl_AbschreibungsMenge ' If v.ezaWpUl_AbschreibungsMengeMasseinheit IsNot Nothing Then UL.AbschreibungsMengeMasseinheit = v.ezaWpUl_AbschreibungsMengeMasseinheit ' If v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier IsNot Nothing Then UL.AbschreibungsMengeMasseinheitQualifier = v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier ' WP.Unterlage.Add(UL) ' Next ' End If ' 'Besondere Wertangabe ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then ' WP.BesondereWertangabe = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp) ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode1 ' If u.ezaWP_BesondereWertangabe_Wert1 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert1 ' WP.BesondereWertangabe.Add(BW) ' End If ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode2 ' If u.ezaWP_BesondereWertangabe_Wert2 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert2 ' WP.BesondereWertangabe.Add(BW) ' End If ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode3 ' If u.ezaWP_BesondereWertangabe_Wert3 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert3 ' WP.BesondereWertangabe.Add(BW) ' End If ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode4 ' If u.ezaWP_BesondereWertangabe_Wert4 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert4 ' WP.BesondereWertangabe.Add(BW) ' End If ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode5 ' If u.ezaWP_BesondereWertangabe_Wert5 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert5 ' WP.BesondereWertangabe.Add(BW) ' End If ' End If ' If u.ezaWP_VZAStatus IsNot Nothing Then WP.VZAStatus = u.ezaWP_VZAStatus ' If u.ezaWP_EGZStatus IsNot Nothing Then WP.EGZStatus = u.ezaWP_EGZStatus ' If u.ezaWP_DV1Status IsNot Nothing Then WP.DV1Status = u.ezaWP_DV1Status ' If u.ezaWP_AnmeldeArt IsNot Nothing Then WP.AnmeldeArt = u.ezaWP_AnmeldeArt ' If u.ezaWP_BefundDatum IsNot Nothing Then WP.BefundDatum = u.ezaWP_BefundDatum ' If u.ezaWP_Zollverfahren IsNot Nothing Then WP.Zollverfahren = u.ezaWP_Zollverfahren ' If u.ezaWP_AbrechnungszollstelleCode IsNot Nothing Then WP.AbrechnungszollstelleCode = u.ezaWP_AbrechnungszollstelleCode ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode ' If u.ezaWP_RegistriernummerZA IsNot Nothing Then WP.RegistriernummervZA = u.ezaWP_RegistriernummerZA ' If u.ezaWP_AnmeldeVErfahren IsNot Nothing Then WP.AnmeldeVerfahren = u.ezaWP_AnmeldeVErfahren ' If u.ezaWP_Bewilligungsnummer IsNot Nothing Then WP.Bewilligungsnummer = u.ezaWP_Bewilligungsnummer ' If u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte IsNot Nothing Then WP.BewilligungsnummerEndverwenderEGZDurchDritte = u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte ' If u.ezaWP_Zollwert IsNot Nothing Then WP.Zollwert = u.ezaWP_Zollwert ' If u.ezaWP_LuftfrachtkostenGesamt IsNot Nothing Then WP.LuftfrachtkostenGesamt = u.ezaWP_LuftfrachtkostenGesamt ' If u.ezaWP_LuftfrachtkostenGesamtWaehrung IsNot Nothing Then WP.LuftfrachtkostenGesamtWaehrung = u.ezaWP_LuftfrachtkostenGesamtWaehrung ' If u.ezaWP_IATAKursKz IsNot Nothing Then WP.IATAKursKz = CInt(Int(u.ezaWP_IATAKursKz)) ' If u.ezaWP_KursVereinbartKz IsNot Nothing Then WP.KursBetragVereinbart = CInt(Int(u.ezaWP_KursVereinbartKz)) ' If u.ezaWP_KursBetragVereinbart IsNot Nothing Then WP.KursBetragVereinbart = u.ezaWP_KursBetragVereinbart ' If u.ezaWP_KursDatum IsNot Nothing Then WP.KursDatum = u.ezaWP_KursDatum ' 'ABZUGHINZURECHNUNG nicht vorgesehen ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigInland = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigGrenze = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze ' If u.ezaWP_Aussenhandelsstatistik_Versendungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Versendungsland = u.ezaWP_Aussenhandelsstatistik_Versendungsland ' If u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsbundesland = u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland ' If u.ezaWP_Aussenhandelsstatistik_Bestimmungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsland = u.ezaWP_Aussenhandelsstatistik_Bestimmungsland ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeArt = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelBeschreibung = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung ' If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft ' If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus ' 'DV1 ' If u.ezaWP_Artikelpreis IsNot Nothing Then ' Dim ABZHRG As New FreierVerkehrAktVeredelUmwandlung_004.AbzugHinzurechnungAVUVTyp ' ABZHRG.Betrag = u.ezaWP_Artikelpreis ' ABZHRG.Waehrung = u.ezaWP_ArtikelpreisWaehrung ' ABZHRG.ArtCode = "R" ' If If(ABZHRG.Waehrung, "") = "EUR" Then ABZHRG.KursAuslandswaehrung = 1 ' WP.Artikelpreis = u.ezaWP_Artikelpreis ' WP.AbzugHinzurechnung.Add(ABZHRG) ' End If ' EA.WarenPosition.Add(WP) ' Next ' End If ' XML.EinzelAnmeldung.Add(EA) ' saveFile = cDakosyFunftions.getDefaultFolder_SEND() & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" ' 'MsgBox(saveFile) ' XML.SaveToFile(saveFile) ' replaceNullDateXML(saveFile) ' Return True 'End Function 'Shared Function isLeerNothing(o As String) As Object ' If o Is Nothing OrElse o = "" Then ' Return Nothing ' Else ' Return o ' End If 'End Function 'Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean ' Dim Interface_VERSION = "003" ' Dim ObjectAktion = DY_ACTION ' Dim XML As New DAKOSY_Worker.VollstaendigeAusfuhrAnmeldung.VollstaendigeAusfuhrAnmeldungEVTyp ' 'Transaktion: ' XML.Transaktion = New VollstaendigeAusfuhrAnmeldung.TransaktionExportTyp ' XML.Transaktion.IOPartner = getIOPartner(cDY.aes_firma) ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") ' XML.Transaktion.IODatumZeit = Now ' XML.Transaktion.IOReferenz = cDY.aes_Trans_Referenz ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.aes_firma) ' ' XML.Transaktion.Version = Interface_VERSION ' Dim EA = New VollstaendigeAusfuhrAnmeldung.EinzelVollstaendigeAusfuhrAnmeldungTyp ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" ' 'ObjektIdentifizierung: ' EA.ObjektIdentifizierung = New VollstaendigeAusfuhrAnmeldung.ObjektIdentifizierungEVTyp ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName ' If cDY.aes_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAliasname = cDY.aes_ObjectAlias ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) ' 'EA.ObjektIdentifizierung.CompliancePruefung= ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName ' If cDY.aes_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.aes_BezugsnummerVorblendung ' 'KopfDaten ' EA.KopfDaten = New VollstaendigeAusfuhrAnmeldung.KopfDatenVollstaendigeAusfuhranmeldungTyp ' If cDY.aes_AnmeldeArtAusfuhrCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtAusfuhrCode = cDY.aes_AnmeldeArtAusfuhrCode ' If cDY.aes_AnmeldeArtVerfahrensCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtVerfahrenCode = cDY.aes_AnmeldeArtVerfahrensCode ' If cDY.aes_AnmeldeArtUeberfuehrungCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtUeberfuehrungCode = cDY.aes_AnmeldeArtUeberfuehrungCode ' If cDY.aes_Ausfuhrland IsNot Nothing Then EA.KopfDaten.AusfuhrlandCode = cDY.aes_Ausfuhrland ' If cDY.aes_BestimmungslandCode IsNot Nothing Then EA.KopfDaten.BestimmungslandCode = cDY.aes_BestimmungslandCode ' If cDY.aes_AnmeldedatumZeit IsNot Nothing Then EA.KopfDaten.AnmeldeDatumZeit = cDY.aes_AnmeldedatumZeit ' If cDY.aes_DatumAusgang IsNot Nothing Then EA.KopfDaten.DatumAusgang = cDY.aes_DatumAusgang ' If cDY.aes_MassgeblichesDatum IsNot Nothing Then EA.KopfDaten.MassgeblichesDatum = cDY.aes_MassgeblichesDatum ' If cDY.aes_BesondereUmstaende IsNot Nothing Then EA.KopfDaten.BesondereUmstaende = cDY.aes_BesondereUmstaende ' If cDY.aes_Zahlungsweisebefoerderungskosten IsNot Nothing Then EA.KopfDaten.ZahlungsweiseBefoerderungskosten = cDY.aes_Zahlungsweisebefoerderungskosten ' If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator ' If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation ' 'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK ' If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1")) ' If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem ' If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk ' If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung ' If cDY.aes_AnzahlPositionen IsNot Nothing Then EA.KopfDaten.AnzahlPositionen = cDY.aes_AnzahlPositionen ' If cDY.aes_BewiligungsnummerAusfuhr IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAusfuhr = cDY.aes_BewiligungsnummerAusfuhr ' If cDY.aes_BewiligungsnummerAnschreibeverfahren IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAnschreibeverfahren = cDY.aes_BewiligungsnummerAnschreibeverfahren ' If cDY.aes_BewiligungsnummerPassiveVeredelung IsNot Nothing Then EA.KopfDaten.BewilligungsnummerPassiveVeredelung = cDY.aes_BewiligungsnummerPassiveVeredelung ' If cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer IsNot Nothing Then EA.KopfDaten.BewilligungsnummerVertrauenswuerdigerAusfuehrer = cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer ' If cDY.aes_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.aes_VerkehrszweigInland ' If cDY.aes_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.aes_VerkehrszweigGrenze ' 'BefoerderungsmittelAbgang ' If cDY.aes_BefoerderungsmittelAbgangArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.ArtCode = cDY.aes_BefoerderungsmittelAbgangArtCode ' If cDY.aes_BefoerderungsmittelAbgangKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.Kennzeichen = cDY.aes_BefoerderungsmittelAbgangKennzeichen ' If cDY.aes_BefoerderungsmittelAbgangStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.StaatCode = cDY.aes_BefoerderungsmittelAbgangStaatCode ' 'BefoerderungsmittelGrenze ' If cDY.aes_BefoerderungsmittelGrenzeArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.ArtCode = cDY.aes_BefoerderungsmittelGrenzeArtCode ' If cDY.aes_BefoerderungsmittelGrenzeKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.Kennzeichen = cDY.aes_BefoerderungsmittelGrenzeKennzeichen ' If cDY.aes_BefoerderungsmittelGrenzeStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.StaatCode = cDY.aes_BefoerderungsmittelGrenzeStaatCode ' 'Ladeort ' 'If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort = cDY.aes_LadeortOrt ---> ÜBERBEGRIFF ' If cDY.aes_LadeortOrtId IsNot Nothing Then EA.KopfDaten.Ladeort.OrtID = cDY.aes_LadeortOrtId ' If cDY.aes_LadeortStrasse IsNot Nothing Then EA.KopfDaten.Ladeort.Strasse = cDY.aes_LadeortStrasse ' If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort.Ort = cDY.aes_LadeortOrt ' If cDY.aes_LadeortPLZ IsNot Nothing Then EA.KopfDaten.Ladeort.PLZ = cDY.aes_LadeortPLZ ' If cDY.aes_LadeortZusatz IsNot Nothing Then EA.KopfDaten.Ladeort.Zusatz = cDY.aes_LadeortZusatz ' If cDY.aes_AusfuhrZollstelleID IsNot Nothing Then EA.KopfDaten.AusfuhrZollstelleID = cDY.aes_AusfuhrZollstelleID ' If cDY.aes_AusgangszollstelleID IsNot Nothing Then EA.KopfDaten.AusgangZollstelleID = cDY.aes_AusgangszollstelleID ' If cDY.aes_TatsaechlicheAusgangZollstelleID IsNot Nothing Then EA.KopfDaten.TatsaechlicheAusgangZollstelleID = cDY.aes_TatsaechlicheAusgangZollstelleID ' If cDY.aes_GeschaeftartCode IsNot Nothing Then EA.KopfDaten.GeschaeftArtCode = cDY.aes_GeschaeftartCode ' If cDY.aes_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.aes_Rechnungspreis.replace(",", ".") ' If cDY.aes_Rechnungwaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.aes_Rechnungwaehrung ' If cDY.aes_BesondererTatbestand IsNot Nothing Then EA.KopfDaten.BesondererTatbestand = cDY.aes_BesondererTatbestand ' 'Verschluss ' If cDY.aes_VerschlussArtCode IsNot Nothing Then EA.KopfDaten.Verschluss.ArtCode = cDY.aes_VerschlussArtCode ' If cDY.aes_VerschlussAnzahl IsNot Nothing Then EA.KopfDaten.Verschluss.Anzahl = cDY.aes_VerschlussAnzahl ' EA.KopfDaten.Verschluss.Zeichen = New List(Of String) ' If cDY.aes_VerschlussZeichen1 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen1) ' If cDY.aes_VerschlussZeichen2 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen2) ' If cDY.aes_VerschlussZeichen3 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen3) ' If cDY.aes_VerschlussZeichen4 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen4) ' If cDY.aes_VerschlussZeichen5 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen5) ' If cDY.aes_VerschlussZeichen6 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen6) ' If cDY.aes_VerschlussZeichen7 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen7) ' If cDY.aes_VerschlussZeichen8 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen8) ' If cDY.aes_VerschlussZeichen9 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen9) ' If cDY.aes_VerschlussZeichen10 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen10) ' If cDY.aes_VerschlussZeichen11 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen11) ' If cDY.aes_VerschlussZeichen12 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen12) ' If cDY.aes_GestellungsfristAnfangDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.AnfangDatumZeit = cDY.aes_GestellungsfristAnfangDatumZeit ' If cDY.aes_GestellungsfristEndeDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.EndeDatumZeit = cDY.aes_GestellungsfristEndeDatumZeit ' 'Ausfuehrer ' If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then ' If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI ' If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR ' If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName ' If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse ' If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt ' If cDY.aes_AusfuehrerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Ausfuehrer.PLZ = cDY.aes_AusfuehrerTeilnehmerPLZ ' If cDY.aes_AusfuehrerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Ausfuehrer.LandCode = cDY.aes_AusfuehrerTeilnehmerLandCode ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Sachbearbeiter = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefonnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefaxnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.EmailAdresse = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Stellung = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung ' End If ' 'Empfaenger ' If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then ' If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI ' If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR ' If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName ' If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse ' If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt ' If cDY.aes_EmpfaengerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Empfaenger.PLZ = cDY.aes_EmpfaengerTeilnehmerPLZ ' If cDY.aes_EmpfaengerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Empfaenger.LandCode = cDY.aes_EmpfaengerTeilnehmerLandCode ' End If ' 'Anmelder ' If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then ' If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI ' If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR ' If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName ' If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse ' If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt ' If cDY.aes_AnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Anmelder.PLZ = cDY.aes_AnmelderTeilnehmerPLZ ' If cDY.aes_AnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Anmelder.LandCode = cDY.aes_AnmelderTeilnehmerLandCode ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefonnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefaxnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.EmailAdresse = cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Stellung = cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung ' End If ' 'VertreterAnmelder ' If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then ' If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI ' If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR ' If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName ' If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse ' If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt ' If cDY.aes_VertreterAnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.PLZ = cDY.aes_VertreterAnmelderTeilnehmerPLZ ' If cDY.aes_VertreterAnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.LandCode = cDY.aes_VertreterAnmelderTeilnehmerLandCode ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefonnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefaxnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.EmailAdresse = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Stellung = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung ' End If ' 'Subunternehmer ' If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then ' If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI ' If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR ' If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName ' If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse ' If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt ' If cDY.aes_SubunternehmerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.SubUnternehmer.PLZ = cDY.aes_SubunternehmerTeilnehmerPLZ ' If cDY.aes_SubunternehmerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.SubUnternehmer.LandCode = cDY.aes_SubunternehmerTeilnehmerLandCode ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Sachbearbeiter = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefonnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefaxnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.EmailAdresse = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Stellung = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung ' End If ' 'VerfahrensinhaberPV ' If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then ' If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI ' If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.EmailAdresse = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Stellung = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung ' End If ' 'BefoerderungsrouteLand ' EA.KopfDaten.BefoerderungsrouteLand = New List(Of String) ' If cDY.aes_BefoerderungsrouteLand1 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand1) ' If cDY.aes_BefoerderungsrouteLand2 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand2) ' If cDY.aes_BefoerderungsrouteLand3 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand3) ' If cDY.aes_BefoerderungsrouteLand4 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand4) ' If cDY.aes_BefoerderungsrouteLand5 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand5) ' If cDY.aes_BefoerderungsrouteLand6 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand6) ' If cDY.aes_BefoerderungsrouteLand7 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand7) ' If cDY.aes_BefoerderungsrouteLand8 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand8) ' If cDY.aes_BefoerderungsrouteLand9 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand9) ' If cDY.aes_BefoerderungsrouteLand10 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand10) ' If cDY.aes_BefoerderungsrouteLand11 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand11) ' If cDY.aes_BefoerderungsrouteLand12 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand12) ' 'Warenpositionen ' EA.WarenPosition = New List(Of VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp) ' If cDY.aes_WARENPOS IsNot Nothing AndAlso cDY.aes_WARENPOS.Count > 0 Then ' For Each WP In cDY.aes_WARENPOS ' Dim WP_DY As New VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp ' If WP.aesWP_PositionsNummer IsNot Nothing Then WP_DY.Positionsnummer = WP.aesWP_PositionsNummer ' If WP.aesWP_WarennummerKN8 IsNot Nothing Then WP_DY.WarenNummerKN8 = WP.aesWP_WarennummerKN8 ' If WP.aesWP_WarennummerTARIC IsNot Nothing Then WP_DY.WarenNummerTARIC = WP.aesWP_WarennummerTARIC ' If WP.aesWP_WarennummerZusatz1 IsNot Nothing Then WP_DY.WarenNummerZusatz1 = WP.aesWP_WarennummerZusatz1 ' If WP.aesWP_WarennummerZusatz2 IsNot Nothing Then WP_DY.WarenNummerZusatz2 = WP.aesWP_WarennummerZusatz2 ' If WP.aesWP_WarennummerNational IsNot Nothing Then WP_DY.WarenNummerNational = WP.aesWP_WarennummerNational ' If WP.aesWP_RegisternummerFremdsystem IsNot Nothing Then WP_DY.RegistrierNummerFremdSystem = WP.aesWP_RegisternummerFremdsystem ' If WP.aesWP_Vermerk IsNot Nothing Then WP_DY.Vermerk = WP.aesWP_Vermerk ' If WP.aesWP_KennungSendung IsNot Nothing Then WP_DY.KennnummerSendung = WP.aesWP_KennungSendung ' If WP.aesWP_UrsprungsbundeslandCode IsNot Nothing Then WP_DY.UrsprungsbundeslandCode = WP.aesWP_UrsprungsbundeslandCode ' If WP.aesWP_Eigenmasse IsNot Nothing Then WP_DY.Eigenmasse = WP.aesWP_Eigenmasse ' If WP.aesWP_Rohmasse IsNot Nothing Then WP_DY.Rohmasse = WP.aesWP_Rohmasse ' If WP.aesWP_Gefahrgutnummer IsNot Nothing Then WP_DY.Gefahrgutnummer = WP.aesWP_Gefahrgutnummer ' If WP.aesWP_ZahlungsweiseBefoerderungskosten IsNot Nothing Then WP_DY.ZahlungsweiseBefoerderungskosten = WP.aesWP_ZahlungsweiseBefoerderungskosten ' If WP.aesWP_VerfahrenAngemeldetCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenAngemeldetCode = WP.aesWP_VerfahrenAngemeldetCode ' If WP.aesWP_VerfahrenVorangegangenCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenVorangegangenCode = WP.aesWP_VerfahrenVorangegangenCode ' If WP.aesWP_VerfahrenNationalCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenNationalCode = WP.aesWP_VerfahrenNationalCode ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode ' If WP.aesWP_Menge IsNot Nothing Then WP_DY.Menge = WP.aesWP_Menge ' If WP.aesWP_Wert IsNot Nothing Then WP_DY.Wert = WP.aesWP_Wert ' WP_DY.Vorpapier = New List(Of VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp) ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode1 ' If WP.aesWP_ReferenzID1 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID1 ' If WP.aesWP_Zusatz1 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz1 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode2 ' If WP.aesWP_ReferenzID2 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID2 ' If WP.aesWP_Zusatz2 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz2 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode3 ' If WP.aesWP_ReferenzID3 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID3 ' If WP.aesWP_Zusatz3 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz3 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode4 ' If WP.aesWP_ReferenzID4 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID4 ' If WP.aesWP_Zusatz4 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz4 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode5 ' If WP.aesWP_ReferenzID5 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID5 ' If WP.aesWP_Zusatz5 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz5 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode6 ' If WP.aesWP_ReferenzID6 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID6 ' If WP.aesWP_Zusatz6 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz6 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode7 ' If WP.aesWP_ReferenzID7 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID7 ' If WP.aesWP_Zusatz7 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz7 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode8 ' If WP.aesWP_ReferenzID8 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID8 ' If WP.aesWP_Zusatz8 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz8 ' WP_DY.Vorpapier.Add(VP) ' End If ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode9 ' If WP.aesWP_ReferenzID9 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID9 ' If WP.aesWP_Zusatz9 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz9 ' WP_DY.Vorpapier.Add(VP) ' End If ' 'Packstueck ' WP_DY.Packstueck = New List(Of VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp) ' If WP.aesWP_PACKSTUECKE IsNot Nothing AndAlso WP.aesWP_PACKSTUECKE.Count > 0 Then ' For Each PK In WP.aesWP_PACKSTUECKE ' Dim PK_DY As New VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp ' If PK.aesWpPk_PackstueckeAnzahl IsNot Nothing Then PK_DY.Anzahl = PK.aesWpPk_PackstueckeAnzahl.ToString.Replace(".", "") ' If PK.aesWpPk_Verpackungsart IsNot Nothing Then PK_DY.VerpackungsartCode = PK.aesWpPk_Verpackungsart ' If PK.aesWpPk_Kennzeichnung IsNot Nothing Then PK_DY.Kennzeichnung = PK.aesWpPk_Kennzeichnung ' WP_DY.Packstueck.Add(PK_DY) ' Next ' End If ' 'Container ' WP_DY.ContainerNummer = New List(Of String) ' If WP.aesWP_Containernummer1 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer1) ' If WP.aesWP_Containernummer2 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer2) ' If WP.aesWP_Containernummer3 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer3) ' If WP.aesWP_Containernummer4 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer4) ' 'Unterlage ' WP_DY.Unterlage = New List(Of VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp) ' If WP.aesWP_UNTERLAGEN IsNot Nothing AndAlso WP.aesWP_UNTERLAGEN.Count > 0 Then ' For Each UL In WP.aesWP_UNTERLAGEN ' Dim UL_DY As New VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp ' If UL.aesWpUl_Typ IsNot Nothing Then UL_DY.TypCode = UL.aesWpUl_Typ ' If UL.aesWpUl_QualifierCode IsNot Nothing Then UL_DY.QualifierCode = UL.aesWpUl_QualifierCode ' If UL.aesWpUl_ReferenzID IsNot Nothing Then UL_DY.ReferenzID = UL.aesWpUl_ReferenzID ' If UL.aesWpUl_Zusatz IsNot Nothing Then UL_DY.Zusatz = UL.aesWpUl_Zusatz ' If UL.aesWpUl_Detail IsNot Nothing Then UL_DY.Detail = UL.aesWpUl_Detail ' If UL.aesWpUl_DatumAusstellung IsNot Nothing Then UL_DY.DatumAusstellung = UL.aesWpUl_DatumAusstellung ' If UL.aesWpUl_DatumEndeGueltigkeit IsNot Nothing Then UL_DY.DatumEndeGueltigkeit = UL.aesWpUl_DatumEndeGueltigkeit ' If UL.aesWpUl_Wert IsNot Nothing Then UL_DY.Wert = UL.aesWpUl_Wert ' If UL.aesWpUl_Abschreibungsmenge IsNot Nothing Then UL_DY.Abschreibungsmenge = UL.aesWpUl_Abschreibungsmenge ' If UL.aesWpUl_Masseinheit IsNot Nothing Then UL_DY.Masseinheit = UL.aesWpUl_Masseinheit ' WP_DY.Unterlage.Add(UL_DY) ' Next ' End If ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode ' 'Empfaenger ' If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then ' If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI ' If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR ' If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName ' If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse ' If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt ' If WP.aesWP_EmpfaengerTeilnehmerPLZ IsNot Nothing Then WP_DY.Empfaenger.PLZ = WP.aesWP_EmpfaengerTeilnehmerPLZ ' If WP.aesWP_EmpfaengerTeilnehmerLandCode IsNot Nothing Then WP_DY.Empfaenger.LandCode = WP.aesWP_EmpfaengerTeilnehmerLandCode ' End If ' EA.WarenPosition.Add(WP_DY) ' Next ' End If ' 'Lieferbedingungen ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then ' EA.KopfDaten.Lieferbedingung = New VollstaendigeAusfuhrAnmeldung.LieferbedingungEVTyp ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermCode = cDY.aes_LieferbedingungenCode ' If cDY.aes_LieferbedingungenText IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermText = cDY.aes_LieferbedingungenText ' If cDY.aes_LieferbedingungenOrt IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermOrt = cDY.aes_LieferbedingungenOrt ' End If ' XML.EinzelAnmeldung.Add(EA) ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" ' If Not System.IO.Directory.Exists(saveDir) Then ' System.IO.Directory.CreateDirectory(saveDir) ' End If ' saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" ' 'MsgBox(saveFile) ' XML.SaveToFile(saveFile) ' replaceNullDateXML(saveFile) ' Return True 'End Function 'Shared Function exportVERAGKunde(kdNr() As String) As Boolean ' Dim XML As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORT ' For Each s In kdNr ' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(s) ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(s) ' If KUNDE IsNot Nothing And ADRESSE IsNot Nothing Then ' Dim XML_KD As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDaten ' If ADRESSE.Ordnungsbegriff IsNot Nothing Then XML_KD.Kurzname = ADRESSE.Ordnungsbegriff ' If ADRESSE.Name_1 IsNot Nothing Then XML_KD.Name1 = ADRESSE.Name_1 ' If ADRESSE.Name_2 IsNot Nothing Then XML_KD.Name2 = ADRESSE.Name_2 ' If KUNDE.EORITIN IsNot Nothing Then XML_KD.EORI = KUNDE.EORITIN : XML_KD.EORI_Niederlassung = "0000" ' If ADRESSE.UstIdKz IsNot Nothing And ADRESSE.UstIdKz IsNot Nothing Then XML_KD.UID_Nr = ADRESSE.UstIdKz & ADRESSE.UstIdNr ' XML_KD.Kontakt = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenKontakt ' If ADRESSE.Telefon IsNot Nothing Then XML_KD.Kontakt.Tel = ADRESSE.Telefon ' If ADRESSE.Telefax IsNot Nothing Then XML_KD.Kontakt.Fax = ADRESSE.Telefax ' If ADRESSE.E_Mail IsNot Nothing Then XML_KD.Kontakt.EMail = ADRESSE.E_Mail ' If ADRESSE.Ansprechpartner IsNot Nothing Then XML_KD.Kontakt.Ansprechpartner = ADRESSE.Ansprechpartner ' XML_KD.Adresse = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenAdresse ' If ADRESSE.Straße IsNot Nothing Then XML_KD.Adresse.Strasse = ADRESSE.Straße ' If ADRESSE.PLZ IsNot Nothing Then XML_KD.Adresse.Plz = ADRESSE.PLZ ' If ADRESSE.Ort IsNot Nothing Then XML_KD.Adresse.Ort = ADRESSE.Ort ' If ADRESSE.LandKz IsNot Nothing Then XML_KD.Adresse.LandKz = ADRESSE.LandKz ' XML.KundenDaten.Add(XML_KD) ' End If ' Next ' XML.SaveToFile("C:\Users\DEVELOPER1\Desktop\test\KD_TEST.xml") ' Return True 'End Function End Class 'Class DY_ObjektAktion ' Shared Property OBJ_CREATE As String = "CREATE" ' Shared Property OBJ_CHANGE As String = "CHANGE" ' Shared Property OBJ_CANCEL As String = "CANCEL" ' Shared Property OBJ_SEND As String = "SEND" ' End Class