ImportZA to DAKOSY Fix
This commit is contained in:
@@ -284,516 +284,6 @@ Class DAKOSY_Interface_SEND
|
||||
Dim ObjectAktion = DY_ACTION
|
||||
|
||||
|
||||
Dim XML As New DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004_V2024.FreierVerkehrAktVeredelUmwandlungAVUVTyp
|
||||
|
||||
|
||||
'Transaktion:
|
||||
XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.FreierVerkehrAktVeredelUmwandlungAVUVTyp.DatenaustauschFreierVerkehrTyp
|
||||
Dim EA = New FreierVerkehrAktVeredelUmwandlung_004_V2024.EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
||||
|
||||
EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
|
||||
|
||||
|
||||
|
||||
'ObjektIdentifizierung:
|
||||
EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.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_V2024.UnterlageVzKopfAVUVTyp)
|
||||
For Each u In cDY.eza_UNTERLAGEN
|
||||
Dim UNTERLAGE As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.AufschubAVUVTyp)
|
||||
For Each u In cDY.eza_AUFSCHUB
|
||||
Dim AUFSCHUB As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.SumABeendigungsAnteilAVUVTyp)
|
||||
For Each u In cDY.eza_SUMABA
|
||||
Dim SUMA As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.BEAnteilZLAVUVPositionAVUVTyp)
|
||||
For Each u In cDY.eza_BEA_ZLAvuv
|
||||
Dim BEA As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.AdressenVzImportAVUVTyp)
|
||||
For Each u In cDY.eza_ADRESSEN
|
||||
Dim ADR As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
||||
For Each u In cDY.eza_WARENPOS
|
||||
Dim WP As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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(".", "").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_V2024.WarenMengeAVUVTyp)
|
||||
If u.ezaWP_Warenmenge1 IsNot Nothing Then
|
||||
Dim WM As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.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_V2024.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_V2024.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_V2024.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_V2024.GehaltsangabenAVUVTyp)
|
||||
If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then
|
||||
Dim GA As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.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_V2024.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_V2024.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_V2024.VerbrauchssteuerAVUVTyp)
|
||||
For Each v In u.ezaWP_VERBRAUCHSSTEUER
|
||||
Dim VS As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.AbgabenminderungAVUVTyp)
|
||||
If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then
|
||||
Dim AM As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.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_V2024.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_V2024.SonderfalldatenAVUVTyp)
|
||||
For Each v In u.ezaWP_SONDERFALLDATEN
|
||||
Dim SD As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.UnterlageVZPositionAVUVTyp)
|
||||
For Each v In u.ezaWP_UNTERLAGEN
|
||||
Dim UL As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.BesondereWertangabeAVUVTyp)
|
||||
If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then
|
||||
Dim BW As New FreierVerkehrAktVeredelUmwandlung_004_V2024.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_V2024.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_V2024.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_V2024.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_V2024.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_V2024.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"
|
||||
|
||||
|
||||
XML.SaveToFile(saveFile)
|
||||
|
||||
replaceNullDateXML(saveFile)
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Shared Function generateVersandanmeldungEZA_old(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
|
||||
|
||||
|
||||
@@ -1292,7 +782,6 @@ Class DAKOSY_Interface_SEND
|
||||
|
||||
saveFile = cDakosyFunftions.getDefaultFolder_SEND() & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
|
||||
|
||||
XML.SaveToFile(saveFile)
|
||||
|
||||
replaceNullDateXML(saveFile)
|
||||
|
||||
Reference in New Issue
Block a user