From 2d85480c4c464ee341cf56453aef603d2dca837d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 22 Jun 2020 13:32:28 +0200 Subject: [PATCH] neu --- ...erkehrAktVeredelUmwandlung_004.Designer.vb | 73 +- .../FreierVerkehrAktVeredelUmwandlung_004.xsd | 30 +- .../cfcdec.Designer.vb | 4501 ++-- .../cfcdec.xsd | 252 +- .../cfcdec_old.Designer.vb | 20942 ++++++++++++++++ .../cfcdec_old.xsd | 5609 +++++ DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb | 10 +- .../DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb | 12 +- DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 4 + DAKOSY_Worker/cZOLL_IMPORT.vb | 12 +- .../cZollsysteme_Aktenbeschriftung.vb | 1 + TELOTEK_Worker_lib/cTelokec.vb | 12 +- UID/Buergschaften/usrctlBuergschaft.vb | 98 +- cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb | 33 + cNCTSPartnerWorker/cNCTS_TR.vb | 110 +- .../AtlasAufschubDatenEinlesen.vb | 2 +- .../VERAG_Interface/cVERAG_out_ncts.vb | 2 +- initATLASAufschubkonten/cGetMsgType.vb | 15 + initATLASAufschubkonten/cMAVIWorker.vb | 218 +- .../frmDYNachrichtenVerarbeitung.vb | 629 +- initATLASAufschubkonten/frmRoutineManager.vb | 9 +- .../frmStartOptions.Designer.vb | 49 +- initATLASAufschubkonten/frmStartOptions.vb | 77 +- .../frmTCNachrichtenVerarbeitung.vb | 2 +- .../frmTRNCTS_NachrichtenVerarbeitung.vb | 31 +- 25 files changed, 30373 insertions(+), 2360 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.xsd diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb index 6a4c967..456a80e 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb @@ -3223,7 +3223,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Private _abgabensteuerungKz As String - Private _eUCode As String + Private _eUCode As List(Of String) Private _ursprungslandCode As String @@ -3374,6 +3374,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() Me._kontingentnummer = New List(Of String)() Me._warenMenge = New List(Of WarenMengeAVUVTyp)() + Me._eUCode = New List(Of String)() Me._warenNummerZusatzCode = New List(Of String)() End Sub @@ -3467,8 +3468,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Set End Property - - Public Property EUCode() As String + + Public Property EUCode() As List(Of String) Get Return Me._eUCode End Get @@ -4309,9 +4310,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Private _zollNr As String - Private _nameFirma As List(Of String) + Private _nameFirma As String - Private _strasseHausNr As List(Of String) + Private _strasseHausNr As String Private _ortsteil As String @@ -4336,12 +4337,6 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Private Shared sSerializer As XmlSerializer #End Region - Public Sub New() - MyBase.New - Me._strasseHausNr = New List(Of String)() - Me._nameFirma = New List(Of String)() - End Sub - Public Property AdressTyp() As String Get @@ -4392,8 +4387,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Set End Property - - Public Property NameFirma() As List(Of String) + + Public Property NameFirma() As String Get Return Me._nameFirma End Get @@ -4402,8 +4397,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Set End Property - - Public Property StrasseHausNr() As List(Of String) + + Public Property StrasseHausNr() As String Get Return Me._strasseHausNr End Get @@ -6330,6 +6325,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Private _fiskalvertretungKz As String + Private _zusammenfassendeMeldungKzStdKto As String + + Private _zusammenfassendeMeldungMelderkto As String + + Private _intrastatKzStdKto As String + + Private _intrastatMelderkto As String + Private _ausstellungsort As String Private _zollrechtlicherStatus As String @@ -6532,6 +6535,46 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Set End Property + + Public Property ZusammenfassendeMeldungKzStdKto() As String + Get + Return Me._zusammenfassendeMeldungKzStdKto + End Get + Set + Me._zusammenfassendeMeldungKzStdKto = Value + End Set + End Property + + + Public Property ZusammenfassendeMeldungMelderkto() As String + Get + Return Me._zusammenfassendeMeldungMelderkto + End Get + Set + Me._zusammenfassendeMeldungMelderkto = Value + End Set + End Property + + + Public Property IntrastatKzStdKto() As String + Get + Return Me._intrastatKzStdKto + End Get + Set + Me._intrastatKzStdKto = Value + End Set + End Property + + + Public Property IntrastatMelderkto() As String + Get + Return Me._intrastatMelderkto + End Get + Set + Me._intrastatMelderkto = Value + End Set + End Property + Public Property Ausstellungsort() As String Get diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd index 61656d7..36f32c4 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd @@ -29,13 +29,13 @@ - - + + - + @@ -68,11 +68,6 @@ - - - - - @@ -128,6 +123,11 @@ + + + + + @@ -303,6 +303,12 @@ + + + + + + @@ -314,6 +320,10 @@ + + + + @@ -446,7 +456,7 @@ - + @@ -470,7 +480,7 @@ - + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb index 7075e83..08e7cdd 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code++. Version 4.4.0.7 -'' FCFCDCListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' FCFCDDListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ Imports System @@ -15,7 +15,7 @@ Imports System.Text Imports System.Xml Imports System.Collections.Generic -Namespace FCFCDC +Namespace FCFCDD - Partial Public Class FCFCDC + Partial Public Class FCFCDD #Region "Private fields" - Private _metaData As FCFCDCMetaData + Private _metaData As FCFCDDMetaData - Private _header As FCFCDCHeader + Private _header As FCFCDDHeader - Private _declarant As FCFCDCDeclarant + Private _declarant As FCFCDDDeclarant - Private _representative As FCFCDCRepresentative + Private _representative As FCFCDDRepresentative - Private _principal As FCFCDCPrincipal + Private _principal As FCFCDDPrincipal - Private _contactPerson As FCFCDCContactPerson + Private _contactPerson As FCFCDDContactPerson - Private _dutyDefermentApproval As List(Of FCFCDCDutyDefermentApproval) + Private _dutyDefermentApproval As List(Of FCFCDDDutyDefermentApproval) - Private _borderTransportMeans As FCFCDCBorderTransportMeans + Private _borderTransportMeans As FCFCDDBorderTransportMeans - Private _arrivalTransportMeans As FCFCDCArrivalTransportMeans + Private _arrivalTransportMeans As FCFCDDArrivalTransportMeans - Private _previousAdministrativeReferences As FCFCDCPreviousAdministrativeReferences + Private _previousAdministrativeReferences As FCFCDDPreviousAdministrativeReferences - Private _summaryDeclaration As FCFCDCSummaryDeclaration + Private _summaryDeclaration As FCFCDDSummaryDeclaration - Private _customsWarehouse As FCFCDCCustomsWarehouse + Private _customsWarehouse As FCFCDDCustomsWarehouse - Private _inwardProcessing As FCFCDCInwardProcessing + Private _inwardProcessing As FCFCDDInwardProcessing - Private _body As FCFCDCBody + Private _body As FCFCDDBody Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._body = New FCFCDCBody() - Me._inwardProcessing = New FCFCDCInwardProcessing() - Me._customsWarehouse = New FCFCDCCustomsWarehouse() - Me._summaryDeclaration = New FCFCDCSummaryDeclaration() - Me._previousAdministrativeReferences = New FCFCDCPreviousAdministrativeReferences() - Me._arrivalTransportMeans = New FCFCDCArrivalTransportMeans() - Me._borderTransportMeans = New FCFCDCBorderTransportMeans() - Me._dutyDefermentApproval = New List(Of FCFCDCDutyDefermentApproval)() - Me._contactPerson = New FCFCDCContactPerson() - Me._principal = New FCFCDCPrincipal() - Me._representative = New FCFCDCRepresentative() - Me._declarant = New FCFCDCDeclarant() - Me._header = New FCFCDCHeader() - Me._metaData = New FCFCDCMetaData() + Me._body = New FCFCDDBody() + Me._inwardProcessing = New FCFCDDInwardProcessing() + Me._customsWarehouse = New FCFCDDCustomsWarehouse() + Me._summaryDeclaration = New FCFCDDSummaryDeclaration() + Me._previousAdministrativeReferences = New FCFCDDPreviousAdministrativeReferences() + Me._arrivalTransportMeans = New FCFCDDArrivalTransportMeans() + Me._borderTransportMeans = New FCFCDDBorderTransportMeans() + Me._dutyDefermentApproval = New List(Of FCFCDDDutyDefermentApproval)() + Me._contactPerson = New FCFCDDContactPerson() + Me._principal = New FCFCDDPrincipal() + Me._representative = New FCFCDDRepresentative() + Me._declarant = New FCFCDDDeclarant() + Me._header = New FCFCDDHeader() + Me._metaData = New FCFCDDMetaData() End Sub - Public Property MetaData() As FCFCDCMetaData + Public Property MetaData() As FCFCDDMetaData Get Return Me._metaData End Get @@ -84,7 +84,7 @@ Namespace FCFCDC End Set End Property - Public Property Header() As FCFCDCHeader + Public Property Header() As FCFCDDHeader Get Return Me._header End Get @@ -93,7 +93,7 @@ Namespace FCFCDC End Set End Property - Public Property Declarant() As FCFCDCDeclarant + Public Property Declarant() As FCFCDDDeclarant Get Return Me._declarant End Get @@ -102,7 +102,7 @@ Namespace FCFCDC End Set End Property - Public Property Representative() As FCFCDCRepresentative + Public Property Representative() As FCFCDDRepresentative Get Return Me._representative End Get @@ -111,7 +111,7 @@ Namespace FCFCDC End Set End Property - Public Property Principal() As FCFCDCPrincipal + Public Property Principal() As FCFCDDPrincipal Get Return Me._principal End Get @@ -120,7 +120,7 @@ Namespace FCFCDC End Set End Property - Public Property ContactPerson() As FCFCDCContactPerson + Public Property ContactPerson() As FCFCDDContactPerson Get Return Me._contactPerson End Get @@ -130,7 +130,7 @@ Namespace FCFCDC End Property - Public Property DutyDefermentApproval() As List(Of FCFCDCDutyDefermentApproval) + Public Property DutyDefermentApproval() As List(Of FCFCDDDutyDefermentApproval) Get Return Me._dutyDefermentApproval End Get @@ -139,7 +139,7 @@ Namespace FCFCDC End Set End Property - Public Property BorderTransportMeans() As FCFCDCBorderTransportMeans + Public Property BorderTransportMeans() As FCFCDDBorderTransportMeans Get Return Me._borderTransportMeans End Get @@ -148,7 +148,7 @@ Namespace FCFCDC End Set End Property - Public Property ArrivalTransportMeans() As FCFCDCArrivalTransportMeans + Public Property ArrivalTransportMeans() As FCFCDDArrivalTransportMeans Get Return Me._arrivalTransportMeans End Get @@ -157,7 +157,7 @@ Namespace FCFCDC End Set End Property - Public Property PreviousAdministrativeReferences() As FCFCDCPreviousAdministrativeReferences + Public Property PreviousAdministrativeReferences() As FCFCDDPreviousAdministrativeReferences Get Return Me._previousAdministrativeReferences End Get @@ -166,7 +166,7 @@ Namespace FCFCDC End Set End Property - Public Property SummaryDeclaration() As FCFCDCSummaryDeclaration + Public Property SummaryDeclaration() As FCFCDDSummaryDeclaration Get Return Me._summaryDeclaration End Get @@ -175,7 +175,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsWarehouse() As FCFCDCCustomsWarehouse + Public Property CustomsWarehouse() As FCFCDDCustomsWarehouse Get Return Me._customsWarehouse End Get @@ -184,7 +184,7 @@ Namespace FCFCDC End Set End Property - Public Property InwardProcessing() As FCFCDCInwardProcessing + Public Property InwardProcessing() As FCFCDDInwardProcessing Get Return Me._inwardProcessing End Get @@ -193,7 +193,7 @@ Namespace FCFCDC End Set End Property - Public Property Body() As FCFCDCBody + Public Property Body() As FCFCDDBody Get Return Me._body End Get @@ -205,7 +205,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDC)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDD)) End If Return sSerializer End Get @@ -213,7 +213,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDC object into an XML string + ''' Serializes current FCFCDD object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -240,15 +240,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDC object + ''' Deserializes workflow markup into an FCFCDD object ''' ''' string workflow markup to deserialize - ''' Output FCFCDC object + ''' Output FCFCDD object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDD, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDC) + obj = CType(Nothing, FCFCDD) Try obj = Deserialize(input) Return True @@ -258,16 +258,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDD) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDC + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDD Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDC) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDD) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -275,13 +275,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDC - Return CType(Serializer.Deserialize(s), FCFCDC) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDD + Return CType(Serializer.Deserialize(s), FCFCDD) End Function #End Region ''' - ''' Serializes current FCFCDC object into file + ''' Serializes current FCFCDD object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -313,15 +313,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDC object + ''' Deserializes xml markup from file into an FCFCDD object ''' ''' string xml file to load and deserialize - ''' Output FCFCDC object + ''' Output FCFCDD object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDD, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDC) + obj = CType(Nothing, FCFCDD) Try obj = LoadFromFile(fileName) Return True @@ -331,12 +331,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDC) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDD) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDC + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDD Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -362,10 +362,10 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCMetaData + Partial Public Class FCFCDDMetaData #Region "Private fields" - Private _preparation As FCFCDCMetaDataPreparation + Private _preparation As FCFCDDMetaDataPreparation Private _interchangeControlReference As String @@ -373,27 +373,27 @@ Namespace FCFCDC Private _messageIdentifier As String - Private _messageGroup As FCFCDCMetaDataMessageGroup + Private _messageGroup As FCFCDDMetaDataMessageGroup - Private _testIndicator As FCFCDCMetaDataTestIndicator + Private _testIndicator As FCFCDDMetaDataTestIndicator - Private _messageType As FCFCDCMetaDataMessageType + Private _messageType As FCFCDDMetaDataMessageType - Private _interchangeSender As FCFCDCMetaDataInterchangeSender + Private _interchangeSender As FCFCDDMetaDataInterchangeSender - Private _interchangeRecipient As FCFCDCMetaDataInterchangeRecipient + Private _interchangeRecipient As FCFCDDMetaDataInterchangeRecipient Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._interchangeRecipient = New FCFCDCMetaDataInterchangeRecipient() - Me._interchangeSender = New FCFCDCMetaDataInterchangeSender() - Me._preparation = New FCFCDCMetaDataPreparation() + Me._interchangeRecipient = New FCFCDDMetaDataInterchangeRecipient() + Me._interchangeSender = New FCFCDDMetaDataInterchangeSender() + Me._preparation = New FCFCDDMetaDataPreparation() End Sub - Public Property Preparation() As FCFCDCMetaDataPreparation + Public Property Preparation() As FCFCDDMetaDataPreparation Get Return Me._preparation End Get @@ -432,7 +432,7 @@ Namespace FCFCDC End Set End Property - Public Property MessageGroup() As FCFCDCMetaDataMessageGroup + Public Property MessageGroup() As FCFCDDMetaDataMessageGroup Get Return Me._messageGroup End Get @@ -441,7 +441,7 @@ Namespace FCFCDC End Set End Property - Public Property TestIndicator() As FCFCDCMetaDataTestIndicator + Public Property TestIndicator() As FCFCDDMetaDataTestIndicator Get Return Me._testIndicator End Get @@ -450,7 +450,7 @@ Namespace FCFCDC End Set End Property - Public Property MessageType() As FCFCDCMetaDataMessageType + Public Property MessageType() As FCFCDDMetaDataMessageType Get Return Me._messageType End Get @@ -459,7 +459,7 @@ Namespace FCFCDC End Set End Property - Public Property InterchangeSender() As FCFCDCMetaDataInterchangeSender + Public Property InterchangeSender() As FCFCDDMetaDataInterchangeSender Get Return Me._interchangeSender End Get @@ -468,7 +468,7 @@ Namespace FCFCDC End Set End Property - Public Property InterchangeRecipient() As FCFCDCMetaDataInterchangeRecipient + Public Property InterchangeRecipient() As FCFCDDMetaDataInterchangeRecipient Get Return Me._interchangeRecipient End Get @@ -480,7 +480,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaData)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaData)) End If Return sSerializer End Get @@ -488,7 +488,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaData object into an XML string + ''' Serializes current FCFCDDMetaData object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -515,15 +515,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaData object + ''' Deserializes workflow markup into an FCFCDDMetaData object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaData object + ''' Output FCFCDDMetaData object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaData, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaData) + obj = CType(Nothing, FCFCDDMetaData) Try obj = Deserialize(input) Return True @@ -533,16 +533,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaData) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaData + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaData Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaData) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaData) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -550,13 +550,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaData - Return CType(Serializer.Deserialize(s), FCFCDCMetaData) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaData + Return CType(Serializer.Deserialize(s), FCFCDDMetaData) End Function #End Region ''' - ''' Serializes current FCFCDCMetaData object into file + ''' Serializes current FCFCDDMetaData object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -588,15 +588,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaData object + ''' Deserializes xml markup from file into an FCFCDDMetaData object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaData object + ''' Output FCFCDDMetaData object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaData, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaData) + obj = CType(Nothing, FCFCDDMetaData) Try obj = LoadFromFile(fileName) Return True @@ -606,12 +606,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaData) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaData) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaData + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaData Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -637,7 +637,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCMetaDataPreparation + Partial Public Class FCFCDDMetaDataPreparation #Region "Private fields" Private _date As Date @@ -670,7 +670,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataPreparation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaDataPreparation)) End If Return sSerializer End Get @@ -678,7 +678,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaDataPreparation object into an XML string + ''' Serializes current FCFCDDMetaDataPreparation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -705,15 +705,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaDataPreparation object + ''' Deserializes workflow markup into an FCFCDDMetaDataPreparation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaDataPreparation object + ''' Output FCFCDDMetaDataPreparation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataPreparation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataPreparation) + obj = CType(Nothing, FCFCDDMetaDataPreparation) Try obj = Deserialize(input) Return True @@ -723,16 +723,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataPreparation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataPreparation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaDataPreparation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataPreparation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaDataPreparation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -740,13 +740,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataPreparation - Return CType(Serializer.Deserialize(s), FCFCDCMetaDataPreparation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaDataPreparation + Return CType(Serializer.Deserialize(s), FCFCDDMetaDataPreparation) End Function #End Region ''' - ''' Serializes current FCFCDCMetaDataPreparation object into file + ''' Serializes current FCFCDDMetaDataPreparation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -778,15 +778,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaDataPreparation object + ''' Deserializes xml markup from file into an FCFCDDMetaDataPreparation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaDataPreparation object + ''' Output FCFCDDMetaDataPreparation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataPreparation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataPreparation) + obj = CType(Nothing, FCFCDDMetaDataPreparation) Try obj = LoadFromFile(fileName) Return True @@ -796,12 +796,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataPreparation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataPreparation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataPreparation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaDataPreparation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -825,7 +825,7 @@ Namespace FCFCDC - Public Enum FCFCDCMetaDataMessageGroup + Public Enum FCFCDDMetaDataMessageGroup ''' ZBE @@ -837,7 +837,7 @@ Namespace FCFCDC - Public Enum FCFCDCMetaDataTestIndicator + Public Enum FCFCDDMetaDataTestIndicator ''' @@ -847,10 +847,10 @@ Namespace FCFCDC - Public Enum FCFCDCMetaDataMessageType + Public Enum FCFCDDMetaDataMessageType ''' - FCFCDC + FCFCDD End Enum - Partial Public Class FCFCDCMetaDataInterchangeSender + Partial Public Class FCFCDDMetaDataInterchangeSender #Region "Private fields" - Private _identification As FCFCDCMetaDataInterchangeSenderIdentification + Private _identification As FCFCDDMetaDataInterchangeSenderIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCMetaDataInterchangeSenderIdentification() + Me._identification = New FCFCDDMetaDataInterchangeSenderIdentification() End Sub - Public Property Identification() As FCFCDCMetaDataInterchangeSenderIdentification + Public Property Identification() As FCFCDDMetaDataInterchangeSenderIdentification Get Return Me._identification End Get @@ -883,7 +883,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSender)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaDataInterchangeSender)) End If Return sSerializer End Get @@ -891,7 +891,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaDataInterchangeSender object into an XML string + ''' Serializes current FCFCDDMetaDataInterchangeSender object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -918,15 +918,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSender object + ''' Deserializes workflow markup into an FCFCDDMetaDataInterchangeSender object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaDataInterchangeSender object + ''' Output FCFCDDMetaDataInterchangeSender object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + obj = CType(Nothing, FCFCDDMetaDataInterchangeSender) Try obj = Deserialize(input) Return True @@ -936,16 +936,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeSender) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSender + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaDataInterchangeSender Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSender) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaDataInterchangeSender) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -953,13 +953,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSender - Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSender) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaDataInterchangeSender + Return CType(Serializer.Deserialize(s), FCFCDDMetaDataInterchangeSender) End Function #End Region ''' - ''' Serializes current FCFCDCMetaDataInterchangeSender object into file + ''' Serializes current FCFCDDMetaDataInterchangeSender object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -991,15 +991,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSender object + ''' Deserializes xml markup from file into an FCFCDDMetaDataInterchangeSender object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaDataInterchangeSender object + ''' Output FCFCDDMetaDataInterchangeSender object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + obj = CType(Nothing, FCFCDDMetaDataInterchangeSender) Try obj = LoadFromFile(fileName) Return True @@ -1009,12 +1009,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSender) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeSender) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeSender + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaDataInterchangeSender Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -1040,7 +1040,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCMetaDataInterchangeSenderIdentification + Partial Public Class FCFCDDMetaDataInterchangeSenderIdentification #Region "Private fields" Private _referenceNumber As String @@ -1073,7 +1073,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSenderIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaDataInterchangeSenderIdentification)) End If Return sSerializer End Get @@ -1081,7 +1081,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into an XML string + ''' Serializes current FCFCDDMetaDataInterchangeSenderIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -1108,15 +1108,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' Deserializes workflow markup into an FCFCDDMetaDataInterchangeSenderIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' Output FCFCDDMetaDataInterchangeSenderIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + obj = CType(Nothing, FCFCDDMetaDataInterchangeSenderIdentification) Try obj = Deserialize(input) Return True @@ -1126,16 +1126,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeSenderIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSenderIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaDataInterchangeSenderIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSenderIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaDataInterchangeSenderIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1143,13 +1143,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSenderIdentification - Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSenderIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaDataInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), FCFCDDMetaDataInterchangeSenderIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into file + ''' Serializes current FCFCDDMetaDataInterchangeSenderIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -1181,15 +1181,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' Deserializes xml markup from file into an FCFCDDMetaDataInterchangeSenderIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' Output FCFCDDMetaDataInterchangeSenderIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + obj = CType(Nothing, FCFCDDMetaDataInterchangeSenderIdentification) Try obj = LoadFromFile(fileName) Return True @@ -1199,12 +1199,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeSenderIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeSenderIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaDataInterchangeSenderIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -1230,20 +1230,20 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCMetaDataInterchangeRecipient + Partial Public Class FCFCDDMetaDataInterchangeRecipient #Region "Private fields" - Private _identification As FCFCDCMetaDataInterchangeRecipientIdentification + Private _identification As FCFCDDMetaDataInterchangeRecipientIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCMetaDataInterchangeRecipientIdentification() + Me._identification = New FCFCDDMetaDataInterchangeRecipientIdentification() End Sub - Public Property Identification() As FCFCDCMetaDataInterchangeRecipientIdentification + Public Property Identification() As FCFCDDMetaDataInterchangeRecipientIdentification Get Return Me._identification End Get @@ -1255,7 +1255,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipient)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaDataInterchangeRecipient)) End If Return sSerializer End Get @@ -1263,7 +1263,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into an XML string + ''' Serializes current FCFCDDMetaDataInterchangeRecipient object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -1290,15 +1290,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipient object + ''' Deserializes workflow markup into an FCFCDDMetaDataInterchangeRecipient object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' Output FCFCDDMetaDataInterchangeRecipient object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + obj = CType(Nothing, FCFCDDMetaDataInterchangeRecipient) Try obj = Deserialize(input) Return True @@ -1308,16 +1308,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeRecipient) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipient + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaDataInterchangeRecipient Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipient) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaDataInterchangeRecipient) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1325,13 +1325,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipient - Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipient) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaDataInterchangeRecipient + Return CType(Serializer.Deserialize(s), FCFCDDMetaDataInterchangeRecipient) End Function #End Region ''' - ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into file + ''' Serializes current FCFCDDMetaDataInterchangeRecipient object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -1363,15 +1363,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipient object + ''' Deserializes xml markup from file into an FCFCDDMetaDataInterchangeRecipient object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' Output FCFCDDMetaDataInterchangeRecipient object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + obj = CType(Nothing, FCFCDDMetaDataInterchangeRecipient) Try obj = LoadFromFile(fileName) Return True @@ -1381,12 +1381,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeRecipient) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeRecipient + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaDataInterchangeRecipient Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -1412,7 +1412,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCMetaDataInterchangeRecipientIdentification + Partial Public Class FCFCDDMetaDataInterchangeRecipientIdentification #Region "Private fields" Private _referenceNumber As String @@ -1433,7 +1433,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipientIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDMetaDataInterchangeRecipientIdentification)) End If Return sSerializer End Get @@ -1441,7 +1441,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into an XML string + ''' Serializes current FCFCDDMetaDataInterchangeRecipientIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -1468,15 +1468,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' Deserializes workflow markup into an FCFCDDMetaDataInterchangeRecipientIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' Output FCFCDDMetaDataInterchangeRecipientIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + obj = CType(Nothing, FCFCDDMetaDataInterchangeRecipientIdentification) Try obj = Deserialize(input) Return True @@ -1486,16 +1486,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDMetaDataInterchangeRecipientIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipientIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDMetaDataInterchangeRecipientIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipientIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDMetaDataInterchangeRecipientIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1503,13 +1503,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipientIdentification - Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipientIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDMetaDataInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), FCFCDDMetaDataInterchangeRecipientIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into file + ''' Serializes current FCFCDDMetaDataInterchangeRecipientIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -1541,15 +1541,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' Deserializes xml markup from file into an FCFCDDMetaDataInterchangeRecipientIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' Output FCFCDDMetaDataInterchangeRecipientIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + obj = CType(Nothing, FCFCDDMetaDataInterchangeRecipientIdentification) Try obj = LoadFromFile(fileName) Return True @@ -1559,12 +1559,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDMetaDataInterchangeRecipientIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeRecipientIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDMetaDataInterchangeRecipientIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -1590,14 +1590,14 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCHeader + Partial Public Class FCFCDDHeader #Region "Private fields" Private _messageVersion As String Private _messageCreationDate As Date - Private _declaration As FCFCDCHeaderDeclaration + Private _declaration As FCFCDDHeaderDeclaration Private _localReferenceNumber As String @@ -1609,7 +1609,7 @@ Namespace FCFCDC Private _declarantIsConsigneeFlag As String - Private _customsAuthorisation As FCFCDCHeaderCustomsAuthorisation + Private _customsAuthorisation As FCFCDDHeaderCustomsAuthorisation Private _inputTaxDeductionFlag As String @@ -1617,9 +1617,9 @@ Namespace FCFCDC Private _departureCountry As String - Private _paymentMethod As FCFCDCHeaderPaymentMethod + Private _paymentMethod As FCFCDDHeaderPaymentMethod - Private _currencyCode As FCFCDCHeaderCurrencyCode + Private _currencyCode As FCFCDDHeaderCurrencyCode Private _additionalInformation As String @@ -1638,8 +1638,8 @@ Namespace FCFCDC Public Sub New() MyBase.New - Me._customsAuthorisation = New FCFCDCHeaderCustomsAuthorisation() - Me._declaration = New FCFCDCHeaderDeclaration() + Me._customsAuthorisation = New FCFCDDHeaderCustomsAuthorisation() + Me._declaration = New FCFCDDHeaderDeclaration() End Sub @@ -1662,7 +1662,7 @@ Namespace FCFCDC End Set End Property - Public Property Declaration() As FCFCDCHeaderDeclaration + Public Property Declaration() As FCFCDDHeaderDeclaration Get Return Me._declaration End Get @@ -1721,7 +1721,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsAuthorisation() As FCFCDCHeaderCustomsAuthorisation + Public Property CustomsAuthorisation() As FCFCDDHeaderCustomsAuthorisation Get Return Me._customsAuthorisation End Get @@ -1760,7 +1760,7 @@ Namespace FCFCDC End Set End Property - Public Property PaymentMethod() As FCFCDCHeaderPaymentMethod + Public Property PaymentMethod() As FCFCDDHeaderPaymentMethod Get Return Me._paymentMethod End Get @@ -1769,7 +1769,7 @@ Namespace FCFCDC End Set End Property - Public Property CurrencyCode() As FCFCDCHeaderCurrencyCode + Public Property CurrencyCode() As FCFCDDHeaderCurrencyCode Get Return Me._currencyCode End Get @@ -1841,7 +1841,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeader)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDHeader)) End If Return sSerializer End Get @@ -1849,7 +1849,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCHeader object into an XML string + ''' Serializes current FCFCDDHeader object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -1876,15 +1876,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCHeader object + ''' Deserializes workflow markup into an FCFCDDHeader object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCHeader object + ''' Output FCFCDDHeader object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeader, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeader) + obj = CType(Nothing, FCFCDDHeader) Try obj = Deserialize(input) Return True @@ -1894,16 +1894,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeader) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeader + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDHeader Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeader) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDHeader) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1911,13 +1911,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeader - Return CType(Serializer.Deserialize(s), FCFCDCHeader) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDHeader + Return CType(Serializer.Deserialize(s), FCFCDDHeader) End Function #End Region ''' - ''' Serializes current FCFCDCHeader object into file + ''' Serializes current FCFCDDHeader object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -1949,15 +1949,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCHeader object + ''' Deserializes xml markup from file into an FCFCDDHeader object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCHeader object + ''' Output FCFCDDHeader object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeader, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeader) + obj = CType(Nothing, FCFCDDHeader) Try obj = LoadFromFile(fileName) Return True @@ -1967,12 +1967,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeader) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeader) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeader + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDHeader Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -1998,17 +1998,17 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCHeaderDeclaration + Partial Public Class FCFCDDHeaderDeclaration #Region "Private fields" - Private _kind As FCFCDCHeaderDeclarationKind + Private _kind As FCFCDDHeaderDeclarationKind - Private _type As FCFCDCHeaderDeclarationType + Private _type As FCFCDDHeaderDeclarationType Private Shared sSerializer As XmlSerializer #End Region - Public Property Kind() As FCFCDCHeaderDeclarationKind + Public Property Kind() As FCFCDDHeaderDeclarationKind Get Return Me._kind End Get @@ -2017,7 +2017,7 @@ Namespace FCFCDC End Set End Property - Public Property Type() As FCFCDCHeaderDeclarationType + Public Property Type() As FCFCDDHeaderDeclarationType Get Return Me._type End Get @@ -2029,7 +2029,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderDeclaration)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDHeaderDeclaration)) End If Return sSerializer End Get @@ -2037,7 +2037,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCHeaderDeclaration object into an XML string + ''' Serializes current FCFCDDHeaderDeclaration object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -2064,15 +2064,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCHeaderDeclaration object + ''' Deserializes workflow markup into an FCFCDDHeaderDeclaration object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCHeaderDeclaration object + ''' Output FCFCDDHeaderDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeaderDeclaration) + obj = CType(Nothing, FCFCDDHeaderDeclaration) Try obj = Deserialize(input) Return True @@ -2082,16 +2082,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeaderDeclaration) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderDeclaration + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDHeaderDeclaration Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderDeclaration) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDHeaderDeclaration) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2099,13 +2099,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderDeclaration - Return CType(Serializer.Deserialize(s), FCFCDCHeaderDeclaration) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDHeaderDeclaration + Return CType(Serializer.Deserialize(s), FCFCDDHeaderDeclaration) End Function #End Region ''' - ''' Serializes current FCFCDCHeaderDeclaration object into file + ''' Serializes current FCFCDDHeaderDeclaration object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -2137,15 +2137,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCHeaderDeclaration object + ''' Deserializes xml markup from file into an FCFCDDHeaderDeclaration object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCHeaderDeclaration object + ''' Output FCFCDDHeaderDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeaderDeclaration) + obj = CType(Nothing, FCFCDDHeaderDeclaration) Try obj = LoadFromFile(fileName) Return True @@ -2155,12 +2155,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderDeclaration) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeaderDeclaration) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeaderDeclaration + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDHeaderDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -2184,7 +2184,7 @@ Namespace FCFCDC - Public Enum FCFCDCHeaderDeclarationKind + Public Enum FCFCDDHeaderDeclarationKind ''' A @@ -2202,7 +2202,7 @@ Namespace FCFCDC - Public Enum FCFCDCHeaderDeclarationType + Public Enum FCFCDDHeaderDeclarationType ''' EZA @@ -2213,7 +2213,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCHeaderCustomsAuthorisation + Partial Public Class FCFCDDHeaderCustomsAuthorisation #Region "Private fields" Private _endUse As String @@ -2234,7 +2234,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderCustomsAuthorisation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDHeaderCustomsAuthorisation)) End If Return sSerializer End Get @@ -2242,7 +2242,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into an XML string + ''' Serializes current FCFCDDHeaderCustomsAuthorisation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -2269,15 +2269,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCHeaderCustomsAuthorisation object + ''' Deserializes workflow markup into an FCFCDDHeaderCustomsAuthorisation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' Output FCFCDDHeaderCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + obj = CType(Nothing, FCFCDDHeaderCustomsAuthorisation) Try obj = Deserialize(input) Return True @@ -2287,16 +2287,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDHeaderCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderCustomsAuthorisation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDHeaderCustomsAuthorisation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderCustomsAuthorisation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDHeaderCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2304,13 +2304,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderCustomsAuthorisation - Return CType(Serializer.Deserialize(s), FCFCDCHeaderCustomsAuthorisation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDHeaderCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDDHeaderCustomsAuthorisation) End Function #End Region ''' - ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into file + ''' Serializes current FCFCDDHeaderCustomsAuthorisation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -2342,15 +2342,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCHeaderCustomsAuthorisation object + ''' Deserializes xml markup from file into an FCFCDDHeaderCustomsAuthorisation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' Output FCFCDDHeaderCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + obj = CType(Nothing, FCFCDDHeaderCustomsAuthorisation) Try obj = LoadFromFile(fileName) Return True @@ -2360,12 +2360,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDHeaderCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeaderCustomsAuthorisation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDHeaderCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -2389,7 +2389,7 @@ Namespace FCFCDC - Public Enum FCFCDCHeaderPaymentMethod + Public Enum FCFCDDHeaderPaymentMethod ''' A @@ -2419,7 +2419,7 @@ Namespace FCFCDC - Public Enum FCFCDCHeaderCurrencyCode + Public Enum FCFCDDHeaderCurrencyCode ''' EUR @@ -2430,25 +2430,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDeclarant + Partial Public Class FCFCDDDeclarant #Region "Private fields" - Private _identification As FCFCDCDeclarantIdentification + Private _identification As FCFCDDDeclarantIdentification Private _name As String - Private _address As FCFCDCDeclarantAddress + Private _address As FCFCDDDeclarantAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCDeclarantAddress() - Me._identification = New FCFCDCDeclarantIdentification() + Me._address = New FCFCDDDeclarantAddress() + Me._identification = New FCFCDDDeclarantIdentification() End Sub - Public Property Identification() As FCFCDCDeclarantIdentification + Public Property Identification() As FCFCDDDeclarantIdentification Get Return Me._identification End Get @@ -2467,7 +2467,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCDeclarantAddress + Public Property Address() As FCFCDDDeclarantAddress Get Return Me._address End Get @@ -2479,7 +2479,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarant)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDeclarant)) End If Return sSerializer End Get @@ -2487,7 +2487,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDeclarant object into an XML string + ''' Serializes current FCFCDDDeclarant object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -2514,15 +2514,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDeclarant object + ''' Deserializes workflow markup into an FCFCDDDeclarant object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDeclarant object + ''' Output FCFCDDDeclarant object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarant, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarant) + obj = CType(Nothing, FCFCDDDeclarant) Try obj = Deserialize(input) Return True @@ -2532,16 +2532,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarant) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarant + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDeclarant Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarant) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDeclarant) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2549,13 +2549,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarant - Return CType(Serializer.Deserialize(s), FCFCDCDeclarant) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDeclarant + Return CType(Serializer.Deserialize(s), FCFCDDDeclarant) End Function #End Region ''' - ''' Serializes current FCFCDCDeclarant object into file + ''' Serializes current FCFCDDDeclarant object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -2587,15 +2587,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDeclarant object + ''' Deserializes xml markup from file into an FCFCDDDeclarant object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDeclarant object + ''' Output FCFCDDDeclarant object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarant, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarant) + obj = CType(Nothing, FCFCDDDeclarant) Try obj = LoadFromFile(fileName) Return True @@ -2605,12 +2605,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarant) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarant) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarant + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDeclarant Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -2636,7 +2636,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDeclarantIdentification + Partial Public Class FCFCDDDeclarantIdentification #Region "Private fields" Private _referenceNumber As String @@ -2669,7 +2669,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDeclarantIdentification)) End If Return sSerializer End Get @@ -2677,7 +2677,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDeclarantIdentification object into an XML string + ''' Serializes current FCFCDDDeclarantIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -2704,15 +2704,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDeclarantIdentification object + ''' Deserializes workflow markup into an FCFCDDDeclarantIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDeclarantIdentification object + ''' Output FCFCDDDeclarantIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarantIdentification) + obj = CType(Nothing, FCFCDDDeclarantIdentification) Try obj = Deserialize(input) Return True @@ -2722,16 +2722,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarantIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDeclarantIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDeclarantIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2739,13 +2739,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantIdentification - Return CType(Serializer.Deserialize(s), FCFCDCDeclarantIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDeclarantIdentification + Return CType(Serializer.Deserialize(s), FCFCDDDeclarantIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCDeclarantIdentification object into file + ''' Serializes current FCFCDDDeclarantIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -2777,15 +2777,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDeclarantIdentification object + ''' Deserializes xml markup from file into an FCFCDDDeclarantIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDeclarantIdentification object + ''' Output FCFCDDDeclarantIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarantIdentification) + obj = CType(Nothing, FCFCDDDeclarantIdentification) Try obj = LoadFromFile(fileName) Return True @@ -2795,12 +2795,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarantIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarantIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDeclarantIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -2826,7 +2826,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDeclarantAddress + Partial Public Class FCFCDDDeclarantAddress #Region "Private fields" Private _line As String @@ -2895,7 +2895,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDeclarantAddress)) End If Return sSerializer End Get @@ -2903,7 +2903,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDeclarantAddress object into an XML string + ''' Serializes current FCFCDDDeclarantAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -2930,15 +2930,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDeclarantAddress object + ''' Deserializes workflow markup into an FCFCDDDeclarantAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDeclarantAddress object + ''' Output FCFCDDDeclarantAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarantAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarantAddress) + obj = CType(Nothing, FCFCDDDeclarantAddress) Try obj = Deserialize(input) Return True @@ -2948,16 +2948,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDeclarantAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDeclarantAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDeclarantAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2965,13 +2965,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantAddress - Return CType(Serializer.Deserialize(s), FCFCDCDeclarantAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDeclarantAddress + Return CType(Serializer.Deserialize(s), FCFCDDDeclarantAddress) End Function #End Region ''' - ''' Serializes current FCFCDCDeclarantAddress object into file + ''' Serializes current FCFCDDDeclarantAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3003,15 +3003,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDeclarantAddress object + ''' Deserializes xml markup from file into an FCFCDDDeclarantAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDeclarantAddress object + ''' Output FCFCDDDeclarantAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarantAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDeclarantAddress) + obj = CType(Nothing, FCFCDDDeclarantAddress) Try obj = LoadFromFile(fileName) Return True @@ -3021,12 +3021,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDeclarantAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarantAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDeclarantAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -3052,20 +3052,20 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCRepresentative + Partial Public Class FCFCDDRepresentative #Region "Private fields" - Private _identification As FCFCDCRepresentativeIdentification + Private _identification As FCFCDDRepresentativeIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCRepresentativeIdentification() + Me._identification = New FCFCDDRepresentativeIdentification() End Sub - Public Property Identification() As FCFCDCRepresentativeIdentification + Public Property Identification() As FCFCDDRepresentativeIdentification Get Return Me._identification End Get @@ -3077,7 +3077,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentative)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDRepresentative)) End If Return sSerializer End Get @@ -3085,7 +3085,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCRepresentative object into an XML string + ''' Serializes current FCFCDDRepresentative object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -3112,15 +3112,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCRepresentative object + ''' Deserializes workflow markup into an FCFCDDRepresentative object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCRepresentative object + ''' Output FCFCDDRepresentative object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDRepresentative, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCRepresentative) + obj = CType(Nothing, FCFCDDRepresentative) Try obj = Deserialize(input) Return True @@ -3130,16 +3130,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDRepresentative) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentative + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDRepresentative Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentative) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDRepresentative) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3147,13 +3147,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentative - Return CType(Serializer.Deserialize(s), FCFCDCRepresentative) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDRepresentative + Return CType(Serializer.Deserialize(s), FCFCDDRepresentative) End Function #End Region ''' - ''' Serializes current FCFCDCRepresentative object into file + ''' Serializes current FCFCDDRepresentative object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3185,15 +3185,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCRepresentative object + ''' Deserializes xml markup from file into an FCFCDDRepresentative object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCRepresentative object + ''' Output FCFCDDRepresentative object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDRepresentative, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCRepresentative) + obj = CType(Nothing, FCFCDDRepresentative) Try obj = LoadFromFile(fileName) Return True @@ -3203,12 +3203,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentative) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDRepresentative) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCRepresentative + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDRepresentative Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -3234,7 +3234,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCRepresentativeIdentification + Partial Public Class FCFCDDRepresentativeIdentification #Region "Private fields" Private _referenceNumber As String @@ -3267,7 +3267,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentativeIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDRepresentativeIdentification)) End If Return sSerializer End Get @@ -3275,7 +3275,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCRepresentativeIdentification object into an XML string + ''' Serializes current FCFCDDRepresentativeIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -3302,15 +3302,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCRepresentativeIdentification object + ''' Deserializes workflow markup into an FCFCDDRepresentativeIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCRepresentativeIdentification object + ''' Output FCFCDDRepresentativeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCRepresentativeIdentification) + obj = CType(Nothing, FCFCDDRepresentativeIdentification) Try obj = Deserialize(input) Return True @@ -3320,16 +3320,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDRepresentativeIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentativeIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDRepresentativeIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentativeIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDRepresentativeIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3337,13 +3337,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentativeIdentification - Return CType(Serializer.Deserialize(s), FCFCDCRepresentativeIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDRepresentativeIdentification + Return CType(Serializer.Deserialize(s), FCFCDDRepresentativeIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCRepresentativeIdentification object into file + ''' Serializes current FCFCDDRepresentativeIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3375,15 +3375,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCRepresentativeIdentification object + ''' Deserializes xml markup from file into an FCFCDDRepresentativeIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCRepresentativeIdentification object + ''' Output FCFCDDRepresentativeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCRepresentativeIdentification) + obj = CType(Nothing, FCFCDDRepresentativeIdentification) Try obj = LoadFromFile(fileName) Return True @@ -3393,12 +3393,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentativeIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDRepresentativeIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCRepresentativeIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDRepresentativeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -3424,25 +3424,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCPrincipal + Partial Public Class FCFCDDPrincipal #Region "Private fields" - Private _identification As FCFCDCPrincipalIdentification + Private _identification As FCFCDDPrincipalIdentification Private _name As String - Private _address As FCFCDCPrincipalAddress + Private _address As FCFCDDPrincipalAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCPrincipalAddress() - Me._identification = New FCFCDCPrincipalIdentification() + Me._address = New FCFCDDPrincipalAddress() + Me._identification = New FCFCDDPrincipalIdentification() End Sub - Public Property Identification() As FCFCDCPrincipalIdentification + Public Property Identification() As FCFCDDPrincipalIdentification Get Return Me._identification End Get @@ -3461,7 +3461,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCPrincipalAddress + Public Property Address() As FCFCDDPrincipalAddress Get Return Me._address End Get @@ -3473,7 +3473,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipal)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDPrincipal)) End If Return sSerializer End Get @@ -3481,7 +3481,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCPrincipal object into an XML string + ''' Serializes current FCFCDDPrincipal object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -3508,15 +3508,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCPrincipal object + ''' Deserializes workflow markup into an FCFCDDPrincipal object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCPrincipal object + ''' Output FCFCDDPrincipal object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipal, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipal) + obj = CType(Nothing, FCFCDDPrincipal) Try obj = Deserialize(input) Return True @@ -3526,16 +3526,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipal) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipal + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDPrincipal Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipal) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDPrincipal) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3543,13 +3543,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipal - Return CType(Serializer.Deserialize(s), FCFCDCPrincipal) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDPrincipal + Return CType(Serializer.Deserialize(s), FCFCDDPrincipal) End Function #End Region ''' - ''' Serializes current FCFCDCPrincipal object into file + ''' Serializes current FCFCDDPrincipal object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3581,15 +3581,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCPrincipal object + ''' Deserializes xml markup from file into an FCFCDDPrincipal object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCPrincipal object + ''' Output FCFCDDPrincipal object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipal, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipal) + obj = CType(Nothing, FCFCDDPrincipal) Try obj = LoadFromFile(fileName) Return True @@ -3599,12 +3599,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipal) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipal) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipal + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDPrincipal Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -3630,7 +3630,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCPrincipalIdentification + Partial Public Class FCFCDDPrincipalIdentification #Region "Private fields" Private _referenceNumber As String @@ -3663,7 +3663,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDPrincipalIdentification)) End If Return sSerializer End Get @@ -3671,7 +3671,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCPrincipalIdentification object into an XML string + ''' Serializes current FCFCDDPrincipalIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -3698,15 +3698,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCPrincipalIdentification object + ''' Deserializes workflow markup into an FCFCDDPrincipalIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCPrincipalIdentification object + ''' Output FCFCDDPrincipalIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipalIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipalIdentification) + obj = CType(Nothing, FCFCDDPrincipalIdentification) Try obj = Deserialize(input) Return True @@ -3716,16 +3716,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipalIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDPrincipalIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDPrincipalIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3733,13 +3733,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalIdentification - Return CType(Serializer.Deserialize(s), FCFCDCPrincipalIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDPrincipalIdentification + Return CType(Serializer.Deserialize(s), FCFCDDPrincipalIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCPrincipalIdentification object into file + ''' Serializes current FCFCDDPrincipalIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3771,15 +3771,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCPrincipalIdentification object + ''' Deserializes xml markup from file into an FCFCDDPrincipalIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCPrincipalIdentification object + ''' Output FCFCDDPrincipalIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipalIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipalIdentification) + obj = CType(Nothing, FCFCDDPrincipalIdentification) Try obj = LoadFromFile(fileName) Return True @@ -3789,12 +3789,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipalIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipalIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDPrincipalIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -3820,7 +3820,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCPrincipalAddress + Partial Public Class FCFCDDPrincipalAddress #Region "Private fields" Private _line As String @@ -3889,7 +3889,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDPrincipalAddress)) End If Return sSerializer End Get @@ -3897,7 +3897,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCPrincipalAddress object into an XML string + ''' Serializes current FCFCDDPrincipalAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -3924,15 +3924,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCPrincipalAddress object + ''' Deserializes workflow markup into an FCFCDDPrincipalAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCPrincipalAddress object + ''' Output FCFCDDPrincipalAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipalAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipalAddress) + obj = CType(Nothing, FCFCDDPrincipalAddress) Try obj = Deserialize(input) Return True @@ -3942,16 +3942,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPrincipalAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDPrincipalAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDPrincipalAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3959,13 +3959,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalAddress - Return CType(Serializer.Deserialize(s), FCFCDCPrincipalAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDPrincipalAddress + Return CType(Serializer.Deserialize(s), FCFCDDPrincipalAddress) End Function #End Region ''' - ''' Serializes current FCFCDCPrincipalAddress object into file + ''' Serializes current FCFCDDPrincipalAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -3997,15 +3997,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCPrincipalAddress object + ''' Deserializes xml markup from file into an FCFCDDPrincipalAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCPrincipalAddress object + ''' Output FCFCDDPrincipalAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipalAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPrincipalAddress) + obj = CType(Nothing, FCFCDDPrincipalAddress) Try obj = LoadFromFile(fileName) Return True @@ -4015,12 +4015,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPrincipalAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipalAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDPrincipalAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -4046,7 +4046,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCContactPerson + Partial Public Class FCFCDDContactPerson #Region "Private fields" Private _name As String @@ -4103,7 +4103,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCContactPerson)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDContactPerson)) End If Return sSerializer End Get @@ -4111,7 +4111,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCContactPerson object into an XML string + ''' Serializes current FCFCDDContactPerson object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -4138,15 +4138,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCContactPerson object + ''' Deserializes workflow markup into an FCFCDDContactPerson object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCContactPerson object + ''' Output FCFCDDContactPerson object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDContactPerson, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCContactPerson) + obj = CType(Nothing, FCFCDDContactPerson) Try obj = Deserialize(input) Return True @@ -4156,16 +4156,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDContactPerson) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCContactPerson + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDContactPerson Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCContactPerson) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDContactPerson) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4173,13 +4173,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCContactPerson - Return CType(Serializer.Deserialize(s), FCFCDCContactPerson) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDContactPerson + Return CType(Serializer.Deserialize(s), FCFCDDContactPerson) End Function #End Region ''' - ''' Serializes current FCFCDCContactPerson object into file + ''' Serializes current FCFCDDContactPerson object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -4211,15 +4211,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCContactPerson object + ''' Deserializes xml markup from file into an FCFCDDContactPerson object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCContactPerson object + ''' Output FCFCDDContactPerson object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDContactPerson, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCContactPerson) + obj = CType(Nothing, FCFCDDContactPerson) Try obj = LoadFromFile(fileName) Return True @@ -4229,12 +4229,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCContactPerson) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDContactPerson) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCContactPerson + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDContactPerson Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -4260,7 +4260,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDutyDefermentApproval + Partial Public Class FCFCDDDutyDefermentApproval #Region "Private fields" Private _type As String @@ -4273,14 +4273,14 @@ Namespace FCFCDC Private _authorisationNumber As String - Private _dutyDefermentApplicant As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Private _dutyDefermentApplicant As FCFCDDDutyDefermentApprovalDutyDefermentApplicant Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._dutyDefermentApplicant = New FCFCDCDutyDefermentApprovalDutyDefermentApplicant() + Me._dutyDefermentApplicant = New FCFCDDDutyDefermentApprovalDutyDefermentApplicant() End Sub @@ -4333,7 +4333,7 @@ Namespace FCFCDC End Set End Property - Public Property DutyDefermentApplicant() As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Public Property DutyDefermentApplicant() As FCFCDDDutyDefermentApprovalDutyDefermentApplicant Get Return Me._dutyDefermentApplicant End Get @@ -4345,7 +4345,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApproval)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDutyDefermentApproval)) End If Return sSerializer End Get @@ -4353,7 +4353,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDutyDefermentApproval object into an XML string + ''' Serializes current FCFCDDDutyDefermentApproval object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -4380,15 +4380,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDutyDefermentApproval object + ''' Deserializes workflow markup into an FCFCDDDutyDefermentApproval object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDutyDefermentApproval object + ''' Output FCFCDDDutyDefermentApproval object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApproval, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApproval) + obj = CType(Nothing, FCFCDDDutyDefermentApproval) Try obj = Deserialize(input) Return True @@ -4398,16 +4398,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApproval) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApproval + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDutyDefermentApproval Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApproval) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDutyDefermentApproval) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4415,13 +4415,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApproval - Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApproval) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDutyDefermentApproval + Return CType(Serializer.Deserialize(s), FCFCDDDutyDefermentApproval) End Function #End Region ''' - ''' Serializes current FCFCDCDutyDefermentApproval object into file + ''' Serializes current FCFCDDDutyDefermentApproval object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -4453,15 +4453,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApproval object + ''' Deserializes xml markup from file into an FCFCDDDutyDefermentApproval object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDutyDefermentApproval object + ''' Output FCFCDDDutyDefermentApproval object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApproval, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApproval) + obj = CType(Nothing, FCFCDDDutyDefermentApproval) Try obj = LoadFromFile(fileName) Return True @@ -4471,12 +4471,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApproval) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApproval) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApproval + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDutyDefermentApproval Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -4502,20 +4502,20 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Partial Public Class FCFCDDDutyDefermentApprovalDutyDefermentApplicant #Region "Private fields" - Private _identification As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Private _identification As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification() + Me._identification = New FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification() End Sub - Public Property Identification() As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Public Property Identification() As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification Get Return Me._identification End Get @@ -4527,7 +4527,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicant)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDutyDefermentApprovalDutyDefermentApplicant)) End If Return sSerializer End Get @@ -4535,7 +4535,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into an XML string + ''' Serializes current FCFCDDDutyDefermentApprovalDutyDefermentApplicant object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -4562,15 +4562,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' Deserializes workflow markup into an FCFCDDDutyDefermentApprovalDutyDefermentApplicant object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' Output FCFCDDDutyDefermentApprovalDutyDefermentApplicant object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + obj = CType(Nothing, FCFCDDDutyDefermentApprovalDutyDefermentApplicant) Try obj = Deserialize(input) Return True @@ -4580,16 +4580,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicant) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDutyDefermentApprovalDutyDefermentApplicant Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDutyDefermentApprovalDutyDefermentApplicant) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4597,13 +4597,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant - Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDutyDefermentApprovalDutyDefermentApplicant + Return CType(Serializer.Deserialize(s), FCFCDDDutyDefermentApprovalDutyDefermentApplicant) End Function #End Region ''' - ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into file + ''' Serializes current FCFCDDDutyDefermentApprovalDutyDefermentApplicant object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -4635,15 +4635,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' Deserializes xml markup from file into an FCFCDDDutyDefermentApprovalDutyDefermentApplicant object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' Output FCFCDDDutyDefermentApprovalDutyDefermentApplicant object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + obj = CType(Nothing, FCFCDDDutyDefermentApprovalDutyDefermentApplicant) Try obj = LoadFromFile(fileName) Return True @@ -4653,12 +4653,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicant) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDutyDefermentApprovalDutyDefermentApplicant Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -4684,7 +4684,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Partial Public Class FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification #Region "Private fields" Private _referenceNumber As String @@ -4705,7 +4705,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification)) End If Return sSerializer End Get @@ -4713,7 +4713,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML string + ''' Serializes current FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -4740,15 +4740,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' Deserializes workflow markup into an FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' Output FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + obj = CType(Nothing, FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) Try obj = Deserialize(input) Return True @@ -4758,16 +4758,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4775,13 +4775,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification - Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification + Return CType(Serializer.Deserialize(s), FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into file + ''' Serializes current FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -4813,15 +4813,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' Deserializes xml markup from file into an FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' Output FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + obj = CType(Nothing, FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) Try obj = LoadFromFile(fileName) Return True @@ -4831,12 +4831,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDDutyDefermentApprovalDutyDefermentApplicantIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -4862,7 +4862,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBorderTransportMeans + Partial Public Class FCFCDDBorderTransportMeans #Region "Private fields" Private _mode As String @@ -4919,7 +4919,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBorderTransportMeans)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBorderTransportMeans)) End If Return sSerializer End Get @@ -4927,7 +4927,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBorderTransportMeans object into an XML string + ''' Serializes current FCFCDDBorderTransportMeans object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -4954,15 +4954,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBorderTransportMeans object + ''' Deserializes workflow markup into an FCFCDDBorderTransportMeans object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBorderTransportMeans object + ''' Output FCFCDDBorderTransportMeans object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBorderTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBorderTransportMeans) + obj = CType(Nothing, FCFCDDBorderTransportMeans) Try obj = Deserialize(input) Return True @@ -4972,16 +4972,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBorderTransportMeans) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBorderTransportMeans + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBorderTransportMeans Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBorderTransportMeans) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBorderTransportMeans) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4989,13 +4989,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBorderTransportMeans - Return CType(Serializer.Deserialize(s), FCFCDCBorderTransportMeans) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBorderTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDDBorderTransportMeans) End Function #End Region ''' - ''' Serializes current FCFCDCBorderTransportMeans object into file + ''' Serializes current FCFCDDBorderTransportMeans object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5027,15 +5027,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBorderTransportMeans object + ''' Deserializes xml markup from file into an FCFCDDBorderTransportMeans object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBorderTransportMeans object + ''' Output FCFCDDBorderTransportMeans object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBorderTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBorderTransportMeans) + obj = CType(Nothing, FCFCDDBorderTransportMeans) Try obj = LoadFromFile(fileName) Return True @@ -5045,12 +5045,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBorderTransportMeans) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBorderTransportMeans) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBorderTransportMeans + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBorderTransportMeans Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -5076,7 +5076,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCArrivalTransportMeans + Partial Public Class FCFCDDArrivalTransportMeans #Region "Private fields" Private _identity As String @@ -5097,7 +5097,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCArrivalTransportMeans)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDArrivalTransportMeans)) End If Return sSerializer End Get @@ -5105,7 +5105,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCArrivalTransportMeans object into an XML string + ''' Serializes current FCFCDDArrivalTransportMeans object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -5132,15 +5132,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCArrivalTransportMeans object + ''' Deserializes workflow markup into an FCFCDDArrivalTransportMeans object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCArrivalTransportMeans object + ''' Output FCFCDDArrivalTransportMeans object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDArrivalTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCArrivalTransportMeans) + obj = CType(Nothing, FCFCDDArrivalTransportMeans) Try obj = Deserialize(input) Return True @@ -5150,16 +5150,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDArrivalTransportMeans) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCArrivalTransportMeans + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDArrivalTransportMeans Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCArrivalTransportMeans) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDArrivalTransportMeans) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5167,13 +5167,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCArrivalTransportMeans - Return CType(Serializer.Deserialize(s), FCFCDCArrivalTransportMeans) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDArrivalTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDDArrivalTransportMeans) End Function #End Region ''' - ''' Serializes current FCFCDCArrivalTransportMeans object into file + ''' Serializes current FCFCDDArrivalTransportMeans object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5205,15 +5205,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCArrivalTransportMeans object + ''' Deserializes xml markup from file into an FCFCDDArrivalTransportMeans object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCArrivalTransportMeans object + ''' Output FCFCDDArrivalTransportMeans object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDArrivalTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCArrivalTransportMeans) + obj = CType(Nothing, FCFCDDArrivalTransportMeans) Try obj = LoadFromFile(fileName) Return True @@ -5223,12 +5223,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCArrivalTransportMeans) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDArrivalTransportMeans) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCArrivalTransportMeans + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDArrivalTransportMeans Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -5254,19 +5254,19 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCPreviousAdministrativeReferences + Partial Public Class FCFCDDPreviousAdministrativeReferences #Region "Private fields" Private _type As String - Private _previousAdministrativeReference As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Private _previousAdministrativeReference As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._previousAdministrativeReference = New FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference() + Me._previousAdministrativeReference = New FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference() End Sub @@ -5279,7 +5279,7 @@ Namespace FCFCDC End Set End Property - Public Property PreviousAdministrativeReference() As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Public Property PreviousAdministrativeReference() As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference Get Return Me._previousAdministrativeReference End Get @@ -5291,7 +5291,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferences)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDPreviousAdministrativeReferences)) End If Return sSerializer End Get @@ -5299,7 +5299,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCPreviousAdministrativeReferences object into an XML string + ''' Serializes current FCFCDDPreviousAdministrativeReferences object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -5326,15 +5326,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferences object + ''' Deserializes workflow markup into an FCFCDDPreviousAdministrativeReferences object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCPreviousAdministrativeReferences object + ''' Output FCFCDDPreviousAdministrativeReferences object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + obj = CType(Nothing, FCFCDDPreviousAdministrativeReferences) Try obj = Deserialize(input) Return True @@ -5344,16 +5344,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPreviousAdministrativeReferences) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferences + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDPreviousAdministrativeReferences Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferences) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDPreviousAdministrativeReferences) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5361,13 +5361,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferences - Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferences) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDPreviousAdministrativeReferences + Return CType(Serializer.Deserialize(s), FCFCDDPreviousAdministrativeReferences) End Function #End Region ''' - ''' Serializes current FCFCDCPreviousAdministrativeReferences object into file + ''' Serializes current FCFCDDPreviousAdministrativeReferences object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5399,15 +5399,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferences object + ''' Deserializes xml markup from file into an FCFCDDPreviousAdministrativeReferences object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCPreviousAdministrativeReferences object + ''' Output FCFCDDPreviousAdministrativeReferences object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + obj = CType(Nothing, FCFCDDPreviousAdministrativeReferences) Try obj = LoadFromFile(fileName) Return True @@ -5417,12 +5417,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferences) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPreviousAdministrativeReferences) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPreviousAdministrativeReferences + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDPreviousAdministrativeReferences Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -5448,7 +5448,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Partial Public Class FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference #Region "Private fields" Private _referenceNumber As String @@ -5469,7 +5469,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference)) End If Return sSerializer End Get @@ -5477,7 +5477,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML string + ''' Serializes current FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -5504,15 +5504,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' Deserializes workflow markup into an FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' Output FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + obj = CType(Nothing, FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) Try obj = Deserialize(input) Return True @@ -5522,16 +5522,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5539,13 +5539,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference - Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference + Return CType(Serializer.Deserialize(s), FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) End Function #End Region ''' - ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into file + ''' Serializes current FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5577,15 +5577,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' Deserializes xml markup from file into an FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' Output FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + obj = CType(Nothing, FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) Try obj = LoadFromFile(fileName) Return True @@ -5595,12 +5595,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDPreviousAdministrativeReferencesPreviousAdministrativeReference Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -5626,22 +5626,22 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclaration + Partial Public Class FCFCDDSummaryDeclaration #Region "Private fields" - Private _identificationIndicator As FCFCDCSummaryDeclarationIdentificationIndicator + Private _identificationIndicator As FCFCDDSummaryDeclarationIdentificationIndicator - Private _goodsItem As List(Of FCFCDCSummaryDeclarationGoodsItem) + Private _goodsItem As List(Of FCFCDDSummaryDeclarationGoodsItem) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._goodsItem = New List(Of FCFCDCSummaryDeclarationGoodsItem)() + Me._goodsItem = New List(Of FCFCDDSummaryDeclarationGoodsItem)() End Sub - Public Property IdentificationIndicator() As FCFCDCSummaryDeclarationIdentificationIndicator + Public Property IdentificationIndicator() As FCFCDDSummaryDeclarationIdentificationIndicator Get Return Me._identificationIndicator End Get @@ -5651,7 +5651,7 @@ Namespace FCFCDC End Property - Public Property GoodsItem() As List(Of FCFCDCSummaryDeclarationGoodsItem) + Public Property GoodsItem() As List(Of FCFCDDSummaryDeclarationGoodsItem) Get Return Me._goodsItem End Get @@ -5663,7 +5663,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclaration)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclaration)) End If Return sSerializer End Get @@ -5671,7 +5671,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclaration object into an XML string + ''' Serializes current FCFCDDSummaryDeclaration object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -5698,15 +5698,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclaration object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclaration object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclaration object + ''' Output FCFCDDSummaryDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclaration) + obj = CType(Nothing, FCFCDDSummaryDeclaration) Try obj = Deserialize(input) Return True @@ -5716,16 +5716,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclaration) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclaration + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclaration Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclaration) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclaration) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5733,13 +5733,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclaration - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclaration) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclaration + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclaration) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclaration object into file + ''' Serializes current FCFCDDSummaryDeclaration object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5771,15 +5771,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclaration object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclaration object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclaration object + ''' Output FCFCDDSummaryDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclaration) + obj = CType(Nothing, FCFCDDSummaryDeclaration) Try obj = LoadFromFile(fileName) Return True @@ -5789,12 +5789,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclaration) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclaration) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclaration + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -5818,7 +5818,7 @@ Namespace FCFCDC - Public Enum FCFCDCSummaryDeclarationIdentificationIndicator + Public Enum FCFCDDSummaryDeclarationIdentificationIndicator ''' AWB @@ -5832,22 +5832,22 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclarationGoodsItem + Partial Public Class FCFCDDSummaryDeclarationGoodsItem #Region "Private fields" Private _quantity As String - Private _identificationByKey As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Private _identificationByKey As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey - Private _identificationByRegistration As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Private _identificationByRegistration As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identificationByRegistration = New FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration() - Me._identificationByKey = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKey() + Me._identificationByRegistration = New FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration() + Me._identificationByKey = New FCFCDDSummaryDeclarationGoodsItemIdentificationByKey() End Sub @@ -5860,7 +5860,7 @@ Namespace FCFCDC End Set End Property - Public Property IdentificationByKey() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Public Property IdentificationByKey() As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey Get Return Me._identificationByKey End Get @@ -5869,7 +5869,7 @@ Namespace FCFCDC End Set End Property - Public Property IdentificationByRegistration() As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Public Property IdentificationByRegistration() As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration Get Return Me._identificationByRegistration End Get @@ -5881,7 +5881,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItem)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclarationGoodsItem)) End If Return sSerializer End Get @@ -5889,7 +5889,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into an XML string + ''' Serializes current FCFCDDSummaryDeclarationGoodsItem object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -5916,15 +5916,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItem object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclarationGoodsItem object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' Output FCFCDDSummaryDeclarationGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItem) Try obj = Deserialize(input) Return True @@ -5934,16 +5934,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItem + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclarationGoodsItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItem) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclarationGoodsItem) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5951,13 +5951,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItem - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItem) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclarationGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclarationGoodsItem) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into file + ''' Serializes current FCFCDDSummaryDeclarationGoodsItem object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -5989,15 +5989,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItem object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclarationGoodsItem object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' Output FCFCDDSummaryDeclarationGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItem) Try obj = LoadFromFile(fileName) Return True @@ -6007,12 +6007,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItem + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclarationGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -6038,24 +6038,24 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Partial Public Class FCFCDDSummaryDeclarationGoodsItemIdentificationByKey #Region "Private fields" - Private _kind As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + Private _kind As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyKind Private _number As String - Private _custodian As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Private _custodian As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._custodian = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + Me._custodian = New FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian() End Sub - Public Property Kind() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + Public Property Kind() As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyKind Get Return Me._kind End Get @@ -6074,7 +6074,7 @@ Namespace FCFCDC End Set End Property - Public Property Custodian() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Public Property Custodian() As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian Get Return Me._custodian End Get @@ -6086,7 +6086,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKey)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclarationGoodsItemIdentificationByKey)) End If Return sSerializer End Get @@ -6094,7 +6094,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into an XML string + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -6121,15 +6121,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) Try obj = Deserialize(input) Return True @@ -6139,16 +6139,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6156,13 +6156,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into file + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -6194,15 +6194,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKey object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) Try obj = LoadFromFile(fileName) Return True @@ -6212,12 +6212,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKey Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -6241,7 +6241,7 @@ Namespace FCFCDC - Public Enum FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + Public Enum FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyKind ''' AWB @@ -6255,20 +6255,20 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Partial Public Class FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian #Region "Private fields" - Private _identification As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Private _identification As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + Me._identification = New FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() End Sub - Public Property Identification() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Public Property Identification() As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Get Return Me._identification End Get @@ -6280,7 +6280,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) End If Return sSerializer End Get @@ -6288,7 +6288,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML string + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -6315,15 +6315,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) Try obj = Deserialize(input) Return True @@ -6333,16 +6333,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6350,13 +6350,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -6388,15 +6388,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) Try obj = LoadFromFile(fileName) Return True @@ -6406,12 +6406,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodian Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -6437,7 +6437,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Partial Public Class FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification #Region "Private fields" Private _referenceNumber As String @@ -6458,7 +6458,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) End If Return sSerializer End Get @@ -6466,7 +6466,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML string + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -6493,15 +6493,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) Try obj = Deserialize(input) Return True @@ -6511,16 +6511,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6528,13 +6528,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -6566,15 +6566,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) Try obj = LoadFromFile(fileName) Return True @@ -6584,12 +6584,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -6615,7 +6615,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Partial Public Class FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration #Region "Private fields" Private _referencedRegistrationNumber As String @@ -6648,7 +6648,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration)) End If Return sSerializer End Get @@ -6656,7 +6656,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML string + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -6683,15 +6683,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' Deserializes workflow markup into an FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) Try obj = Deserialize(input) Return True @@ -6701,16 +6701,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6718,13 +6718,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration - Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration + Return CType(Serializer.Deserialize(s), FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) End Function #End Region ''' - ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into file + ''' Serializes current FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -6756,15 +6756,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' Deserializes xml markup from file into an FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' Output FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + obj = CType(Nothing, FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) Try obj = LoadFromFile(fileName) Return True @@ -6774,12 +6774,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDSummaryDeclarationGoodsItemIdentificationByRegistration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -6805,29 +6805,29 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCCustomsWarehouse + Partial Public Class FCFCDDCustomsWarehouse #Region "Private fields" - Private _sequenceNumber As FCFCDCCustomsWarehouseSequenceNumber + Private _sequenceNumber As FCFCDDCustomsWarehouseSequenceNumber Private _goodsItemQuantity As String - Private _customsAuthorisation As FCFCDCCustomsWarehouseCustomsAuthorisation + Private _customsAuthorisation As FCFCDDCustomsWarehouseCustomsAuthorisation Private _localReferenceNumber As String - Private _goodsItem As List(Of FCFCDCCustomsWarehouseGoodsItem) + Private _goodsItem As List(Of FCFCDDCustomsWarehouseGoodsItem) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._goodsItem = New List(Of FCFCDCCustomsWarehouseGoodsItem)() - Me._customsAuthorisation = New FCFCDCCustomsWarehouseCustomsAuthorisation() + Me._goodsItem = New List(Of FCFCDDCustomsWarehouseGoodsItem)() + Me._customsAuthorisation = New FCFCDDCustomsWarehouseCustomsAuthorisation() End Sub - Public Property SequenceNumber() As FCFCDCCustomsWarehouseSequenceNumber + Public Property SequenceNumber() As FCFCDDCustomsWarehouseSequenceNumber Get Return Me._sequenceNumber End Get @@ -6846,7 +6846,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsAuthorisation() As FCFCDCCustomsWarehouseCustomsAuthorisation + Public Property CustomsAuthorisation() As FCFCDDCustomsWarehouseCustomsAuthorisation Get Return Me._customsAuthorisation End Get @@ -6866,7 +6866,7 @@ Namespace FCFCDC End Property - Public Property GoodsItem() As List(Of FCFCDCCustomsWarehouseGoodsItem) + Public Property GoodsItem() As List(Of FCFCDDCustomsWarehouseGoodsItem) Get Return Me._goodsItem End Get @@ -6878,7 +6878,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouse)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDCustomsWarehouse)) End If Return sSerializer End Get @@ -6886,7 +6886,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCCustomsWarehouse object into an XML string + ''' Serializes current FCFCDDCustomsWarehouse object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -6913,15 +6913,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCCustomsWarehouse object + ''' Deserializes workflow markup into an FCFCDDCustomsWarehouse object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCCustomsWarehouse object + ''' Output FCFCDDCustomsWarehouse object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouse, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouse) + obj = CType(Nothing, FCFCDDCustomsWarehouse) Try obj = Deserialize(input) Return True @@ -6931,16 +6931,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouse) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouse + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDCustomsWarehouse Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouse) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDCustomsWarehouse) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6948,13 +6948,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouse - Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouse) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDCustomsWarehouse + Return CType(Serializer.Deserialize(s), FCFCDDCustomsWarehouse) End Function #End Region ''' - ''' Serializes current FCFCDCCustomsWarehouse object into file + ''' Serializes current FCFCDDCustomsWarehouse object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -6986,15 +6986,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouse object + ''' Deserializes xml markup from file into an FCFCDDCustomsWarehouse object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCCustomsWarehouse object + ''' Output FCFCDDCustomsWarehouse object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouse, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouse) + obj = CType(Nothing, FCFCDDCustomsWarehouse) Try obj = LoadFromFile(fileName) Return True @@ -7004,12 +7004,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouse) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouse) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouse + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDCustomsWarehouse Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -7033,7 +7033,7 @@ Namespace FCFCDC - Public Enum FCFCDCCustomsWarehouseSequenceNumber + Public Enum FCFCDDCustomsWarehouseSequenceNumber ''' @@ -7045,7 +7045,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCCustomsWarehouseCustomsAuthorisation + Partial Public Class FCFCDDCustomsWarehouseCustomsAuthorisation #Region "Private fields" Private _warehouseOwner As String @@ -7066,7 +7066,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseCustomsAuthorisation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDCustomsWarehouseCustomsAuthorisation)) End If Return sSerializer End Get @@ -7074,7 +7074,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into an XML string + ''' Serializes current FCFCDDCustomsWarehouseCustomsAuthorisation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -7101,15 +7101,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' Deserializes workflow markup into an FCFCDDCustomsWarehouseCustomsAuthorisation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' Output FCFCDDCustomsWarehouseCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + obj = CType(Nothing, FCFCDDCustomsWarehouseCustomsAuthorisation) Try obj = Deserialize(input) Return True @@ -7119,16 +7119,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseCustomsAuthorisation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDCustomsWarehouseCustomsAuthorisation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseCustomsAuthorisation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDCustomsWarehouseCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -7136,13 +7136,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseCustomsAuthorisation - Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseCustomsAuthorisation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDCustomsWarehouseCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDDCustomsWarehouseCustomsAuthorisation) End Function #End Region ''' - ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into file + ''' Serializes current FCFCDDCustomsWarehouseCustomsAuthorisation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -7174,15 +7174,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' Deserializes xml markup from file into an FCFCDDCustomsWarehouseCustomsAuthorisation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' Output FCFCDDCustomsWarehouseCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + obj = CType(Nothing, FCFCDDCustomsWarehouseCustomsAuthorisation) Try obj = LoadFromFile(fileName) Return True @@ -7192,12 +7192,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseCustomsAuthorisation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDCustomsWarehouseCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -7223,7 +7223,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCCustomsWarehouseGoodsItem + Partial Public Class FCFCDDCustomsWarehouseGoodsItem #Region "Private fields" Private _sequenceNumber As String @@ -7240,17 +7240,17 @@ Namespace FCFCDC Private _complement As String - Private _commercialAmount As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Private _commercialAmount As FCFCDDCustomsWarehouseGoodsItemCommercialAmount - Private _debitAmount As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Private _debitAmount As FCFCDDCustomsWarehouseGoodsItemDebitAmount Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._debitAmount = New FCFCDCCustomsWarehouseGoodsItemDebitAmount() - Me._commercialAmount = New FCFCDCCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New FCFCDDCustomsWarehouseGoodsItemDebitAmount() + Me._commercialAmount = New FCFCDDCustomsWarehouseGoodsItemCommercialAmount() End Sub @@ -7323,7 +7323,7 @@ Namespace FCFCDC End Set End Property - Public Property CommercialAmount() As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Public Property CommercialAmount() As FCFCDDCustomsWarehouseGoodsItemCommercialAmount Get Return Me._commercialAmount End Get @@ -7332,7 +7332,7 @@ Namespace FCFCDC End Set End Property - Public Property DebitAmount() As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Public Property DebitAmount() As FCFCDDCustomsWarehouseGoodsItemDebitAmount Get Return Me._debitAmount End Get @@ -7344,7 +7344,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItem)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDCustomsWarehouseGoodsItem)) End If Return sSerializer End Get @@ -7352,7 +7352,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into an XML string + ''' Serializes current FCFCDDCustomsWarehouseGoodsItem object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -7379,15 +7379,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItem object + ''' Deserializes workflow markup into an FCFCDDCustomsWarehouseGoodsItem object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' Output FCFCDDCustomsWarehouseGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItem) Try obj = Deserialize(input) Return True @@ -7397,16 +7397,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItem + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDCustomsWarehouseGoodsItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItem) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDCustomsWarehouseGoodsItem) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -7414,13 +7414,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItem - Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItem) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDDCustomsWarehouseGoodsItem) End Function #End Region ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into file + ''' Serializes current FCFCDDCustomsWarehouseGoodsItem object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -7452,15 +7452,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItem object + ''' Deserializes xml markup from file into an FCFCDDCustomsWarehouseGoodsItem object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' Output FCFCDDCustomsWarehouseGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItem) Try obj = LoadFromFile(fileName) Return True @@ -7470,12 +7470,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItem + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDCustomsWarehouseGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -7501,7 +7501,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Partial Public Class FCFCDDCustomsWarehouseGoodsItemCommercialAmount #Region "Private fields" Private _quantity As Decimal @@ -7545,7 +7545,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemCommercialAmount)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDCustomsWarehouseGoodsItemCommercialAmount)) End If Return sSerializer End Get @@ -7553,7 +7553,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' Serializes current FCFCDDCustomsWarehouseGoodsItemCommercialAmount object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -7580,15 +7580,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' Deserializes workflow markup into an FCFCDDCustomsWarehouseGoodsItemCommercialAmount object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' Output FCFCDDCustomsWarehouseGoodsItemCommercialAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItemCommercialAmount) Try obj = Deserialize(input) Return True @@ -7598,16 +7598,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemCommercialAmount) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDCustomsWarehouseGoodsItemCommercialAmount Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDCustomsWarehouseGoodsItemCommercialAmount) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -7615,13 +7615,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount - Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), FCFCDDCustomsWarehouseGoodsItemCommercialAmount) End Function #End Region ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into file + ''' Serializes current FCFCDDCustomsWarehouseGoodsItemCommercialAmount object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -7653,15 +7653,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' Deserializes xml markup from file into an FCFCDDCustomsWarehouseGoodsItemCommercialAmount object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' Output FCFCDDCustomsWarehouseGoodsItemCommercialAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItemCommercialAmount) Try obj = LoadFromFile(fileName) Return True @@ -7671,12 +7671,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemCommercialAmount) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDCustomsWarehouseGoodsItemCommercialAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -7702,7 +7702,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCCustomsWarehouseGoodsItemDebitAmount + Partial Public Class FCFCDDCustomsWarehouseGoodsItemDebitAmount #Region "Private fields" Private _quantity As Decimal @@ -7746,7 +7746,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemDebitAmount)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDCustomsWarehouseGoodsItemDebitAmount)) End If Return sSerializer End Get @@ -7754,7 +7754,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' Serializes current FCFCDDCustomsWarehouseGoodsItemDebitAmount object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -7781,15 +7781,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' Deserializes workflow markup into an FCFCDDCustomsWarehouseGoodsItemDebitAmount object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' Output FCFCDDCustomsWarehouseGoodsItemDebitAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItemDebitAmount) Try obj = Deserialize(input) Return True @@ -7799,16 +7799,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemDebitAmount) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDCustomsWarehouseGoodsItemDebitAmount Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDCustomsWarehouseGoodsItemDebitAmount) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -7816,13 +7816,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemDebitAmount - Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), FCFCDDCustomsWarehouseGoodsItemDebitAmount) End Function #End Region ''' - ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into file + ''' Serializes current FCFCDDCustomsWarehouseGoodsItemDebitAmount object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -7854,15 +7854,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' Deserializes xml markup from file into an FCFCDDCustomsWarehouseGoodsItemDebitAmount object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' Output FCFCDDCustomsWarehouseGoodsItemDebitAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + obj = CType(Nothing, FCFCDDCustomsWarehouseGoodsItemDebitAmount) Try obj = LoadFromFile(fileName) Return True @@ -7872,12 +7872,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDCustomsWarehouseGoodsItemDebitAmount) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDCustomsWarehouseGoodsItemDebitAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -7903,32 +7903,32 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCInwardProcessing + Partial Public Class FCFCDDInwardProcessing #Region "Private fields" - Private _sequenceNumber As FCFCDCInwardProcessingSequenceNumber + Private _sequenceNumber As FCFCDDInwardProcessingSequenceNumber Private _goodsItemQuantity As String - Private _customsAuthorisation As FCFCDCInwardProcessingCustomsAuthorisation + Private _customsAuthorisation As FCFCDDInwardProcessingCustomsAuthorisation Private _simplifiedGrantAuthorisationFlag As String - Private _monitoringCustomsOffice As FCFCDCInwardProcessingMonitoringCustomsOffice + Private _monitoringCustomsOffice As FCFCDDInwardProcessingMonitoringCustomsOffice - Private _goodsItem As List(Of FCFCDCInwardProcessingGoodsItem) + Private _goodsItem As List(Of FCFCDDInwardProcessingGoodsItem) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._goodsItem = New List(Of FCFCDCInwardProcessingGoodsItem)() - Me._monitoringCustomsOffice = New FCFCDCInwardProcessingMonitoringCustomsOffice() - Me._customsAuthorisation = New FCFCDCInwardProcessingCustomsAuthorisation() + Me._goodsItem = New List(Of FCFCDDInwardProcessingGoodsItem)() + Me._monitoringCustomsOffice = New FCFCDDInwardProcessingMonitoringCustomsOffice() + Me._customsAuthorisation = New FCFCDDInwardProcessingCustomsAuthorisation() End Sub - Public Property SequenceNumber() As FCFCDCInwardProcessingSequenceNumber + Public Property SequenceNumber() As FCFCDDInwardProcessingSequenceNumber Get Return Me._sequenceNumber End Get @@ -7947,7 +7947,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsAuthorisation() As FCFCDCInwardProcessingCustomsAuthorisation + Public Property CustomsAuthorisation() As FCFCDDInwardProcessingCustomsAuthorisation Get Return Me._customsAuthorisation End Get @@ -7966,7 +7966,7 @@ Namespace FCFCDC End Set End Property - Public Property MonitoringCustomsOffice() As FCFCDCInwardProcessingMonitoringCustomsOffice + Public Property MonitoringCustomsOffice() As FCFCDDInwardProcessingMonitoringCustomsOffice Get Return Me._monitoringCustomsOffice End Get @@ -7976,7 +7976,7 @@ Namespace FCFCDC End Property - Public Property GoodsItem() As List(Of FCFCDCInwardProcessingGoodsItem) + Public Property GoodsItem() As List(Of FCFCDDInwardProcessingGoodsItem) Get Return Me._goodsItem End Get @@ -7988,7 +7988,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessing)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDInwardProcessing)) End If Return sSerializer End Get @@ -7996,7 +7996,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCInwardProcessing object into an XML string + ''' Serializes current FCFCDDInwardProcessing object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -8023,15 +8023,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCInwardProcessing object + ''' Deserializes workflow markup into an FCFCDDInwardProcessing object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCInwardProcessing object + ''' Output FCFCDDInwardProcessing object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessing, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessing) + obj = CType(Nothing, FCFCDDInwardProcessing) Try obj = Deserialize(input) Return True @@ -8041,16 +8041,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessing) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessing + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDInwardProcessing Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessing) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDInwardProcessing) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8058,13 +8058,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessing - Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessing) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDInwardProcessing + Return CType(Serializer.Deserialize(s), FCFCDDInwardProcessing) End Function #End Region ''' - ''' Serializes current FCFCDCInwardProcessing object into file + ''' Serializes current FCFCDDInwardProcessing object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -8096,15 +8096,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCInwardProcessing object + ''' Deserializes xml markup from file into an FCFCDDInwardProcessing object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCInwardProcessing object + ''' Output FCFCDDInwardProcessing object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessing, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessing) + obj = CType(Nothing, FCFCDDInwardProcessing) Try obj = LoadFromFile(fileName) Return True @@ -8114,12 +8114,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessing) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessing) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessing + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDInwardProcessing Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -8143,7 +8143,7 @@ Namespace FCFCDC - Public Enum FCFCDCInwardProcessingSequenceNumber + Public Enum FCFCDDInwardProcessingSequenceNumber ''' @@ -8155,7 +8155,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCInwardProcessingCustomsAuthorisation + Partial Public Class FCFCDDInwardProcessingCustomsAuthorisation #Region "Private fields" Private _processingOwner As String @@ -8176,7 +8176,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingCustomsAuthorisation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDInwardProcessingCustomsAuthorisation)) End If Return sSerializer End Get @@ -8184,7 +8184,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into an XML string + ''' Serializes current FCFCDDInwardProcessingCustomsAuthorisation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -8211,15 +8211,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' Deserializes workflow markup into an FCFCDDInwardProcessingCustomsAuthorisation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' Output FCFCDDInwardProcessingCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + obj = CType(Nothing, FCFCDDInwardProcessingCustomsAuthorisation) Try obj = Deserialize(input) Return True @@ -8229,16 +8229,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingCustomsAuthorisation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDInwardProcessingCustomsAuthorisation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingCustomsAuthorisation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDInwardProcessingCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8246,13 +8246,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingCustomsAuthorisation - Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingCustomsAuthorisation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDInwardProcessingCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDDInwardProcessingCustomsAuthorisation) End Function #End Region ''' - ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into file + ''' Serializes current FCFCDDInwardProcessingCustomsAuthorisation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -8284,15 +8284,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' Deserializes xml markup from file into an FCFCDDInwardProcessingCustomsAuthorisation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' Output FCFCDDInwardProcessingCustomsAuthorisation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + obj = CType(Nothing, FCFCDDInwardProcessingCustomsAuthorisation) Try obj = LoadFromFile(fileName) Return True @@ -8302,12 +8302,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingCustomsAuthorisation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDInwardProcessingCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -8333,20 +8333,20 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOffice + Partial Public Class FCFCDDInwardProcessingMonitoringCustomsOffice #Region "Private fields" - Private _identification As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Private _identification As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._identification = New FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification() + Me._identification = New FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification() End Sub - Public Property Identification() As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Public Property Identification() As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification Get Return Me._identification End Get @@ -8358,7 +8358,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOffice)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDInwardProcessingMonitoringCustomsOffice)) End If Return sSerializer End Get @@ -8366,7 +8366,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into an XML string + ''' Serializes current FCFCDDInwardProcessingMonitoringCustomsOffice object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -8393,15 +8393,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' Deserializes workflow markup into an FCFCDDInwardProcessingMonitoringCustomsOffice object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' Output FCFCDDInwardProcessingMonitoringCustomsOffice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + obj = CType(Nothing, FCFCDDInwardProcessingMonitoringCustomsOffice) Try obj = Deserialize(input) Return True @@ -8411,16 +8411,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOffice) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOffice + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDInwardProcessingMonitoringCustomsOffice Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOffice) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDInwardProcessingMonitoringCustomsOffice) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8428,13 +8428,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOffice - Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOffice) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDInwardProcessingMonitoringCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDDInwardProcessingMonitoringCustomsOffice) End Function #End Region ''' - ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into file + ''' Serializes current FCFCDDInwardProcessingMonitoringCustomsOffice object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -8466,15 +8466,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' Deserializes xml markup from file into an FCFCDDInwardProcessingMonitoringCustomsOffice object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' Output FCFCDDInwardProcessingMonitoringCustomsOffice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + obj = CType(Nothing, FCFCDDInwardProcessingMonitoringCustomsOffice) Try obj = LoadFromFile(fileName) Return True @@ -8484,12 +8484,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOffice) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingMonitoringCustomsOffice + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDInwardProcessingMonitoringCustomsOffice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -8515,7 +8515,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Partial Public Class FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification #Region "Private fields" Private _referenceNumber As String @@ -8536,7 +8536,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification)) End If Return sSerializer End Get @@ -8544,7 +8544,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into an XML string + ''' Serializes current FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -8571,15 +8571,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' Deserializes workflow markup into an FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' Output FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + obj = CType(Nothing, FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) Try obj = Deserialize(input) Return True @@ -8589,16 +8589,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8606,13 +8606,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification - Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification + Return CType(Serializer.Deserialize(s), FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into file + ''' Serializes current FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -8644,15 +8644,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' Deserializes xml markup from file into an FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' Output FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + obj = CType(Nothing, FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) Try obj = LoadFromFile(fileName) Return True @@ -8662,12 +8662,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDInwardProcessingMonitoringCustomsOfficeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -8693,7 +8693,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCInwardProcessingGoodsItem + Partial Public Class FCFCDDInwardProcessingGoodsItem #Region "Private fields" Private _sequenceNumber As String @@ -8762,7 +8762,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingGoodsItem)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDInwardProcessingGoodsItem)) End If Return sSerializer End Get @@ -8770,7 +8770,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCInwardProcessingGoodsItem object into an XML string + ''' Serializes current FCFCDDInwardProcessingGoodsItem object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -8797,15 +8797,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCInwardProcessingGoodsItem object + ''' Deserializes workflow markup into an FCFCDDInwardProcessingGoodsItem object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCInwardProcessingGoodsItem object + ''' Output FCFCDDInwardProcessingGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + obj = CType(Nothing, FCFCDDInwardProcessingGoodsItem) Try obj = Deserialize(input) Return True @@ -8815,16 +8815,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDInwardProcessingGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingGoodsItem + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDInwardProcessingGoodsItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingGoodsItem) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDInwardProcessingGoodsItem) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8832,13 +8832,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingGoodsItem - Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingGoodsItem) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDInwardProcessingGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDDInwardProcessingGoodsItem) End Function #End Region ''' - ''' Serializes current FCFCDCInwardProcessingGoodsItem object into file + ''' Serializes current FCFCDDInwardProcessingGoodsItem object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -8870,15 +8870,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCInwardProcessingGoodsItem object + ''' Deserializes xml markup from file into an FCFCDDInwardProcessingGoodsItem object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCInwardProcessingGoodsItem object + ''' Output FCFCDDInwardProcessingGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + obj = CType(Nothing, FCFCDDInwardProcessingGoodsItem) Try obj = LoadFromFile(fileName) Return True @@ -8888,12 +8888,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingGoodsItem) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDInwardProcessingGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingGoodsItem + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDInwardProcessingGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -8919,46 +8919,46 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBody + Partial Public Class FCFCDDBody #Region "Private fields" Private _customsValueFlag As String - Private _consignor As FCFCDCBodyConsignor + Private _consignor As FCFCDDBodyConsignor - Private _consignee As FCFCDCBodyConsignee + Private _consignee As FCFCDDBodyConsignee - Private _acquirer As FCFCDCBodyAcquirer + Private _acquirer As FCFCDDBodyAcquirer - Private _containers As FCFCDCBodyContainers + Private _containers As FCFCDDBodyContainers - Private _deliveryTerms As FCFCDCBodyDeliveryTerms + Private _deliveryTerms As FCFCDDBodyDeliveryTerms - Private _paymentTransaction As FCFCDCBodyPaymentTransaction + Private _paymentTransaction As FCFCDDBodyPaymentTransaction - Private _foreignTradeStatistics As FCFCDCBodyForeignTradeStatistics + Private _foreignTradeStatistics As FCFCDDBodyForeignTradeStatistics - Private _customsValue As FCFCDCBodyCustomsValue + Private _customsValue As FCFCDDBodyCustomsValue - Private _document As List(Of FCFCDCBodyDocument) + Private _document As List(Of FCFCDDBodyDocument) - Private _goodsItem As List(Of FCFCDCBodyGoodsItem) + Private _goodsItem As List(Of FCFCDDBodyGoodsItem) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._goodsItem = New List(Of FCFCDCBodyGoodsItem)() - Me._document = New List(Of FCFCDCBodyDocument)() - Me._customsValue = New FCFCDCBodyCustomsValue() - Me._foreignTradeStatistics = New FCFCDCBodyForeignTradeStatistics() - Me._paymentTransaction = New FCFCDCBodyPaymentTransaction() - Me._deliveryTerms = New FCFCDCBodyDeliveryTerms() - Me._containers = New FCFCDCBodyContainers() - Me._acquirer = New FCFCDCBodyAcquirer() - Me._consignee = New FCFCDCBodyConsignee() - Me._consignor = New FCFCDCBodyConsignor() + Me._goodsItem = New List(Of FCFCDDBodyGoodsItem)() + Me._document = New List(Of FCFCDDBodyDocument)() + Me._customsValue = New FCFCDDBodyCustomsValue() + Me._foreignTradeStatistics = New FCFCDDBodyForeignTradeStatistics() + Me._paymentTransaction = New FCFCDDBodyPaymentTransaction() + Me._deliveryTerms = New FCFCDDBodyDeliveryTerms() + Me._containers = New FCFCDDBodyContainers() + Me._acquirer = New FCFCDDBodyAcquirer() + Me._consignee = New FCFCDDBodyConsignee() + Me._consignor = New FCFCDDBodyConsignor() End Sub @@ -8971,7 +8971,7 @@ Namespace FCFCDC End Set End Property - Public Property Consignor() As FCFCDCBodyConsignor + Public Property Consignor() As FCFCDDBodyConsignor Get Return Me._consignor End Get @@ -8980,7 +8980,7 @@ Namespace FCFCDC End Set End Property - Public Property Consignee() As FCFCDCBodyConsignee + Public Property Consignee() As FCFCDDBodyConsignee Get Return Me._consignee End Get @@ -8989,7 +8989,7 @@ Namespace FCFCDC End Set End Property - Public Property Acquirer() As FCFCDCBodyAcquirer + Public Property Acquirer() As FCFCDDBodyAcquirer Get Return Me._acquirer End Get @@ -8998,7 +8998,7 @@ Namespace FCFCDC End Set End Property - Public Property Containers() As FCFCDCBodyContainers + Public Property Containers() As FCFCDDBodyContainers Get Return Me._containers End Get @@ -9007,7 +9007,7 @@ Namespace FCFCDC End Set End Property - Public Property DeliveryTerms() As FCFCDCBodyDeliveryTerms + Public Property DeliveryTerms() As FCFCDDBodyDeliveryTerms Get Return Me._deliveryTerms End Get @@ -9016,7 +9016,7 @@ Namespace FCFCDC End Set End Property - Public Property PaymentTransaction() As FCFCDCBodyPaymentTransaction + Public Property PaymentTransaction() As FCFCDDBodyPaymentTransaction Get Return Me._paymentTransaction End Get @@ -9025,7 +9025,7 @@ Namespace FCFCDC End Set End Property - Public Property ForeignTradeStatistics() As FCFCDCBodyForeignTradeStatistics + Public Property ForeignTradeStatistics() As FCFCDDBodyForeignTradeStatistics Get Return Me._foreignTradeStatistics End Get @@ -9034,7 +9034,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsValue() As FCFCDCBodyCustomsValue + Public Property CustomsValue() As FCFCDDBodyCustomsValue Get Return Me._customsValue End Get @@ -9044,7 +9044,7 @@ Namespace FCFCDC End Property - Public Property Document() As List(Of FCFCDCBodyDocument) + Public Property Document() As List(Of FCFCDDBodyDocument) Get Return Me._document End Get @@ -9054,7 +9054,7 @@ Namespace FCFCDC End Property - Public Property GoodsItem() As List(Of FCFCDCBodyGoodsItem) + Public Property GoodsItem() As List(Of FCFCDDBodyGoodsItem) Get Return Me._goodsItem End Get @@ -9066,7 +9066,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBody)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBody)) End If Return sSerializer End Get @@ -9074,7 +9074,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBody object into an XML string + ''' Serializes current FCFCDDBody object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -9101,15 +9101,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBody object + ''' Deserializes workflow markup into an FCFCDDBody object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBody object + ''' Output FCFCDDBody object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBody, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBody) + obj = CType(Nothing, FCFCDDBody) Try obj = Deserialize(input) Return True @@ -9119,16 +9119,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBody) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBody + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBody Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBody) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBody) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -9136,13 +9136,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBody - Return CType(Serializer.Deserialize(s), FCFCDCBody) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBody + Return CType(Serializer.Deserialize(s), FCFCDDBody) End Function #End Region ''' - ''' Serializes current FCFCDCBody object into file + ''' Serializes current FCFCDDBody object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -9174,15 +9174,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBody object + ''' Deserializes xml markup from file into an FCFCDDBody object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBody object + ''' Output FCFCDDBody object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBody, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBody) + obj = CType(Nothing, FCFCDDBody) Try obj = LoadFromFile(fileName) Return True @@ -9192,12 +9192,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBody) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBody) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBody + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBody Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -9223,25 +9223,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsignor + Partial Public Class FCFCDDBodyConsignor #Region "Private fields" - Private _identification As FCFCDCBodyConsignorIdentification + Private _identification As FCFCDDBodyConsignorIdentification Private _name As String - Private _address As FCFCDCBodyConsignorAddress + Private _address As FCFCDDBodyConsignorAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCBodyConsignorAddress() - Me._identification = New FCFCDCBodyConsignorIdentification() + Me._address = New FCFCDDBodyConsignorAddress() + Me._identification = New FCFCDDBodyConsignorIdentification() End Sub - Public Property Identification() As FCFCDCBodyConsignorIdentification + Public Property Identification() As FCFCDDBodyConsignorIdentification Get Return Me._identification End Get @@ -9260,7 +9260,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCBodyConsignorAddress + Public Property Address() As FCFCDDBodyConsignorAddress Get Return Me._address End Get @@ -9272,7 +9272,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignor)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsignor)) End If Return sSerializer End Get @@ -9280,7 +9280,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsignor object into an XML string + ''' Serializes current FCFCDDBodyConsignor object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -9307,15 +9307,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsignor object + ''' Deserializes workflow markup into an FCFCDDBodyConsignor object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsignor object + ''' Output FCFCDDBodyConsignor object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignor, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignor) + obj = CType(Nothing, FCFCDDBodyConsignor) Try obj = Deserialize(input) Return True @@ -9325,16 +9325,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignor) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignor + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsignor Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignor) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsignor) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -9342,13 +9342,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignor - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignor) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsignor + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsignor) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsignor object into file + ''' Serializes current FCFCDDBodyConsignor object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -9380,15 +9380,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsignor object + ''' Deserializes xml markup from file into an FCFCDDBodyConsignor object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsignor object + ''' Output FCFCDDBodyConsignor object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignor, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignor) + obj = CType(Nothing, FCFCDDBodyConsignor) Try obj = LoadFromFile(fileName) Return True @@ -9398,12 +9398,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignor) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignor) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignor + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsignor Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -9429,7 +9429,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsignorIdentification + Partial Public Class FCFCDDBodyConsignorIdentification #Region "Private fields" Private _referenceNumber As String @@ -9450,7 +9450,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsignorIdentification)) End If Return sSerializer End Get @@ -9458,7 +9458,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsignorIdentification object into an XML string + ''' Serializes current FCFCDDBodyConsignorIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -9485,15 +9485,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsignorIdentification object + ''' Deserializes workflow markup into an FCFCDDBodyConsignorIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsignorIdentification object + ''' Output FCFCDDBodyConsignorIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + obj = CType(Nothing, FCFCDDBodyConsignorIdentification) Try obj = Deserialize(input) Return True @@ -9503,16 +9503,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignorIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsignorIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsignorIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -9520,13 +9520,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorIdentification - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsignorIdentification + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsignorIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsignorIdentification object into file + ''' Serializes current FCFCDDBodyConsignorIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -9558,15 +9558,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsignorIdentification object + ''' Deserializes xml markup from file into an FCFCDDBodyConsignorIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsignorIdentification object + ''' Output FCFCDDBodyConsignorIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + obj = CType(Nothing, FCFCDDBodyConsignorIdentification) Try obj = LoadFromFile(fileName) Return True @@ -9576,12 +9576,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignorIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignorIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsignorIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -9607,7 +9607,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsignorAddress + Partial Public Class FCFCDDBodyConsignorAddress #Region "Private fields" Private _line As String @@ -9676,7 +9676,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsignorAddress)) End If Return sSerializer End Get @@ -9684,7 +9684,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsignorAddress object into an XML string + ''' Serializes current FCFCDDBodyConsignorAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -9711,15 +9711,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsignorAddress object + ''' Deserializes workflow markup into an FCFCDDBodyConsignorAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsignorAddress object + ''' Output FCFCDDBodyConsignorAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignorAddress) + obj = CType(Nothing, FCFCDDBodyConsignorAddress) Try obj = Deserialize(input) Return True @@ -9729,16 +9729,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignorAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsignorAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsignorAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -9746,13 +9746,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorAddress - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsignorAddress + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsignorAddress) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsignorAddress object into file + ''' Serializes current FCFCDDBodyConsignorAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -9784,15 +9784,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsignorAddress object + ''' Deserializes xml markup from file into an FCFCDDBodyConsignorAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsignorAddress object + ''' Output FCFCDDBodyConsignorAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignorAddress) + obj = CType(Nothing, FCFCDDBodyConsignorAddress) Try obj = LoadFromFile(fileName) Return True @@ -9802,12 +9802,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignorAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignorAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsignorAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -9833,25 +9833,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsignee + Partial Public Class FCFCDDBodyConsignee #Region "Private fields" - Private _identification As FCFCDCBodyConsigneeIdentification + Private _identification As FCFCDDBodyConsigneeIdentification Private _name As String - Private _address As FCFCDCBodyConsigneeAddress + Private _address As FCFCDDBodyConsigneeAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCBodyConsigneeAddress() - Me._identification = New FCFCDCBodyConsigneeIdentification() + Me._address = New FCFCDDBodyConsigneeAddress() + Me._identification = New FCFCDDBodyConsigneeIdentification() End Sub - Public Property Identification() As FCFCDCBodyConsigneeIdentification + Public Property Identification() As FCFCDDBodyConsigneeIdentification Get Return Me._identification End Get @@ -9870,7 +9870,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCBodyConsigneeAddress + Public Property Address() As FCFCDDBodyConsigneeAddress Get Return Me._address End Get @@ -9882,7 +9882,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignee)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsignee)) End If Return sSerializer End Get @@ -9890,7 +9890,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsignee object into an XML string + ''' Serializes current FCFCDDBodyConsignee object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -9917,15 +9917,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsignee object + ''' Deserializes workflow markup into an FCFCDDBodyConsignee object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsignee object + ''' Output FCFCDDBodyConsignee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignee) + obj = CType(Nothing, FCFCDDBodyConsignee) Try obj = Deserialize(input) Return True @@ -9935,16 +9935,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsignee) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignee + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsignee Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignee) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsignee) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -9952,13 +9952,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignee - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignee) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsignee + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsignee) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsignee object into file + ''' Serializes current FCFCDDBodyConsignee object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -9990,15 +9990,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsignee object + ''' Deserializes xml markup from file into an FCFCDDBodyConsignee object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsignee object + ''' Output FCFCDDBodyConsignee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsignee) + obj = CType(Nothing, FCFCDDBodyConsignee) Try obj = LoadFromFile(fileName) Return True @@ -10008,12 +10008,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignee) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsignee) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignee + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsignee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -10039,7 +10039,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsigneeIdentification + Partial Public Class FCFCDDBodyConsigneeIdentification #Region "Private fields" Private _referenceNumber As String @@ -10072,7 +10072,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsigneeIdentification)) End If Return sSerializer End Get @@ -10080,7 +10080,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsigneeIdentification object into an XML string + ''' Serializes current FCFCDDBodyConsigneeIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -10107,15 +10107,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsigneeIdentification object + ''' Deserializes workflow markup into an FCFCDDBodyConsigneeIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsigneeIdentification object + ''' Output FCFCDDBodyConsigneeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + obj = CType(Nothing, FCFCDDBodyConsigneeIdentification) Try obj = Deserialize(input) Return True @@ -10125,16 +10125,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsigneeIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsigneeIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsigneeIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -10142,13 +10142,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeIdentification - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsigneeIdentification + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsigneeIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsigneeIdentification object into file + ''' Serializes current FCFCDDBodyConsigneeIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -10180,15 +10180,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeIdentification object + ''' Deserializes xml markup from file into an FCFCDDBodyConsigneeIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsigneeIdentification object + ''' Output FCFCDDBodyConsigneeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + obj = CType(Nothing, FCFCDDBodyConsigneeIdentification) Try obj = LoadFromFile(fileName) Return True @@ -10198,12 +10198,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsigneeIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsigneeIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsigneeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -10229,7 +10229,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyConsigneeAddress + Partial Public Class FCFCDDBodyConsigneeAddress #Region "Private fields" Private _line As String @@ -10298,7 +10298,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyConsigneeAddress)) End If Return sSerializer End Get @@ -10306,7 +10306,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyConsigneeAddress object into an XML string + ''' Serializes current FCFCDDBodyConsigneeAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -10333,15 +10333,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyConsigneeAddress object + ''' Deserializes workflow markup into an FCFCDDBodyConsigneeAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyConsigneeAddress object + ''' Output FCFCDDBodyConsigneeAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + obj = CType(Nothing, FCFCDDBodyConsigneeAddress) Try obj = Deserialize(input) Return True @@ -10351,16 +10351,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyConsigneeAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyConsigneeAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyConsigneeAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -10368,13 +10368,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeAddress - Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyConsigneeAddress + Return CType(Serializer.Deserialize(s), FCFCDDBodyConsigneeAddress) End Function #End Region ''' - ''' Serializes current FCFCDCBodyConsigneeAddress object into file + ''' Serializes current FCFCDDBodyConsigneeAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -10406,15 +10406,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeAddress object + ''' Deserializes xml markup from file into an FCFCDDBodyConsigneeAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyConsigneeAddress object + ''' Output FCFCDDBodyConsigneeAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + obj = CType(Nothing, FCFCDDBodyConsigneeAddress) Try obj = LoadFromFile(fileName) Return True @@ -10424,12 +10424,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyConsigneeAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsigneeAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyConsigneeAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -10455,27 +10455,27 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyAcquirer + Partial Public Class FCFCDDBodyAcquirer #Region "Private fields" - Private _identification As FCFCDCBodyAcquirerIdentification + Private _identification As FCFCDDBodyAcquirerIdentification Private _name As String Private _taxNumber As String - Private _address As FCFCDCBodyAcquirerAddress + Private _address As FCFCDDBodyAcquirerAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCBodyAcquirerAddress() - Me._identification = New FCFCDCBodyAcquirerIdentification() + Me._address = New FCFCDDBodyAcquirerAddress() + Me._identification = New FCFCDDBodyAcquirerIdentification() End Sub - Public Property Identification() As FCFCDCBodyAcquirerIdentification + Public Property Identification() As FCFCDDBodyAcquirerIdentification Get Return Me._identification End Get @@ -10504,7 +10504,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCBodyAcquirerAddress + Public Property Address() As FCFCDDBodyAcquirerAddress Get Return Me._address End Get @@ -10516,7 +10516,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirer)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyAcquirer)) End If Return sSerializer End Get @@ -10524,7 +10524,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyAcquirer object into an XML string + ''' Serializes current FCFCDDBodyAcquirer object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -10551,15 +10551,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyAcquirer object + ''' Deserializes workflow markup into an FCFCDDBodyAcquirer object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyAcquirer object + ''' Output FCFCDDBodyAcquirer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirer, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirer) + obj = CType(Nothing, FCFCDDBodyAcquirer) Try obj = Deserialize(input) Return True @@ -10569,16 +10569,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirer) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirer + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyAcquirer Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirer) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyAcquirer) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -10586,13 +10586,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirer - Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirer) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyAcquirer + Return CType(Serializer.Deserialize(s), FCFCDDBodyAcquirer) End Function #End Region ''' - ''' Serializes current FCFCDCBodyAcquirer object into file + ''' Serializes current FCFCDDBodyAcquirer object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -10624,15 +10624,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyAcquirer object + ''' Deserializes xml markup from file into an FCFCDDBodyAcquirer object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyAcquirer object + ''' Output FCFCDDBodyAcquirer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirer, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirer) + obj = CType(Nothing, FCFCDDBodyAcquirer) Try obj = LoadFromFile(fileName) Return True @@ -10642,12 +10642,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirer) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirer) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirer + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyAcquirer Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -10673,7 +10673,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyAcquirerIdentification + Partial Public Class FCFCDDBodyAcquirerIdentification #Region "Private fields" Private _referenceNumber As String @@ -10706,7 +10706,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyAcquirerIdentification)) End If Return sSerializer End Get @@ -10714,7 +10714,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyAcquirerIdentification object into an XML string + ''' Serializes current FCFCDDBodyAcquirerIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -10741,15 +10741,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyAcquirerIdentification object + ''' Deserializes workflow markup into an FCFCDDBodyAcquirerIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyAcquirerIdentification object + ''' Output FCFCDDBodyAcquirerIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + obj = CType(Nothing, FCFCDDBodyAcquirerIdentification) Try obj = Deserialize(input) Return True @@ -10759,16 +10759,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirerIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyAcquirerIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyAcquirerIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -10776,13 +10776,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerIdentification - Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyAcquirerIdentification + Return CType(Serializer.Deserialize(s), FCFCDDBodyAcquirerIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCBodyAcquirerIdentification object into file + ''' Serializes current FCFCDDBodyAcquirerIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -10814,15 +10814,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerIdentification object + ''' Deserializes xml markup from file into an FCFCDDBodyAcquirerIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyAcquirerIdentification object + ''' Output FCFCDDBodyAcquirerIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + obj = CType(Nothing, FCFCDDBodyAcquirerIdentification) Try obj = LoadFromFile(fileName) Return True @@ -10832,12 +10832,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirerIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirerIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyAcquirerIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -10863,7 +10863,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyAcquirerAddress + Partial Public Class FCFCDDBodyAcquirerAddress #Region "Private fields" Private _line As String @@ -10932,7 +10932,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyAcquirerAddress)) End If Return sSerializer End Get @@ -10940,7 +10940,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyAcquirerAddress object into an XML string + ''' Serializes current FCFCDDBodyAcquirerAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -10967,15 +10967,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyAcquirerAddress object + ''' Deserializes workflow markup into an FCFCDDBodyAcquirerAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyAcquirerAddress object + ''' Output FCFCDDBodyAcquirerAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + obj = CType(Nothing, FCFCDDBodyAcquirerAddress) Try obj = Deserialize(input) Return True @@ -10985,16 +10985,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyAcquirerAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyAcquirerAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyAcquirerAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -11002,13 +11002,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerAddress - Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyAcquirerAddress + Return CType(Serializer.Deserialize(s), FCFCDDBodyAcquirerAddress) End Function #End Region ''' - ''' Serializes current FCFCDCBodyAcquirerAddress object into file + ''' Serializes current FCFCDDBodyAcquirerAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -11040,15 +11040,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerAddress object + ''' Deserializes xml markup from file into an FCFCDDBodyAcquirerAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyAcquirerAddress object + ''' Output FCFCDDBodyAcquirerAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + obj = CType(Nothing, FCFCDDBodyAcquirerAddress) Try obj = LoadFromFile(fileName) Return True @@ -11058,12 +11058,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyAcquirerAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirerAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyAcquirerAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -11089,19 +11089,19 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyContainers + Partial Public Class FCFCDDBodyContainers #Region "Private fields" Private _containerFlag As String - Private _container As List(Of FCFCDCBodyContainersContainer) + Private _container As List(Of FCFCDDBodyContainersContainer) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._container = New List(Of FCFCDCBodyContainersContainer)() + Me._container = New List(Of FCFCDDBodyContainersContainer)() End Sub @@ -11115,7 +11115,7 @@ Namespace FCFCDC End Property - Public Property Container() As List(Of FCFCDCBodyContainersContainer) + Public Property Container() As List(Of FCFCDDBodyContainersContainer) Get Return Me._container End Get @@ -11127,7 +11127,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainers)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyContainers)) End If Return sSerializer End Get @@ -11135,7 +11135,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyContainers object into an XML string + ''' Serializes current FCFCDDBodyContainers object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -11162,15 +11162,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyContainers object + ''' Deserializes workflow markup into an FCFCDDBodyContainers object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyContainers object + ''' Output FCFCDDBodyContainers object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyContainers, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyContainers) + obj = CType(Nothing, FCFCDDBodyContainers) Try obj = Deserialize(input) Return True @@ -11180,16 +11180,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyContainers) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainers + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyContainers Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainers) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyContainers) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -11197,13 +11197,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainers - Return CType(Serializer.Deserialize(s), FCFCDCBodyContainers) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyContainers + Return CType(Serializer.Deserialize(s), FCFCDDBodyContainers) End Function #End Region ''' - ''' Serializes current FCFCDCBodyContainers object into file + ''' Serializes current FCFCDDBodyContainers object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -11235,15 +11235,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyContainers object + ''' Deserializes xml markup from file into an FCFCDDBodyContainers object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyContainers object + ''' Output FCFCDDBodyContainers object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyContainers, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyContainers) + obj = CType(Nothing, FCFCDDBodyContainers) Try obj = LoadFromFile(fileName) Return True @@ -11253,12 +11253,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainers) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyContainers) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyContainers + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyContainers Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -11284,7 +11284,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyContainersContainer + Partial Public Class FCFCDDBodyContainersContainer #Region "Private fields" Private _identificationNumber As String @@ -11305,7 +11305,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainersContainer)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyContainersContainer)) End If Return sSerializer End Get @@ -11313,7 +11313,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyContainersContainer object into an XML string + ''' Serializes current FCFCDDBodyContainersContainer object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -11340,15 +11340,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyContainersContainer object + ''' Deserializes workflow markup into an FCFCDDBodyContainersContainer object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyContainersContainer object + ''' Output FCFCDDBodyContainersContainer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyContainersContainer, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyContainersContainer) + obj = CType(Nothing, FCFCDDBodyContainersContainer) Try obj = Deserialize(input) Return True @@ -11358,16 +11358,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyContainersContainer) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainersContainer + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyContainersContainer Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainersContainer) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyContainersContainer) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -11375,13 +11375,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainersContainer - Return CType(Serializer.Deserialize(s), FCFCDCBodyContainersContainer) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyContainersContainer + Return CType(Serializer.Deserialize(s), FCFCDDBodyContainersContainer) End Function #End Region ''' - ''' Serializes current FCFCDCBodyContainersContainer object into file + ''' Serializes current FCFCDDBodyContainersContainer object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -11413,15 +11413,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyContainersContainer object + ''' Deserializes xml markup from file into an FCFCDDBodyContainersContainer object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyContainersContainer object + ''' Output FCFCDDBodyContainersContainer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyContainersContainer, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyContainersContainer) + obj = CType(Nothing, FCFCDDBodyContainersContainer) Try obj = LoadFromFile(fileName) Return True @@ -11431,12 +11431,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainersContainer) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyContainersContainer) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyContainersContainer + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyContainersContainer Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -11462,7 +11462,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyDeliveryTerms + Partial Public Class FCFCDDBodyDeliveryTerms #Region "Private fields" Private _code As String @@ -11519,7 +11519,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDeliveryTerms)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyDeliveryTerms)) End If Return sSerializer End Get @@ -11527,7 +11527,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyDeliveryTerms object into an XML string + ''' Serializes current FCFCDDBodyDeliveryTerms object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -11554,15 +11554,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyDeliveryTerms object + ''' Deserializes workflow markup into an FCFCDDBodyDeliveryTerms object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyDeliveryTerms object + ''' Output FCFCDDBodyDeliveryTerms object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + obj = CType(Nothing, FCFCDDBodyDeliveryTerms) Try obj = Deserialize(input) Return True @@ -11572,16 +11572,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyDeliveryTerms) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDeliveryTerms + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyDeliveryTerms Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDeliveryTerms) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyDeliveryTerms) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -11589,13 +11589,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDeliveryTerms - Return CType(Serializer.Deserialize(s), FCFCDCBodyDeliveryTerms) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyDeliveryTerms + Return CType(Serializer.Deserialize(s), FCFCDDBodyDeliveryTerms) End Function #End Region ''' - ''' Serializes current FCFCDCBodyDeliveryTerms object into file + ''' Serializes current FCFCDDBodyDeliveryTerms object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -11627,15 +11627,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyDeliveryTerms object + ''' Deserializes xml markup from file into an FCFCDDBodyDeliveryTerms object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyDeliveryTerms object + ''' Output FCFCDDBodyDeliveryTerms object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + obj = CType(Nothing, FCFCDDBodyDeliveryTerms) Try obj = LoadFromFile(fileName) Return True @@ -11645,12 +11645,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDeliveryTerms) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyDeliveryTerms) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyDeliveryTerms + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyDeliveryTerms Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -11676,7 +11676,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyPaymentTransaction + Partial Public Class FCFCDDBodyPaymentTransaction #Region "Private fields" Private _amount As Decimal @@ -11708,7 +11708,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyPaymentTransaction)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyPaymentTransaction)) End If Return sSerializer End Get @@ -11716,7 +11716,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyPaymentTransaction object into an XML string + ''' Serializes current FCFCDDBodyPaymentTransaction object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -11743,15 +11743,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyPaymentTransaction object + ''' Deserializes workflow markup into an FCFCDDBodyPaymentTransaction object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyPaymentTransaction object + ''' Output FCFCDDBodyPaymentTransaction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + obj = CType(Nothing, FCFCDDBodyPaymentTransaction) Try obj = Deserialize(input) Return True @@ -11761,16 +11761,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyPaymentTransaction) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyPaymentTransaction + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyPaymentTransaction Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyPaymentTransaction) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyPaymentTransaction) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -11778,13 +11778,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyPaymentTransaction - Return CType(Serializer.Deserialize(s), FCFCDCBodyPaymentTransaction) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyPaymentTransaction + Return CType(Serializer.Deserialize(s), FCFCDDBodyPaymentTransaction) End Function #End Region ''' - ''' Serializes current FCFCDCBodyPaymentTransaction object into file + ''' Serializes current FCFCDDBodyPaymentTransaction object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -11816,15 +11816,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyPaymentTransaction object + ''' Deserializes xml markup from file into an FCFCDDBodyPaymentTransaction object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyPaymentTransaction object + ''' Output FCFCDDBodyPaymentTransaction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + obj = CType(Nothing, FCFCDDBodyPaymentTransaction) Try obj = LoadFromFile(fileName) Return True @@ -11834,12 +11834,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyPaymentTransaction) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyPaymentTransaction) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyPaymentTransaction + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyPaymentTransaction Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -11865,7 +11865,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyForeignTradeStatistics + Partial Public Class FCFCDDBodyForeignTradeStatistics #Region "Private fields" Private _goodsStatus As String @@ -11880,14 +11880,14 @@ Namespace FCFCDC Private _totalGrossMassMeasure As Decimal - Private _entryCustomsOffice As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Private _entryCustomsOffice As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._entryCustomsOffice = New FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice() + Me._entryCustomsOffice = New FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice() End Sub @@ -11949,7 +11949,7 @@ Namespace FCFCDC End Set End Property - Public Property EntryCustomsOffice() As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Public Property EntryCustomsOffice() As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice Get Return Me._entryCustomsOffice End Get @@ -11961,7 +11961,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatistics)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyForeignTradeStatistics)) End If Return sSerializer End Get @@ -11969,7 +11969,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyForeignTradeStatistics object into an XML string + ''' Serializes current FCFCDDBodyForeignTradeStatistics object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -11996,15 +11996,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatistics object + ''' Deserializes workflow markup into an FCFCDDBodyForeignTradeStatistics object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyForeignTradeStatistics object + ''' Output FCFCDDBodyForeignTradeStatistics object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + obj = CType(Nothing, FCFCDDBodyForeignTradeStatistics) Try obj = Deserialize(input) Return True @@ -12014,16 +12014,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatistics + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyForeignTradeStatistics Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatistics) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyForeignTradeStatistics) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -12031,13 +12031,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatistics - Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatistics) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDDBodyForeignTradeStatistics) End Function #End Region ''' - ''' Serializes current FCFCDCBodyForeignTradeStatistics object into file + ''' Serializes current FCFCDDBodyForeignTradeStatistics object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -12069,15 +12069,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatistics object + ''' Deserializes xml markup from file into an FCFCDDBodyForeignTradeStatistics object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyForeignTradeStatistics object + ''' Output FCFCDDBodyForeignTradeStatistics object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + obj = CType(Nothing, FCFCDDBodyForeignTradeStatistics) Try obj = LoadFromFile(fileName) Return True @@ -12087,12 +12087,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatistics) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyForeignTradeStatistics + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyForeignTradeStatistics Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -12118,7 +12118,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Partial Public Class FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice #Region "Private fields" Private _referenceNumber As String @@ -12139,7 +12139,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice)) End If Return sSerializer End Get @@ -12147,7 +12147,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into an XML string + ''' Serializes current FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -12174,15 +12174,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' Deserializes workflow markup into an FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' Output FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + obj = CType(Nothing, FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) Try obj = Deserialize(input) Return True @@ -12192,16 +12192,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -12209,13 +12209,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice - Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) End Function #End Region ''' - ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into file + ''' Serializes current FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -12247,15 +12247,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' Deserializes xml markup from file into an FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' Output FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + obj = CType(Nothing, FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) Try obj = LoadFromFile(fileName) Return True @@ -12265,12 +12265,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyForeignTradeStatisticsEntryCustomsOffice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -12296,34 +12296,34 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValue + Partial Public Class FCFCDDBodyCustomsValue #Region "Private fields" Private _formerDecisions As String - Private _vendor As FCFCDCBodyCustomsValueVendor + Private _vendor As FCFCDDBodyCustomsValueVendor - Private _vendee As FCFCDCBodyCustomsValueVendee + Private _vendee As FCFCDDBodyCustomsValueVendee - Private _affiliation As FCFCDCBodyCustomsValueAffiliation + Private _affiliation As FCFCDDBodyCustomsValueAffiliation - Private _restrictionOrCondition As FCFCDCBodyCustomsValueRestrictionOrCondition + Private _restrictionOrCondition As FCFCDDBodyCustomsValueRestrictionOrCondition - Private _licenseFee As FCFCDCBodyCustomsValueLicenseFee + Private _licenseFee As FCFCDDBodyCustomsValueLicenseFee - Private _resale As FCFCDCBodyCustomsValueResale + Private _resale As FCFCDDBodyCustomsValueResale Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._resale = New FCFCDCBodyCustomsValueResale() - Me._licenseFee = New FCFCDCBodyCustomsValueLicenseFee() - Me._restrictionOrCondition = New FCFCDCBodyCustomsValueRestrictionOrCondition() - Me._affiliation = New FCFCDCBodyCustomsValueAffiliation() - Me._vendee = New FCFCDCBodyCustomsValueVendee() - Me._vendor = New FCFCDCBodyCustomsValueVendor() + Me._resale = New FCFCDDBodyCustomsValueResale() + Me._licenseFee = New FCFCDDBodyCustomsValueLicenseFee() + Me._restrictionOrCondition = New FCFCDDBodyCustomsValueRestrictionOrCondition() + Me._affiliation = New FCFCDDBodyCustomsValueAffiliation() + Me._vendee = New FCFCDDBodyCustomsValueVendee() + Me._vendor = New FCFCDDBodyCustomsValueVendor() End Sub @@ -12336,7 +12336,7 @@ Namespace FCFCDC End Set End Property - Public Property Vendor() As FCFCDCBodyCustomsValueVendor + Public Property Vendor() As FCFCDDBodyCustomsValueVendor Get Return Me._vendor End Get @@ -12345,7 +12345,7 @@ Namespace FCFCDC End Set End Property - Public Property Vendee() As FCFCDCBodyCustomsValueVendee + Public Property Vendee() As FCFCDDBodyCustomsValueVendee Get Return Me._vendee End Get @@ -12354,7 +12354,7 @@ Namespace FCFCDC End Set End Property - Public Property Affiliation() As FCFCDCBodyCustomsValueAffiliation + Public Property Affiliation() As FCFCDDBodyCustomsValueAffiliation Get Return Me._affiliation End Get @@ -12363,7 +12363,7 @@ Namespace FCFCDC End Set End Property - Public Property RestrictionOrCondition() As FCFCDCBodyCustomsValueRestrictionOrCondition + Public Property RestrictionOrCondition() As FCFCDDBodyCustomsValueRestrictionOrCondition Get Return Me._restrictionOrCondition End Get @@ -12372,7 +12372,7 @@ Namespace FCFCDC End Set End Property - Public Property LicenseFee() As FCFCDCBodyCustomsValueLicenseFee + Public Property LicenseFee() As FCFCDDBodyCustomsValueLicenseFee Get Return Me._licenseFee End Get @@ -12381,7 +12381,7 @@ Namespace FCFCDC End Set End Property - Public Property Resale() As FCFCDCBodyCustomsValueResale + Public Property Resale() As FCFCDDBodyCustomsValueResale Get Return Me._resale End Get @@ -12393,7 +12393,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValue)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValue)) End If Return sSerializer End Get @@ -12401,7 +12401,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValue object into an XML string + ''' Serializes current FCFCDDBodyCustomsValue object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -12428,15 +12428,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValue object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValue object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValue object + ''' Output FCFCDDBodyCustomsValue object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValue) + obj = CType(Nothing, FCFCDDBodyCustomsValue) Try obj = Deserialize(input) Return True @@ -12446,16 +12446,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValue) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValue + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValue Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValue) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValue) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -12463,13 +12463,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValue - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValue) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValue) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValue object into file + ''' Serializes current FCFCDDBodyCustomsValue object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -12501,15 +12501,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValue object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValue object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValue object + ''' Output FCFCDDBodyCustomsValue object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValue) + obj = CType(Nothing, FCFCDDBodyCustomsValue) Try obj = LoadFromFile(fileName) Return True @@ -12519,12 +12519,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValue) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValue) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValue + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValue Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -12550,25 +12550,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendor + Partial Public Class FCFCDDBodyCustomsValueVendor #Region "Private fields" - Private _identification As FCFCDCBodyCustomsValueVendorIdentification + Private _identification As FCFCDDBodyCustomsValueVendorIdentification Private _name As String - Private _address As FCFCDCBodyCustomsValueVendorAddress + Private _address As FCFCDDBodyCustomsValueVendorAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCBodyCustomsValueVendorAddress() - Me._identification = New FCFCDCBodyCustomsValueVendorIdentification() + Me._address = New FCFCDDBodyCustomsValueVendorAddress() + Me._identification = New FCFCDDBodyCustomsValueVendorIdentification() End Sub - Public Property Identification() As FCFCDCBodyCustomsValueVendorIdentification + Public Property Identification() As FCFCDDBodyCustomsValueVendorIdentification Get Return Me._identification End Get @@ -12587,7 +12587,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCBodyCustomsValueVendorAddress + Public Property Address() As FCFCDDBodyCustomsValueVendorAddress Get Return Me._address End Get @@ -12599,7 +12599,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendor)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendor)) End If Return sSerializer End Get @@ -12607,7 +12607,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendor object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendor object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -12634,15 +12634,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendor object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendor object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendor object + ''' Output FCFCDDBodyCustomsValueVendor object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendor) Try obj = Deserialize(input) Return True @@ -12652,16 +12652,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendor) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendor + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendor Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendor) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendor) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -12669,13 +12669,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendor - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendor) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendor + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendor) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendor object into file + ''' Serializes current FCFCDDBodyCustomsValueVendor object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -12707,15 +12707,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendor object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendor object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendor object + ''' Output FCFCDDBodyCustomsValueVendor object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendor) Try obj = LoadFromFile(fileName) Return True @@ -12725,12 +12725,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendor) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendor) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendor + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendor Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -12756,7 +12756,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendorIdentification + Partial Public Class FCFCDDBodyCustomsValueVendorIdentification #Region "Private fields" Private _referenceNumber As String @@ -12777,7 +12777,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendorIdentification)) End If Return sSerializer End Get @@ -12785,7 +12785,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendorIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -12812,15 +12812,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorIdentification object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendorIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' Output FCFCDDBodyCustomsValueVendorIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendorIdentification) Try obj = Deserialize(input) Return True @@ -12830,16 +12830,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendorIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendorIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendorIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -12847,13 +12847,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorIdentification - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendorIdentification + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendorIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into file + ''' Serializes current FCFCDDBodyCustomsValueVendorIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -12885,15 +12885,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorIdentification object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendorIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' Output FCFCDDBodyCustomsValueVendorIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendorIdentification) Try obj = LoadFromFile(fileName) Return True @@ -12903,12 +12903,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendorIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendorIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendorIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -12934,7 +12934,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendorAddress + Partial Public Class FCFCDDBodyCustomsValueVendorAddress #Region "Private fields" Private _line As String @@ -13003,7 +13003,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendorAddress)) End If Return sSerializer End Get @@ -13011,7 +13011,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendorAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -13038,15 +13038,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorAddress object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendorAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' Output FCFCDDBodyCustomsValueVendorAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendorAddress) Try obj = Deserialize(input) Return True @@ -13056,16 +13056,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendorAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendorAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendorAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -13073,13 +13073,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorAddress - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendorAddress + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendorAddress) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into file + ''' Serializes current FCFCDDBodyCustomsValueVendorAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -13111,15 +13111,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorAddress object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendorAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' Output FCFCDDBodyCustomsValueVendorAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendorAddress) Try obj = LoadFromFile(fileName) Return True @@ -13129,12 +13129,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendorAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendorAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendorAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -13160,25 +13160,25 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendee + Partial Public Class FCFCDDBodyCustomsValueVendee #Region "Private fields" - Private _identification As FCFCDCBodyCustomsValueVendeeIdentification + Private _identification As FCFCDDBodyCustomsValueVendeeIdentification Private _name As String - Private _address As FCFCDCBodyCustomsValueVendeeAddress + Private _address As FCFCDDBodyCustomsValueVendeeAddress Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._address = New FCFCDCBodyCustomsValueVendeeAddress() - Me._identification = New FCFCDCBodyCustomsValueVendeeIdentification() + Me._address = New FCFCDDBodyCustomsValueVendeeAddress() + Me._identification = New FCFCDDBodyCustomsValueVendeeIdentification() End Sub - Public Property Identification() As FCFCDCBodyCustomsValueVendeeIdentification + Public Property Identification() As FCFCDDBodyCustomsValueVendeeIdentification Get Return Me._identification End Get @@ -13197,7 +13197,7 @@ Namespace FCFCDC End Set End Property - Public Property Address() As FCFCDCBodyCustomsValueVendeeAddress + Public Property Address() As FCFCDDBodyCustomsValueVendeeAddress Get Return Me._address End Get @@ -13209,7 +13209,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendee)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendee)) End If Return sSerializer End Get @@ -13217,7 +13217,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendee object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendee object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -13244,15 +13244,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendee object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendee object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendee object + ''' Output FCFCDDBodyCustomsValueVendee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendee) Try obj = Deserialize(input) Return True @@ -13262,16 +13262,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendee) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendee + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendee Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendee) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendee) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -13279,13 +13279,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendee - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendee) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendee + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendee) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendee object into file + ''' Serializes current FCFCDDBodyCustomsValueVendee object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -13317,15 +13317,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendee object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendee object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendee object + ''' Output FCFCDDBodyCustomsValueVendee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendee) Try obj = LoadFromFile(fileName) Return True @@ -13335,12 +13335,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendee) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendee) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendee + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -13366,7 +13366,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendeeIdentification + Partial Public Class FCFCDDBodyCustomsValueVendeeIdentification #Region "Private fields" Private _referenceNumber As String @@ -13387,7 +13387,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeIdentification)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendeeIdentification)) End If Return sSerializer End Get @@ -13395,7 +13395,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendeeIdentification object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -13422,15 +13422,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendeeIdentification object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' Output FCFCDDBodyCustomsValueVendeeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendeeIdentification) Try obj = Deserialize(input) Return True @@ -13440,16 +13440,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendeeIdentification) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeIdentification + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendeeIdentification Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeIdentification) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendeeIdentification) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -13457,13 +13457,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeIdentification - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeIdentification) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendeeIdentification + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendeeIdentification) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into file + ''' Serializes current FCFCDDBodyCustomsValueVendeeIdentification object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -13495,15 +13495,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendeeIdentification object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' Output FCFCDDBodyCustomsValueVendeeIdentification object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendeeIdentification) Try obj = LoadFromFile(fileName) Return True @@ -13513,12 +13513,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendeeIdentification) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendeeIdentification + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendeeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -13544,7 +13544,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueVendeeAddress + Partial Public Class FCFCDDBodyCustomsValueVendeeAddress #Region "Private fields" Private _line As String @@ -13613,7 +13613,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeAddress)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueVendeeAddress)) End If Return sSerializer End Get @@ -13621,7 +13621,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueVendeeAddress object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -13648,15 +13648,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeAddress object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueVendeeAddress object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' Output FCFCDDBodyCustomsValueVendeeAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendeeAddress) Try obj = Deserialize(input) Return True @@ -13666,16 +13666,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueVendeeAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeAddress + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueVendeeAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeAddress) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueVendeeAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -13683,13 +13683,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeAddress - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeAddress) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueVendeeAddress + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueVendeeAddress) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into file + ''' Serializes current FCFCDDBodyCustomsValueVendeeAddress object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -13721,15 +13721,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeAddress object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueVendeeAddress object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' Output FCFCDDBodyCustomsValueVendeeAddress object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + obj = CType(Nothing, FCFCDDBodyCustomsValueVendeeAddress) Try obj = LoadFromFile(fileName) Return True @@ -13739,12 +13739,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueVendeeAddress) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendeeAddress + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueVendeeAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -13770,7 +13770,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueAffiliation + Partial Public Class FCFCDDBodyCustomsValueAffiliation #Region "Private fields" Private _type As String @@ -13803,7 +13803,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueAffiliation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueAffiliation)) End If Return sSerializer End Get @@ -13811,7 +13811,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueAffiliation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -13838,15 +13838,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueAffiliation object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueAffiliation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' Output FCFCDDBodyCustomsValueAffiliation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + obj = CType(Nothing, FCFCDDBodyCustomsValueAffiliation) Try obj = Deserialize(input) Return True @@ -13856,16 +13856,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueAffiliation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueAffiliation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueAffiliation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueAffiliation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueAffiliation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -13873,13 +13873,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueAffiliation - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueAffiliation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueAffiliation + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueAffiliation) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into file + ''' Serializes current FCFCDDBodyCustomsValueAffiliation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -13911,15 +13911,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueAffiliation object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueAffiliation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' Output FCFCDDBodyCustomsValueAffiliation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + obj = CType(Nothing, FCFCDDBodyCustomsValueAffiliation) Try obj = LoadFromFile(fileName) Return True @@ -13929,12 +13929,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueAffiliation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueAffiliation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueAffiliation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -13960,7 +13960,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueRestrictionOrCondition + Partial Public Class FCFCDDBodyCustomsValueRestrictionOrCondition #Region "Private fields" Private _restrictionFlag As String @@ -14005,7 +14005,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueRestrictionOrCondition)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueRestrictionOrCondition)) End If Return sSerializer End Get @@ -14013,7 +14013,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueRestrictionOrCondition object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -14040,15 +14040,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueRestrictionOrCondition object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' Output FCFCDDBodyCustomsValueRestrictionOrCondition object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + obj = CType(Nothing, FCFCDDBodyCustomsValueRestrictionOrCondition) Try obj = Deserialize(input) Return True @@ -14058,16 +14058,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueRestrictionOrCondition) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueRestrictionOrCondition + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueRestrictionOrCondition Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueRestrictionOrCondition) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueRestrictionOrCondition) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -14075,13 +14075,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueRestrictionOrCondition - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueRestrictionOrCondition) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueRestrictionOrCondition + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueRestrictionOrCondition) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into file + ''' Serializes current FCFCDDBodyCustomsValueRestrictionOrCondition object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -14113,15 +14113,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueRestrictionOrCondition object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' Output FCFCDDBodyCustomsValueRestrictionOrCondition object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + obj = CType(Nothing, FCFCDDBodyCustomsValueRestrictionOrCondition) Try obj = LoadFromFile(fileName) Return True @@ -14131,12 +14131,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueRestrictionOrCondition) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueRestrictionOrCondition + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueRestrictionOrCondition Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -14162,7 +14162,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueLicenseFee + Partial Public Class FCFCDDBodyCustomsValueLicenseFee #Region "Private fields" Private _licenseFeeFlag As String @@ -14195,7 +14195,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueLicenseFee)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueLicenseFee)) End If Return sSerializer End Get @@ -14203,7 +14203,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueLicenseFee object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -14230,15 +14230,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueLicenseFee object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueLicenseFee object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' Output FCFCDDBodyCustomsValueLicenseFee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + obj = CType(Nothing, FCFCDDBodyCustomsValueLicenseFee) Try obj = Deserialize(input) Return True @@ -14248,16 +14248,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueLicenseFee) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueLicenseFee + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueLicenseFee Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueLicenseFee) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueLicenseFee) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -14265,13 +14265,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueLicenseFee - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueLicenseFee) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueLicenseFee + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueLicenseFee) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into file + ''' Serializes current FCFCDDBodyCustomsValueLicenseFee object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -14303,15 +14303,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueLicenseFee object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueLicenseFee object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' Output FCFCDDBodyCustomsValueLicenseFee object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + obj = CType(Nothing, FCFCDDBodyCustomsValueLicenseFee) Try obj = LoadFromFile(fileName) Return True @@ -14321,12 +14321,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueLicenseFee) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueLicenseFee + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueLicenseFee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -14352,7 +14352,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyCustomsValueResale + Partial Public Class FCFCDDBodyCustomsValueResale #Region "Private fields" Private _resaleFlag As String @@ -14385,7 +14385,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueResale)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyCustomsValueResale)) End If Return sSerializer End Get @@ -14393,7 +14393,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyCustomsValueResale object into an XML string + ''' Serializes current FCFCDDBodyCustomsValueResale object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -14420,15 +14420,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueResale object + ''' Deserializes workflow markup into an FCFCDDBodyCustomsValueResale object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyCustomsValueResale object + ''' Output FCFCDDBodyCustomsValueResale object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + obj = CType(Nothing, FCFCDDBodyCustomsValueResale) Try obj = Deserialize(input) Return True @@ -14438,16 +14438,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyCustomsValueResale) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueResale + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyCustomsValueResale Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueResale) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyCustomsValueResale) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -14455,13 +14455,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueResale - Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueResale) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyCustomsValueResale + Return CType(Serializer.Deserialize(s), FCFCDDBodyCustomsValueResale) End Function #End Region ''' - ''' Serializes current FCFCDCBodyCustomsValueResale object into file + ''' Serializes current FCFCDDBodyCustomsValueResale object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -14493,15 +14493,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueResale object + ''' Deserializes xml markup from file into an FCFCDDBodyCustomsValueResale object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyCustomsValueResale object + ''' Output FCFCDDBodyCustomsValueResale object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + obj = CType(Nothing, FCFCDDBodyCustomsValueResale) Try obj = LoadFromFile(fileName) Return True @@ -14511,12 +14511,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueResale) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyCustomsValueResale) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueResale + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyCustomsValueResale Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -14542,10 +14542,10 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyDocument + Partial Public Class FCFCDDBodyDocument #Region "Private fields" - Private _division As FCFCDCBodyDocumentDivision + Private _division As FCFCDDBodyDocumentDivision Private _type As String @@ -14556,7 +14556,7 @@ Namespace FCFCDC Private Shared sSerializer As XmlSerializer #End Region - Public Property Division() As FCFCDCBodyDocumentDivision + Public Property Division() As FCFCDDBodyDocumentDivision Get Return Me._division End Get @@ -14598,7 +14598,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDocument)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyDocument)) End If Return sSerializer End Get @@ -14606,7 +14606,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyDocument object into an XML string + ''' Serializes current FCFCDDBodyDocument object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -14633,15 +14633,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyDocument object + ''' Deserializes workflow markup into an FCFCDDBodyDocument object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyDocument object + ''' Output FCFCDDBodyDocument object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyDocument, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyDocument) + obj = CType(Nothing, FCFCDDBodyDocument) Try obj = Deserialize(input) Return True @@ -14651,16 +14651,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyDocument) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDocument + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyDocument Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDocument) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyDocument) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -14668,13 +14668,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDocument - Return CType(Serializer.Deserialize(s), FCFCDCBodyDocument) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyDocument + Return CType(Serializer.Deserialize(s), FCFCDDBodyDocument) End Function #End Region ''' - ''' Serializes current FCFCDCBodyDocument object into file + ''' Serializes current FCFCDDBodyDocument object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -14706,15 +14706,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyDocument object + ''' Deserializes xml markup from file into an FCFCDDBodyDocument object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyDocument object + ''' Output FCFCDDBodyDocument object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyDocument, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyDocument) + obj = CType(Nothing, FCFCDDBodyDocument) Try obj = LoadFromFile(fileName) Return True @@ -14724,12 +14724,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDocument) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyDocument) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyDocument + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyDocument Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -14753,7 +14753,7 @@ Namespace FCFCDC - Public Enum FCFCDCBodyDocumentDivision + Public Enum FCFCDDBodyDocumentDivision ''' @@ -14765,14 +14765,12 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItem + Partial Public Class FCFCDDBodyGoodsItem #Region "Private fields" Private _sequenceNumber As String - Private _procedure As FCFCDCBodyGoodsItemProcedure - - Private _eUCode As String + Private _procedure As FCFCDDBodyGoodsItemProcedure Private _cessionManagementFlag As String @@ -14790,45 +14788,48 @@ Namespace FCFCDC Private _tobaccoRevenueStampNumber As String - Private _commodityCode As FCFCDCBodyGoodsItemCommodityCode + Private _commodityCode As FCFCDDBodyGoodsItemCommodityCode - Private _supplementaryCodes As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + Private _additionalProcedure As List(Of FCFCDDBodyGoodsItemAdditionalProcedure) - Private _package As FCFCDCBodyGoodsItemPackage + Private _supplementaryCodes As List(Of FCFCDDBodyGoodsItemSupplementaryCodes) - Private _foreignTradeStatistics As FCFCDCBodyGoodsItemForeignTradeStatistics + Private _package As FCFCDDBodyGoodsItemPackage - Private _customsValue As FCFCDCBodyGoodsItemCustomsValue + Private _foreignTradeStatistics As FCFCDDBodyGoodsItemForeignTradeStatistics - Private _assessment As FCFCDCBodyGoodsItemAssessment + Private _customsValue As FCFCDDBodyGoodsItemCustomsValue - Private _exciseDuty As List(Of FCFCDCBodyGoodsItemExciseDuty) + Private _assessment As FCFCDDBodyGoodsItemAssessment - Private _preferentialTreatment As FCFCDCBodyGoodsItemPreferentialTreatment + Private _exciseDuty As List(Of FCFCDDBodyGoodsItemExciseDuty) - Private _outwardProcessingReduction As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + Private _preferentialTreatment As FCFCDDBodyGoodsItemPreferentialTreatment - Private _specialCase As List(Of FCFCDCBodyGoodsItemSpecialCase) + Private _outwardProcessingReduction As List(Of FCFCDDBodyGoodsItemOutwardProcessingReduction) - Private _document As List(Of FCFCDCBodyGoodsItemDocument) + Private _specialCase As List(Of FCFCDDBodyGoodsItemSpecialCase) + + Private _document As List(Of FCFCDDBodyGoodsItemDocument) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._document = New List(Of FCFCDCBodyGoodsItemDocument)() - Me._specialCase = New List(Of FCFCDCBodyGoodsItemSpecialCase)() - Me._outwardProcessingReduction = New List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction)() - Me._preferentialTreatment = New FCFCDCBodyGoodsItemPreferentialTreatment() - Me._exciseDuty = New List(Of FCFCDCBodyGoodsItemExciseDuty)() - Me._assessment = New FCFCDCBodyGoodsItemAssessment() - Me._customsValue = New FCFCDCBodyGoodsItemCustomsValue() - Me._foreignTradeStatistics = New FCFCDCBodyGoodsItemForeignTradeStatistics() - Me._package = New FCFCDCBodyGoodsItemPackage() - Me._supplementaryCodes = New List(Of FCFCDCBodyGoodsItemSupplementaryCodes)() - Me._commodityCode = New FCFCDCBodyGoodsItemCommodityCode() - Me._procedure = New FCFCDCBodyGoodsItemProcedure() + Me._document = New List(Of FCFCDDBodyGoodsItemDocument)() + Me._specialCase = New List(Of FCFCDDBodyGoodsItemSpecialCase)() + Me._outwardProcessingReduction = New List(Of FCFCDDBodyGoodsItemOutwardProcessingReduction)() + Me._preferentialTreatment = New FCFCDDBodyGoodsItemPreferentialTreatment() + Me._exciseDuty = New List(Of FCFCDDBodyGoodsItemExciseDuty)() + Me._assessment = New FCFCDDBodyGoodsItemAssessment() + Me._customsValue = New FCFCDDBodyGoodsItemCustomsValue() + Me._foreignTradeStatistics = New FCFCDDBodyGoodsItemForeignTradeStatistics() + Me._package = New FCFCDDBodyGoodsItemPackage() + Me._supplementaryCodes = New List(Of FCFCDDBodyGoodsItemSupplementaryCodes)() + Me._additionalProcedure = New List(Of FCFCDDBodyGoodsItemAdditionalProcedure)() + Me._commodityCode = New FCFCDDBodyGoodsItemCommodityCode() + Me._procedure = New FCFCDDBodyGoodsItemProcedure() End Sub @@ -14841,7 +14842,7 @@ Namespace FCFCDC End Set End Property - Public Property Procedure() As FCFCDCBodyGoodsItemProcedure + Public Property Procedure() As FCFCDDBodyGoodsItemProcedure Get Return Me._procedure End Get @@ -14850,16 +14851,6 @@ Namespace FCFCDC End Set End Property - - Public Property EUCode() As String - Get - Return Me._eUCode - End Get - Set - Me._eUCode = Value - End Set - End Property - Public Property CessionManagementFlag() As String Get @@ -14938,7 +14929,7 @@ Namespace FCFCDC End Set End Property - Public Property CommodityCode() As FCFCDCBodyGoodsItemCommodityCode + Public Property CommodityCode() As FCFCDDBodyGoodsItemCommodityCode Get Return Me._commodityCode End Get @@ -14947,8 +14938,18 @@ Namespace FCFCDC End Set End Property + + Public Property AdditionalProcedure() As List(Of FCFCDDBodyGoodsItemAdditionalProcedure) + Get + Return Me._additionalProcedure + End Get + Set + Me._additionalProcedure = Value + End Set + End Property + - Public Property SupplementaryCodes() As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + Public Property SupplementaryCodes() As List(Of FCFCDDBodyGoodsItemSupplementaryCodes) Get Return Me._supplementaryCodes End Get @@ -14957,7 +14958,7 @@ Namespace FCFCDC End Set End Property - Public Property Package() As FCFCDCBodyGoodsItemPackage + Public Property Package() As FCFCDDBodyGoodsItemPackage Get Return Me._package End Get @@ -14966,7 +14967,7 @@ Namespace FCFCDC End Set End Property - Public Property ForeignTradeStatistics() As FCFCDCBodyGoodsItemForeignTradeStatistics + Public Property ForeignTradeStatistics() As FCFCDDBodyGoodsItemForeignTradeStatistics Get Return Me._foreignTradeStatistics End Get @@ -14975,7 +14976,7 @@ Namespace FCFCDC End Set End Property - Public Property CustomsValue() As FCFCDCBodyGoodsItemCustomsValue + Public Property CustomsValue() As FCFCDDBodyGoodsItemCustomsValue Get Return Me._customsValue End Get @@ -14984,7 +14985,7 @@ Namespace FCFCDC End Set End Property - Public Property Assessment() As FCFCDCBodyGoodsItemAssessment + Public Property Assessment() As FCFCDDBodyGoodsItemAssessment Get Return Me._assessment End Get @@ -14994,7 +14995,7 @@ Namespace FCFCDC End Property - Public Property ExciseDuty() As List(Of FCFCDCBodyGoodsItemExciseDuty) + Public Property ExciseDuty() As List(Of FCFCDDBodyGoodsItemExciseDuty) Get Return Me._exciseDuty End Get @@ -15003,7 +15004,7 @@ Namespace FCFCDC End Set End Property - Public Property PreferentialTreatment() As FCFCDCBodyGoodsItemPreferentialTreatment + Public Property PreferentialTreatment() As FCFCDDBodyGoodsItemPreferentialTreatment Get Return Me._preferentialTreatment End Get @@ -15013,7 +15014,7 @@ Namespace FCFCDC End Property - Public Property OutwardProcessingReduction() As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + Public Property OutwardProcessingReduction() As List(Of FCFCDDBodyGoodsItemOutwardProcessingReduction) Get Return Me._outwardProcessingReduction End Get @@ -15023,7 +15024,7 @@ Namespace FCFCDC End Property - Public Property SpecialCase() As List(Of FCFCDCBodyGoodsItemSpecialCase) + Public Property SpecialCase() As List(Of FCFCDDBodyGoodsItemSpecialCase) Get Return Me._specialCase End Get @@ -15033,7 +15034,7 @@ Namespace FCFCDC End Property - Public Property Document() As List(Of FCFCDCBodyGoodsItemDocument) + Public Property Document() As List(Of FCFCDDBodyGoodsItemDocument) Get Return Me._document End Get @@ -15045,7 +15046,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItem)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItem)) End If Return sSerializer End Get @@ -15053,7 +15054,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItem object into an XML string + ''' Serializes current FCFCDDBodyGoodsItem object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -15080,15 +15081,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItem object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItem object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItem object + ''' Output FCFCDDBodyGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItem) + obj = CType(Nothing, FCFCDDBodyGoodsItem) Try obj = Deserialize(input) Return True @@ -15098,16 +15099,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItem + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItem) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItem) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -15115,13 +15116,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItem - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItem) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItem) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItem object into file + ''' Serializes current FCFCDDBodyGoodsItem object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -15153,15 +15154,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItem object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItem object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItem object + ''' Output FCFCDDBodyGoodsItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItem) + obj = CType(Nothing, FCFCDDBodyGoodsItem) Try obj = LoadFromFile(fileName) Return True @@ -15171,12 +15172,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItem) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItem) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItem + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -15202,7 +15203,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemProcedure + Partial Public Class FCFCDDBodyGoodsItemProcedure #Region "Private fields" Private _requestedPreviousProcedure As String @@ -15223,7 +15224,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemProcedure)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemProcedure)) End If Return sSerializer End Get @@ -15231,7 +15232,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemProcedure object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemProcedure object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -15258,15 +15259,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemProcedure object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemProcedure object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemProcedure object + ''' Output FCFCDDBodyGoodsItemProcedure object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + obj = CType(Nothing, FCFCDDBodyGoodsItemProcedure) Try obj = Deserialize(input) Return True @@ -15276,16 +15277,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemProcedure) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemProcedure + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemProcedure Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemProcedure) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemProcedure) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -15293,13 +15294,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemProcedure - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemProcedure) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemProcedure + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemProcedure) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemProcedure object into file + ''' Serializes current FCFCDDBodyGoodsItemProcedure object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -15331,15 +15332,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemProcedure object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemProcedure object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemProcedure object + ''' Output FCFCDDBodyGoodsItemProcedure object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + obj = CType(Nothing, FCFCDDBodyGoodsItemProcedure) Try obj = LoadFromFile(fileName) Return True @@ -15349,12 +15350,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemProcedure) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemProcedure) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemProcedure + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemProcedure Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -15380,7 +15381,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCommodityCode + Partial Public Class FCFCDDBodyGoodsItemCommodityCode #Region "Private fields" Private _commodityCode As String @@ -15401,7 +15402,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCommodityCode)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCommodityCode)) End If Return sSerializer End Get @@ -15409,7 +15410,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCommodityCode object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -15436,15 +15437,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCommodityCode object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCommodityCode object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' Output FCFCDDBodyGoodsItemCommodityCode object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + obj = CType(Nothing, FCFCDDBodyGoodsItemCommodityCode) Try obj = Deserialize(input) Return True @@ -15454,16 +15455,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCommodityCode) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCommodityCode + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCommodityCode Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCommodityCode) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCommodityCode) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -15471,13 +15472,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCommodityCode - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCommodityCode) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCommodityCode) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into file + ''' Serializes current FCFCDDBodyGoodsItemCommodityCode object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -15509,15 +15510,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCommodityCode object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCommodityCode object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' Output FCFCDDBodyGoodsItemCommodityCode object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + obj = CType(Nothing, FCFCDDBodyGoodsItemCommodityCode) Try obj = LoadFromFile(fileName) Return True @@ -15527,12 +15528,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCommodityCode) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCommodityCode + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCommodityCode Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -15558,7 +15559,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemSupplementaryCodes + Partial Public Class FCFCDDBodyGoodsItemAdditionalProcedure #Region "Private fields" Private _code As String @@ -15579,7 +15580,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSupplementaryCodes)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemAdditionalProcedure)) End If Return sSerializer End Get @@ -15587,7 +15588,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemAdditionalProcedure object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -15614,15 +15615,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemAdditionalProcedure object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' Output FCFCDDBodyGoodsItemAdditionalProcedure object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + obj = CType(Nothing, FCFCDDBodyGoodsItemAdditionalProcedure) Try obj = Deserialize(input) Return True @@ -15632,16 +15633,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAdditionalProcedure) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSupplementaryCodes + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemAdditionalProcedure Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSupplementaryCodes) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemAdditionalProcedure) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -15649,13 +15650,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSupplementaryCodes - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSupplementaryCodes) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemAdditionalProcedure + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemAdditionalProcedure) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into file + ''' Serializes current FCFCDDBodyGoodsItemAdditionalProcedure object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -15687,15 +15688,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemAdditionalProcedure object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' Output FCFCDDBodyGoodsItemAdditionalProcedure object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + obj = CType(Nothing, FCFCDDBodyGoodsItemAdditionalProcedure) Try obj = LoadFromFile(fileName) Return True @@ -15705,12 +15706,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAdditionalProcedure) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemSupplementaryCodes + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemAdditionalProcedure Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -15736,7 +15737,185 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemPackage + Partial Public Class FCFCDDBodyGoodsItemSupplementaryCodes + +#Region "Private fields" + Private _code As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemSupplementaryCodes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDDBodyGoodsItemSupplementaryCodes object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemSupplementaryCodes object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDDBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDDBodyGoodsItemSupplementaryCodes) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemSupplementaryCodes) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemSupplementaryCodes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemSupplementaryCodes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemSupplementaryCodes + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemSupplementaryCodes) + End Function +#End Region + + ''' + ''' Serializes current FCFCDDBodyGoodsItemSupplementaryCodes object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemSupplementaryCodes object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDDBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDDBodyGoodsItemSupplementaryCodes) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemSupplementaryCodes) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemSupplementaryCodes + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDDBodyGoodsItemPackage #Region "Private fields" Private _kind As String @@ -15781,7 +15960,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPackage)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemPackage)) End If Return sSerializer End Get @@ -15789,7 +15968,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemPackage object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemPackage object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -15816,15 +15995,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPackage object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemPackage object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemPackage object + ''' Output FCFCDDBodyGoodsItemPackage object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + obj = CType(Nothing, FCFCDDBodyGoodsItemPackage) Try obj = Deserialize(input) Return True @@ -15834,16 +16013,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPackage) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPackage + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemPackage Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPackage) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemPackage) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -15851,13 +16030,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPackage - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPackage) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemPackage + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemPackage) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemPackage object into file + ''' Serializes current FCFCDDBodyGoodsItemPackage object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -15889,15 +16068,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPackage object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemPackage object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemPackage object + ''' Output FCFCDDBodyGoodsItemPackage object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + obj = CType(Nothing, FCFCDDBodyGoodsItemPackage) Try obj = LoadFromFile(fileName) Return True @@ -15907,12 +16086,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPackage) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPackage) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPackage + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemPackage Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -15938,21 +16117,21 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatistics + Partial Public Class FCFCDDBodyGoodsItemForeignTradeStatistics #Region "Private fields" Private _quantity As String Private _grossMassMeasure As Decimal - Private _amount As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Private _amount As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._amount = New FCFCDCBodyGoodsItemForeignTradeStatisticsAmount() + Me._amount = New FCFCDDBodyGoodsItemForeignTradeStatisticsAmount() End Sub @@ -15974,7 +16153,7 @@ Namespace FCFCDC End Set End Property - Public Property Amount() As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Public Property Amount() As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount Get Return Me._amount End Get @@ -15986,7 +16165,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatistics)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemForeignTradeStatistics)) End If Return sSerializer End Get @@ -15994,7 +16173,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemForeignTradeStatistics object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -16021,15 +16200,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemForeignTradeStatistics object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' Output FCFCDDBodyGoodsItemForeignTradeStatistics object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + obj = CType(Nothing, FCFCDDBodyGoodsItemForeignTradeStatistics) Try obj = Deserialize(input) Return True @@ -16039,16 +16218,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatistics + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemForeignTradeStatistics Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatistics) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemForeignTradeStatistics) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -16056,13 +16235,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatistics - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatistics) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemForeignTradeStatistics) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into file + ''' Serializes current FCFCDDBodyGoodsItemForeignTradeStatistics object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -16094,15 +16273,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemForeignTradeStatistics object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' Output FCFCDDBodyGoodsItemForeignTradeStatistics object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + obj = CType(Nothing, FCFCDDBodyGoodsItemForeignTradeStatistics) Try obj = LoadFromFile(fileName) Return True @@ -16112,12 +16291,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemForeignTradeStatistics + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemForeignTradeStatistics Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -16143,7 +16322,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Partial Public Class FCFCDDBodyGoodsItemForeignTradeStatisticsAmount #Region "Private fields" Private _quantity As Decimal @@ -16187,7 +16366,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatisticsAmount)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemForeignTradeStatisticsAmount)) End If Return sSerializer End Get @@ -16195,7 +16374,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -16222,15 +16401,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' Output FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) Try obj = Deserialize(input) Return True @@ -16240,16 +16419,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -16257,13 +16436,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into file + ''' Serializes current FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -16295,15 +16474,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' Output FCFCDDBodyGoodsItemForeignTradeStatisticsAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) Try obj = LoadFromFile(fileName) Return True @@ -16313,12 +16492,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemForeignTradeStatisticsAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -16344,7 +16523,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCustomsValue + Partial Public Class FCFCDDBodyGoodsItemCustomsValue #Region "Private fields" Private _departureAirport As String @@ -16353,23 +16532,23 @@ Namespace FCFCDC Private _additionDeductionDescription As String - Private _netPrice As FCFCDCBodyGoodsItemCustomsValueNetPrice + Private _netPrice As FCFCDDBodyGoodsItemCustomsValueNetPrice - Private _indirectPayment As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Private _indirectPayment As FCFCDDBodyGoodsItemCustomsValueIndirectPayment - Private _airFreightCosts As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Private _airFreightCosts As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts - Private _additionDeduction As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Private _additionDeduction As List(Of FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._additionDeduction = New List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)() - Me._airFreightCosts = New FCFCDCBodyGoodsItemCustomsValueAirFreightCosts() - Me._indirectPayment = New FCFCDCBodyGoodsItemCustomsValueIndirectPayment() - Me._netPrice = New FCFCDCBodyGoodsItemCustomsValueNetPrice() + Me._additionDeduction = New List(Of FCFCDDBodyGoodsItemCustomsValueAdditionDeduction)() + Me._airFreightCosts = New FCFCDDBodyGoodsItemCustomsValueAirFreightCosts() + Me._indirectPayment = New FCFCDDBodyGoodsItemCustomsValueIndirectPayment() + Me._netPrice = New FCFCDDBodyGoodsItemCustomsValueNetPrice() End Sub @@ -16402,7 +16581,7 @@ Namespace FCFCDC End Set End Property - Public Property NetPrice() As FCFCDCBodyGoodsItemCustomsValueNetPrice + Public Property NetPrice() As FCFCDDBodyGoodsItemCustomsValueNetPrice Get Return Me._netPrice End Get @@ -16411,7 +16590,7 @@ Namespace FCFCDC End Set End Property - Public Property IndirectPayment() As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Public Property IndirectPayment() As FCFCDDBodyGoodsItemCustomsValueIndirectPayment Get Return Me._indirectPayment End Get @@ -16420,7 +16599,7 @@ Namespace FCFCDC End Set End Property - Public Property AirFreightCosts() As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Public Property AirFreightCosts() As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts Get Return Me._airFreightCosts End Get @@ -16430,7 +16609,7 @@ Namespace FCFCDC End Property - Public Property AdditionDeduction() As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Public Property AdditionDeduction() As List(Of FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) Get Return Me._additionDeduction End Get @@ -16442,7 +16621,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValue)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCustomsValue)) End If Return sSerializer End Get @@ -16450,7 +16629,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCustomsValue object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -16477,15 +16656,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValue object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCustomsValue object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' Output FCFCDDBodyGoodsItemCustomsValue object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValue) Try obj = Deserialize(input) Return True @@ -16495,16 +16674,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValue) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValue + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCustomsValue Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValue) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCustomsValue) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -16512,13 +16691,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValue - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValue) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCustomsValue) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into file + ''' Serializes current FCFCDDBodyGoodsItemCustomsValue object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -16550,15 +16729,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValue object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCustomsValue object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' Output FCFCDDBodyGoodsItemCustomsValue object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValue) Try obj = LoadFromFile(fileName) Return True @@ -16568,12 +16747,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValue) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValue + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCustomsValue Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -16599,7 +16778,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCustomsValueNetPrice + Partial Public Class FCFCDDBodyGoodsItemCustomsValueNetPrice #Region "Private fields" Private _value As Decimal @@ -16654,7 +16833,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueNetPrice)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCustomsValueNetPrice)) End If Return sSerializer End Get @@ -16662,7 +16841,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueNetPrice object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -16689,15 +16868,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCustomsValueNetPrice object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' Output FCFCDDBodyGoodsItemCustomsValueNetPrice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueNetPrice) Try obj = Deserialize(input) Return True @@ -16707,16 +16886,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueNetPrice) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCustomsValueNetPrice Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueNetPrice) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCustomsValueNetPrice) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -16724,13 +16903,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueNetPrice - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueNetPrice) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCustomsValueNetPrice + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCustomsValueNetPrice) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into file + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueNetPrice object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -16762,15 +16941,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCustomsValueNetPrice object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' Output FCFCDDBodyGoodsItemCustomsValueNetPrice object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueNetPrice) Try obj = LoadFromFile(fileName) Return True @@ -16780,12 +16959,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueNetPrice) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCustomsValueNetPrice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -16811,7 +16990,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Partial Public Class FCFCDDBodyGoodsItemCustomsValueIndirectPayment #Region "Private fields" Private _value As Decimal @@ -16866,7 +17045,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueIndirectPayment)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCustomsValueIndirectPayment)) End If Return sSerializer End Get @@ -16874,7 +17053,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueIndirectPayment object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -16901,15 +17080,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCustomsValueIndirectPayment object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' Output FCFCDDBodyGoodsItemCustomsValueIndirectPayment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueIndirectPayment) Try obj = Deserialize(input) Return True @@ -16919,16 +17098,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueIndirectPayment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCustomsValueIndirectPayment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCustomsValueIndirectPayment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -16936,13 +17115,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCustomsValueIndirectPayment + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCustomsValueIndirectPayment) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into file + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueIndirectPayment object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -16974,15 +17153,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCustomsValueIndirectPayment object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' Output FCFCDDBodyGoodsItemCustomsValueIndirectPayment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueIndirectPayment) Try obj = LoadFromFile(fileName) Return True @@ -16992,12 +17171,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueIndirectPayment) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCustomsValueIndirectPayment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -17023,7 +17202,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Partial Public Class FCFCDDBodyGoodsItemCustomsValueAirFreightCosts #Region "Private fields" Private _value As Decimal @@ -17102,7 +17281,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAirFreightCosts)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCustomsValueAirFreightCosts)) End If Return sSerializer End Get @@ -17110,7 +17289,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -17137,15 +17316,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' Output FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) Try obj = Deserialize(input) Return True @@ -17155,16 +17334,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -17172,13 +17351,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into file + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -17210,15 +17389,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' Output FCFCDDBodyGoodsItemCustomsValueAirFreightCosts object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) Try obj = LoadFromFile(fileName) Return True @@ -17228,12 +17407,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCustomsValueAirFreightCosts Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -17259,7 +17438,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Partial Public Class FCFCDDBodyGoodsItemCustomsValueAdditionDeduction #Region "Private fields" Private _type As String @@ -17361,7 +17540,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemCustomsValueAdditionDeduction)) End If Return sSerializer End Get @@ -17369,7 +17548,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -17396,15 +17575,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' Output FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) Try obj = Deserialize(input) Return True @@ -17414,16 +17593,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -17431,13 +17610,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into file + ''' Serializes current FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -17469,15 +17648,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' Output FCFCDDBodyGoodsItemCustomsValueAdditionDeduction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + obj = CType(Nothing, FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) Try obj = LoadFromFile(fileName) Return True @@ -17487,12 +17666,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemCustomsValueAdditionDeduction Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -17518,7 +17697,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemAssessment + Partial Public Class FCFCDDBodyGoodsItemAssessment #Region "Private fields" Private _customsValue As Decimal @@ -17527,20 +17706,20 @@ Namespace FCFCDC Private _taxCosts As Decimal - Private _amount As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + Private _amount As List(Of FCFCDDBodyGoodsItemAssessmentAmount) - Private _specificRate As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + Private _specificRate As List(Of FCFCDDBodyGoodsItemAssessmentSpecificRate) - Private _contentInformation As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + Private _contentInformation As List(Of FCFCDDBodyGoodsItemAssessmentContentInformation) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._contentInformation = New List(Of FCFCDCBodyGoodsItemAssessmentContentInformation)() - Me._specificRate = New List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate)() - Me._amount = New List(Of FCFCDCBodyGoodsItemAssessmentAmount)() + Me._contentInformation = New List(Of FCFCDDBodyGoodsItemAssessmentContentInformation)() + Me._specificRate = New List(Of FCFCDDBodyGoodsItemAssessmentSpecificRate)() + Me._amount = New List(Of FCFCDDBodyGoodsItemAssessmentAmount)() End Sub Public Property CustomsValue() As Decimal @@ -17571,7 +17750,7 @@ Namespace FCFCDC End Property - Public Property Amount() As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + Public Property Amount() As List(Of FCFCDDBodyGoodsItemAssessmentAmount) Get Return Me._amount End Get @@ -17581,7 +17760,7 @@ Namespace FCFCDC End Property - Public Property SpecificRate() As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + Public Property SpecificRate() As List(Of FCFCDDBodyGoodsItemAssessmentSpecificRate) Get Return Me._specificRate End Get @@ -17591,7 +17770,7 @@ Namespace FCFCDC End Property - Public Property ContentInformation() As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + Public Property ContentInformation() As List(Of FCFCDDBodyGoodsItemAssessmentContentInformation) Get Return Me._contentInformation End Get @@ -17603,7 +17782,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessment)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemAssessment)) End If Return sSerializer End Get @@ -17611,7 +17790,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessment object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemAssessment object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -17638,15 +17817,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessment object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemAssessment object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemAssessment object + ''' Output FCFCDDBodyGoodsItemAssessment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessment) Try obj = Deserialize(input) Return True @@ -17656,16 +17835,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessment + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemAssessment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessment) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemAssessment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -17673,13 +17852,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessment - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessment) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemAssessment + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemAssessment) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessment object into file + ''' Serializes current FCFCDDBodyGoodsItemAssessment object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -17711,15 +17890,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessment object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemAssessment object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemAssessment object + ''' Output FCFCDDBodyGoodsItemAssessment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessment) Try obj = LoadFromFile(fileName) Return True @@ -17729,12 +17908,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessment) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessment) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessment + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemAssessment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -17760,7 +17939,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemAssessmentAmount + Partial Public Class FCFCDDBodyGoodsItemAssessmentAmount #Region "Private fields" Private _quantity As Decimal @@ -17804,7 +17983,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentAmount)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemAssessmentAmount)) End If Return sSerializer End Get @@ -17812,7 +17991,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemAssessmentAmount object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -17839,15 +18018,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemAssessmentAmount object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' Output FCFCDDBodyGoodsItemAssessmentAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentAmount) Try obj = Deserialize(input) Return True @@ -17857,16 +18036,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentAmount) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentAmount + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemAssessmentAmount Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentAmount) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemAssessmentAmount) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -17874,13 +18053,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentAmount - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentAmount) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemAssessmentAmount + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemAssessmentAmount) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into file + ''' Serializes current FCFCDDBodyGoodsItemAssessmentAmount object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -17912,15 +18091,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemAssessmentAmount object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' Output FCFCDDBodyGoodsItemAssessmentAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentAmount) Try obj = LoadFromFile(fileName) Return True @@ -17930,12 +18109,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentAmount) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentAmount + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemAssessmentAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -17961,7 +18140,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemAssessmentSpecificRate + Partial Public Class FCFCDDBodyGoodsItemAssessmentSpecificRate #Region "Private fields" Private _type As String @@ -17993,7 +18172,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentSpecificRate)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemAssessmentSpecificRate)) End If Return sSerializer End Get @@ -18001,7 +18180,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemAssessmentSpecificRate object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -18028,15 +18207,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemAssessmentSpecificRate object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' Output FCFCDDBodyGoodsItemAssessmentSpecificRate object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentSpecificRate) Try obj = Deserialize(input) Return True @@ -18046,16 +18225,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentSpecificRate) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemAssessmentSpecificRate Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentSpecificRate) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemAssessmentSpecificRate) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -18063,13 +18242,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentSpecificRate - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentSpecificRate) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemAssessmentSpecificRate + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemAssessmentSpecificRate) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into file + ''' Serializes current FCFCDDBodyGoodsItemAssessmentSpecificRate object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -18101,15 +18280,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemAssessmentSpecificRate object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' Output FCFCDDBodyGoodsItemAssessmentSpecificRate object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentSpecificRate) Try obj = LoadFromFile(fileName) Return True @@ -18119,12 +18298,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentSpecificRate) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemAssessmentSpecificRate Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -18150,7 +18329,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemAssessmentContentInformation + Partial Public Class FCFCDDBodyGoodsItemAssessmentContentInformation #Region "Private fields" Private _type As String @@ -18183,7 +18362,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentContentInformation)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemAssessmentContentInformation)) End If Return sSerializer End Get @@ -18191,7 +18370,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemAssessmentContentInformation object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -18218,15 +18397,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemAssessmentContentInformation object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' Output FCFCDDBodyGoodsItemAssessmentContentInformation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentContentInformation) Try obj = Deserialize(input) Return True @@ -18236,16 +18415,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentContentInformation) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentContentInformation + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemAssessmentContentInformation Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentContentInformation) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemAssessmentContentInformation) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -18253,13 +18432,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentContentInformation - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentContentInformation) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemAssessmentContentInformation + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemAssessmentContentInformation) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into file + ''' Serializes current FCFCDDBodyGoodsItemAssessmentContentInformation object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -18291,15 +18470,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemAssessmentContentInformation object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' Output FCFCDDBodyGoodsItemAssessmentContentInformation object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + obj = CType(Nothing, FCFCDDBodyGoodsItemAssessmentContentInformation) Try obj = LoadFromFile(fileName) Return True @@ -18309,12 +18488,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemAssessmentContentInformation) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentContentInformation + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemAssessmentContentInformation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -18340,7 +18519,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemExciseDuty + Partial Public Class FCFCDDBodyGoodsItemExciseDuty #Region "Private fields" Private _code As String @@ -18349,14 +18528,14 @@ Namespace FCFCDC Private _value As Decimal - Private _amount As FCFCDCBodyGoodsItemExciseDutyAmount + Private _amount As FCFCDDBodyGoodsItemExciseDutyAmount Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._amount = New FCFCDCBodyGoodsItemExciseDutyAmount() + Me._amount = New FCFCDDBodyGoodsItemExciseDutyAmount() End Sub @@ -18388,7 +18567,7 @@ Namespace FCFCDC End Set End Property - Public Property Amount() As FCFCDCBodyGoodsItemExciseDutyAmount + Public Property Amount() As FCFCDDBodyGoodsItemExciseDutyAmount Get Return Me._amount End Get @@ -18400,7 +18579,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDuty)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemExciseDuty)) End If Return sSerializer End Get @@ -18408,7 +18587,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemExciseDuty object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -18435,15 +18614,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDuty object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemExciseDuty object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' Output FCFCDDBodyGoodsItemExciseDuty object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + obj = CType(Nothing, FCFCDDBodyGoodsItemExciseDuty) Try obj = Deserialize(input) Return True @@ -18453,16 +18632,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemExciseDuty) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDuty + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemExciseDuty Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDuty) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemExciseDuty) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -18470,13 +18649,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDuty - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDuty) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemExciseDuty + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemExciseDuty) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into file + ''' Serializes current FCFCDDBodyGoodsItemExciseDuty object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -18508,15 +18687,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDuty object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemExciseDuty object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' Output FCFCDDBodyGoodsItemExciseDuty object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + obj = CType(Nothing, FCFCDDBodyGoodsItemExciseDuty) Try obj = LoadFromFile(fileName) Return True @@ -18526,12 +18705,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemExciseDuty) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemExciseDuty + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemExciseDuty Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -18557,7 +18736,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemExciseDutyAmount + Partial Public Class FCFCDDBodyGoodsItemExciseDutyAmount #Region "Private fields" Private _quantity As Decimal @@ -18601,7 +18780,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDutyAmount)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemExciseDutyAmount)) End If Return sSerializer End Get @@ -18609,7 +18788,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemExciseDutyAmount object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -18636,15 +18815,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemExciseDutyAmount object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' Output FCFCDDBodyGoodsItemExciseDutyAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemExciseDutyAmount) Try obj = Deserialize(input) Return True @@ -18654,16 +18833,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemExciseDutyAmount) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDutyAmount + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemExciseDutyAmount Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDutyAmount) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemExciseDutyAmount) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -18671,13 +18850,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDutyAmount - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDutyAmount) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemExciseDutyAmount + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemExciseDutyAmount) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into file + ''' Serializes current FCFCDDBodyGoodsItemExciseDutyAmount object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -18709,15 +18888,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemExciseDutyAmount object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' Output FCFCDDBodyGoodsItemExciseDutyAmount object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + obj = CType(Nothing, FCFCDDBodyGoodsItemExciseDutyAmount) Try obj = LoadFromFile(fileName) Return True @@ -18727,12 +18906,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemExciseDutyAmount) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemExciseDutyAmount + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemExciseDutyAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -18758,19 +18937,19 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatment + Partial Public Class FCFCDDBodyGoodsItemPreferentialTreatment #Region "Private fields" Private _requestedPreferentialTreatment As String - Private _declaration As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Private _declaration As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._declaration = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration() + Me._declaration = New FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration() End Sub @@ -18783,7 +18962,7 @@ Namespace FCFCDC End Set End Property - Public Property Declaration() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Public Property Declaration() As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration Get Return Me._declaration End Get @@ -18795,7 +18974,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatment)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemPreferentialTreatment)) End If Return sSerializer End Get @@ -18803,7 +18982,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatment object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -18830,15 +19009,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemPreferentialTreatment object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatment) Try obj = Deserialize(input) Return True @@ -18848,16 +19027,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatment + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemPreferentialTreatment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatment) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemPreferentialTreatment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -18865,13 +19044,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatment - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatment) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemPreferentialTreatment + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemPreferentialTreatment) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into file + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatment object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -18903,15 +19082,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemPreferentialTreatment object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatment object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatment) Try obj = LoadFromFile(fileName) Return True @@ -18921,12 +19100,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatment) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatment + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemPreferentialTreatment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -18952,24 +19131,24 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Partial Public Class FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration #Region "Private fields" - Private _contingent As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Private _contingent As List(Of FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) - Private _preferentialTreatmentQuantity As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Private _preferentialTreatmentQuantity As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._preferentialTreatmentQuantity = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() - Me._contingent = New List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)() + Me._preferentialTreatmentQuantity = New FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() + Me._contingent = New List(Of FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent)() End Sub - Public Property Contingent() As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Public Property Contingent() As List(Of FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) Get Return Me._contingent End Get @@ -18978,7 +19157,7 @@ Namespace FCFCDC End Set End Property - Public Property PreferentialTreatmentQuantity() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Public Property PreferentialTreatmentQuantity() As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Get Return Me._preferentialTreatmentQuantity End Get @@ -18990,7 +19169,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration)) End If Return sSerializer End Get @@ -18998,7 +19177,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -19025,15 +19204,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) Try obj = Deserialize(input) Return True @@ -19043,16 +19222,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -19060,13 +19239,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into file + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -19098,15 +19277,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) Try obj = LoadFromFile(fileName) Return True @@ -19116,12 +19295,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -19147,7 +19326,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Partial Public Class FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent #Region "Private fields" Private _contingentNumber As String @@ -19168,7 +19347,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent)) End If Return sSerializer End Get @@ -19176,7 +19355,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -19203,15 +19382,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) Try obj = Deserialize(input) Return True @@ -19221,16 +19400,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -19238,13 +19417,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -19276,15 +19455,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) Try obj = LoadFromFile(fileName) Return True @@ -19294,12 +19473,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationContingent Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -19325,7 +19504,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Partial Public Class FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity #Region "Private fields" Private _quantity As String @@ -19370,7 +19549,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) End If Return sSerializer End Get @@ -19378,7 +19557,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -19405,15 +19584,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) Try obj = Deserialize(input) Return True @@ -19423,16 +19602,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -19440,13 +19619,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file + ''' Serializes current FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -19478,15 +19657,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' Output FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + obj = CType(Nothing, FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) Try obj = LoadFromFile(fileName) Return True @@ -19496,12 +19675,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -19527,7 +19706,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemOutwardProcessingReduction + Partial Public Class FCFCDDBodyGoodsItemOutwardProcessingReduction #Region "Private fields" Private _group As String @@ -19559,7 +19738,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemOutwardProcessingReduction)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemOutwardProcessingReduction)) End If Return sSerializer End Get @@ -19567,7 +19746,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemOutwardProcessingReduction object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -19594,15 +19773,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemOutwardProcessingReduction object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' Output FCFCDDBodyGoodsItemOutwardProcessingReduction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + obj = CType(Nothing, FCFCDDBodyGoodsItemOutwardProcessingReduction) Try obj = Deserialize(input) Return True @@ -19612,16 +19791,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemOutwardProcessingReduction) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemOutwardProcessingReduction Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemOutwardProcessingReduction) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemOutwardProcessingReduction) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -19629,13 +19808,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemOutwardProcessingReduction - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemOutwardProcessingReduction) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemOutwardProcessingReduction + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemOutwardProcessingReduction) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into file + ''' Serializes current FCFCDDBodyGoodsItemOutwardProcessingReduction object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -19667,15 +19846,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemOutwardProcessingReduction object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' Output FCFCDDBodyGoodsItemOutwardProcessingReduction object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + obj = CType(Nothing, FCFCDDBodyGoodsItemOutwardProcessingReduction) Try obj = LoadFromFile(fileName) Return True @@ -19685,12 +19864,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemOutwardProcessingReduction) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemOutwardProcessingReduction Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -19716,7 +19895,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemSpecialCase + Partial Public Class FCFCDDBodyGoodsItemSpecialCase #Region "Private fields" Private _group As String @@ -19760,7 +19939,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSpecialCase)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemSpecialCase)) End If Return sSerializer End Get @@ -19768,7 +19947,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemSpecialCase object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -19795,15 +19974,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSpecialCase object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemSpecialCase object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' Output FCFCDDBodyGoodsItemSpecialCase object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + obj = CType(Nothing, FCFCDDBodyGoodsItemSpecialCase) Try obj = Deserialize(input) Return True @@ -19813,16 +19992,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemSpecialCase) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSpecialCase + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemSpecialCase Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSpecialCase) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemSpecialCase) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -19830,13 +20009,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSpecialCase - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSpecialCase) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemSpecialCase + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemSpecialCase) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into file + ''' Serializes current FCFCDDBodyGoodsItemSpecialCase object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -19868,15 +20047,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSpecialCase object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemSpecialCase object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' Output FCFCDDBodyGoodsItemSpecialCase object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + obj = CType(Nothing, FCFCDDBodyGoodsItemSpecialCase) Try obj = LoadFromFile(fileName) Return True @@ -19886,12 +20065,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemSpecialCase) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemSpecialCase + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemSpecialCase Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -19917,7 +20096,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemDocument + Partial Public Class FCFCDDBodyGoodsItemDocument #Region "Private fields" Private _division As String @@ -19930,14 +20109,14 @@ Namespace FCFCDC Private _atHandFlag As String - Private _writeOff As FCFCDCBodyGoodsItemDocumentWriteOff + Private _writeOff As FCFCDDBodyGoodsItemDocumentWriteOff Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New - Me._writeOff = New FCFCDCBodyGoodsItemDocumentWriteOff() + Me._writeOff = New FCFCDDBodyGoodsItemDocumentWriteOff() End Sub @@ -19990,7 +20169,7 @@ Namespace FCFCDC End Set End Property - Public Property WriteOff() As FCFCDCBodyGoodsItemDocumentWriteOff + Public Property WriteOff() As FCFCDDBodyGoodsItemDocumentWriteOff Get Return Me._writeOff End Get @@ -20002,7 +20181,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocument)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemDocument)) End If Return sSerializer End Get @@ -20010,7 +20189,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemDocument object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemDocument object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -20037,15 +20216,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocument object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemDocument object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemDocument object + ''' Output FCFCDDBodyGoodsItemDocument object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + obj = CType(Nothing, FCFCDDBodyGoodsItemDocument) Try obj = Deserialize(input) Return True @@ -20055,16 +20234,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemDocument) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocument + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemDocument Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocument) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemDocument) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -20072,13 +20251,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocument - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocument) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemDocument + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemDocument) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemDocument object into file + ''' Serializes current FCFCDDBodyGoodsItemDocument object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -20110,15 +20289,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocument object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemDocument object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemDocument object + ''' Output FCFCDDBodyGoodsItemDocument object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + obj = CType(Nothing, FCFCDDBodyGoodsItemDocument) Try obj = LoadFromFile(fileName) Return True @@ -20128,12 +20307,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocument) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemDocument) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemDocument + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemDocument Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try @@ -20159,7 +20338,7 @@ Namespace FCFCDC System.Diagnostics.DebuggerStepThroughAttribute(), System.ComponentModel.DesignerCategoryAttribute("code"), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> - Partial Public Class FCFCDCBodyGoodsItemDocumentWriteOff + Partial Public Class FCFCDDBodyGoodsItemDocumentWriteOff #Region "Private fields" Private _quantity As Decimal @@ -20203,7 +20382,7 @@ Namespace FCFCDC Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocumentWriteOff)) + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDDBodyGoodsItemDocumentWriteOff)) End If Return sSerializer End Get @@ -20211,7 +20390,7 @@ Namespace FCFCDC #Region "Serialize/Deserialize" ''' - ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into an XML string + ''' Serializes current FCFCDDBodyGoodsItemDocumentWriteOff object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String @@ -20238,15 +20417,15 @@ Namespace FCFCDC End Function ''' - ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' Deserializes workflow markup into an FCFCDDBodyGoodsItemDocumentWriteOff object ''' ''' string workflow markup to deserialize - ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' Output FCFCDDBodyGoodsItemDocumentWriteOff object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + obj = CType(Nothing, FCFCDDBodyGoodsItemDocumentWriteOff) Try obj = Deserialize(input) Return True @@ -20256,16 +20435,16 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDDBodyGoodsItemDocumentWriteOff) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocumentWriteOff + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDDBodyGoodsItemDocumentWriteOff Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) - Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocumentWriteOff) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDDBodyGoodsItemDocumentWriteOff) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -20273,13 +20452,13 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocumentWriteOff - Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocumentWriteOff) + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDDBodyGoodsItemDocumentWriteOff + Return CType(Serializer.Deserialize(s), FCFCDDBodyGoodsItemDocumentWriteOff) End Function #End Region ''' - ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into file + ''' Serializes current FCFCDDBodyGoodsItemDocumentWriteOff object into file ''' ''' full path of outupt xml file ''' output Exception value if failed @@ -20311,15 +20490,15 @@ Namespace FCFCDC End Sub ''' - ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' Deserializes xml markup from file into an FCFCDDBodyGoodsItemDocumentWriteOff object ''' ''' string xml file to load and deserialize - ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' Output FCFCDDBodyGoodsItemDocumentWriteOff object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean exception = Nothing - obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + obj = CType(Nothing, FCFCDDBodyGoodsItemDocumentWriteOff) Try obj = LoadFromFile(fileName) Return True @@ -20329,12 +20508,12 @@ Namespace FCFCDC End Try End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDDBodyGoodsItemDocumentWriteOff) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemDocumentWriteOff + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDDBodyGoodsItemDocumentWriteOff Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd index c262b62..88cae85 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd @@ -1,6 +1,6 @@ - + @@ -22,7 +22,7 @@ - + @@ -186,21 +186,21 @@ - + - + - + @@ -258,7 +258,7 @@ - + @@ -315,14 +315,14 @@ - + - + @@ -622,16 +622,17 @@ - - + + - + + @@ -707,7 +708,7 @@ - + @@ -779,7 +780,7 @@ - + @@ -810,13 +811,14 @@ - + + @@ -880,7 +882,7 @@ - + @@ -938,7 +940,7 @@ - + @@ -1010,7 +1012,7 @@ - + @@ -1041,13 +1043,14 @@ - + + @@ -1111,7 +1114,7 @@ - + @@ -1193,7 +1196,7 @@ - + @@ -1289,7 +1292,7 @@ - + @@ -1333,7 +1336,7 @@ - + @@ -1414,7 +1417,7 @@ - + @@ -1458,7 +1461,7 @@ - + @@ -1478,6 +1481,7 @@ + @@ -1518,7 +1522,7 @@ - + @@ -1547,7 +1551,7 @@ - + @@ -1576,7 +1580,7 @@ - + @@ -1622,7 +1626,7 @@ - + @@ -1667,7 +1671,7 @@ - + @@ -1722,7 +1726,7 @@ - + @@ -1814,7 +1818,7 @@ - + @@ -1947,7 +1951,7 @@ - + @@ -2014,7 +2018,7 @@ - + @@ -2087,7 +2091,7 @@ - + @@ -2180,7 +2184,7 @@ - + @@ -2220,7 +2224,7 @@ - + @@ -2352,7 +2356,7 @@ - + @@ -2407,7 +2411,7 @@ - + @@ -2438,13 +2442,14 @@ - + + @@ -2508,7 +2513,7 @@ - + @@ -2580,7 +2585,7 @@ - + @@ -2611,13 +2616,14 @@ - + + @@ -2681,7 +2687,7 @@ - + @@ -2756,7 +2762,7 @@ - + @@ -2764,7 +2770,7 @@ - + @@ -2772,7 +2778,7 @@ - + @@ -2803,13 +2809,14 @@ - + + @@ -2873,7 +2880,7 @@ - + @@ -2900,7 +2907,7 @@ - + @@ -2933,7 +2940,7 @@ - + @@ -3014,7 +3021,7 @@ - + @@ -3064,7 +3071,7 @@ - + @@ -3179,7 +3186,7 @@ - + @@ -3213,7 +3220,7 @@ - + @@ -3240,7 +3247,7 @@ - + @@ -3295,7 +3302,7 @@ - + @@ -3326,13 +3333,14 @@ - + + @@ -3396,7 +3404,7 @@ - + @@ -3451,7 +3459,7 @@ - + @@ -3482,13 +3490,14 @@ - + + @@ -3552,7 +3561,7 @@ - + @@ -3599,7 +3608,7 @@ - + @@ -3663,7 +3672,7 @@ - + @@ -3710,7 +3719,7 @@ - + @@ -3760,7 +3769,7 @@ - + @@ -3892,23 +3901,6 @@ - - - - - - - - - - - - - - - - - @@ -4053,7 +4045,7 @@ - + @@ -4079,10 +4071,40 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + @@ -4111,7 +4133,7 @@ - + @@ -4177,7 +4199,7 @@ - + @@ -4226,7 +4248,7 @@ - + @@ -4296,7 +4318,7 @@ - + @@ -4357,7 +4379,7 @@ - + @@ -4444,7 +4466,7 @@ - + @@ -4531,7 +4553,7 @@ - + @@ -4649,7 +4671,7 @@ - + @@ -4807,7 +4829,7 @@ - + @@ -4877,7 +4899,7 @@ - + @@ -4944,7 +4966,7 @@ - + @@ -4994,7 +5016,7 @@ - + @@ -5025,16 +5047,13 @@ - + - - - - - + + @@ -5047,7 +5066,7 @@ - + @@ -5077,16 +5096,13 @@ - + - - - - - + + @@ -5113,7 +5129,7 @@ - + @@ -5183,7 +5199,7 @@ - + @@ -5210,7 +5226,7 @@ - + @@ -5220,7 +5236,7 @@ - + @@ -5249,7 +5265,7 @@ - + @@ -5321,7 +5337,7 @@ - + @@ -5371,7 +5387,7 @@ - + @@ -5438,7 +5454,7 @@ - + @@ -5530,7 +5546,7 @@ - + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.Designer.vb new file mode 100644 index 0000000..e18e50a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.Designer.vb @@ -0,0 +1,20942 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' FCFCDCListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace FCFCDC + + + Partial Public Class FCFCDC + +#Region "Private fields" + Private _metaData As FCFCDCMetaData + + Private _header As FCFCDCHeader + + Private _declarant As FCFCDCDeclarant + + Private _representative As FCFCDCRepresentative + + Private _principal As FCFCDCPrincipal + + Private _contactPerson As FCFCDCContactPerson + + Private _dutyDefermentApproval As List(Of FCFCDCDutyDefermentApproval) + + Private _borderTransportMeans As FCFCDCBorderTransportMeans + + Private _arrivalTransportMeans As FCFCDCArrivalTransportMeans + + Private _previousAdministrativeReferences As FCFCDCPreviousAdministrativeReferences + + Private _summaryDeclaration As FCFCDCSummaryDeclaration + + Private _customsWarehouse As FCFCDCCustomsWarehouse + + Private _inwardProcessing As FCFCDCInwardProcessing + + Private _body As FCFCDCBody + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._body = New FCFCDCBody() + Me._inwardProcessing = New FCFCDCInwardProcessing() + Me._customsWarehouse = New FCFCDCCustomsWarehouse() + Me._summaryDeclaration = New FCFCDCSummaryDeclaration() + Me._previousAdministrativeReferences = New FCFCDCPreviousAdministrativeReferences() + Me._arrivalTransportMeans = New FCFCDCArrivalTransportMeans() + Me._borderTransportMeans = New FCFCDCBorderTransportMeans() + Me._dutyDefermentApproval = New List(Of FCFCDCDutyDefermentApproval)() + Me._contactPerson = New FCFCDCContactPerson() + Me._principal = New FCFCDCPrincipal() + Me._representative = New FCFCDCRepresentative() + Me._declarant = New FCFCDCDeclarant() + Me._header = New FCFCDCHeader() + Me._metaData = New FCFCDCMetaData() + End Sub + + Public Property MetaData() As FCFCDCMetaData + Get + Return Me._metaData + End Get + Set + Me._metaData = Value + End Set + End Property + + Public Property Header() As FCFCDCHeader + Get + Return Me._header + End Get + Set + Me._header = Value + End Set + End Property + + Public Property Declarant() As FCFCDCDeclarant + Get + Return Me._declarant + End Get + Set + Me._declarant = Value + End Set + End Property + + Public Property Representative() As FCFCDCRepresentative + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + Public Property Principal() As FCFCDCPrincipal + Get + Return Me._principal + End Get + Set + Me._principal = Value + End Set + End Property + + Public Property ContactPerson() As FCFCDCContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + + Public Property DutyDefermentApproval() As List(Of FCFCDCDutyDefermentApproval) + Get + Return Me._dutyDefermentApproval + End Get + Set + Me._dutyDefermentApproval = Value + End Set + End Property + + Public Property BorderTransportMeans() As FCFCDCBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set + Me._borderTransportMeans = Value + End Set + End Property + + Public Property ArrivalTransportMeans() As FCFCDCArrivalTransportMeans + Get + Return Me._arrivalTransportMeans + End Get + Set + Me._arrivalTransportMeans = Value + End Set + End Property + + Public Property PreviousAdministrativeReferences() As FCFCDCPreviousAdministrativeReferences + Get + Return Me._previousAdministrativeReferences + End Get + Set + Me._previousAdministrativeReferences = Value + End Set + End Property + + Public Property SummaryDeclaration() As FCFCDCSummaryDeclaration + Get + Return Me._summaryDeclaration + End Get + Set + Me._summaryDeclaration = Value + End Set + End Property + + Public Property CustomsWarehouse() As FCFCDCCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set + Me._customsWarehouse = Value + End Set + End Property + + Public Property InwardProcessing() As FCFCDCInwardProcessing + Get + Return Me._inwardProcessing + End Get + Set + Me._inwardProcessing = Value + End Set + End Property + + Public Property Body() As FCFCDCBody + Get + Return Me._body + End Get + Set + Me._body = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDC object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDC object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDC + Return CType(Serializer.Deserialize(s), FCFCDC) + End Function +#End Region + + ''' + ''' Serializes current FCFCDC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDC object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDC) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDC) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDC + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCMetaData + +#Region "Private fields" + Private _preparation As FCFCDCMetaDataPreparation + + Private _interchangeControlReference As String + + Private _messageReferenceNumber As String + + Private _messageIdentifier As String + + Private _messageGroup As FCFCDCMetaDataMessageGroup + + Private _testIndicator As FCFCDCMetaDataTestIndicator + + Private _messageType As FCFCDCMetaDataMessageType + + Private _interchangeSender As FCFCDCMetaDataInterchangeSender + + Private _interchangeRecipient As FCFCDCMetaDataInterchangeRecipient + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._interchangeRecipient = New FCFCDCMetaDataInterchangeRecipient() + Me._interchangeSender = New FCFCDCMetaDataInterchangeSender() + Me._preparation = New FCFCDCMetaDataPreparation() + End Sub + + Public Property Preparation() As FCFCDCMetaDataPreparation + Get + Return Me._preparation + End Get + Set + Me._preparation = Value + End Set + End Property + + + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set + Me._interchangeControlReference = Value + End Set + End Property + + + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set + Me._messageReferenceNumber = Value + End Set + End Property + + + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set + Me._messageIdentifier = Value + End Set + End Property + + Public Property MessageGroup() As FCFCDCMetaDataMessageGroup + Get + Return Me._messageGroup + End Get + Set + Me._messageGroup = Value + End Set + End Property + + Public Property TestIndicator() As FCFCDCMetaDataTestIndicator + Get + Return Me._testIndicator + End Get + Set + Me._testIndicator = Value + End Set + End Property + + Public Property MessageType() As FCFCDCMetaDataMessageType + Get + Return Me._messageType + End Get + Set + Me._messageType = Value + End Set + End Property + + Public Property InterchangeSender() As FCFCDCMetaDataInterchangeSender + Get + Return Me._interchangeSender + End Get + Set + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As FCFCDCMetaDataInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set + Me._interchangeRecipient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaData object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaData + Return CType(Serializer.Deserialize(s), FCFCDCMetaData) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaData object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaData) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaData) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCMetaDataPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + + Public Property Time() As Date + Get + Return Me._time + End Get + Set + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataPreparation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataPreparation + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataPreparation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataPreparation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataPreparation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCMetaDataMessageGroup + + ''' + ZBE + + ''' + ZBV + End Enum + + + Public Enum FCFCDCMetaDataTestIndicator + + ''' + + Item1 + End Enum + + + Public Enum FCFCDCMetaDataMessageType + + ''' + FCFCDC + End Enum + + + Partial Public Class FCFCDCMetaDataInterchangeSender + +#Region "Private fields" + Private _identification As FCFCDCMetaDataInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCMetaDataInterchangeSenderIdentification() + End Sub + + Public Property Identification() As FCFCDCMetaDataInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSender + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCMetaDataInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeSenderIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCMetaDataInterchangeRecipient + +#Region "Private fields" + Private _identification As FCFCDCMetaDataInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCMetaDataInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As FCFCDCMetaDataInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipient + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeRecipient + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCMetaDataInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCMetaDataInterchangeRecipientIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCHeader + +#Region "Private fields" + Private _messageVersion As String + + Private _messageCreationDate As Date + + Private _declaration As FCFCDCHeaderDeclaration + + Private _localReferenceNumber As String + + Private _prematureInputFlag As String + + Private _goodsItemQuantity As String + + Private _customsGoodsStatus As String + + Private _declarantIsConsigneeFlag As String + + Private _customsAuthorisation As FCFCDCHeaderCustomsAuthorisation + + Private _inputTaxDeductionFlag As String + + Private _goodsLocation As String + + Private _departureCountry As String + + Private _paymentMethod As FCFCDCHeaderPaymentMethod + + Private _currencyCode As FCFCDCHeaderCurrencyCode + + Private _additionalInformation As String + + Private _taxNumber As String + + Private _taxOffice As String + + Private _representativeRelationshipFlag As String + + Private _declarationPlace As String + + Private _authorisationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customsAuthorisation = New FCFCDCHeaderCustomsAuthorisation() + Me._declaration = New FCFCDCHeaderDeclaration() + End Sub + + + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set + Me._messageVersion = Value + End Set + End Property + + + Public Property MessageCreationDate() As Date + Get + Return Me._messageCreationDate + End Get + Set + Me._messageCreationDate = Value + End Set + End Property + + Public Property Declaration() As FCFCDCHeaderDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property PrematureInputFlag() As String + Get + Return Me._prematureInputFlag + End Get + Set + Me._prematureInputFlag = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + + Public Property CustomsGoodsStatus() As String + Get + Return Me._customsGoodsStatus + End Get + Set + Me._customsGoodsStatus = Value + End Set + End Property + + + Public Property DeclarantIsConsigneeFlag() As String + Get + Return Me._declarantIsConsigneeFlag + End Get + Set + Me._declarantIsConsigneeFlag = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCHeaderCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property InputTaxDeductionFlag() As String + Get + Return Me._inputTaxDeductionFlag + End Get + Set + Me._inputTaxDeductionFlag = Value + End Set + End Property + + + Public Property GoodsLocation() As String + Get + Return Me._goodsLocation + End Get + Set + Me._goodsLocation = Value + End Set + End Property + + + Public Property DepartureCountry() As String + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property PaymentMethod() As FCFCDCHeaderPaymentMethod + Get + Return Me._paymentMethod + End Get + Set + Me._paymentMethod = Value + End Set + End Property + + Public Property CurrencyCode() As FCFCDCHeaderCurrencyCode + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TaxNumber() As String + Get + Return Me._taxNumber + End Get + Set + Me._taxNumber = Value + End Set + End Property + + + Public Property TaxOffice() As String + Get + Return Me._taxOffice + End Get + Set + Me._taxOffice = Value + End Set + End Property + + + Public Property RepresentativeRelationshipFlag() As String + Get + Return Me._representativeRelationshipFlag + End Get + Set + Me._representativeRelationshipFlag = Value + End Set + End Property + + + Public Property DeclarationPlace() As String + Get + Return Me._declarationPlace + End Get + Set + Me._declarationPlace = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeader object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCHeader object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeader + Return CType(Serializer.Deserialize(s), FCFCDCHeader) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeader object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeader) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeader) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeader + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCHeaderDeclaration + +#Region "Private fields" + Private _kind As FCFCDCHeaderDeclarationKind + + Private _type As FCFCDCHeaderDeclarationType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Kind() As FCFCDCHeaderDeclarationKind + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + Public Property Type() As FCFCDCHeaderDeclarationType + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeaderDeclaration object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderDeclaration) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeaderDeclaration + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCHeaderDeclarationKind + + ''' + A + + ''' + B + + ''' + D + + ''' + E + End Enum + + + Public Enum FCFCDCHeaderDeclarationType + + ''' + EZA + End Enum + + + Partial Public Class FCFCDCHeaderCustomsAuthorisation + +#Region "Private fields" + Private _endUse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EndUse() As String + Get + Return Me._endUse + End Get + Set + Me._endUse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCHeaderCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCHeaderCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeaderCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCHeaderCustomsAuthorisation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCHeaderPaymentMethod + + ''' + A + + ''' + C + + ''' + D + + ''' + E + + ''' + F + + ''' + G + + ''' + Y + + ''' + Z + End Enum + + + Public Enum FCFCDCHeaderCurrencyCode + + ''' + EUR + End Enum + + + Partial Public Class FCFCDCDeclarant + +#Region "Private fields" + Private _identification As FCFCDCDeclarantIdentification + + Private _name As String + + Private _address As FCFCDCDeclarantAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCDeclarantAddress() + Me._identification = New FCFCDCDeclarantIdentification() + End Sub + + Public Property Identification() As FCFCDCDeclarantIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCDeclarantAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarant object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarant + Return CType(Serializer.Deserialize(s), FCFCDCDeclarant) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarant) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarant + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarantIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantIdentification + Return CType(Serializer.Deserialize(s), FCFCDCDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarantIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarantAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantAddress + Return CType(Serializer.Deserialize(s), FCFCDCDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDeclarantAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCRepresentative + +#Region "Private fields" + Private _identification As FCFCDCRepresentativeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCRepresentativeIdentification() + End Sub + + Public Property Identification() As FCFCDCRepresentativeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCRepresentative object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentative + Return CType(Serializer.Deserialize(s), FCFCDCRepresentative) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentative) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCRepresentative + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCRepresentativeIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentativeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentativeIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCRepresentativeIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCPrincipal + +#Region "Private fields" + Private _identification As FCFCDCPrincipalIdentification + + Private _name As String + + Private _address As FCFCDCPrincipalAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCPrincipalAddress() + Me._identification = New FCFCDCPrincipalIdentification() + End Sub + + Public Property Identification() As FCFCDCPrincipalIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCPrincipalAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipal object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipal object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipal + Return CType(Serializer.Deserialize(s), FCFCDCPrincipal) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipal object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipal) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipal) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipal + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCPrincipalIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipalIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipalIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalIdentification + Return CType(Serializer.Deserialize(s), FCFCDCPrincipalIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipalIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipalIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipalIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCPrincipalAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipalAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipalAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalAddress + Return CType(Serializer.Deserialize(s), FCFCDCPrincipalAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipalAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipalAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPrincipalAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCContactPerson object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCContactPerson + Return CType(Serializer.Deserialize(s), FCFCDCContactPerson) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCContactPerson) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCContactPerson + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCDutyDefermentApproval + +#Region "Private fields" + Private _type As String + + Private _applicationType As String + + Private _accountPrefix As String + + Private _accountNumber As String + + Private _authorisationNumber As String + + Private _dutyDefermentApplicant As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._dutyDefermentApplicant = New FCFCDCDutyDefermentApprovalDutyDefermentApplicant() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ApplicationType() As String + Get + Return Me._applicationType + End Get + Set + Me._applicationType = Value + End Set + End Property + + + Public Property AccountPrefix() As String + Get + Return Me._accountPrefix + End Get + Set + Me._accountPrefix = Value + End Set + End Property + + + Public Property AccountNumber() As String + Get + Return Me._accountNumber + End Get + Set + Me._accountNumber = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Public Property DutyDefermentApplicant() As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Get + Return Me._dutyDefermentApplicant + End Get + Set + Me._dutyDefermentApplicant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApproval)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApproval object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApproval object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApproval) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApproval + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApproval) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApproval + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApproval) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApproval object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApproval object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApproval) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApproval) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApproval + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicant + +#Region "Private fields" + Private _identification As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification() + End Sub + + Public Property Identification() As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As String + + Private _information As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Mode() As String + Get + Return Me._mode + End Get + Set + Me._mode = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Information() As String + Get + Return Me._information + End Get + Set + Me._information = Value + End Set + End Property + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBorderTransportMeans object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBorderTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDCBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBorderTransportMeans) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBorderTransportMeans + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCArrivalTransportMeans + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Identity() As String + Get + Return Me._identity + End Get + Set + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCArrivalTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCArrivalTransportMeans object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCArrivalTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCArrivalTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCArrivalTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCArrivalTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCArrivalTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDCArrivalTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCArrivalTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCArrivalTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCArrivalTransportMeans) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCArrivalTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCArrivalTransportMeans + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCPreviousAdministrativeReferences + +#Region "Private fields" + Private _type As String + + Private _previousAdministrativeReference As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._previousAdministrativeReference = New FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property PreviousAdministrativeReference() As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Get + Return Me._previousAdministrativeReference + End Get + Set + Me._previousAdministrativeReference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferences)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferences object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferences object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferences + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferences) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferences + Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferences) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferences object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferences object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferences) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPreviousAdministrativeReferences + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCSummaryDeclaration + +#Region "Private fields" + Private _identificationIndicator As FCFCDCSummaryDeclarationIdentificationIndicator + + Private _goodsItem As List(Of FCFCDCSummaryDeclarationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCSummaryDeclarationGoodsItem)() + End Sub + + Public Property IdentificationIndicator() As FCFCDCSummaryDeclarationIdentificationIndicator + Get + Return Me._identificationIndicator + End Get + Set + Me._identificationIndicator = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCSummaryDeclarationGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclaration object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclaration) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclaration + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCSummaryDeclarationIdentificationIndicator + + ''' + AWB + + ''' + REG + End Enum + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItem + +#Region "Private fields" + Private _quantity As String + + Private _identificationByKey As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + + Private _identificationByRegistration As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identificationByRegistration = New FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration() + Me._identificationByKey = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKey() + End Sub + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property IdentificationByKey() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Get + Return Me._identificationByKey + End Get + Set + Me._identificationByKey = Value + End Set + End Property + + Public Property IdentificationByRegistration() As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Get + Return Me._identificationByRegistration + End Get + Set + Me._identificationByRegistration = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + +#Region "Private fields" + Private _kind As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + + Private _number As String + + Private _custodian As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._custodian = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + End Sub + + Public Property Kind() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Public Property Custodian() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Get + Return Me._custodian + End Get + Set + Me._custodian = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKey)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + + ''' + AWB + + ''' + ULD + End Enum + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + +#Region "Private fields" + Private _identification As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + End Sub + + Public Property Identification() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + +#Region "Private fields" + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCCustomsWarehouse + +#Region "Private fields" + Private _sequenceNumber As FCFCDCCustomsWarehouseSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDCCustomsWarehouseCustomsAuthorisation + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of FCFCDCCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCCustomsWarehouseGoodsItem)() + Me._customsAuthorisation = New FCFCDCCustomsWarehouseCustomsAuthorisation() + End Sub + + Public Property SequenceNumber() As FCFCDCCustomsWarehouseSequenceNumber + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCCustomsWarehouseCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouse object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouse + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouse) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouse + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCCustomsWarehouseSequenceNumber + + ''' + + Item1 + End Enum + + + Partial Public Class FCFCDCCustomsWarehouseCustomsAuthorisation + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseCustomsAuthorisation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _commodityCode As String + + Private _usualProcessingFlag As String + + Private _complement As String + + Private _commercialAmount As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + + Private _debitAmount As FCFCDCCustomsWarehouseGoodsItemDebitAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._debitAmount = New FCFCDCCustomsWarehouseGoodsItemDebitAmount() + Me._commercialAmount = New FCFCDCCustomsWarehouseGoodsItemCommercialAmount() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property UsualProcessingFlag() As String + Get + Return Me._usualProcessingFlag + End Get + Set + Me._usualProcessingFlag = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + Public Property CommercialAmount() As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set + Me._commercialAmount = Value + End Set + End Property + + Public Property DebitAmount() As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set + Me._debitAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCInwardProcessing + +#Region "Private fields" + Private _sequenceNumber As FCFCDCInwardProcessingSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDCInwardProcessingCustomsAuthorisation + + Private _simplifiedGrantAuthorisationFlag As String + + Private _monitoringCustomsOffice As FCFCDCInwardProcessingMonitoringCustomsOffice + + Private _goodsItem As List(Of FCFCDCInwardProcessingGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCInwardProcessingGoodsItem)() + Me._monitoringCustomsOffice = New FCFCDCInwardProcessingMonitoringCustomsOffice() + Me._customsAuthorisation = New FCFCDCInwardProcessingCustomsAuthorisation() + End Sub + + Public Property SequenceNumber() As FCFCDCInwardProcessingSequenceNumber + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCInwardProcessingCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property SimplifiedGrantAuthorisationFlag() As String + Get + Return Me._simplifiedGrantAuthorisationFlag + End Get + Set + Me._simplifiedGrantAuthorisationFlag = Value + End Set + End Property + + Public Property MonitoringCustomsOffice() As FCFCDCInwardProcessingMonitoringCustomsOffice + Get + Return Me._monitoringCustomsOffice + End Get + Set + Me._monitoringCustomsOffice = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCInwardProcessingGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessing object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessing + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessing) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessing + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCInwardProcessingSequenceNumber + + ''' + + Item1 + End Enum + + + Partial Public Class FCFCDCInwardProcessingCustomsAuthorisation + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingCustomsAuthorisation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOffice + +#Region "Private fields" + Private _identification As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification() + End Sub + + Public Property Identification() As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingMonitoringCustomsOffice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCInwardProcessingGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingGoodsItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCInwardProcessingGoodsItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBody + +#Region "Private fields" + Private _customsValueFlag As String + + Private _consignor As FCFCDCBodyConsignor + + Private _consignee As FCFCDCBodyConsignee + + Private _acquirer As FCFCDCBodyAcquirer + + Private _containers As FCFCDCBodyContainers + + Private _deliveryTerms As FCFCDCBodyDeliveryTerms + + Private _paymentTransaction As FCFCDCBodyPaymentTransaction + + Private _foreignTradeStatistics As FCFCDCBodyForeignTradeStatistics + + Private _customsValue As FCFCDCBodyCustomsValue + + Private _document As List(Of FCFCDCBodyDocument) + + Private _goodsItem As List(Of FCFCDCBodyGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCBodyGoodsItem)() + Me._document = New List(Of FCFCDCBodyDocument)() + Me._customsValue = New FCFCDCBodyCustomsValue() + Me._foreignTradeStatistics = New FCFCDCBodyForeignTradeStatistics() + Me._paymentTransaction = New FCFCDCBodyPaymentTransaction() + Me._deliveryTerms = New FCFCDCBodyDeliveryTerms() + Me._containers = New FCFCDCBodyContainers() + Me._acquirer = New FCFCDCBodyAcquirer() + Me._consignee = New FCFCDCBodyConsignee() + Me._consignor = New FCFCDCBodyConsignor() + End Sub + + + Public Property CustomsValueFlag() As String + Get + Return Me._customsValueFlag + End Get + Set + Me._customsValueFlag = Value + End Set + End Property + + Public Property Consignor() As FCFCDCBodyConsignor + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + Public Property Consignee() As FCFCDCBodyConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Acquirer() As FCFCDCBodyAcquirer + Get + Return Me._acquirer + End Get + Set + Me._acquirer = Value + End Set + End Property + + Public Property Containers() As FCFCDCBodyContainers + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + Public Property DeliveryTerms() As FCFCDCBodyDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set + Me._deliveryTerms = Value + End Set + End Property + + Public Property PaymentTransaction() As FCFCDCBodyPaymentTransaction + Get + Return Me._paymentTransaction + End Get + Set + Me._paymentTransaction = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDCBodyForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDCBodyCustomsValue + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + + Public Property Document() As List(Of FCFCDCBodyDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCBodyGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBody)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBody object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBody object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBody) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBody + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBody) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBody + Return CType(Serializer.Deserialize(s), FCFCDCBody) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBody object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBody object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBody) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBody) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBody + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsignor + +#Region "Private fields" + Private _identification As FCFCDCBodyConsignorIdentification + + Private _name As String + + Private _address As FCFCDCBodyConsignorAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyConsignorAddress() + Me._identification = New FCFCDCBodyConsignorIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignor object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignor + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignor) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignor) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignor + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignorIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignorIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignorAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignorAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsignee + +#Region "Private fields" + Private _identification As FCFCDCBodyConsigneeIdentification + + Private _name As String + + Private _address As FCFCDCBodyConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyConsigneeAddress() + Me._identification = New FCFCDCBodyConsigneeIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignee + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsigneeIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsigneeIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsigneeAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyConsigneeAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyAcquirer + +#Region "Private fields" + Private _identification As FCFCDCBodyAcquirerIdentification + + Private _name As String + + Private _taxNumber As String + + Private _address As FCFCDCBodyAcquirerAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyAcquirerAddress() + Me._identification = New FCFCDCBodyAcquirerIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyAcquirerIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property TaxNumber() As String + Get + Return Me._taxNumber + End Get + Set + Me._taxNumber = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyAcquirerAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirer object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirer object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirer + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirer) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirer object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirer) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirer) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirer + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyAcquirerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirerIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirerIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyAcquirerAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirerAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirerAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyAcquirerAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyContainers + +#Region "Private fields" + Private _containerFlag As String + + Private _container As List(Of FCFCDCBodyContainersContainer) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._container = New List(Of FCFCDCBodyContainersContainer)() + End Sub + + + Public Property ContainerFlag() As String + Get + Return Me._containerFlag + End Get + Set + Me._containerFlag = Value + End Set + End Property + + + Public Property Container() As List(Of FCFCDCBodyContainersContainer) + Get + Return Me._container + End Get + Set + Me._container = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyContainers object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyContainers object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainers) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainers + Return CType(Serializer.Deserialize(s), FCFCDCBodyContainers) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyContainers object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyContainers object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainers) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainers) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyContainers + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyContainersContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainersContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyContainersContainer object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyContainersContainer object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainersContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainersContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainersContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainersContainer + Return CType(Serializer.Deserialize(s), FCFCDCBodyContainersContainer) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyContainersContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyContainersContainer object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainersContainer) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainersContainer) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyContainersContainer + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyDeliveryTerms + +#Region "Private fields" + Private _code As String + + Private _description As String + + Private _place As String + + Private _key As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + + Public Property Place() As String + Get + Return Me._place + End Get + Set + Me._place = Value + End Set + End Property + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyDeliveryTerms object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDeliveryTerms + Return CType(Serializer.Deserialize(s), FCFCDCBodyDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyDeliveryTerms + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyPaymentTransaction + +#Region "Private fields" + Private _amount As Decimal + + Private _currencyCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyPaymentTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyPaymentTransaction object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyPaymentTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyPaymentTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyPaymentTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyPaymentTransaction + Return CType(Serializer.Deserialize(s), FCFCDCBodyPaymentTransaction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyPaymentTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyPaymentTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyPaymentTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyPaymentTransaction + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyForeignTradeStatistics + +#Region "Private fields" + Private _goodsStatus As String + + Private _transactionType As String + + Private _destinationCountry As String + + Private _destinationFederalState As String + + Private _inlandTransportMode As String + + Private _totalGrossMassMeasure As Decimal + + Private _entryCustomsOffice As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._entryCustomsOffice = New FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice() + End Sub + + + Public Property GoodsStatus() As String + Get + Return Me._goodsStatus + End Get + Set + Me._goodsStatus = Value + End Set + End Property + + + Public Property TransactionType() As String + Get + Return Me._transactionType + End Get + Set + Me._transactionType = Value + End Set + End Property + + + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + + Public Property DestinationFederalState() As String + Get + Return Me._destinationFederalState + End Get + Set + Me._destinationFederalState = Value + End Set + End Property + + + Public Property InlandTransportMode() As String + Get + Return Me._inlandTransportMode + End Get + Set + Me._inlandTransportMode = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set + Me._totalGrossMassMeasure = Value + End Set + End Property + + Public Property EntryCustomsOffice() As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Get + Return Me._entryCustomsOffice + End Get + Set + Me._entryCustomsOffice = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatistics object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyForeignTradeStatistics + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValue + +#Region "Private fields" + Private _formerDecisions As String + + Private _vendor As FCFCDCBodyCustomsValueVendor + + Private _vendee As FCFCDCBodyCustomsValueVendee + + Private _affiliation As FCFCDCBodyCustomsValueAffiliation + + Private _restrictionOrCondition As FCFCDCBodyCustomsValueRestrictionOrCondition + + Private _licenseFee As FCFCDCBodyCustomsValueLicenseFee + + Private _resale As FCFCDCBodyCustomsValueResale + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._resale = New FCFCDCBodyCustomsValueResale() + Me._licenseFee = New FCFCDCBodyCustomsValueLicenseFee() + Me._restrictionOrCondition = New FCFCDCBodyCustomsValueRestrictionOrCondition() + Me._affiliation = New FCFCDCBodyCustomsValueAffiliation() + Me._vendee = New FCFCDCBodyCustomsValueVendee() + Me._vendor = New FCFCDCBodyCustomsValueVendor() + End Sub + + + Public Property FormerDecisions() As String + Get + Return Me._formerDecisions + End Get + Set + Me._formerDecisions = Value + End Set + End Property + + Public Property Vendor() As FCFCDCBodyCustomsValueVendor + Get + Return Me._vendor + End Get + Set + Me._vendor = Value + End Set + End Property + + Public Property Vendee() As FCFCDCBodyCustomsValueVendee + Get + Return Me._vendee + End Get + Set + Me._vendee = Value + End Set + End Property + + Public Property Affiliation() As FCFCDCBodyCustomsValueAffiliation + Get + Return Me._affiliation + End Get + Set + Me._affiliation = Value + End Set + End Property + + Public Property RestrictionOrCondition() As FCFCDCBodyCustomsValueRestrictionOrCondition + Get + Return Me._restrictionOrCondition + End Get + Set + Me._restrictionOrCondition = Value + End Set + End Property + + Public Property LicenseFee() As FCFCDCBodyCustomsValueLicenseFee + Get + Return Me._licenseFee + End Get + Set + Me._licenseFee = Value + End Set + End Property + + Public Property Resale() As FCFCDCBodyCustomsValueResale + Get + Return Me._resale + End Get + Set + Me._resale = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValue object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValue object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValue) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValue) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValue object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValue object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValue) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValue + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendor + +#Region "Private fields" + Private _identification As FCFCDCBodyCustomsValueVendorIdentification + + Private _name As String + + Private _address As FCFCDCBodyCustomsValueVendorAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyCustomsValueVendorAddress() + Me._identification = New FCFCDCBodyCustomsValueVendorIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyCustomsValueVendorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyCustomsValueVendorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendor object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendor object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendor + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendor) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendor object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendor) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendor + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendorIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendorAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendee + +#Region "Private fields" + Private _identification As FCFCDCBodyCustomsValueVendeeIdentification + + Private _name As String + + Private _address As FCFCDCBodyCustomsValueVendeeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyCustomsValueVendeeAddress() + Me._identification = New FCFCDCBodyCustomsValueVendeeIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyCustomsValueVendeeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyCustomsValueVendeeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendee + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendeeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendeeIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueVendeeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueVendeeAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueAffiliation + +#Region "Private fields" + Private _type As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueAffiliation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueAffiliation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueAffiliation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueAffiliation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueAffiliation + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueAffiliation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueAffiliation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueAffiliation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueRestrictionOrCondition + +#Region "Private fields" + Private _restrictionFlag As String + + Private _conditionFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property RestrictionFlag() As String + Get + Return Me._restrictionFlag + End Get + Set + Me._restrictionFlag = Value + End Set + End Property + + + Public Property ConditionFlag() As String + Get + Return Me._conditionFlag + End Get + Set + Me._conditionFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueRestrictionOrCondition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueRestrictionOrCondition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueRestrictionOrCondition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueRestrictionOrCondition + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueRestrictionOrCondition) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueRestrictionOrCondition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueLicenseFee + +#Region "Private fields" + Private _licenseFeeFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property LicenseFeeFlag() As String + Get + Return Me._licenseFeeFlag + End Get + Set + Me._licenseFeeFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueLicenseFee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueLicenseFee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueLicenseFee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueLicenseFee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueLicenseFee + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueLicenseFee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueLicenseFee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueLicenseFee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyCustomsValueResale + +#Region "Private fields" + Private _resaleFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ResaleFlag() As String + Get + Return Me._resaleFlag + End Get + Set + Me._resaleFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueResale)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueResale object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueResale object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueResale + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueResale) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueResale + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueResale) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueResale object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueResale object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueResale) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyCustomsValueResale + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyDocument + +#Region "Private fields" + Private _division As FCFCDCBodyDocumentDivision + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Division() As FCFCDCBodyDocumentDivision + Get + Return Me._division + End Get + Set + Me._division = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set + Me._issuingDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyDocument object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyDocument object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDocument + Return CType(Serializer.Deserialize(s), FCFCDCBodyDocument) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyDocument object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDocument) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDocument) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyDocument + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum FCFCDCBodyDocumentDivision + + ''' + + Item4 + End Enum + + + Partial Public Class FCFCDCBodyGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _procedure As FCFCDCBodyGoodsItemProcedure + + Private _eUCode As String + + Private _cessionManagementFlag As String + + Private _goodsDescription As String + + Private _invoiceAmount As Decimal + + Private _netMassMeasure As Decimal + + Private _originCountry As String + + Private _supplementaryInformation As String + + Private _condition As String + + Private _tobaccoRevenueStampNumber As String + + Private _commodityCode As FCFCDCBodyGoodsItemCommodityCode + + Private _supplementaryCodes As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + + Private _package As FCFCDCBodyGoodsItemPackage + + Private _foreignTradeStatistics As FCFCDCBodyGoodsItemForeignTradeStatistics + + Private _customsValue As FCFCDCBodyGoodsItemCustomsValue + + Private _assessment As FCFCDCBodyGoodsItemAssessment + + Private _exciseDuty As List(Of FCFCDCBodyGoodsItemExciseDuty) + + Private _preferentialTreatment As FCFCDCBodyGoodsItemPreferentialTreatment + + Private _outwardProcessingReduction As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + + Private _specialCase As List(Of FCFCDCBodyGoodsItemSpecialCase) + + Private _document As List(Of FCFCDCBodyGoodsItemDocument) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._document = New List(Of FCFCDCBodyGoodsItemDocument)() + Me._specialCase = New List(Of FCFCDCBodyGoodsItemSpecialCase)() + Me._outwardProcessingReduction = New List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction)() + Me._preferentialTreatment = New FCFCDCBodyGoodsItemPreferentialTreatment() + Me._exciseDuty = New List(Of FCFCDCBodyGoodsItemExciseDuty)() + Me._assessment = New FCFCDCBodyGoodsItemAssessment() + Me._customsValue = New FCFCDCBodyGoodsItemCustomsValue() + Me._foreignTradeStatistics = New FCFCDCBodyGoodsItemForeignTradeStatistics() + Me._package = New FCFCDCBodyGoodsItemPackage() + Me._supplementaryCodes = New List(Of FCFCDCBodyGoodsItemSupplementaryCodes)() + Me._commodityCode = New FCFCDCBodyGoodsItemCommodityCode() + Me._procedure = New FCFCDCBodyGoodsItemProcedure() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Procedure() As FCFCDCBodyGoodsItemProcedure + Get + Return Me._procedure + End Get + Set + Me._procedure = Value + End Set + End Property + + + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property CessionManagementFlag() As String + Get + Return Me._cessionManagementFlag + End Get + Set + Me._cessionManagementFlag = Value + End Set + End Property + + + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set + Me._invoiceAmount = Value + End Set + End Property + + Public Property NetMassMeasure() As Decimal + Get + Return Me._netMassMeasure + End Get + Set + Me._netMassMeasure = Value + End Set + End Property + + + Public Property OriginCountry() As String + Get + Return Me._originCountry + End Get + Set + Me._originCountry = Value + End Set + End Property + + + Public Property SupplementaryInformation() As String + Get + Return Me._supplementaryInformation + End Get + Set + Me._supplementaryInformation = Value + End Set + End Property + + + Public Property Condition() As String + Get + Return Me._condition + End Get + Set + Me._condition = Value + End Set + End Property + + + Public Property TobaccoRevenueStampNumber() As String + Get + Return Me._tobaccoRevenueStampNumber + End Get + Set + Me._tobaccoRevenueStampNumber = Value + End Set + End Property + + Public Property CommodityCode() As FCFCDCBodyGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property SupplementaryCodes() As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + Get + Return Me._supplementaryCodes + End Get + Set + Me._supplementaryCodes = Value + End Set + End Property + + Public Property Package() As FCFCDCBodyGoodsItemPackage + Get + Return Me._package + End Get + Set + Me._package = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDCBodyGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDCBodyGoodsItemCustomsValue + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property Assessment() As FCFCDCBodyGoodsItemAssessment + Get + Return Me._assessment + End Get + Set + Me._assessment = Value + End Set + End Property + + + Public Property ExciseDuty() As List(Of FCFCDCBodyGoodsItemExciseDuty) + Get + Return Me._exciseDuty + End Get + Set + Me._exciseDuty = Value + End Set + End Property + + Public Property PreferentialTreatment() As FCFCDCBodyGoodsItemPreferentialTreatment + Get + Return Me._preferentialTreatment + End Get + Set + Me._preferentialTreatment = Value + End Set + End Property + + + Public Property OutwardProcessingReduction() As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + Get + Return Me._outwardProcessingReduction + End Get + Set + Me._outwardProcessingReduction = Value + End Set + End Property + + + Public Property SpecialCase() As List(Of FCFCDCBodyGoodsItemSpecialCase) + Get + Return Me._specialCase + End Get + Set + Me._specialCase = Value + End Set + End Property + + + Public Property Document() As List(Of FCFCDCBodyGoodsItemDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItem) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemProcedure + +#Region "Private fields" + Private _requestedPreviousProcedure As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property RequestedPreviousProcedure() As String + Get + Return Me._requestedPreviousProcedure + End Get + Set + Me._requestedPreviousProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemProcedure object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemProcedure + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemProcedure + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCommodityCode + +#Region "Private fields" + Private _commodityCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCommodityCode + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemSupplementaryCodes + +#Region "Private fields" + Private _code As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSupplementaryCodes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSupplementaryCodes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSupplementaryCodes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSupplementaryCodes + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSupplementaryCodes) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemSupplementaryCodes + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemPackage + +#Region "Private fields" + Private _kind As String + + Private _quantity As String + + Private _marksNumbers As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kind() As String + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set + Me._marksNumbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPackage object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPackage + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPackage + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _quantity As String + + Private _grossMassMeasure As Decimal + + Private _amount As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._amount = New FCFCDCBodyGoodsItemForeignTradeStatisticsAmount() + End Sub + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property GrossMassMeasure() As Decimal + Get + Return Me._grossMassMeasure + End Get + Set + Me._grossMassMeasure = Value + End Set + End Property + + Public Property Amount() As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemForeignTradeStatistics + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatisticsAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValue + +#Region "Private fields" + Private _departureAirport As String + + Private _destinationPlace As String + + Private _additionDeductionDescription As String + + Private _netPrice As FCFCDCBodyGoodsItemCustomsValueNetPrice + + Private _indirectPayment As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + + Private _airFreightCosts As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + + Private _additionDeduction As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionDeduction = New List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)() + Me._airFreightCosts = New FCFCDCBodyGoodsItemCustomsValueAirFreightCosts() + Me._indirectPayment = New FCFCDCBodyGoodsItemCustomsValueIndirectPayment() + Me._netPrice = New FCFCDCBodyGoodsItemCustomsValueNetPrice() + End Sub + + + Public Property DepartureAirport() As String + Get + Return Me._departureAirport + End Get + Set + Me._departureAirport = Value + End Set + End Property + + + Public Property DestinationPlace() As String + Get + Return Me._destinationPlace + End Get + Set + Me._destinationPlace = Value + End Set + End Property + + + Public Property AdditionDeductionDescription() As String + Get + Return Me._additionDeductionDescription + End Get + Set + Me._additionDeductionDescription = Value + End Set + End Property + + Public Property NetPrice() As FCFCDCBodyGoodsItemCustomsValueNetPrice + Get + Return Me._netPrice + End Get + Set + Me._netPrice = Value + End Set + End Property + + Public Property IndirectPayment() As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Get + Return Me._indirectPayment + End Get + Set + Me._indirectPayment = Value + End Set + End Property + + Public Property AirFreightCosts() As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Get + Return Me._airFreightCosts + End Get + Set + Me._airFreightCosts = Value + End Set + End Property + + + Public Property AdditionDeduction() As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Get + Return Me._additionDeduction + End Get + Set + Me._additionDeduction = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValue object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValue) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValue object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValue + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueNetPrice + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueNetPrice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueNetPrice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueNetPrice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueIndirectPayment + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueIndirectPayment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateIATA() As String + Get + Return Me._currencyRateIATA + End Get + Set + Me._currencyRateIATA = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + + Public Property CurrencyRateDate() As Date + Get + Return Me._currencyRateDate + End Get + Set + Me._currencyRateDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAirFreightCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + +#Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private _percentage As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateIATA() As String + Get + Return Me._currencyRateIATA + End Get + Set + Me._currencyRateIATA = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + + Public Property CurrencyRateDate() As Date + Get + Return Me._currencyRateDate + End Get + Set + Me._currencyRateDate = Value + End Set + End Property + + Public Property Percentage() As Decimal + Get + Return Me._percentage + End Get + Set + Me._percentage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessment + +#Region "Private fields" + Private _customsValue As Decimal + + Private _outwardProcessingFee As Decimal + + Private _taxCosts As Decimal + + Private _amount As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + + Private _specificRate As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + + Private _contentInformation As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contentInformation = New List(Of FCFCDCBodyGoodsItemAssessmentContentInformation)() + Me._specificRate = New List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate)() + Me._amount = New List(Of FCFCDCBodyGoodsItemAssessmentAmount)() + End Sub + + Public Property CustomsValue() As Decimal + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property OutwardProcessingFee() As Decimal + Get + Return Me._outwardProcessingFee + End Get + Set + Me._outwardProcessingFee = Value + End Set + End Property + + Public Property TaxCosts() As Decimal + Get + Return Me._taxCosts + End Get + Set + Me._taxCosts = Value + End Set + End Property + + + Public Property Amount() As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + + Public Property SpecificRate() As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + Get + Return Me._specificRate + End Get + Set + Me._specificRate = Value + End Set + End Property + + + Public Property ContentInformation() As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + Get + Return Me._contentInformation + End Get + Set + Me._contentInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessment) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentAmount + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentSpecificRate + +#Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentSpecificRate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentSpecificRate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentSpecificRate) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentContentInformation + +#Region "Private fields" + Private _type As String + + Private _degreePercentage As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property DegreePercentage() As Decimal + Get + Return Me._degreePercentage + End Get + Set + Me._degreePercentage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentContentInformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentContentInformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentContentInformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentContentInformation + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentContentInformation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemAssessmentContentInformation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemExciseDuty + +#Region "Private fields" + Private _code As String + + Private _degreePercentage As Decimal + + Private _value As Decimal + + Private _amount As FCFCDCBodyGoodsItemExciseDutyAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._amount = New FCFCDCBodyGoodsItemExciseDutyAmount() + End Sub + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property DegreePercentage() As Decimal + Get + Return Me._degreePercentage + End Get + Set + Me._degreePercentage = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Public Property Amount() As FCFCDCBodyGoodsItemExciseDutyAmount + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDuty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDuty object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDuty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDuty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDuty + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDuty) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDuty object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemExciseDuty + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemExciseDutyAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDutyAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDutyAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDutyAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDutyAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDutyAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemExciseDutyAmount + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatment + +#Region "Private fields" + Private _requestedPreferentialTreatment As String + + Private _declaration As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._declaration = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration() + End Sub + + + Public Property RequestedPreferentialTreatment() As String + Get + Return Me._requestedPreferentialTreatment + End Get + Set + Me._requestedPreferentialTreatment = Value + End Set + End Property + + Public Property Declaration() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + +#Region "Private fields" + Private _contingent As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + + Private _preferentialTreatmentQuantity As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._preferentialTreatmentQuantity = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() + Me._contingent = New List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)() + End Sub + + + Public Property Contingent() As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Get + Return Me._contingent + End Get + Set + Me._contingent = Value + End Set + End Property + + Public Property PreferentialTreatmentQuantity() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Get + Return Me._preferentialTreatmentQuantity + End Get + Set + Me._preferentialTreatmentQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + +#Region "Private fields" + Private _contingentNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ContingentNumber() As String + Get + Return Me._contingentNumber + End Get + Set + Me._contingentNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + +#Region "Private fields" + Private _quantity As String + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemOutwardProcessingReduction + +#Region "Private fields" + Private _group As String + + Private _amount As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Group() As String + Get + Return Me._group + End Get + Set + Me._group = Value + End Set + End Property + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemOutwardProcessingReduction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemOutwardProcessingReduction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemOutwardProcessingReduction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemSpecialCase + +#Region "Private fields" + Private _group As String + + Private _applicationType As String + + Private _rateOrAmountOrFactor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Group() As String + Get + Return Me._group + End Get + Set + Me._group = Value + End Set + End Property + + + Public Property ApplicationType() As String + Get + Return Me._applicationType + End Get + Set + Me._applicationType = Value + End Set + End Property + + Public Property RateOrAmountOrFactor() As Decimal + Get + Return Me._rateOrAmountOrFactor + End Get + Set + Me._rateOrAmountOrFactor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSpecialCase)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSpecialCase object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSpecialCase + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSpecialCase) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSpecialCase + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSpecialCase) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSpecialCase object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemSpecialCase + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemDocument + +#Region "Private fields" + Private _division As String + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private _atHandFlag As String + + Private _writeOff As FCFCDCBodyGoodsItemDocumentWriteOff + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._writeOff = New FCFCDCBodyGoodsItemDocumentWriteOff() + End Sub + + + Public Property Division() As String + Get + Return Me._division + End Get + Set + Me._division = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set + Me._issuingDate = Value + End Set + End Property + + + Public Property AtHandFlag() As String + Get + Return Me._atHandFlag + End Get + Set + Me._atHandFlag = Value + End Set + End Property + + Public Property WriteOff() As FCFCDCBodyGoodsItemDocumentWriteOff + Get + Return Me._writeOff + End Get + Set + Me._writeOff = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocument object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocument + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemDocument + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class FCFCDCBodyGoodsItemDocumentWriteOff + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocumentWriteOff)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocumentWriteOff + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocumentWriteOff) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocumentWriteOff + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocumentWriteOff) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FCFCDCBodyGoodsItemDocumentWriteOff + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As [decimal] + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As [integer] + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As token + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.xsd new file mode 100644 index 0000000..c262b62 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.xsd @@ -0,0 +1,5609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index 9662c87..22b90d0 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1064,7 +1064,7 @@ Public Class cDakosyEZA For Each ADR In DY.eza_ADRESSEN 'Verkäufer If ADR.ezaAd_AdressTyp = "CZ" Then - Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL) + Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -1086,7 +1086,7 @@ Public Class cDakosyEZA 'Empfänger If ADR.ezaAd_AdressTyp = "CN" Then - Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL) + Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff @@ -1175,10 +1175,10 @@ Public Class cDakosyEZA End Function - Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE @@ -1188,7 +1188,7 @@ Public Class cDakosyEZA End Function - + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index 73bf239..f60d897 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -977,7 +977,7 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.BelegNr = DY.ncts_MRN SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") - Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, SQL) + Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -990,7 +990,7 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") ElseIf DY.ncts_WARENPOS.Count > 0 Then Dim WP = DY.ncts_WARENPOS(0) - Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, SQL) + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL) If AD_pos IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff @@ -1008,7 +1008,7 @@ Public Class cDakosyNCTSOut End If - Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, SQL) + Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL) If AD2 IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff @@ -1021,7 +1021,7 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "") ElseIf DY.ncts_WARENPOS.Count > 0 Then Dim WP = DY.ncts_WARENPOS(0) - Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, SQL) + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL) If AD_pos IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff @@ -1076,10 +1076,10 @@ Public Class cDakosyNCTSOut End Sub - Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 8d4ed88..8049a6f 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -95,6 +95,7 @@ + @@ -213,6 +214,9 @@ Designer + + Designer + Designer diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index d2eb2c0..bc3e8e4 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -989,8 +989,8 @@ Public Class cZOLL_IMPORT ' MsgBox(fNEF.txtAbsender.Text) - If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori")) - If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori")) + If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori"), "") + If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori"), "") ' If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("zbant_vertzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verteori")) @@ -1285,10 +1285,10 @@ Public Class cZOLL_IMPORT - Function getAdresseFromEORI(EORI) + Function getAdresseFromEORI(EORI, EORI_NL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then - Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI) + Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE @@ -1610,12 +1610,12 @@ Public Class cZOLL_IMPORT Return False End Function - Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String) + Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String, eori_NL As String) Dim kunde_tmp As String = "" Dim kdnr_tmp As String = "" If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then - kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori) + kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL) If IsNull(kdnr_tmp) Then If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr) diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index f90a6ac..09af748 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -173,6 +173,7 @@ If UL.ezaWpUl_Art IsNot Nothing Then Select Case UL.ezaWpUl_Art Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) + 'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) End Select diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index dce740f..b1fc3c8 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -752,7 +752,7 @@ Public Class cTelotec_Anmeldung 'Versender 'Verkäufer If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") Then - Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, SQL) + Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -773,7 +773,7 @@ Public Class cTelotec_Anmeldung 'Empfänger If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") Then - Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, SQL) + Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff @@ -879,7 +879,7 @@ Public Class cTelotec_Anmeldung 'Versender 'Verkäufer If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then - Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, SQL) + Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -900,7 +900,7 @@ Public Class cTelotec_Anmeldung 'Empfänger If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then - Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, SQL) + Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff @@ -994,10 +994,10 @@ Public Class cTelotec_Anmeldung End Function - Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/UID/Buergschaften/usrctlBuergschaft.vb b/UID/Buergschaften/usrctlBuergschaft.vb index bec135c..8b78730 100644 --- a/UID/Buergschaften/usrctlBuergschaft.vb +++ b/UID/Buergschaften/usrctlBuergschaft.vb @@ -890,6 +890,11 @@ Public Class usrctlBuergschaft End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click + 'doJahresauswertung_KEWILL + doJahresauswertung_DAKOSY() + End Sub + + Sub doJahresauswertung_KEWILL() Me.Cursor = Cursors.WaitCursor Try Dim cBrgYear As New List(Of cBrgYear) @@ -910,7 +915,7 @@ Public Class usrctlBuergschaft b.kw = kw Dim andstr_zabis As String = "" Dim andstr_zolaris As String = "" - + Dim bzol As Boolean = True Dim bzab As Boolean = True @@ -958,6 +963,7 @@ Public Class usrctlBuergschaft If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zabis(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE, andstr_zabis)) If cboSystemAuswertungJahrWo.Text <> "ATLAS" And bzol Then b.at_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zolaris) If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de2_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zabis(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE_NEU, andstr_zabis)) + ' b.at_zolaris = CDbl(0) cBrgYear.Add(b) @@ -975,6 +981,96 @@ Public Class usrctlBuergschaft Me.Cursor = Cursors.Default End Sub + Sub doJahresauswertung_DAKOSY() + Me.Cursor = Cursors.WaitCursor + Try + Dim cBrgYear As New List(Of cBrgYear) + Dim estr As String = "" + Dim estrText As String = "" + Dim zol_estr As String = "" + Dim zol_estrText As String = "" + If ComboBox2.Text = "" Then + MsgBox("Bitte Jahr auswählen!") + Me.Cursor = Cursors.Default + Exit Sub + End If + Dim year As Integer = ComboBox2.Text + + For kw As Integer = 1 To 53 + Dim aktdat As Date = CalendarWeek(kw, year) + Dim b As New cBrgYear + b.kw = kw + Dim andstr_zabis As String = "" + Dim andstr_zolaris As String = "" + + Dim bzol As Boolean = True + Dim bzab As Boolean = True + + If cbxSUB.Checked Or cbxATILLA.Checked Or cbxSBG.Checked Or cbxWAI.Checked Or cbxDURMAZ.Checked Or cbxNKD.Checked Or cbxNEU.Checked Then + bzol = False + bzab = True + 'andstr_zabis = " AND basman_nl IN ( " + andstr_zolaris = " AND OperatorId IN ( " + estr = "" + 'estrText = "" + zol_estr = "" + zol_estrText = "" + 'If cbxSUB.Checked Then estr &= " '" & cbxSUB.Text & "'," : estrText &= " 'SUB'," : bzab = True + 'If cbxWAI.Checked Then estr &= " '" & cbxWAI.Text & "'," : estrText &= " 'WAI'," : bzab = True + 'If cbxSBG.Checked Then estr &= " '" & cbxSBG.Text & "'," : estrText &= " 'SBG'," : bzab = True + 'If cbxNEU.Checked Then estr &= " '" & cbxNEU.Text & "'," : estrText &= " 'NEU'," : bzab = True + 'If cbxNKD.Checked Then estrText &= " 'NKD', " + 'If cbxATILLA.Checked Then estr &= " 'SUW'," : estrText &= " 'ATILLA'," : bzab = True 'ATILLA + 'If cbxDURMAZ.Checked Then estr &= " 'SUW'," : estrText &= " 'DURMAZ'," : bzab = True 'DURMAZ + 'If estr.EndsWith(",") Then estr = estr.Substring(0, estr.Length - 1) + 'If estrText.EndsWith(",") Then estrText = estrText.Substring(0, estrText.Length - 1) + ' andstr_zabis &= estr & ") " + + 'If Not cbxATILLA.Checked = cbxDURMAZ.Checked Then + ' If cbxATILLA.Checked Then andstr_zabis &= " AND ncts_ObjectName NOT LIKE 'DU%' " 'ATILLA + ' If cbxDURMAZ.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE 'DU%' " 'DURMAZ + 'End If + If cbxATILLA.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE '4801%' " 'ATILLA + If cbxDURMAZ.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE 'DU%' " 'DURMAZ + + 'ZOLARIS + + If cbxSUB.Checked Then zol_estr &= " '1', '4'," : bzol = True + ' If cbxWAI.Checked Then zol_estr &= " '4'," : bzol = True + If cbxSBG.Checked Then zol_estr &= " '2'," : bzol = True + If cbxNKD.Checked Then zol_estr &= " '3'," : bzol = True + If cbxATILLA.Checked Then zol_estr &= " '5', '6'," : bzol = True + If zol_estr.EndsWith(",") Then zol_estr = zol_estr.Substring(0, zol_estr.Length - 1) + + andstr_zolaris &= zol_estr & ") " + ' MsgBox(andstr_zabis & " - " & andstr_zolaris) + End If + ' " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' + + + If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.at__atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zabis)) + If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE, andstr_zabis)) + If cboSystemAuswertungJahrWo.Text <> "ATLAS" And bzol Then b.at_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zolaris) + If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de2_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE_NEU, andstr_zabis)) + + ' b.at_zolaris = CDbl(0) + + cBrgYear.Add(b) + Next + If cbxSplitATLASZOLARIS.Checked Then + genExcelYearSplitATLASEZOLL(cBrgYear, year, "AUSWERTUNG mit Einschränkung: " & estrText) + Else + genExcelYear(cBrgYear, year, "AUSWERTUNG mit Einschränkung: " & estrText) + End If + + Catch ex As System.Exception + MsgBox("Problem beim Verarbeiten der Jahresauswertung!" & vbNewLine & ex.Message & ex.StackTrace) + 'MsgBox(ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + + End Sub + Function toDbl(o) As Double Try If o.ToString <> "" Then diff --git a/cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb b/cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb index 52b2096..67425bc 100644 --- a/cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb +++ b/cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb @@ -16,6 +16,17 @@ Public Class cMAVIGetMsgType End Function + + Shared Function isTRNCTS_VersandanmeldungXML_CC015B_RES(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("CC015B_RES").Count > 0 Then + Return True + End If + End If + Return False + End Function + + Shared Function isTRNCTS_BestaetigungZollXML_CC029B(doc As XmlDocument) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("CC029B").Count > 0 Then @@ -25,4 +36,26 @@ Public Class cMAVIGetMsgType Return False End Function + + Shared Function isTRNCTS_BestaetigungZollXML_ARR_INF(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("ARR_INF").Count > 0 Then + Return True + End If + End If + Return False + End Function + + + + Shared Function isTRNCTS_ErledigungsmitteilungXML_CC045A(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("CC045A").Count > 0 Then + Return True + End If + End If + Return False + End Function + + End Class diff --git a/cNCTSPartnerWorker/cNCTS_TR.vb b/cNCTSPartnerWorker/cNCTS_TR.vb index 7b0d329..3b016d7 100644 --- a/cNCTSPartnerWorker/cNCTS_TR.vb +++ b/cNCTSPartnerWorker/cNCTS_TR.vb @@ -159,6 +159,10 @@ Public Class cNCTS_TR Property ncts_SumA_Befoerderer_Ort As Object = Nothing Property ncts_Stammreferenz As Object = Nothing + Property ncts_GUID As Object = Nothing + Property ncts_Eroeffnung As Object = Nothing + Property ncts_Ankunft As Object = Nothing + Property ncts_Erledigung As Object = Nothing Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben) Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) @@ -353,6 +357,10 @@ Public Class cNCTS_TR list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung)) Return list End Function @@ -517,7 +525,21 @@ Public Class cNCTS_TR End Try Return LOADByAnmID End Function - Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_TR + + Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + LOADByBezugsNr_or_GUID_or_MRN = New cNCTS_TR + + If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem) + If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then + If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem) + End If + If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then + If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem) + End If + End Function + + + Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR Try Dim NCTS As New cNCTS_TR Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -525,7 +547,47 @@ Public Class cNCTS_TR Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_MRN LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@MRN", MRN) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) Dim dr = cmd.ExecuteReader() @@ -557,6 +619,46 @@ Public Class cNCTS_TR Return Nothing End Function + Shared Function LOADByGUID(GUID As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_GUID LIKE @GUID " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@GUID", GUID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + Public Function UPDATE_Status(status As Integer) As String If ncts_Id > 0 Then @@ -834,10 +936,10 @@ Public Class cNCTS_TR - Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb index 635cd4a..4034b6c 100644 --- a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb +++ b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb @@ -148,7 +148,7 @@ Module AtlasAufschubDatenEinlesen 'Lösche File: Try - System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename) + If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) Catch ex As Exception writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) End Try diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index 00cbdc2..38b41bd 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb @@ -661,8 +661,8 @@ Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try - End If + 'If XMLFilePath = "" Then ' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\" ' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 7c84bb6..cf487e4 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -356,6 +356,21 @@ Public Class cGetMsgType End If Return False End Function + Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + ' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + + Return True + End If + 'End If + End If + Return False + End Function diff --git a/initATLASAufschubkonten/cMAVIWorker.vb b/initATLASAufschubkonten/cMAVIWorker.vb index 5ac246e..a2743b7 100644 --- a/initATLASAufschubkonten/cMAVIWorker.vb +++ b/initATLASAufschubkonten/cMAVIWorker.vb @@ -35,8 +35,8 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True) - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True,, "MAVI") + If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR NCTS.ncts_ObjectName = LRN NCTS.ncts_Partnersystem = "MAVI" @@ -88,6 +88,73 @@ Public Class cMAVIWorker + Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Try + readNCTS_VersandanmeldungXML_CC015B_RES = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + Dim LRN = "" + Dim GUID = "" + If doc.GetElementsByTagName("LRN").Count > 0 Then + LRN = doc.GetElementsByTagName("LRN")(0).InnerText + End If + + readNCTS_VersandanmeldungXML_CC015B_RES = LRN + + If doc.GetElementsByTagName("GUID").Count > 0 Then + GUID = doc.GetElementsByTagName("GUID")(0).InnerText + End If + + + Dim AnsprechpTMP_Email = "" + Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, "MAVI") + If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + NCTS.ncts_ObjectName = LRN + NCTS.ncts_GUID = GUID + + NCTS.ncts_Partnersystem = "MAVI" + + + + + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Else + readNCTS_VersandanmeldungXML_CC015B_RES = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Versandanmeldung - Ergänzung GUID", readNCTS_VersandanmeldungXML_CC015B_RES) + + ' End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_VersandanmeldungXML_CC015B_RES = "" + End Try + End Function + + Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String Try readNCTS_BestaetigungZollXML_CC029B = "" @@ -105,6 +172,12 @@ Public Class cMAVIWorker LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText End If + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + readNCTS_BestaetigungZollXML_CC029B = LRN @@ -114,12 +187,12 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True) + Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, "MAVI") If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR NCTS.ncts_ObjectName = LRN NCTS.ncts_Partnersystem = "MAVI" - + NCTS.ncts_Eroeffnung = Now.ToShortDateString 'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then ' Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben @@ -165,6 +238,143 @@ Public Class cMAVIWorker End Function + + + Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Try + readNCTS_ErledigungsmitteilungXML_CC045A = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + Dim TMSTMP As Date + If doc.GetElementsByTagName("WriOffDatHEA619").Count > 0 Then + 'If IsDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) Then + ' TMSTMP = CDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) + 'End If + Try + TMSTMP = Date.ParseExact(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + + Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByMRN(MRN, True,, "MAVI") + If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + 'NCTS.ncts_ObjectName = LRN + ' NCTS.ncts_GUID = Guid + NCTS.ncts_MRN = MRN + NCTS.ncts_Erledigung = TMSTMP.ToShortDateString + + NCTS.ncts_Partnersystem = "MAVI" + + + If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Else + readNCTS_ErledigungsmitteilungXML_CC045A = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Erledigungsmitteilung", readNCTS_ErledigungsmitteilungXML_CC045A) + + ' End Using + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_ErledigungsmitteilungXML_CC045A = "" + End Try + End Function + + Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Try + readNCTS_BestaetigungZollXML_ARR_INF = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + + Dim GUID = "" + If doc.GetElementsByTagName("GUID").Count > 0 Then + GUID = doc.GetElementsByTagName("GUID")(0).InnerText + End If + + Dim TMSTMP As Date + If doc.GetElementsByTagName("TMSTMP").Count > 0 Then + If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then + TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) + End If + + Dim AnsprechpTMP_Email = "" + + Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI") + If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + 'NCTS.ncts_ObjectName = LRN + NCTS.ncts_GUID = GUID + + NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Ankunft = TMSTMP.toshortdatestring + + + If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Else + readNCTS_BestaetigungZollXML_ARR_INF = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Ankunftsanzeige", readNCTS_BestaetigungZollXML_ARR_INF) + + ' End Using + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_BestaetigungZollXML_ARR_INF = "" + End Try + End Function + + + Shared Function getDatumXMLNothing(dateTmp) As Object If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then Dim datum As Date = CDate(dateTmp).ToShortDateString() diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index cee2517..bc154e2 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -77,7 +77,9 @@ Public Class frmDYNachrichtenVerarbeitung Me.Enabled = False Try Label5.Visible = True - DatenEinlesen() + + DatenEinlesen() '<<<<---------------------- + If dsNichtErkannt > 0 Then Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." @@ -331,7 +333,13 @@ Public Class frmDYNachrichtenVerarbeitung found = True End If End If - + 'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML + If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc) Then + Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc) + If bezugsNr <> "" Then + found = True + End If + End If 'EZA: EntscheidungAnmeldung If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc) Then @@ -2409,6 +2417,621 @@ Public Class frmDYNachrichtenVerarbeitung + Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc As XmlDocument) As String + Try + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlFCFCDD = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlFCFCDD) + Dim p = Path.GetTempFileName + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlFCFCDD) + outputFile.Close() + + + + Dim FCFCDD As DAKOSY_Worker.FCFCDD.FCFCDD = DAKOSY_Worker.FCFCDD.FCFCDD.LoadFromFile(p) + ' Dim EZA As New DAKOSY_Worker.cDakosyEZA + + + + If FCFCDD IsNot Nothing And FCFCDD.Header IsNot Nothing And FCFCDD.Header.LocalReferenceNumber IsNot Nothing Then + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = FCFCDD.Header.LocalReferenceNumber + Else + Return "" 'Keine Bezugsnummer + End If + + + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD, "EZA") + + Dim EZA As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + If EZA Is Nothing Then EZA = New DAKOSY_Worker.cDakosyEZA + If DY_TMP IsNot Nothing Then EZA.eza_dyaAnmID = DY_TMP.dy_Id + + If DY_TMP.dy_AvisoId Is Nothing Then + DY_TMP.tryFindAviso() + DY_TMP.SAVE() + End If + + + If FCFCDD IsNot Nothing Then + EZA.eza_ObjectName = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD + + If FCFCDD.MetaData IsNot Nothing Then + If FCFCDD.MetaData.Preparation IsNot Nothing Then EZA.eza_Trans_DatumZeit = CDate(FCFCDD.MetaData.Preparation.Date).ToShortDateString + End If + + + If FCFCDD.Header IsNot Nothing Then + + EZA.eza_VersendungsLandCode = FCFCDD.Header.DepartureCountry + EZA.eza_FinanzamtAnmelder = FCFCDD.Header.TaxOffice + EZA.eza_UstIdAnmelder = FCFCDD.Header.TaxNumber + + EZA.eza_Warenort = FCFCDD.Header.GoodsLocation + EZA.eza_Ausstellungsort = FCFCDD.Header.DeclarationPlace + + + EZA.eza_ZollrechtlicherStatus = FCFCDD.Header.CustomsGoodsStatus + EZA.eza_Zahlungsart = FCFCDD.Header.PaymentMethod + EZA.eza_AnmelderistEmpfaenger = FCFCDD.Header.DeclarantIsConsigneeFlag + EZA.eza_VertretungsVerhaeltnisCode = FCFCDD.Header.RepresentativeRelationshipFlag + EZA.eza_Vorsteuerabzug = FCFCDD.Header.InputTaxDeductionFlag + EZA.eza_ZusatzangabenAnmeldung = FCFCDD.Header.AdditionalInformation + + ' EZA.eza_VerfahrenBeantragtCode + End If + + End If + + If FCFCDD.Body IsNot Nothing Then + If FCFCDD.Body.ForeignTradeStatistics IsNot Nothing Then + + EZA.eza_ArtGeschaeftCode = FCFCDD.Body.ForeignTradeStatistics.TransactionType + EZA.eza_Bestimmungsland = FCFCDD.Body.ForeignTradeStatistics.DestinationCountry + EZA.eza_Bestimmungsbundesland = FCFCDD.Body.ForeignTradeStatistics.DestinationFederalState + + If FCFCDD.Body.ForeignTradeStatistics.EntryCustomsOffice IsNot Nothing Then + EZA.eza_Eingangszollstelle = FCFCDD.Body.ForeignTradeStatistics.EntryCustomsOffice.ReferenceNumber + End If + + EZA.eza_Statistikstatus = FCFCDD.Body.ForeignTradeStatistics.GoodsStatus + EZA.eza_DV1Kz = FCFCDD.Body.CustomsValueFlag + EZA.eza_GesamtRohmasse = FCFCDD.Body.ForeignTradeStatistics.TotalGrossMassMeasure + + End If + + If FCFCDD.Body.PaymentTransaction IsNot Nothing Then + EZA.eza_Rechnungswaehrung = FCFCDD.Body.PaymentTransaction.CurrencyCode + EZA.eza_Rechnungspreis = FCFCDD.Body.PaymentTransaction.Amount + + End If + + If FCFCDD.Body.CustomsValue IsNot Nothing Then + If FCFCDD.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDD.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag + EZA.eza_DV1FruehereEntscheidungen = FCFCDD.Body.CustomsValue.FormerDecisions + + If FCFCDD.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDD.Body.CustomsValue.Affiliation.Type + If FCFCDD.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDD.Body.CustomsValue.Affiliation.Description + If FCFCDD.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDD.Body.CustomsValue.LicenseFee.Description + If FCFCDD.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDD.Body.CustomsValue.LicenseFee.LicenseFeeFlag + End If + + If FCFCDD.Body.Document IsNot Nothing AndAlso FCFCDD.Body.Document.Count > 0 Then + For Each docTMP In FCFCDD.Body.Document + Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen + UNTERLAGE.ezaUl_Art = docTMP.Type + UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber + UNTERLAGE.ezaUl_Bereich = docTMP.Division + UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString + + EZA.eza_UNTERLAGEN.Add(UNTERLAGE) + Next + + End If + + ' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)??? + ' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '? + + 'Vorpapier + If FCFCDD.PreviousAdministrativeReferences IsNot Nothing Then + EZA.eza_VorpapierArtCode = FCFCDD.PreviousAdministrativeReferences.Type + If FCFCDD.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDD.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber + End If + + 'Beförderungsmittel Grenze + If FCFCDD.BorderTransportMeans IsNot Nothing Then + EZA.eza_BeförderungsmittelGrenzeArt = FCFCDD.BorderTransportMeans.Type + EZA.eza_VerkehrszweigGrenze = FCFCDD.BorderTransportMeans.Mode + EZA.eza_BeförderungsmittelGrenze = FCFCDD.BorderTransportMeans.Information + EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDD.BorderTransportMeans.Nationality + End If + + 'Beförderungsmittel Inland + If FCFCDD.BorderTransportMeans IsNot Nothing Then + EZA.eza_BeförderungsmittelGrenzeArt = FCFCDD.BorderTransportMeans.Type + EZA.eza_VerkehrszweigGrenze = FCFCDD.BorderTransportMeans.Mode + EZA.eza_BeförderungsmittelGrenze = FCFCDD.BorderTransportMeans.Information + EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDD.BorderTransportMeans.Nationality + End If + + 'Beförderungsmittel Inland + If FCFCDD.ArrivalTransportMeans IsNot Nothing Then + EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDD.ArrivalTransportMeans.Identity + End If + + 'Ansprechpartenr + If FCFCDD.ContactPerson IsNot Nothing Then + EZA.eza_AnmeldenderBearbeiterName = FCFCDD.ContactPerson.Name + EZA.eza_AnmeldenderBearbeiterEMail = FCFCDD.ContactPerson.MailAddress + EZA.eza_AnmeldenderBearbeiterStellung = FCFCDD.ContactPerson.Position + EZA.eza_AnmeldenderBearbeiterTel = FCFCDD.ContactPerson.PhoneNumber + Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") + If SB_Tmp <> "" Then + EZA.eza_Bearbeiter = SB_Tmp + End If + End If + + + + 'Anmleder + If FCFCDD.Declarant IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "DT" + If FCFCDD.Declarant.Name IsNot Nothing Then + If FCFCDD.Declarant.Name.ToString.Length > 40 Then + If FCFCDD.Declarant.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Declarant.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Declarant.Name.ToString.Substring(80, FCFCDD.Declarant.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Declarant.Name.ToString.Substring(40, FCFCDD.Declarant.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name + End If + End If + If FCFCDD.Declarant.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Declarant.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Declarant.Identification.SubsidiaryNumber + End If + If FCFCDD.Declarant.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Declarant.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Declarant.Address.City + ADR.ezaAd_PLZ = FCFCDD.Declarant.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Declarant.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + + + 'Vertreter + If FCFCDD.Representative IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CB" + If FCFCDD.Representative.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Representative.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Representative.Identification.SubsidiaryNumber + EZA.eza_ADRESSEN.Add(ADR) + End If + End If + + + 'Empfänger + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Consignee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CN" + If FCFCDD.Body.Consignee.Name IsNot Nothing Then + If FCFCDD.Body.Consignee.Name.ToString.Length > 40 Then + If FCFCDD.Body.Consignee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Body.Consignee.Name.ToString.Substring(80, FCFCDD.Body.Consignee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignee.Name.ToString.Substring(40, FCFCDD.Body.Consignee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name + End If + End If + If FCFCDD.Body.Consignee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Consignee.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Consignee.Identification.SubsidiaryNumber + End If + If FCFCDD.Body.Consignee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Consignee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Body.Consignee.Address.City + ADR.ezaAd_PLZ = FCFCDD.Body.Consignee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Body.Consignee.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Erwerber + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Acquirer IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "UC" + If FCFCDD.Body.Acquirer.Name IsNot Nothing Then + If FCFCDD.Body.Acquirer.Name.ToString.Length > 40 Then + If FCFCDD.Body.Acquirer.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Acquirer.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Body.Acquirer.Name.ToString.Substring(80, FCFCDD.Body.Acquirer.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Acquirer.Name.ToString.Substring(40, FCFCDD.Body.Acquirer.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name + End If + End If + If FCFCDD.Body.Acquirer.TaxNumber IsNot Nothing Then + ADR.ezaAd_UStIDAnmelder = FCFCDD.Body.Acquirer.TaxNumber + End If + + If FCFCDD.Body.Acquirer.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Acquirer.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Acquirer.Identification.SubsidiaryNumber + End If + If FCFCDD.Body.Acquirer.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Acquirer.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Body.Acquirer.Address.City + ADR.ezaAd_PLZ = FCFCDD.Body.Acquirer.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Body.Acquirer.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Versender/Ausführer + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Consignor IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CZ" + If FCFCDD.Body.Consignor.Name IsNot Nothing Then + If FCFCDD.Body.Consignor.Name.ToString.Length > 40 Then + If FCFCDD.Body.Consignor.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Body.Consignor.Name.ToString.Substring(80, FCFCDD.Body.Consignor.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignor.Name.ToString.Substring(40, FCFCDD.Body.Consignor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name + End If + End If + If FCFCDD.Body.Consignor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Consignor.Identification.ReferenceNumber + ' ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Consignor.Identification.SubsidiaryNumber + End If + If FCFCDD.Body.Consignor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Consignor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Body.Consignor.Address.City + ADR.ezaAd_PLZ = FCFCDD.Body.Consignor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Body.Consignor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Verkäufer + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.CustomsValue IsNot Nothing AndAlso FCFCDD.Body.CustomsValue.Vendor IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "SE" + If FCFCDD.Body.CustomsValue.Vendor.Name IsNot Nothing Then + If FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then + If FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name + End If + End If + If FCFCDD.Body.CustomsValue.Vendor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.CustomsValue.Vendor.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber + End If + If FCFCDD.Body.CustomsValue.Vendor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.CustomsValue.Vendor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Body.CustomsValue.Vendor.Address.City + ADR.ezaAd_PLZ = FCFCDD.Body.CustomsValue.Vendor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Body.CustomsValue.Vendor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Käufer + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.CustomsValue IsNot Nothing AndAlso FCFCDD.Body.CustomsValue.Vendee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "BY" + If FCFCDD.Body.CustomsValue.Vendee.Name IsNot Nothing Then + If FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then + If FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name + End If + End If + If FCFCDD.Body.CustomsValue.Vendee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.CustomsValue.Vendee.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber + End If + If FCFCDD.Body.CustomsValue.Vendee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.CustomsValue.Vendee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDD.Body.CustomsValue.Vendee.Address.City + ADR.ezaAd_PLZ = FCFCDD.Body.CustomsValue.Vendee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDD.Body.CustomsValue.Vendee.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + End If + + + + + ''Zollwertanmelder + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ")) + + + ''Vertr. Zollwertanmelder + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG")) + + ''Rechnung + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA")) + + ''Postfachadresse + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) + ''-- + + 'AUFSCHUB + If FCFCDD.DutyDefermentApproval IsNot Nothing AndAlso FCFCDD.DutyDefermentApproval.Count > 0 Then + For Each TMP In FCFCDD.DutyDefermentApproval + Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub + If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then + AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber + End If + + + AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber + AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix + AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber + AUFSCHUB.ezaAfb_Aufschubart = TMP.Type + AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType + EZA.eza_AUFSCHUB.Add(AUFSCHUB) + Next + + End If + + + 'Lieferbedingungen + If FCFCDD.Body.DeliveryTerms IsNot Nothing Then + EZA.eza_LieferbedingungCode = FCFCDD.Body.DeliveryTerms.Code + EZA.eza_LieferbedingungText = FCFCDD.Body.DeliveryTerms.Description + EZA.eza_LieferbedingungOrt = FCFCDD.Body.DeliveryTerms.Place + EZA.eza_LieferbedingungSchluessel = FCFCDD.Body.DeliveryTerms.Key + End If + + + ' ################################################### + 'POSITIONEN + ' ################################################### + + If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.GoodsItem IsNot Nothing AndAlso FCFCDD.Body.GoodsItem.Count > 0 Then + For Each GOODSITEM In FCFCDD.Body.GoodsItem + Dim POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition + + + POS.ezaWP_PositionsNummer = GOODSITEM.SequenceNumber + If GOODSITEM.CommodityCode IsNot Nothing Then POS.ezaWP_WarennummerEZT = GOODSITEM.CommodityCode.CommodityCode + If GOODSITEM.Procedure IsNot Nothing Then POS.ezaWP_AnmeldeVErfahren = GOODSITEM.Procedure.RequestedPreviousProcedure + + POS.ezaWP_AbgabensteuerungKz = GOODSITEM.CessionManagementFlag + POS.ezaWP_Warenbezeichnung = GOODSITEM.GoodsDescription + POS.ezaWP_PositionsZusatz = GOODSITEM.SupplementaryInformation + + If GOODSITEM.CustomsValue IsNot Nothing Then + POS.ezaWP_OrtVerbringens = GOODSITEM.CustomsValue.DestinationPlace + POS.ezaWP_AbflughafenIATACode = GOODSITEM.CustomsValue.DepartureAirport + If GOODSITEM.CustomsValue.NetPrice IsNot Nothing Then + ' POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.CurrencyCode + POS.ezaWP_KursVereinbartKz = GOODSITEM.CustomsValue.NetPrice.CurrencyRateAgreedFlag + POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.Value + 'POS.ezaWP_KursDatum= GOODSITEM.CustomsValue.NetPrice.CurrencyRate + 'POS.ezaWP_KursDatum = GOODSITEM.CustomsValue.NetPrice. + End If + + + If GOODSITEM.ForeignTradeStatistics IsNot Nothing Then + POS.ezaWP_Rohmasse = GOODSITEM.ForeignTradeStatistics.GrossMassMeasure + If GOODSITEM.ForeignTradeStatistics.Amount IsNot Nothing Then + 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 + + POS.ezaWP_UrsprungslandCode = GOODSITEM.OriginCountry + POS.ezaWP_Eigenmasse = GOODSITEM.NetMassMeasure + + ' POS.ezaWP_BeguenstigungBenatragtCode = Bedingun. + POS.ezaWP_BedingungCode = GOODSITEM.Condition + 'POS.ezaWP_EUCode = GOODSITEM.EUCode + + 'If GOODSITEM.Assessment IsNot Nothing Then + + ' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount. + ' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts + ' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee + 'End If + + + ''Packstücke + If GOODSITEM.Package IsNot Nothing Then + POS.ezaWP_PackstueckArt = GOODSITEM.Package.Kind + POS.ezaWP_PackstueckZeichen = GOODSITEM.Package.MarksNumbers + POS.ezaWP_PackstueckAnzahl = GOODSITEM.Package.Quantity + End If + + ''Packstücke + 'If GOODSITEM.Package IsNot Nothing AndAlso GOODSITEM.Package.Count > 0 Then + ' For Each PCK In GOODSITEM.Package + ' Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub + ' If PCK.DutyDefermentApplicant IsNot Nothing AndAlso PCK.DutyDefermentApplicant.Identification IsNot Nothing Then + ' AUFSCHUB.ezaAfb_AufschubnehmerEORI = PCK.DutyDefermentApplicant.Identification.ReferenceNumber + ' End If + ' AUFSCHUB.ezaAfb_AufschuBIN = PCK.AuthorisationNumber + ' AUFSCHUB.ezaAfb_KontoNr = PCK.AccountNumber + ' AUFSCHUB.ezaAfb_Aufschubart = PCK.Type + ' AUFSCHUB.ezaAfb_ArtAufschubantrag = PCK.ApplicationType + ' EZA.eza_AUFSCHUB.Add(AUFSCHUB) + ' Next + + 'End If + + + 'Preisart + '- + + POS.ezaWP_Artikelpreis = GOODSITEM.InvoiceAmount + 'Zusatzcode + If GOODSITEM.SupplementaryCodes IsNot Nothing AndAlso GOODSITEM.SupplementaryCodes.Count > 0 Then + Dim cnt = 0 + For Each s In GOODSITEM.SupplementaryCodes + If cnt = 0 Then POS.ezaWP_WarennummerZusatzCode1 = s.Code + If cnt = 1 Then POS.ezaWP_WarennummerZusatzCode2 = s.Code + If cnt = 2 Then POS.ezaWP_WarennummerZusatzCode3 = s.Code + If cnt = 3 Then POS.ezaWP_WarennummerZusatzCode4 = s.Code + If cnt = 4 Then POS.ezaWP_WarennummerZusatzCode5 = s.Code + If cnt = 5 Then POS.ezaWP_WarennummerZusatzCode6 = s.Code + If cnt = 6 Then POS.ezaWP_WarennummerZusatzCode7 = s.Code + If cnt = 7 Then POS.ezaWP_WarennummerZusatzCode8 = s.Code + If cnt = 8 Then POS.ezaWP_WarennummerZusatzCode9 = s.Code + If cnt = 9 Then POS.ezaWP_WarennummerZusatzCode10 = s.Code + cnt += 1 + Next + End If + + 'Abgabenminderung + '- + + 'Sonderfalldaten + If GOODSITEM.SpecialCase IsNot Nothing AndAlso GOODSITEM.SpecialCase.Count > 0 Then + For Each s In GOODSITEM.SpecialCase + Dim SA As New DAKOSY_Worker.cDakosy_EZA_WarenpositionSonderfalldaten + SA.ezaWpSfd_SonderabgabenGruppeCode = s.Group + SA.ezaWpSfd_AnwendungArt = s.ApplicationType + SA.ezaWpSfd_SatzBetragFaktor = s.RateOrAmountOrFactor + POS.ezaWP_SONDERFALLDATEN.Add(SA) + Next + End If + + + + 'Verbrauchsteuer + If GOODSITEM.ExciseDuty IsNot Nothing AndAlso GOODSITEM.ExciseDuty.Count > 0 Then + For Each s In GOODSITEM.ExciseDuty + Dim VS As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVerbrauchssteuer + VS.ezaWpVs_VerbrauchsteuerCode = s.Code + VS.ezaWpVs_VerbrauchssteuerWertbasis = s.Value + 'VS.ezaWpVs_VerbrauchssteuerMenge = s.DegreePercentage + If s.Amount IsNot Nothing Then + VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.Quantity + VS.ezaWpVs_VerbrauchssteuerMasseinheitQualifier = s.Amount.Qualifier + VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.MeasurementUnit + End If + POS.ezaWP_VERBRAUCHSSTEUER.Add(VS) + Next + End If + + If GOODSITEM.PreferentialTreatment IsNot Nothing Then + POS.ezaWP_BeguenstigungBenatragtCode = GOODSITEM.PreferentialTreatment.RequestedPreferentialTreatment + If GOODSITEM.PreferentialTreatment.Declaration IsNot Nothing AndAlso GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity IsNot Nothing Then + POS.ezaWP_BeguenstigungsMengeMasseinheitCode = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.MeasurementUnit + POS.ezaWP_BeguenstigungsMengeMenge = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Quantity + POS.ezaWP_BeguenstigungsMengeQualifier = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Qualifier + End If + End If + + + 'Unterlagen + If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then + For Each s In GOODSITEM.Document + Dim UL As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen + UL.ezaWpUl_Bereich = s.Division + UL.ezaWpUl_VorlageKz = s.AtHandFlag + If s.WriteOff IsNot Nothing Then + UL.ezaWpUl_AbschreibungsMengeMasseinheitQualifier = s.WriteOff.Qualifier + UL.ezaWpUl_AbschreibungsMengeMasseinheit = s.WriteOff.MeasurementUnit + UL.ezaWpUl_AbschreibungsMenge = s.WriteOff.Quantity + + End If + UL.ezaWpUl_Art = s.Type + UL.ezaWpUl_Nummer = s.ReferenceNumber + UL.ezaWpUl_DatumAusstellung = CDate(s.IssuingDate).ToShortDateString + POS.ezaWP_UNTERLAGEN.Add(UL) + Next + End If + End If + EZA.eza_WARENPOS.Add(POS) + + Next + + End If + + + If If(EZA.eza_Status, 0) <= 5 Then EZA.eza_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + If If(EZA.eza_Status_KEWILL_Equivalent, 0) <= 5 Then EZA.eza_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + + + + If EZA.SAVE_ALL() Then + If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) + Else + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = "" + End If + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + addDGVEinarbeitung("EZA: FreierVerkehrAktVeredelUmwandlung", readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD) + + End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = "" + End Try + End Function + Function readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc As XmlDocument) As String Try readEZA_FreierVerkehrAktVeredelUmwandlungXML = "" @@ -4989,7 +5612,7 @@ Public Class frmDYNachrichtenVerarbeitung 'Lösche File: Try - System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename) + System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) Catch ex As Exception writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) End Try diff --git a/initATLASAufschubkonten/frmRoutineManager.vb b/initATLASAufschubkonten/frmRoutineManager.vb index 3db1f69..6f346d1 100644 --- a/initATLASAufschubkonten/frmRoutineManager.vb +++ b/initATLASAufschubkonten/frmRoutineManager.vb @@ -27,7 +27,7 @@ Public Class frmRoutineManager ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Public Shared Path As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb" '"G:\atlas\atlas\fssouzb" + Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung '"G:\atlas\atlas\fssouzb" ' Dim ico As New NotifyIcon ' Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' icoAufschub.Visible = False @@ -55,7 +55,7 @@ Public Class frmRoutineManager Private Shared Sub Run() ' Create a new FileSystemWatcher and set its properties. Dim watcher As New FileSystemWatcher() - watcher.Path = Path + watcher.Path = PathATLAS ' Watch for changes in LastAccess and LastWrite times, and ' the renaming of files or directories. watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName) @@ -77,12 +77,13 @@ Public Class frmRoutineManager End Sub Public Sub doWork() Dim startTime As DateTime = Now + If False Then + setLabel(lblStatusEZOLL, "wartet ...", "green") setLabel(lblStatusATLAS, "läuft ...", "green") - setLabel(lblStatusEZOLL, "wartet ...", "green") Try - AtlasAufschubDatenEinlesen.initAllFiles(Path, HISTORY) + AtlasAufschubDatenEinlesen.initAllFiles(PathATLAS, HISTORY) setLabel(lblStatusATLAS, "OK", "green") 'frmAtlasAufschub.lblStatusATLAS.ForeColor = Color.Green Catch ex As Exception diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 05fcd23..56c2ef4 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -24,6 +24,7 @@ Partial Class frmStartOptions Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.LinkLabel28 = New System.Windows.Forms.LinkLabel() @@ -82,6 +83,8 @@ Partial Class frmStartOptions Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.LinkLabel31 = New System.Windows.Forms.LinkLabel() + Me.Label12 = New System.Windows.Forms.Label() Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() @@ -108,7 +111,6 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -167,6 +169,16 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(790, 677) Me.pnl.TabIndex = 0 ' + 'CheckBox3 + ' + Me.CheckBox3.AutoSize = True + Me.CheckBox3.Location = New System.Drawing.Point(302, 173) + Me.CheckBox3.Name = "CheckBox3" + Me.CheckBox3.Size = New System.Drawing.Size(103, 17) + Me.CheckBox3.TabIndex = 38 + Me.CheckBox3.Text = "History (1Monat)" + Me.CheckBox3.UseVisualStyleBackColor = True + ' 'tbcntr ' Me.tbcntr.Controls.Add(Me.TabPage1) @@ -872,6 +884,8 @@ Partial Class frmStartOptions ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.LinkLabel31) + Me.TabPage3.Controls.Add(Me.Label12) Me.TabPage3.Controls.Add(Me.LinkLabel29) Me.TabPage3.Controls.Add(Me.LinkLabel30) Me.TabPage3.Controls.Add(Me.Label11) @@ -882,6 +896,27 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' + 'LinkLabel31 + ' + Me.LinkLabel31.AutoSize = True + Me.LinkLabel31.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel31.Location = New System.Drawing.Point(416, 55) + Me.LinkLabel31.Name = "LinkLabel31" + Me.LinkLabel31.Size = New System.Drawing.Size(80, 13) + Me.LinkLabel31.TabIndex = 26 + Me.LinkLabel31.TabStop = True + Me.LinkLabel31.Text = "ASFINAG LKW" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(416, 28) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(40, 13) + Me.Label12.TabIndex = 25 + Me.Label12.Text = "MDM:" + ' 'LinkLabel29 ' Me.LinkLabel29.AutoSize = True @@ -1181,16 +1216,6 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - 'CheckBox3 - ' - Me.CheckBox3.AutoSize = True - Me.CheckBox3.Location = New System.Drawing.Point(302, 173) - Me.CheckBox3.Name = "CheckBox3" - Me.CheckBox3.Size = New System.Drawing.Size(103, 17) - Me.CheckBox3.TabIndex = 38 - Me.CheckBox3.Text = "History (1Monat)" - Me.CheckBox3.UseVisualStyleBackColor = True - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1318,4 +1343,6 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel30 As LinkLabel Friend WithEvents Label11 As Label Friend WithEvents CheckBox3 As CheckBox + Friend WithEvents LinkLabel31 As LinkLabel + Friend WithEvents Label12 As Label End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 505bac0..849d3ca 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -1,4 +1,5 @@ -Imports System.IO +Imports System.Data.OleDb +Imports System.IO Imports System.Net Imports System.Text Imports System.Xml @@ -1018,7 +1019,7 @@ Public Class frmStartOptions End Sub - Function getISett ()As cVERAG_Interface_Settings + Function getISett() As cVERAG_Interface_Settings getISett = New cVERAG_Interface_Settings getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked @@ -1052,4 +1053,76 @@ Public Class frmStartOptions f.ShowDialog() Me.Visible = True End Sub + + Private Sub LinkLabel31_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + ASFINAG_LKW() + End Sub + + Function ASFINAG_LKW() + Try + Dim SQl As New VERAG_PROG_ALLGEMEIN.SQL + + ' CLF-Einträge aus den bestehenden SDL-Datensätzen entfernen, + ' damit nach dem Aktualisierungslauf der Istzustand der CLF in der SDL hergestellt wird. + If Not SQl.getValueTxtBySql("UPDATE SDL Set OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "Fehler beim Reset SDL-Daten.", System.Reflection.MethodBase.GetCurrentMethod.Name) + Return False + End If + + ' Nummer der Speditionsdienstleistung für MautAT einlesen. + Dim SDLNr = SQl.getValueTxtBySql("SELECT isnull(SDLNr,'') FROM vwSpeditionsdienstleistungen WHERE (Sicht = 'vwMautAT')", "SDL") + If SDLNr = "" Then + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "SDL-Nr nicht gefunden.", System.Reflection.MethodBase.GetCurrentMethod.Name) + Return False + End If + + + + + ' Verbindung zur ASFINAG Datenbank herstellen + Dim connectionString = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp" + Else + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp" + End If + Dim con As New OleDbConnection(connectionString) + Dim cmd As New OleDbCommand + Dim var1 As String + Dim adapter As OleDbDataAdapter = New OleDbDataAdapter() + Dim reader As OleDbDataReader = Nothing + + ' Kfz Kennzeichen einlesen. + Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody " + Using Command As New OleDbCommand(SQLQuery, con) + Using oRDR As OleDbDataReader = Command.ExecuteReader + While (oRDR.Read) + Dim KartenNr = oRDR.GetValue("CardNumber") + + + ' Kundennummer einlesen + Dim KdNr = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL") + + 'Dim SDL = New cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr, History) + + + 'Call fktKundenSDLVerwalten(rstKreditkarten!AdressenNr, rstSDL!SDLNr, , "ASFINAG") + 'Call fktKundenLkwVerwalten(rstKreditkarten!AdressenNr, rstCLFBody!KfzKennzeichen, rstCLFBody!Nationalität, "ASFINAG") + + + End While + End Using + End Using + con.Close() + + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Return False + End Try + End Function + + End Class \ No newline at end of file diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index f6cfd6b..006b744 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb @@ -904,7 +904,7 @@ Public Class frmTCNachrichtenVerarbeitung 'Lösche File: Try - System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename) + System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) Catch ex As Exception writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) End Try diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb index da28422..321a796 100644 --- a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb @@ -79,7 +79,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung Me.Enabled = False Try Label5.Visible = True - DatenEinlesen() + + DatenEinlesen() '<<<<------------ + If dsNichtErkannt > 0 Then Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." @@ -294,12 +296,39 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung MsgBox("CC015B") If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True End If + + 'NCTS: Versandanmeldung - Ergänzung GUID + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then + MsgBox("CC015B_RES") + If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True + End If + + + 'NCTS: BestätigungZoll If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then MsgBox("CC029B") If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True End If + ''NCTS: Guarantee + 'If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then + ' MsgBox("GUA_INF") + ' If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True + 'End If + + 'NCTS: Ankunftsanzeige + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then + MsgBox("ARR_INF") + If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True + End If + + + 'NCTS: Erledigungsmitteilung + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then + MsgBox("CC045A") + If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True + End If End If