X
This commit is contained in:
@@ -2462,7 +2462,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
|
||||
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
|
||||
|
||||
End If
|
||||
' EZA.eza_VerfahrenBeantragtCode
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -2588,8 +2589,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End If
|
||||
|
||||
|
||||
'Vertreter
|
||||
If FCFCDC.Representative IsNot Nothing Then
|
||||
|
||||
'Vertreter
|
||||
If FCFCDC.Representative IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CB"
|
||||
If FCFCDC.Representative.Identification IsNot Nothing Then
|
||||
@@ -2635,66 +2637,70 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "UC"
|
||||
If FCFCDC.Body.Acquirer.Name IsNot Nothing Then
|
||||
If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then
|
||||
If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Acquirer.Name.ToString.Substring(80, FCFCDC.Body.Acquirer.Name.ToString.Length - 80)
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.Name IsNot Nothing Then
|
||||
If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then
|
||||
If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, FCFCDC.Body.Acquirer.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Acquirer.Name.ToString.Substring(80, FCFCDC.Body.Acquirer.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, FCFCDC.Body.Acquirer.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Acquirer.Identification.ReferenceNumber
|
||||
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Acquirer.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Acquirer.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDC.Body.Acquirer.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDC.Body.Acquirer.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDC.Body.Acquirer.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.TaxNumber IsNot Nothing Then
|
||||
ADR.ezaAd_UStIDAnmelder = FCFCDC.Body.Acquirer.TaxNumber
|
||||
End If
|
||||
|
||||
'Versender/Ausführer
|
||||
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignor IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CZ"
|
||||
If FCFCDC.Body.Consignor.Name IsNot Nothing Then
|
||||
If FCFCDC.Body.Consignor.Name.ToString.Length > 40 Then
|
||||
If FCFCDC.Body.Consignor.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignor.Name.ToString.Substring(80, FCFCDC.Body.Consignor.Name.ToString.Length - 80)
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Acquirer.Identification.ReferenceNumber
|
||||
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Acquirer.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDC.Body.Acquirer.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Acquirer.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDC.Body.Acquirer.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDC.Body.Acquirer.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDC.Body.Acquirer.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Versender/Ausführer
|
||||
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignor IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CZ"
|
||||
If FCFCDC.Body.Consignor.Name IsNot Nothing Then
|
||||
If FCFCDC.Body.Consignor.Name.ToString.Length > 40 Then
|
||||
If FCFCDC.Body.Consignor.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, FCFCDC.Body.Consignor.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignor.Name.ToString.Substring(80, FCFCDC.Body.Consignor.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, FCFCDC.Body.Consignor.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name
|
||||
End If
|
||||
If FCFCDC.Body.Consignor.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignor.Identification.ReferenceNumber
|
||||
' ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignor.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDC.Body.Consignor.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignor.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDC.Body.Consignor.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDC.Body.Consignor.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDC.Body.Consignor.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
If FCFCDC.Body.Consignor.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignor.Identification.ReferenceNumber
|
||||
' ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignor.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDC.Body.Consignor.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignor.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDC.Body.Consignor.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDC.Body.Consignor.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDC.Body.Consignor.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Verkäufer
|
||||
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then
|
||||
'Verkäufer
|
||||
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "SE"
|
||||
If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then
|
||||
@@ -2838,6 +2844,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier
|
||||
POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit
|
||||
POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity
|
||||
POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2852,7 +2859,6 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount.
|
||||
' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts
|
||||
' ' POS.ezaWP_AHStatWert = GOODSITEM.Assessment.Amount??!!
|
||||
' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee
|
||||
'End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user