Files
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDE.Designer.vb
2022-11-07 13:22:36 +01:00

20290 lines
811 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net47","NameSpace":"FCFCDE","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
'' </auto-generated>
'' ------------------------------------------------------------------------------
#Disable Warning
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Runtime.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Namespace FCFCDE
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True),
XmlRoot()>
Partial Public Class FCFCDE
#Region "Private fields"
Private _metaData As FCFCDEMetaData
Private _header As FCFCDEHeader
Private _declarant As FCFCDEDeclarant
Private _representative As FCFCDERepresentative
Private _principal As FCFCDEPrincipal
Private _contactPerson As FCFCDEContactPerson
Private _dutyDefermentApproval As List(Of FCFCDEDutyDefermentApproval)
Private _borderTransportMeans As FCFCDEBorderTransportMeans
Private _arrivalTransportMeans As FCFCDEArrivalTransportMeans
Private _previousAdministrativeReferences As FCFCDEPreviousAdministrativeReferences
Private _summaryDeclaration As FCFCDESummaryDeclaration
Private _customsWarehouse As FCFCDECustomsWarehouse
Private _inwardProcessing As FCFCDEInwardProcessing
Private _body As FCFCDEBody
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._body = New FCFCDEBody()
Me._inwardProcessing = New FCFCDEInwardProcessing()
Me._customsWarehouse = New FCFCDECustomsWarehouse()
Me._summaryDeclaration = New FCFCDESummaryDeclaration()
Me._previousAdministrativeReferences = New FCFCDEPreviousAdministrativeReferences()
Me._arrivalTransportMeans = New FCFCDEArrivalTransportMeans()
Me._borderTransportMeans = New FCFCDEBorderTransportMeans()
Me._dutyDefermentApproval = New List(Of FCFCDEDutyDefermentApproval)()
Me._contactPerson = New FCFCDEContactPerson()
Me._principal = New FCFCDEPrincipal()
Me._representative = New FCFCDERepresentative()
Me._declarant = New FCFCDEDeclarant()
Me._header = New FCFCDEHeader()
Me._metaData = New FCFCDEMetaData()
End Sub
Public Property MetaData() As FCFCDEMetaData
Get
Return Me._metaData
End Get
Set
Me._metaData = Value
End Set
End Property
Public Property Header() As FCFCDEHeader
Get
Return Me._header
End Get
Set
Me._header = Value
End Set
End Property
Public Property Declarant() As FCFCDEDeclarant
Get
Return Me._declarant
End Get
Set
Me._declarant = Value
End Set
End Property
Public Property Representative() As FCFCDERepresentative
Get
Return Me._representative
End Get
Set
Me._representative = Value
End Set
End Property
Public Property Principal() As FCFCDEPrincipal
Get
Return Me._principal
End Get
Set
Me._principal = Value
End Set
End Property
Public Property ContactPerson() As FCFCDEContactPerson
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
<XmlElement("DutyDefermentApproval")>
Public Property DutyDefermentApproval() As List(Of FCFCDEDutyDefermentApproval)
Get
Return Me._dutyDefermentApproval
End Get
Set
Me._dutyDefermentApproval = Value
End Set
End Property
Public Property BorderTransportMeans() As FCFCDEBorderTransportMeans
Get
Return Me._borderTransportMeans
End Get
Set
Me._borderTransportMeans = Value
End Set
End Property
Public Property ArrivalTransportMeans() As FCFCDEArrivalTransportMeans
Get
Return Me._arrivalTransportMeans
End Get
Set
Me._arrivalTransportMeans = Value
End Set
End Property
Public Property PreviousAdministrativeReferences() As FCFCDEPreviousAdministrativeReferences
Get
Return Me._previousAdministrativeReferences
End Get
Set
Me._previousAdministrativeReferences = Value
End Set
End Property
Public Property SummaryDeclaration() As FCFCDESummaryDeclaration
Get
Return Me._summaryDeclaration
End Get
Set
Me._summaryDeclaration = Value
End Set
End Property
Public Property CustomsWarehouse() As FCFCDECustomsWarehouse
Get
Return Me._customsWarehouse
End Get
Set
Me._customsWarehouse = Value
End Set
End Property
Public Property InwardProcessing() As FCFCDEInwardProcessing
Get
Return Me._inwardProcessing
End Get
Set
Me._inwardProcessing = Value
End Set
End Property
Public Property Body() As FCFCDEBody
Get
Return Me._body
End Get
Set
Me._body = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDE))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDE object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDE object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDE object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDE, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDE)
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 FCFCDE) 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 FCFCDE
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDE)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDE
Return CType(SerializerXml.Deserialize(s), FCFCDE)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDE object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDE object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDE object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDE, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDE)
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 FCFCDE) 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 FCFCDE
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaData
#Region "Private fields"
Private _preparation As FCFCDEMetaDataPreparation
Private _interchangeControlReference As String
Private _messageReferenceNumber As String
Private _messageIdentifier As String
Private _messageGroup As FCFCDEMetaDataMessageGroup
Private _testIndicator As FCFCDEMetaDataTestIndicator
Private _messageType As FCFCDEMetaDataMessageType
Private _interchangeSender As FCFCDEMetaDataInterchangeSender
Private _interchangeRecipient As FCFCDEMetaDataInterchangeRecipient
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._interchangeRecipient = New FCFCDEMetaDataInterchangeRecipient()
Me._interchangeSender = New FCFCDEMetaDataInterchangeSender()
Me._preparation = New FCFCDEMetaDataPreparation()
End Sub
Public Property Preparation() As FCFCDEMetaDataPreparation
Get
Return Me._preparation
End Get
Set
Me._preparation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property InterchangeControlReference() As String
Get
Return Me._interchangeControlReference
End Get
Set
Me._interchangeControlReference = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property MessageReferenceNumber() As String
Get
Return Me._messageReferenceNumber
End Get
Set
Me._messageReferenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MessageIdentifier() As String
Get
Return Me._messageIdentifier
End Get
Set
Me._messageIdentifier = Value
End Set
End Property
Public Property MessageGroup() As FCFCDEMetaDataMessageGroup
Get
Return Me._messageGroup
End Get
Set
Me._messageGroup = Value
End Set
End Property
Public Property TestIndicator() As FCFCDEMetaDataTestIndicator
Get
Return Me._testIndicator
End Get
Set
Me._testIndicator = Value
End Set
End Property
Public Property MessageType() As FCFCDEMetaDataMessageType
Get
Return Me._messageType
End Get
Set
Me._messageType = Value
End Set
End Property
Public Property InterchangeSender() As FCFCDEMetaDataInterchangeSender
Get
Return Me._interchangeSender
End Get
Set
Me._interchangeSender = Value
End Set
End Property
Public Property InterchangeRecipient() As FCFCDEMetaDataInterchangeRecipient
Get
Return Me._interchangeRecipient
End Get
Set
Me._interchangeRecipient = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaData))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaData object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaData object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaData object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaData, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaData)
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 FCFCDEMetaData) 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 FCFCDEMetaData
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaData)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaData
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaData)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaData object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaData object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaData object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaData, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaData)
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 FCFCDEMetaData) 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 FCFCDEMetaData
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaDataPreparation
#Region "Private fields"
Private _date As Date
Private _time As Date
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="date")>
Public Property [Date]() As Date
Get
Return Me._date
End Get
Set
Me._date = Value
End Set
End Property
<XmlElement(DataType:="time")>
Public Property Time() As Date
Get
Return Me._time
End Get
Set
Me._time = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaDataPreparation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaDataPreparation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaDataPreparation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataPreparation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaDataPreparation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataPreparation)
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 FCFCDEMetaDataPreparation) 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 FCFCDEMetaDataPreparation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaDataPreparation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaDataPreparation
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaDataPreparation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaDataPreparation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaDataPreparation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataPreparation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaDataPreparation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataPreparation)
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 FCFCDEMetaDataPreparation) 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 FCFCDEMetaDataPreparation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEMetaDataMessageGroup
ZBE
ZBV
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEMetaDataTestIndicator
<XmlEnum("1")>
Item1
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEMetaDataMessageType
FCFCDE
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaDataInterchangeSender
#Region "Private fields"
Private _identification As FCFCDEMetaDataInterchangeSenderIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDEMetaDataInterchangeSenderIdentification()
End Sub
Public Property Identification() As FCFCDEMetaDataInterchangeSenderIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaDataInterchangeSender))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaDataInterchangeSender object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaDataInterchangeSender object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeSender object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeSender)
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 FCFCDEMetaDataInterchangeSender) 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 FCFCDEMetaDataInterchangeSender
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaDataInterchangeSender)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaDataInterchangeSender
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaDataInterchangeSender)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaDataInterchangeSender object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaDataInterchangeSender object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeSender object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeSender)
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 FCFCDEMetaDataInterchangeSender) 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 FCFCDEMetaDataInterchangeSender
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaDataInterchangeSenderIdentification
#Region "Private fields"
Private _referenceNumber As String
Private _subsidiaryNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaDataInterchangeSenderIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaDataInterchangeSenderIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaDataInterchangeSenderIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeSenderIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeSenderIdentification)
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 FCFCDEMetaDataInterchangeSenderIdentification) 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 FCFCDEMetaDataInterchangeSenderIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaDataInterchangeSenderIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaDataInterchangeSenderIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaDataInterchangeSenderIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaDataInterchangeSenderIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaDataInterchangeSenderIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeSenderIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeSenderIdentification)
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 FCFCDEMetaDataInterchangeSenderIdentification) 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 FCFCDEMetaDataInterchangeSenderIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaDataInterchangeRecipient
#Region "Private fields"
Private _identification As FCFCDEMetaDataInterchangeRecipientIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDEMetaDataInterchangeRecipientIdentification()
End Sub
Public Property Identification() As FCFCDEMetaDataInterchangeRecipientIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaDataInterchangeRecipient))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaDataInterchangeRecipient object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaDataInterchangeRecipient object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeRecipient object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeRecipient)
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 FCFCDEMetaDataInterchangeRecipient) 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 FCFCDEMetaDataInterchangeRecipient
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaDataInterchangeRecipient)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaDataInterchangeRecipient
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaDataInterchangeRecipient)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaDataInterchangeRecipient object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaDataInterchangeRecipient object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeRecipient object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeRecipient)
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 FCFCDEMetaDataInterchangeRecipient) 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 FCFCDEMetaDataInterchangeRecipient
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEMetaDataInterchangeRecipientIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEMetaDataInterchangeRecipientIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEMetaDataInterchangeRecipientIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEMetaDataInterchangeRecipientIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeRecipientIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeRecipientIdentification)
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 FCFCDEMetaDataInterchangeRecipientIdentification) 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 FCFCDEMetaDataInterchangeRecipientIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEMetaDataInterchangeRecipientIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEMetaDataInterchangeRecipientIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEMetaDataInterchangeRecipientIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEMetaDataInterchangeRecipientIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEMetaDataInterchangeRecipientIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEMetaDataInterchangeRecipientIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEMetaDataInterchangeRecipientIdentification)
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 FCFCDEMetaDataInterchangeRecipientIdentification) 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 FCFCDEMetaDataInterchangeRecipientIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEHeader
#Region "Private fields"
Private _messageVersion As String
Private _messageCreationDate As Date
Private _declaration As FCFCDEHeaderDeclaration
Private _localReferenceNumber As String
Private _prematureInputFlag As String
Private _goodsItemQuantity As String
Private _customsGoodsStatus As String
Private _declarantIsConsigneeFlag As String
Private _customsAuthorisation As FCFCDEHeaderCustomsAuthorisation
Private _inputTaxDeductionFlag As String
Private _goodsLocation As String
Private _departureCountry As String
Private _paymentMethod As FCFCDEHeaderPaymentMethod
Private _currencyCode As FCFCDEHeaderCurrencyCode
Private _additionalInformation As String
Private _taxOffice As String
Private _representativeRelationshipFlag As String
Private _declarationPlace As String
Private _authorisationNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._customsAuthorisation = New FCFCDEHeaderCustomsAuthorisation()
Me._declaration = New FCFCDEHeaderDeclaration()
End Sub
<XmlElement(DataType:="token")>
Public Property MessageVersion() As String
Get
Return Me._messageVersion
End Get
Set
Me._messageVersion = Value
End Set
End Property
<XmlElement(DataType:="date")>
Public Property MessageCreationDate() As Date
Get
Return Me._messageCreationDate
End Get
Set
Me._messageCreationDate = Value
End Set
End Property
Public Property Declaration() As FCFCDEHeaderDeclaration
Get
Return Me._declaration
End Get
Set
Me._declaration = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property LocalReferenceNumber() As String
Get
Return Me._localReferenceNumber
End Get
Set
Me._localReferenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property PrematureInputFlag() As String
Get
Return Me._prematureInputFlag
End Get
Set
Me._prematureInputFlag = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property GoodsItemQuantity() As String
Get
Return Me._goodsItemQuantity
End Get
Set
Me._goodsItemQuantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CustomsGoodsStatus() As String
Get
Return Me._customsGoodsStatus
End Get
Set
Me._customsGoodsStatus = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DeclarantIsConsigneeFlag() As String
Get
Return Me._declarantIsConsigneeFlag
End Get
Set
Me._declarantIsConsigneeFlag = Value
End Set
End Property
Public Property CustomsAuthorisation() As FCFCDEHeaderCustomsAuthorisation
Get
Return Me._customsAuthorisation
End Get
Set
Me._customsAuthorisation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property InputTaxDeductionFlag() As String
Get
Return Me._inputTaxDeductionFlag
End Get
Set
Me._inputTaxDeductionFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property GoodsLocation() As String
Get
Return Me._goodsLocation
End Get
Set
Me._goodsLocation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DepartureCountry() As String
Get
Return Me._departureCountry
End Get
Set
Me._departureCountry = Value
End Set
End Property
Public Property PaymentMethod() As FCFCDEHeaderPaymentMethod
Get
Return Me._paymentMethod
End Get
Set
Me._paymentMethod = Value
End Set
End Property
Public Property CurrencyCode() As FCFCDEHeaderCurrencyCode
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AdditionalInformation() As String
Get
Return Me._additionalInformation
End Get
Set
Me._additionalInformation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property TaxOffice() As String
Get
Return Me._taxOffice
End Get
Set
Me._taxOffice = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property RepresentativeRelationshipFlag() As String
Get
Return Me._representativeRelationshipFlag
End Get
Set
Me._representativeRelationshipFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DeclarationPlace() As String
Get
Return Me._declarationPlace
End Get
Set
Me._declarationPlace = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AuthorisationNumber() As String
Get
Return Me._authorisationNumber
End Get
Set
Me._authorisationNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEHeader))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEHeader object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEHeader object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEHeader object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEHeader, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeader)
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 FCFCDEHeader) 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 FCFCDEHeader
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEHeader)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEHeader
Return CType(SerializerXml.Deserialize(s), FCFCDEHeader)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEHeader object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEHeader object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEHeader object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEHeader, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeader)
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 FCFCDEHeader) 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 FCFCDEHeader
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEHeaderDeclaration
#Region "Private fields"
Private _kind As FCFCDEHeaderDeclarationKind
Private _type As FCFCDEHeaderDeclarationType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Kind() As FCFCDEHeaderDeclarationKind
Get
Return Me._kind
End Get
Set
Me._kind = Value
End Set
End Property
Public Property Type() As FCFCDEHeaderDeclarationType
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEHeaderDeclaration))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEHeaderDeclaration object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEHeaderDeclaration object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEHeaderDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEHeaderDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeaderDeclaration)
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 FCFCDEHeaderDeclaration) 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 FCFCDEHeaderDeclaration
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEHeaderDeclaration)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEHeaderDeclaration
Return CType(SerializerXml.Deserialize(s), FCFCDEHeaderDeclaration)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEHeaderDeclaration object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEHeaderDeclaration object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEHeaderDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEHeaderDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeaderDeclaration)
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 FCFCDEHeaderDeclaration) 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 FCFCDEHeaderDeclaration
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEHeaderDeclarationKind
A
B
D
E
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEHeaderDeclarationType
EZA
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEHeaderCustomsAuthorisation
#Region "Private fields"
Private _endUse As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property EndUse() As String
Get
Return Me._endUse
End Get
Set
Me._endUse = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEHeaderCustomsAuthorisation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEHeaderCustomsAuthorisation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEHeaderCustomsAuthorisation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEHeaderCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeaderCustomsAuthorisation)
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 FCFCDEHeaderCustomsAuthorisation) 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 FCFCDEHeaderCustomsAuthorisation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEHeaderCustomsAuthorisation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEHeaderCustomsAuthorisation
Return CType(SerializerXml.Deserialize(s), FCFCDEHeaderCustomsAuthorisation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEHeaderCustomsAuthorisation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEHeaderCustomsAuthorisation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEHeaderCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEHeaderCustomsAuthorisation)
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 FCFCDEHeaderCustomsAuthorisation) 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 FCFCDEHeaderCustomsAuthorisation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEHeaderPaymentMethod
A
C
D
E
F
G
Y
Z
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEHeaderCurrencyCode
EUR
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDeclarant
#Region "Private fields"
Private _identification As FCFCDEDeclarantIdentification
Private _name As String
Private _address As FCFCDEDeclarantAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEDeclarantAddress()
Me._identification = New FCFCDEDeclarantIdentification()
End Sub
Public Property Identification() As FCFCDEDeclarantIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEDeclarantAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDeclarant))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDeclarant object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDeclarant object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDeclarant object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDeclarant, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarant)
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 FCFCDEDeclarant) 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 FCFCDEDeclarant
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDeclarant)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDeclarant
Return CType(SerializerXml.Deserialize(s), FCFCDEDeclarant)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDeclarant object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDeclarant object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDeclarant object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDeclarant, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarant)
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 FCFCDEDeclarant) 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 FCFCDEDeclarant
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDeclarantIdentification
#Region "Private fields"
Private _referenceNumber As String
Private _subsidiaryNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDeclarantIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDeclarantIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDeclarantIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDeclarantIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDeclarantIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarantIdentification)
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 FCFCDEDeclarantIdentification) 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 FCFCDEDeclarantIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDeclarantIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDeclarantIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEDeclarantIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDeclarantIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDeclarantIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDeclarantIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDeclarantIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarantIdentification)
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 FCFCDEDeclarantIdentification) 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 FCFCDEDeclarantIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDeclarantAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDeclarantAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDeclarantAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDeclarantAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDeclarantAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDeclarantAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarantAddress)
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 FCFCDEDeclarantAddress) 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 FCFCDEDeclarantAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDeclarantAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDeclarantAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEDeclarantAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDeclarantAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDeclarantAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDeclarantAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDeclarantAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDeclarantAddress)
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 FCFCDEDeclarantAddress) 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 FCFCDEDeclarantAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDERepresentative
#Region "Private fields"
Private _identification As FCFCDERepresentativeIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDERepresentativeIdentification()
End Sub
Public Property Identification() As FCFCDERepresentativeIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDERepresentative))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDERepresentative object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDERepresentative object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDERepresentative object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDERepresentative, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDERepresentative)
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 FCFCDERepresentative) 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 FCFCDERepresentative
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDERepresentative)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDERepresentative
Return CType(SerializerXml.Deserialize(s), FCFCDERepresentative)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDERepresentative object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDERepresentative object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDERepresentative object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDERepresentative, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDERepresentative)
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 FCFCDERepresentative) 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 FCFCDERepresentative
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDERepresentativeIdentification
#Region "Private fields"
Private _referenceNumber As String
Private _subsidiaryNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDERepresentativeIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDERepresentativeIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDERepresentativeIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDERepresentativeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDERepresentativeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDERepresentativeIdentification)
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 FCFCDERepresentativeIdentification) 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 FCFCDERepresentativeIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDERepresentativeIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDERepresentativeIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDERepresentativeIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDERepresentativeIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDERepresentativeIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDERepresentativeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDERepresentativeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDERepresentativeIdentification)
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 FCFCDERepresentativeIdentification) 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 FCFCDERepresentativeIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEPrincipal
#Region "Private fields"
Private _identification As FCFCDEPrincipalIdentification
Private _name As String
Private _address As FCFCDEPrincipalAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEPrincipalAddress()
Me._identification = New FCFCDEPrincipalIdentification()
End Sub
Public Property Identification() As FCFCDEPrincipalIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEPrincipalAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEPrincipal))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEPrincipal object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEPrincipal object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEPrincipal object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEPrincipal, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipal)
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 FCFCDEPrincipal) 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 FCFCDEPrincipal
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEPrincipal)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEPrincipal
Return CType(SerializerXml.Deserialize(s), FCFCDEPrincipal)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEPrincipal object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEPrincipal object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEPrincipal object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEPrincipal, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipal)
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 FCFCDEPrincipal) 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 FCFCDEPrincipal
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEPrincipalIdentification
#Region "Private fields"
Private _referenceNumber As String
Private _subsidiaryNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEPrincipalIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEPrincipalIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEPrincipalIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEPrincipalIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEPrincipalIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipalIdentification)
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 FCFCDEPrincipalIdentification) 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 FCFCDEPrincipalIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEPrincipalIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEPrincipalIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEPrincipalIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEPrincipalIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEPrincipalIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEPrincipalIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEPrincipalIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipalIdentification)
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 FCFCDEPrincipalIdentification) 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 FCFCDEPrincipalIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEPrincipalAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEPrincipalAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEPrincipalAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEPrincipalAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEPrincipalAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEPrincipalAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipalAddress)
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 FCFCDEPrincipalAddress) 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 FCFCDEPrincipalAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEPrincipalAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEPrincipalAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEPrincipalAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEPrincipalAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEPrincipalAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEPrincipalAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEPrincipalAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPrincipalAddress)
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 FCFCDEPrincipalAddress) 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 FCFCDEPrincipalAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEContactPerson
#Region "Private fields"
Private _name As String
Private _position As String
Private _phoneNumber As String
Private _mailAddress As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Position() As String
Get
Return Me._position
End Get
Set
Me._position = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property PhoneNumber() As String
Get
Return Me._phoneNumber
End Get
Set
Me._phoneNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MailAddress() As String
Get
Return Me._mailAddress
End Get
Set
Me._mailAddress = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEContactPerson))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEContactPerson object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEContactPerson object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEContactPerson object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEContactPerson, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEContactPerson)
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 FCFCDEContactPerson) 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 FCFCDEContactPerson
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEContactPerson)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEContactPerson
Return CType(SerializerXml.Deserialize(s), FCFCDEContactPerson)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEContactPerson object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEContactPerson object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEContactPerson object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEContactPerson, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEContactPerson)
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 FCFCDEContactPerson) 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 FCFCDEContactPerson
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDutyDefermentApproval
#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 FCFCDEDutyDefermentApprovalDutyDefermentApplicant
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._dutyDefermentApplicant = New FCFCDEDutyDefermentApprovalDutyDefermentApplicant()
End Sub
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ApplicationType() As String
Get
Return Me._applicationType
End Get
Set
Me._applicationType = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AccountPrefix() As String
Get
Return Me._accountPrefix
End Get
Set
Me._accountPrefix = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AccountNumber() As String
Get
Return Me._accountNumber
End Get
Set
Me._accountNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AuthorisationNumber() As String
Get
Return Me._authorisationNumber
End Get
Set
Me._authorisationNumber = Value
End Set
End Property
Public Property DutyDefermentApplicant() As FCFCDEDutyDefermentApprovalDutyDefermentApplicant
Get
Return Me._dutyDefermentApplicant
End Get
Set
Me._dutyDefermentApplicant = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDutyDefermentApproval))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDutyDefermentApproval object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDutyDefermentApproval object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApproval object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDutyDefermentApproval, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApproval)
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 FCFCDEDutyDefermentApproval) 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 FCFCDEDutyDefermentApproval
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDutyDefermentApproval)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDutyDefermentApproval
Return CType(SerializerXml.Deserialize(s), FCFCDEDutyDefermentApproval)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDutyDefermentApproval object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDutyDefermentApproval object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApproval object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDutyDefermentApproval, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApproval)
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 FCFCDEDutyDefermentApproval) 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 FCFCDEDutyDefermentApproval
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDutyDefermentApprovalDutyDefermentApplicant
#Region "Private fields"
Private _identification As FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification()
End Sub
Public Property Identification() As FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDutyDefermentApprovalDutyDefermentApplicant))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDutyDefermentApprovalDutyDefermentApplicant object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDutyDefermentApprovalDutyDefermentApplicant object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApprovalDutyDefermentApplicant object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApprovalDutyDefermentApplicant)
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 FCFCDEDutyDefermentApprovalDutyDefermentApplicant) 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 FCFCDEDutyDefermentApprovalDutyDefermentApplicant
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDutyDefermentApprovalDutyDefermentApplicant)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDutyDefermentApprovalDutyDefermentApplicant
Return CType(SerializerXml.Deserialize(s), FCFCDEDutyDefermentApprovalDutyDefermentApplicant)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDutyDefermentApprovalDutyDefermentApplicant object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDutyDefermentApprovalDutyDefermentApplicant object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApprovalDutyDefermentApplicant object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApprovalDutyDefermentApplicant)
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 FCFCDEDutyDefermentApprovalDutyDefermentApplicant) 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 FCFCDEDutyDefermentApprovalDutyDefermentApplicant
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification)
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 FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification) 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 FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification)
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 FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification) 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 FCFCDEDutyDefermentApprovalDutyDefermentApplicantIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBorderTransportMeans
#Region "Private fields"
Private _mode As String
Private _type As String
Private _information As String
Private _nationality As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Mode() As String
Get
Return Me._mode
End Get
Set
Me._mode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Information() As String
Get
Return Me._information
End Get
Set
Me._information = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Nationality() As String
Get
Return Me._nationality
End Get
Set
Me._nationality = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBorderTransportMeans))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBorderTransportMeans object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBorderTransportMeans object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBorderTransportMeans object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBorderTransportMeans, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBorderTransportMeans)
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 FCFCDEBorderTransportMeans) 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 FCFCDEBorderTransportMeans
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBorderTransportMeans)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBorderTransportMeans
Return CType(SerializerXml.Deserialize(s), FCFCDEBorderTransportMeans)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBorderTransportMeans object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBorderTransportMeans object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBorderTransportMeans object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBorderTransportMeans, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBorderTransportMeans)
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 FCFCDEBorderTransportMeans) 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 FCFCDEBorderTransportMeans
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEArrivalTransportMeans
#Region "Private fields"
Private _identity As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Identity() As String
Get
Return Me._identity
End Get
Set
Me._identity = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEArrivalTransportMeans))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEArrivalTransportMeans object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEArrivalTransportMeans object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEArrivalTransportMeans object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEArrivalTransportMeans, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEArrivalTransportMeans)
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 FCFCDEArrivalTransportMeans) 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 FCFCDEArrivalTransportMeans
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEArrivalTransportMeans)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEArrivalTransportMeans
Return CType(SerializerXml.Deserialize(s), FCFCDEArrivalTransportMeans)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEArrivalTransportMeans object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEArrivalTransportMeans object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEArrivalTransportMeans object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEArrivalTransportMeans, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEArrivalTransportMeans)
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 FCFCDEArrivalTransportMeans) 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 FCFCDEArrivalTransportMeans
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEPreviousAdministrativeReferences
#Region "Private fields"
Private _type As String
Private _previousAdministrativeReference As FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._previousAdministrativeReference = New FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference()
End Sub
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
Public Property PreviousAdministrativeReference() As FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
Get
Return Me._previousAdministrativeReference
End Get
Set
Me._previousAdministrativeReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEPreviousAdministrativeReferences))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEPreviousAdministrativeReferences object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEPreviousAdministrativeReferences object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEPreviousAdministrativeReferences object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPreviousAdministrativeReferences)
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 FCFCDEPreviousAdministrativeReferences) 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 FCFCDEPreviousAdministrativeReferences
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEPreviousAdministrativeReferences)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEPreviousAdministrativeReferences
Return CType(SerializerXml.Deserialize(s), FCFCDEPreviousAdministrativeReferences)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEPreviousAdministrativeReferences object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEPreviousAdministrativeReferences object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEPreviousAdministrativeReferences object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPreviousAdministrativeReferences)
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 FCFCDEPreviousAdministrativeReferences) 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 FCFCDEPreviousAdministrativeReferences
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference)
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 FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
Return CType(SerializerXml.Deserialize(s), FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference)
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 FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 FCFCDEPreviousAdministrativeReferencesPreviousAdministrativeReference
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclaration
#Region "Private fields"
Private _identificationIndicator As FCFCDESummaryDeclarationIdentificationIndicator
Private _goodsItem As List(Of FCFCDESummaryDeclarationGoodsItem)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsItem = New List(Of FCFCDESummaryDeclarationGoodsItem)()
End Sub
Public Property IdentificationIndicator() As FCFCDESummaryDeclarationIdentificationIndicator
Get
Return Me._identificationIndicator
End Get
Set
Me._identificationIndicator = Value
End Set
End Property
<XmlElement("GoodsItem")>
Public Property GoodsItem() As List(Of FCFCDESummaryDeclarationGoodsItem)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclaration))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclaration object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclaration object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclaration)
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 FCFCDESummaryDeclaration) 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 FCFCDESummaryDeclaration
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclaration)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclaration
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclaration)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclaration object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclaration object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclaration)
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 FCFCDESummaryDeclaration) 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 FCFCDESummaryDeclaration
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDESummaryDeclarationIdentificationIndicator
AWB
REG
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclarationGoodsItem
#Region "Private fields"
Private _quantity As String
Private _identificationByKey As FCFCDESummaryDeclarationGoodsItemIdentificationByKey
Private _identificationByRegistration As FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identificationByRegistration = New FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration()
Me._identificationByKey = New FCFCDESummaryDeclarationGoodsItemIdentificationByKey()
End Sub
<XmlElement(DataType:="integer")>
Public Property Quantity() As String
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
Public Property IdentificationByKey() As FCFCDESummaryDeclarationGoodsItemIdentificationByKey
Get
Return Me._identificationByKey
End Get
Set
Me._identificationByKey = Value
End Set
End Property
Public Property IdentificationByRegistration() As FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
Get
Return Me._identificationByRegistration
End Get
Set
Me._identificationByRegistration = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclarationGoodsItem))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclarationGoodsItem object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclarationGoodsItem object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItem)
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 FCFCDESummaryDeclarationGoodsItem) 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 FCFCDESummaryDeclarationGoodsItem
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclarationGoodsItem)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclarationGoodsItem
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclarationGoodsItem)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclarationGoodsItem object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclarationGoodsItem object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItem)
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 FCFCDESummaryDeclarationGoodsItem) 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 FCFCDESummaryDeclarationGoodsItem
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclarationGoodsItemIdentificationByKey
#Region "Private fields"
Private _kind As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyKind
Private _number As String
Private _custodian As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._custodian = New FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian()
End Sub
Public Property Kind() As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyKind
Get
Return Me._kind
End Get
Set
Me._kind = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Number() As String
Get
Return Me._number
End Get
Set
Me._number = Value
End Set
End Property
Public Property Custodian() As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
Get
Return Me._custodian
End Get
Set
Me._custodian = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclarationGoodsItemIdentificationByKey))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclarationGoodsItemIdentificationByKey object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclarationGoodsItemIdentificationByKey object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKey object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKey)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKey) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKey
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclarationGoodsItemIdentificationByKey)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclarationGoodsItemIdentificationByKey
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclarationGoodsItemIdentificationByKey)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclarationGoodsItemIdentificationByKey object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclarationGoodsItemIdentificationByKey object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKey object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKey)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKey) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKey
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDESummaryDeclarationGoodsItemIdentificationByKeyKind
AWB
ULD
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
#Region "Private fields"
Private _identification As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification()
End Sub
Public Property Identification() As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodian
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
#Region "Private fields"
Private _referencedRegistrationNumber As String
Private _referencedSequenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferencedRegistrationNumber() As String
Get
Return Me._referencedRegistrationNumber
End Get
Set
Me._referencedRegistrationNumber = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property ReferencedSequenceNumber() As String
Get
Return Me._referencedSequenceNumber
End Get
Set
Me._referencedSequenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
Return CType(SerializerXml.Deserialize(s), FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration)
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 FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration) 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 FCFCDESummaryDeclarationGoodsItemIdentificationByRegistration
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDECustomsWarehouse
#Region "Private fields"
Private _sequenceNumber As FCFCDECustomsWarehouseSequenceNumber
Private _goodsItemQuantity As String
Private _customsAuthorisation As FCFCDECustomsWarehouseCustomsAuthorisation
Private _localReferenceNumber As String
Private _goodsItem As List(Of FCFCDECustomsWarehouseGoodsItem)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsItem = New List(Of FCFCDECustomsWarehouseGoodsItem)()
Me._customsAuthorisation = New FCFCDECustomsWarehouseCustomsAuthorisation()
End Sub
Public Property SequenceNumber() As FCFCDECustomsWarehouseSequenceNumber
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property GoodsItemQuantity() As String
Get
Return Me._goodsItemQuantity
End Get
Set
Me._goodsItemQuantity = Value
End Set
End Property
Public Property CustomsAuthorisation() As FCFCDECustomsWarehouseCustomsAuthorisation
Get
Return Me._customsAuthorisation
End Get
Set
Me._customsAuthorisation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property LocalReferenceNumber() As String
Get
Return Me._localReferenceNumber
End Get
Set
Me._localReferenceNumber = Value
End Set
End Property
<XmlElement("GoodsItem")>
Public Property GoodsItem() As List(Of FCFCDECustomsWarehouseGoodsItem)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDECustomsWarehouse))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDECustomsWarehouse object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDECustomsWarehouse object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouse object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDECustomsWarehouse, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouse)
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 FCFCDECustomsWarehouse) 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 FCFCDECustomsWarehouse
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDECustomsWarehouse)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDECustomsWarehouse
Return CType(SerializerXml.Deserialize(s), FCFCDECustomsWarehouse)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDECustomsWarehouse object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDECustomsWarehouse object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouse object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDECustomsWarehouse, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouse)
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 FCFCDECustomsWarehouse) 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 FCFCDECustomsWarehouse
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDECustomsWarehouseSequenceNumber
<XmlEnum("1")>
Item1
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDECustomsWarehouseCustomsAuthorisation
#Region "Private fields"
Private _warehouseOwner As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property WarehouseOwner() As String
Get
Return Me._warehouseOwner
End Get
Set
Me._warehouseOwner = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDECustomsWarehouseCustomsAuthorisation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDECustomsWarehouseCustomsAuthorisation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDECustomsWarehouseCustomsAuthorisation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDECustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseCustomsAuthorisation)
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 FCFCDECustomsWarehouseCustomsAuthorisation) 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 FCFCDECustomsWarehouseCustomsAuthorisation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDECustomsWarehouseCustomsAuthorisation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDECustomsWarehouseCustomsAuthorisation
Return CType(SerializerXml.Deserialize(s), FCFCDECustomsWarehouseCustomsAuthorisation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDECustomsWarehouseCustomsAuthorisation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDECustomsWarehouseCustomsAuthorisation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDECustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseCustomsAuthorisation)
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 FCFCDECustomsWarehouseCustomsAuthorisation) 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 FCFCDECustomsWarehouseCustomsAuthorisation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDECustomsWarehouseGoodsItem
#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 FCFCDECustomsWarehouseGoodsItemCommercialAmount
Private _debitAmount As FCFCDECustomsWarehouseGoodsItemDebitAmount
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._debitAmount = New FCFCDECustomsWarehouseGoodsItemDebitAmount()
Me._commercialAmount = New FCFCDECustomsWarehouseGoodsItemCommercialAmount()
End Sub
<XmlElement(DataType:="integer")>
Public Property SequenceNumber() As String
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ReferencedRegistrationNumber() As String
Get
Return Me._referencedRegistrationNumber
End Get
Set
Me._referencedRegistrationNumber = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property ReferencedSequenceNumber() As String
Get
Return Me._referencedSequenceNumber
End Get
Set
Me._referencedSequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AccessViaAtlasFlag() As String
Get
Return Me._accessViaAtlasFlag
End Get
Set
Me._accessViaAtlasFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CommodityCode() As String
Get
Return Me._commodityCode
End Get
Set
Me._commodityCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property UsualProcessingFlag() As String
Get
Return Me._usualProcessingFlag
End Get
Set
Me._usualProcessingFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Complement() As String
Get
Return Me._complement
End Get
Set
Me._complement = Value
End Set
End Property
Public Property CommercialAmount() As FCFCDECustomsWarehouseGoodsItemCommercialAmount
Get
Return Me._commercialAmount
End Get
Set
Me._commercialAmount = Value
End Set
End Property
Public Property DebitAmount() As FCFCDECustomsWarehouseGoodsItemDebitAmount
Get
Return Me._debitAmount
End Get
Set
Me._debitAmount = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDECustomsWarehouseGoodsItem))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDECustomsWarehouseGoodsItem object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDECustomsWarehouseGoodsItem object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDECustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItem)
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 FCFCDECustomsWarehouseGoodsItem) 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 FCFCDECustomsWarehouseGoodsItem
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDECustomsWarehouseGoodsItem)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDECustomsWarehouseGoodsItem
Return CType(SerializerXml.Deserialize(s), FCFCDECustomsWarehouseGoodsItem)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDECustomsWarehouseGoodsItem object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDECustomsWarehouseGoodsItem object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDECustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItem)
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 FCFCDECustomsWarehouseGoodsItem) 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 FCFCDECustomsWarehouseGoodsItem
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDECustomsWarehouseGoodsItemCommercialAmount
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDECustomsWarehouseGoodsItemCommercialAmount))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDECustomsWarehouseGoodsItemCommercialAmount object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDECustomsWarehouseGoodsItemCommercialAmount object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItemCommercialAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDECustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItemCommercialAmount)
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 FCFCDECustomsWarehouseGoodsItemCommercialAmount) 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 FCFCDECustomsWarehouseGoodsItemCommercialAmount
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDECustomsWarehouseGoodsItemCommercialAmount)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDECustomsWarehouseGoodsItemCommercialAmount
Return CType(SerializerXml.Deserialize(s), FCFCDECustomsWarehouseGoodsItemCommercialAmount)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDECustomsWarehouseGoodsItemCommercialAmount object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDECustomsWarehouseGoodsItemCommercialAmount object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItemCommercialAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDECustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItemCommercialAmount)
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 FCFCDECustomsWarehouseGoodsItemCommercialAmount) 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 FCFCDECustomsWarehouseGoodsItemCommercialAmount
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDECustomsWarehouseGoodsItemDebitAmount
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDECustomsWarehouseGoodsItemDebitAmount))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDECustomsWarehouseGoodsItemDebitAmount object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDECustomsWarehouseGoodsItemDebitAmount object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItemDebitAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDECustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItemDebitAmount)
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 FCFCDECustomsWarehouseGoodsItemDebitAmount) 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 FCFCDECustomsWarehouseGoodsItemDebitAmount
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDECustomsWarehouseGoodsItemDebitAmount)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDECustomsWarehouseGoodsItemDebitAmount
Return CType(SerializerXml.Deserialize(s), FCFCDECustomsWarehouseGoodsItemDebitAmount)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDECustomsWarehouseGoodsItemDebitAmount object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDECustomsWarehouseGoodsItemDebitAmount object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDECustomsWarehouseGoodsItemDebitAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDECustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDECustomsWarehouseGoodsItemDebitAmount)
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 FCFCDECustomsWarehouseGoodsItemDebitAmount) 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 FCFCDECustomsWarehouseGoodsItemDebitAmount
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEInwardProcessing
#Region "Private fields"
Private _sequenceNumber As FCFCDEInwardProcessingSequenceNumber
Private _goodsItemQuantity As String
Private _customsAuthorisation As FCFCDEInwardProcessingCustomsAuthorisation
Private _simplifiedGrantAuthorisationFlag As String
Private _monitoringCustomsOffice As FCFCDEInwardProcessingMonitoringCustomsOffice
Private _goodsItem As List(Of FCFCDEInwardProcessingGoodsItem)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsItem = New List(Of FCFCDEInwardProcessingGoodsItem)()
Me._monitoringCustomsOffice = New FCFCDEInwardProcessingMonitoringCustomsOffice()
Me._customsAuthorisation = New FCFCDEInwardProcessingCustomsAuthorisation()
End Sub
Public Property SequenceNumber() As FCFCDEInwardProcessingSequenceNumber
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property GoodsItemQuantity() As String
Get
Return Me._goodsItemQuantity
End Get
Set
Me._goodsItemQuantity = Value
End Set
End Property
Public Property CustomsAuthorisation() As FCFCDEInwardProcessingCustomsAuthorisation
Get
Return Me._customsAuthorisation
End Get
Set
Me._customsAuthorisation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SimplifiedGrantAuthorisationFlag() As String
Get
Return Me._simplifiedGrantAuthorisationFlag
End Get
Set
Me._simplifiedGrantAuthorisationFlag = Value
End Set
End Property
Public Property MonitoringCustomsOffice() As FCFCDEInwardProcessingMonitoringCustomsOffice
Get
Return Me._monitoringCustomsOffice
End Get
Set
Me._monitoringCustomsOffice = Value
End Set
End Property
<XmlElement("GoodsItem")>
Public Property GoodsItem() As List(Of FCFCDEInwardProcessingGoodsItem)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEInwardProcessing))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEInwardProcessing object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEInwardProcessing object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessing object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEInwardProcessing, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessing)
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 FCFCDEInwardProcessing) 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 FCFCDEInwardProcessing
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEInwardProcessing)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEInwardProcessing
Return CType(SerializerXml.Deserialize(s), FCFCDEInwardProcessing)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEInwardProcessing object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEInwardProcessing object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessing object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEInwardProcessing, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessing)
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 FCFCDEInwardProcessing) 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 FCFCDEInwardProcessing
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEInwardProcessingSequenceNumber
<XmlEnum("1")>
Item1
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEInwardProcessingCustomsAuthorisation
#Region "Private fields"
Private _processingOwner As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ProcessingOwner() As String
Get
Return Me._processingOwner
End Get
Set
Me._processingOwner = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEInwardProcessingCustomsAuthorisation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEInwardProcessingCustomsAuthorisation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEInwardProcessingCustomsAuthorisation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingCustomsAuthorisation)
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 FCFCDEInwardProcessingCustomsAuthorisation) 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 FCFCDEInwardProcessingCustomsAuthorisation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEInwardProcessingCustomsAuthorisation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEInwardProcessingCustomsAuthorisation
Return CType(SerializerXml.Deserialize(s), FCFCDEInwardProcessingCustomsAuthorisation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEInwardProcessingCustomsAuthorisation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEInwardProcessingCustomsAuthorisation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingCustomsAuthorisation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingCustomsAuthorisation)
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 FCFCDEInwardProcessingCustomsAuthorisation) 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 FCFCDEInwardProcessingCustomsAuthorisation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEInwardProcessingMonitoringCustomsOffice
#Region "Private fields"
Private _identification As FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._identification = New FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification()
End Sub
Public Property Identification() As FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEInwardProcessingMonitoringCustomsOffice))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEInwardProcessingMonitoringCustomsOffice object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEInwardProcessingMonitoringCustomsOffice object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingMonitoringCustomsOffice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingMonitoringCustomsOffice)
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 FCFCDEInwardProcessingMonitoringCustomsOffice) 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 FCFCDEInwardProcessingMonitoringCustomsOffice
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEInwardProcessingMonitoringCustomsOffice)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEInwardProcessingMonitoringCustomsOffice
Return CType(SerializerXml.Deserialize(s), FCFCDEInwardProcessingMonitoringCustomsOffice)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEInwardProcessingMonitoringCustomsOffice object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEInwardProcessingMonitoringCustomsOffice object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingMonitoringCustomsOffice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingMonitoringCustomsOffice)
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 FCFCDEInwardProcessingMonitoringCustomsOffice) 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 FCFCDEInwardProcessingMonitoringCustomsOffice
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification)
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 FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification) 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 FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification)
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 FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification) 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 FCFCDEInwardProcessingMonitoringCustomsOfficeIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEInwardProcessingGoodsItem
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="integer")>
Public Property SequenceNumber() As String
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ReferencedRegistrationNumber() As String
Get
Return Me._referencedRegistrationNumber
End Get
Set
Me._referencedRegistrationNumber = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property ReferencedSequenceNumber() As String
Get
Return Me._referencedSequenceNumber
End Get
Set
Me._referencedSequenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AccessViaAtlasFlag() As String
Get
Return Me._accessViaAtlasFlag
End Get
Set
Me._accessViaAtlasFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property GoodsRelatedInformation() As String
Get
Return Me._goodsRelatedInformation
End Get
Set
Me._goodsRelatedInformation = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEInwardProcessingGoodsItem))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEInwardProcessingGoodsItem object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEInwardProcessingGoodsItem object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingGoodsItem)
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 FCFCDEInwardProcessingGoodsItem) 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 FCFCDEInwardProcessingGoodsItem
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEInwardProcessingGoodsItem)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEInwardProcessingGoodsItem
Return CType(SerializerXml.Deserialize(s), FCFCDEInwardProcessingGoodsItem)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEInwardProcessingGoodsItem object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEInwardProcessingGoodsItem object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEInwardProcessingGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEInwardProcessingGoodsItem)
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 FCFCDEInwardProcessingGoodsItem) 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 FCFCDEInwardProcessingGoodsItem
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBody
#Region "Private fields"
Private _customsValueFlag As String
Private _consignor As FCFCDEBodyConsignor
Private _consignee As FCFCDEBodyConsignee
Private _additionalDutyReferences As List(Of FCFCDEBodyAdditionalDutyReferences)
Private _containers As FCFCDEBodyContainers
Private _deliveryTerms As FCFCDEBodyDeliveryTerms
Private _paymentTransaction As FCFCDEBodyPaymentTransaction
Private _foreignTradeStatistics As FCFCDEBodyForeignTradeStatistics
Private _customsValue As FCFCDEBodyCustomsValue
Private _document As List(Of FCFCDEBodyDocument)
Private _goodsItem As List(Of FCFCDEBodyGoodsItem)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsItem = New List(Of FCFCDEBodyGoodsItem)()
Me._document = New List(Of FCFCDEBodyDocument)()
Me._customsValue = New FCFCDEBodyCustomsValue()
Me._foreignTradeStatistics = New FCFCDEBodyForeignTradeStatistics()
Me._paymentTransaction = New FCFCDEBodyPaymentTransaction()
Me._deliveryTerms = New FCFCDEBodyDeliveryTerms()
Me._containers = New FCFCDEBodyContainers()
Me._additionalDutyReferences = New List(Of FCFCDEBodyAdditionalDutyReferences)()
Me._consignee = New FCFCDEBodyConsignee()
Me._consignor = New FCFCDEBodyConsignor()
End Sub
<XmlElement(DataType:="token")>
Public Property CustomsValueFlag() As String
Get
Return Me._customsValueFlag
End Get
Set
Me._customsValueFlag = Value
End Set
End Property
Public Property Consignor() As FCFCDEBodyConsignor
Get
Return Me._consignor
End Get
Set
Me._consignor = Value
End Set
End Property
Public Property Consignee() As FCFCDEBodyConsignee
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
<XmlElement("AdditionalDutyReferences")>
Public Property AdditionalDutyReferences() As List(Of FCFCDEBodyAdditionalDutyReferences)
Get
Return Me._additionalDutyReferences
End Get
Set
Me._additionalDutyReferences = Value
End Set
End Property
Public Property Containers() As FCFCDEBodyContainers
Get
Return Me._containers
End Get
Set
Me._containers = Value
End Set
End Property
Public Property DeliveryTerms() As FCFCDEBodyDeliveryTerms
Get
Return Me._deliveryTerms
End Get
Set
Me._deliveryTerms = Value
End Set
End Property
Public Property PaymentTransaction() As FCFCDEBodyPaymentTransaction
Get
Return Me._paymentTransaction
End Get
Set
Me._paymentTransaction = Value
End Set
End Property
Public Property ForeignTradeStatistics() As FCFCDEBodyForeignTradeStatistics
Get
Return Me._foreignTradeStatistics
End Get
Set
Me._foreignTradeStatistics = Value
End Set
End Property
Public Property CustomsValue() As FCFCDEBodyCustomsValue
Get
Return Me._customsValue
End Get
Set
Me._customsValue = Value
End Set
End Property
<XmlElement("Document")>
Public Property Document() As List(Of FCFCDEBodyDocument)
Get
Return Me._document
End Get
Set
Me._document = Value
End Set
End Property
<XmlElement("GoodsItem")>
Public Property GoodsItem() As List(Of FCFCDEBodyGoodsItem)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBody))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBody object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBody object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBody object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBody, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBody)
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 FCFCDEBody) 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 FCFCDEBody
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBody)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBody
Return CType(SerializerXml.Deserialize(s), FCFCDEBody)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBody object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBody object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBody object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBody, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBody)
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 FCFCDEBody) 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 FCFCDEBody
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsignor
#Region "Private fields"
Private _identification As FCFCDEBodyConsignorIdentification
Private _name As String
Private _address As FCFCDEBodyConsignorAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEBodyConsignorAddress()
Me._identification = New FCFCDEBodyConsignorIdentification()
End Sub
Public Property Identification() As FCFCDEBodyConsignorIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEBodyConsignorAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsignor))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsignor object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsignor object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignor object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsignor, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignor)
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 FCFCDEBodyConsignor) 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 FCFCDEBodyConsignor
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsignor)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsignor
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsignor)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsignor object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsignor object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignor object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsignor, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignor)
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 FCFCDEBodyConsignor) 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 FCFCDEBodyConsignor
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsignorIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsignorIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsignorIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsignorIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignorIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignorIdentification)
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 FCFCDEBodyConsignorIdentification) 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 FCFCDEBodyConsignorIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsignorIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsignorIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsignorIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsignorIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsignorIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignorIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignorIdentification)
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 FCFCDEBodyConsignorIdentification) 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 FCFCDEBodyConsignorIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsignorAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsignorAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsignorAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsignorAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignorAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsignorAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignorAddress)
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 FCFCDEBodyConsignorAddress) 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 FCFCDEBodyConsignorAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsignorAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsignorAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsignorAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsignorAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsignorAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignorAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsignorAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignorAddress)
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 FCFCDEBodyConsignorAddress) 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 FCFCDEBodyConsignorAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsignee
#Region "Private fields"
Private _identification As FCFCDEBodyConsigneeIdentification
Private _name As String
Private _address As FCFCDEBodyConsigneeAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEBodyConsigneeAddress()
Me._identification = New FCFCDEBodyConsigneeIdentification()
End Sub
Public Property Identification() As FCFCDEBodyConsigneeIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEBodyConsigneeAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsignee))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsignee object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsignee object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsignee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignee)
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 FCFCDEBodyConsignee) 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 FCFCDEBodyConsignee
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsignee)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsignee
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsignee)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsignee object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsignee object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsignee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsignee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsignee)
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 FCFCDEBodyConsignee) 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 FCFCDEBodyConsignee
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsigneeIdentification
#Region "Private fields"
Private _referenceNumber As String
Private _subsidiaryNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsigneeIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsigneeIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsigneeIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsigneeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsigneeIdentification)
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 FCFCDEBodyConsigneeIdentification) 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 FCFCDEBodyConsigneeIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsigneeIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsigneeIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsigneeIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsigneeIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsigneeIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsigneeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsigneeIdentification)
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 FCFCDEBodyConsigneeIdentification) 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 FCFCDEBodyConsigneeIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyConsigneeAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyConsigneeAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyConsigneeAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyConsigneeAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsigneeAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsigneeAddress)
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 FCFCDEBodyConsigneeAddress) 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 FCFCDEBodyConsigneeAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyConsigneeAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyConsigneeAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyConsigneeAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyConsigneeAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyConsigneeAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyConsigneeAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyConsigneeAddress)
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 FCFCDEBodyConsigneeAddress) 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 FCFCDEBodyConsigneeAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyAdditionalDutyReferences
#Region "Private fields"
Private _referenceNumber As String
Private _dutyInterestedParty As FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._dutyInterestedParty = New FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty()
End Sub
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Public Property DutyInterestedParty() As FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
Get
Return Me._dutyInterestedParty
End Get
Set
Me._dutyInterestedParty = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyAdditionalDutyReferences))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyAdditionalDutyReferences object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyAdditionalDutyReferences object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferences object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferences)
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 FCFCDEBodyAdditionalDutyReferences) 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 FCFCDEBodyAdditionalDutyReferences
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyAdditionalDutyReferences)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyAdditionalDutyReferences
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyAdditionalDutyReferences)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyAdditionalDutyReferences object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyAdditionalDutyReferences object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferences object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferences)
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 FCFCDEBodyAdditionalDutyReferences) 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 FCFCDEBodyAdditionalDutyReferences
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
#Region "Private fields"
Private _identification As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
Private _name As String
Private _address As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress()
Me._identification = New FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification()
End Sub
Public Property Identification() As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedParty
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress)
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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress) 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 FCFCDEBodyAdditionalDutyReferencesDutyInterestedPartyAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyContainers
#Region "Private fields"
Private _containerFlag As String
Private _container As List(Of FCFCDEBodyContainersContainer)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._container = New List(Of FCFCDEBodyContainersContainer)()
End Sub
<XmlElement(DataType:="token")>
Public Property ContainerFlag() As String
Get
Return Me._containerFlag
End Get
Set
Me._containerFlag = Value
End Set
End Property
<XmlElement("Container")>
Public Property Container() As List(Of FCFCDEBodyContainersContainer)
Get
Return Me._container
End Get
Set
Me._container = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyContainers))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyContainers object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyContainers object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyContainers object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyContainers, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyContainers)
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 FCFCDEBodyContainers) 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 FCFCDEBodyContainers
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyContainers)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyContainers
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyContainers)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyContainers object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyContainers object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyContainers object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyContainers, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyContainers)
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 FCFCDEBodyContainers) 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 FCFCDEBodyContainers
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyContainersContainer
#Region "Private fields"
Private _identificationNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property IdentificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyContainersContainer))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyContainersContainer object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyContainersContainer object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyContainersContainer object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyContainersContainer, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyContainersContainer)
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 FCFCDEBodyContainersContainer) 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 FCFCDEBodyContainersContainer
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyContainersContainer)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyContainersContainer
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyContainersContainer)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyContainersContainer object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyContainersContainer object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyContainersContainer object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyContainersContainer, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyContainersContainer)
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 FCFCDEBodyContainersContainer) 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 FCFCDEBodyContainersContainer
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyDeliveryTerms
#Region "Private fields"
Private _code As String
Private _description As String
Private _place As String
Private _key As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Code() As String
Get
Return Me._code
End Get
Set
Me._code = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Description() As String
Get
Return Me._description
End Get
Set
Me._description = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Place() As String
Get
Return Me._place
End Get
Set
Me._place = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyDeliveryTerms))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyDeliveryTerms object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyDeliveryTerms object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyDeliveryTerms object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyDeliveryTerms)
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 FCFCDEBodyDeliveryTerms) 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 FCFCDEBodyDeliveryTerms
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyDeliveryTerms)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyDeliveryTerms
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyDeliveryTerms)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyDeliveryTerms object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyDeliveryTerms object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyDeliveryTerms object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyDeliveryTerms)
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 FCFCDEBodyDeliveryTerms) 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 FCFCDEBodyDeliveryTerms
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyPaymentTransaction
#Region "Private fields"
Private _amount As Decimal
Private _currencyCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Amount() As Decimal
Get
Return Me._amount
End Get
Set
Me._amount = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyCode() As String
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyPaymentTransaction))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyPaymentTransaction object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyPaymentTransaction object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyPaymentTransaction object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyPaymentTransaction)
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 FCFCDEBodyPaymentTransaction) 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 FCFCDEBodyPaymentTransaction
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyPaymentTransaction)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyPaymentTransaction
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyPaymentTransaction)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyPaymentTransaction object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyPaymentTransaction object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyPaymentTransaction object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyPaymentTransaction)
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 FCFCDEBodyPaymentTransaction) 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 FCFCDEBodyPaymentTransaction
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyForeignTradeStatistics
#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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._entryCustomsOffice = New FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice()
End Sub
<XmlElement(DataType:="token")>
Public Property GoodsStatus() As String
Get
Return Me._goodsStatus
End Get
Set
Me._goodsStatus = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property TransactionType() As String
Get
Return Me._transactionType
End Get
Set
Me._transactionType = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DestinationCountry() As String
Get
Return Me._destinationCountry
End Get
Set
Me._destinationCountry = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DestinationFederalState() As String
Get
Return Me._destinationFederalState
End Get
Set
Me._destinationFederalState = Value
End Set
End Property
<XmlElement(DataType:="token")>
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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
Get
Return Me._entryCustomsOffice
End Get
Set
Me._entryCustomsOffice = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyForeignTradeStatistics))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyForeignTradeStatistics object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyForeignTradeStatistics object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyForeignTradeStatistics object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyForeignTradeStatistics)
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 FCFCDEBodyForeignTradeStatistics) 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 FCFCDEBodyForeignTradeStatistics
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyForeignTradeStatistics)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyForeignTradeStatistics
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyForeignTradeStatistics)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyForeignTradeStatistics object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyForeignTradeStatistics object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyForeignTradeStatistics object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyForeignTradeStatistics)
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 FCFCDEBodyForeignTradeStatistics) 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 FCFCDEBodyForeignTradeStatistics
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice)
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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice) 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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice)
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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice) 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 FCFCDEBodyForeignTradeStatisticsEntryCustomsOffice
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValue
#Region "Private fields"
Private _formerDecisions As String
Private _vendor As FCFCDEBodyCustomsValueVendor
Private _vendee As FCFCDEBodyCustomsValueVendee
Private _affiliation As FCFCDEBodyCustomsValueAffiliation
Private _restrictionOrCondition As FCFCDEBodyCustomsValueRestrictionOrCondition
Private _licenseFee As FCFCDEBodyCustomsValueLicenseFee
Private _resale As FCFCDEBodyCustomsValueResale
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._resale = New FCFCDEBodyCustomsValueResale()
Me._licenseFee = New FCFCDEBodyCustomsValueLicenseFee()
Me._restrictionOrCondition = New FCFCDEBodyCustomsValueRestrictionOrCondition()
Me._affiliation = New FCFCDEBodyCustomsValueAffiliation()
Me._vendee = New FCFCDEBodyCustomsValueVendee()
Me._vendor = New FCFCDEBodyCustomsValueVendor()
End Sub
<XmlElement(DataType:="token")>
Public Property FormerDecisions() As String
Get
Return Me._formerDecisions
End Get
Set
Me._formerDecisions = Value
End Set
End Property
Public Property Vendor() As FCFCDEBodyCustomsValueVendor
Get
Return Me._vendor
End Get
Set
Me._vendor = Value
End Set
End Property
Public Property Vendee() As FCFCDEBodyCustomsValueVendee
Get
Return Me._vendee
End Get
Set
Me._vendee = Value
End Set
End Property
Public Property Affiliation() As FCFCDEBodyCustomsValueAffiliation
Get
Return Me._affiliation
End Get
Set
Me._affiliation = Value
End Set
End Property
Public Property RestrictionOrCondition() As FCFCDEBodyCustomsValueRestrictionOrCondition
Get
Return Me._restrictionOrCondition
End Get
Set
Me._restrictionOrCondition = Value
End Set
End Property
Public Property LicenseFee() As FCFCDEBodyCustomsValueLicenseFee
Get
Return Me._licenseFee
End Get
Set
Me._licenseFee = Value
End Set
End Property
Public Property Resale() As FCFCDEBodyCustomsValueResale
Get
Return Me._resale
End Get
Set
Me._resale = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValue))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValue object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValue object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValue object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValue, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValue)
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 FCFCDEBodyCustomsValue) 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 FCFCDEBodyCustomsValue
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValue)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValue
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValue)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValue object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValue object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValue object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValue, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValue)
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 FCFCDEBodyCustomsValue) 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 FCFCDEBodyCustomsValue
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendor
#Region "Private fields"
Private _identification As FCFCDEBodyCustomsValueVendorIdentification
Private _name As String
Private _address As FCFCDEBodyCustomsValueVendorAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEBodyCustomsValueVendorAddress()
Me._identification = New FCFCDEBodyCustomsValueVendorIdentification()
End Sub
Public Property Identification() As FCFCDEBodyCustomsValueVendorIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEBodyCustomsValueVendorAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendor))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendor object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendor object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendor object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendor)
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 FCFCDEBodyCustomsValueVendor) 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 FCFCDEBodyCustomsValueVendor
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendor)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendor
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendor)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendor object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendor object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendor object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendor)
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 FCFCDEBodyCustomsValueVendor) 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 FCFCDEBodyCustomsValueVendor
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendorIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendorIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendorIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendorIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendorIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendorIdentification)
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 FCFCDEBodyCustomsValueVendorIdentification) 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 FCFCDEBodyCustomsValueVendorIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendorIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendorIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendorIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendorIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendorIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendorIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendorIdentification)
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 FCFCDEBodyCustomsValueVendorIdentification) 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 FCFCDEBodyCustomsValueVendorIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendorAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendorAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendorAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendorAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendorAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendorAddress)
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 FCFCDEBodyCustomsValueVendorAddress) 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 FCFCDEBodyCustomsValueVendorAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendorAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendorAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendorAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendorAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendorAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendorAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendorAddress)
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 FCFCDEBodyCustomsValueVendorAddress) 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 FCFCDEBodyCustomsValueVendorAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendee
#Region "Private fields"
Private _identification As FCFCDEBodyCustomsValueVendeeIdentification
Private _name As String
Private _address As FCFCDEBodyCustomsValueVendeeAddress
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._address = New FCFCDEBodyCustomsValueVendeeAddress()
Me._identification = New FCFCDEBodyCustomsValueVendeeIdentification()
End Sub
Public Property Identification() As FCFCDEBodyCustomsValueVendeeIdentification
Get
Return Me._identification
End Get
Set
Me._identification = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property Address() As FCFCDEBodyCustomsValueVendeeAddress
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendee))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendee object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendee object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendee)
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 FCFCDEBodyCustomsValueVendee) 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 FCFCDEBodyCustomsValueVendee
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendee)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendee
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendee)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendee object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendee object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendee)
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 FCFCDEBodyCustomsValueVendee) 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 FCFCDEBodyCustomsValueVendee
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendeeIdentification
#Region "Private fields"
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendeeIdentification))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendeeIdentification object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendeeIdentification object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendeeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendeeIdentification)
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 FCFCDEBodyCustomsValueVendeeIdentification) 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 FCFCDEBodyCustomsValueVendeeIdentification
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendeeIdentification)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendeeIdentification
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendeeIdentification)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendeeIdentification object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendeeIdentification object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendeeIdentification object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendeeIdentification)
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 FCFCDEBodyCustomsValueVendeeIdentification) 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 FCFCDEBodyCustomsValueVendeeIdentification
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueVendeeAddress
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Line() As String
Get
Return Me._line
End Get
Set
Me._line = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property District() As String
Get
Return Me._district
End Get
Set
Me._district = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueVendeeAddress))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueVendeeAddress object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueVendeeAddress object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendeeAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendeeAddress)
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 FCFCDEBodyCustomsValueVendeeAddress) 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 FCFCDEBodyCustomsValueVendeeAddress
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueVendeeAddress)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueVendeeAddress
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueVendeeAddress)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueVendeeAddress object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueVendeeAddress object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueVendeeAddress object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueVendeeAddress)
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 FCFCDEBodyCustomsValueVendeeAddress) 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 FCFCDEBodyCustomsValueVendeeAddress
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueAffiliation
#Region "Private fields"
Private _type As String
Private _description As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Description() As String
Get
Return Me._description
End Get
Set
Me._description = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueAffiliation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueAffiliation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueAffiliation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueAffiliation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueAffiliation)
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 FCFCDEBodyCustomsValueAffiliation) 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 FCFCDEBodyCustomsValueAffiliation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueAffiliation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueAffiliation
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueAffiliation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueAffiliation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueAffiliation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueAffiliation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueAffiliation)
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 FCFCDEBodyCustomsValueAffiliation) 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 FCFCDEBodyCustomsValueAffiliation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueRestrictionOrCondition
#Region "Private fields"
Private _restrictionFlag As String
Private _conditionFlag As String
Private _description As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property RestrictionFlag() As String
Get
Return Me._restrictionFlag
End Get
Set
Me._restrictionFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ConditionFlag() As String
Get
Return Me._conditionFlag
End Get
Set
Me._conditionFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Description() As String
Get
Return Me._description
End Get
Set
Me._description = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueRestrictionOrCondition))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueRestrictionOrCondition object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueRestrictionOrCondition object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueRestrictionOrCondition object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueRestrictionOrCondition)
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 FCFCDEBodyCustomsValueRestrictionOrCondition) 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 FCFCDEBodyCustomsValueRestrictionOrCondition
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueRestrictionOrCondition)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueRestrictionOrCondition
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueRestrictionOrCondition)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueRestrictionOrCondition object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueRestrictionOrCondition object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueRestrictionOrCondition object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueRestrictionOrCondition)
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 FCFCDEBodyCustomsValueRestrictionOrCondition) 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 FCFCDEBodyCustomsValueRestrictionOrCondition
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueLicenseFee
#Region "Private fields"
Private _licenseFeeFlag As String
Private _description As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property LicenseFeeFlag() As String
Get
Return Me._licenseFeeFlag
End Get
Set
Me._licenseFeeFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Description() As String
Get
Return Me._description
End Get
Set
Me._description = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueLicenseFee))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueLicenseFee object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueLicenseFee object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueLicenseFee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueLicenseFee)
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 FCFCDEBodyCustomsValueLicenseFee) 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 FCFCDEBodyCustomsValueLicenseFee
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueLicenseFee)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueLicenseFee
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueLicenseFee)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueLicenseFee object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueLicenseFee object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueLicenseFee object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueLicenseFee)
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 FCFCDEBodyCustomsValueLicenseFee) 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 FCFCDEBodyCustomsValueLicenseFee
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyCustomsValueResale
#Region "Private fields"
Private _resaleFlag As String
Private _description As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ResaleFlag() As String
Get
Return Me._resaleFlag
End Get
Set
Me._resaleFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Description() As String
Get
Return Me._description
End Get
Set
Me._description = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyCustomsValueResale))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyCustomsValueResale object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyCustomsValueResale object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueResale object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueResale)
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 FCFCDEBodyCustomsValueResale) 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 FCFCDEBodyCustomsValueResale
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyCustomsValueResale)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyCustomsValueResale
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyCustomsValueResale)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyCustomsValueResale object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyCustomsValueResale object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyCustomsValueResale object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyCustomsValueResale)
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 FCFCDEBodyCustomsValueResale) 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 FCFCDEBodyCustomsValueResale
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyDocument
#Region "Private fields"
Private _division As FCFCDEBodyDocumentDivision
Private _type As String
Private _referenceNumber As String
Private _issuingDate As Date
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Division() As FCFCDEBodyDocumentDivision
Get
Return Me._division
End Get
Set
Me._division = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="date")>
Public Property IssuingDate() As Date
Get
Return Me._issuingDate
End Get
Set
Me._issuingDate = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyDocument))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyDocument object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyDocument object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyDocument object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyDocument, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyDocument)
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 FCFCDEBodyDocument) 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 FCFCDEBodyDocument
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyDocument)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyDocument
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyDocument)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyDocument object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyDocument object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyDocument object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyDocument, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyDocument)
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 FCFCDEBodyDocument) 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 FCFCDEBodyDocument
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
XmlType(AnonymousType:=True)>
Public Enum FCFCDEBodyDocumentDivision
<XmlEnum("4")>
Item4
End Enum
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItem
#Region "Private fields"
Private _sequenceNumber As String
Private _procedure As FCFCDEBodyGoodsItemProcedure
Private _cessionManagementFlag As String
Private _goodsDescription As String
Private _invoiceAmount As Decimal
Private _netMassMeasure As Decimal
Private _originCountry As String
Private _preferentialOriginCountry As String
Private _supplementaryInformation As String
Private _condition As String
Private _tobaccoRevenueStampNumber As String
Private _commodityCode As FCFCDEBodyGoodsItemCommodityCode
Private _additionalProcedure As List(Of FCFCDEBodyGoodsItemAdditionalProcedure)
Private _supplementaryCodes As List(Of FCFCDEBodyGoodsItemSupplementaryCodes)
Private _package As FCFCDEBodyGoodsItemPackage
Private _foreignTradeStatistics As FCFCDEBodyGoodsItemForeignTradeStatistics
Private _customsValue As FCFCDEBodyGoodsItemCustomsValue
Private _assessment As FCFCDEBodyGoodsItemAssessment
Private _exciseDuty As List(Of FCFCDEBodyGoodsItemExciseDuty)
Private _preferentialTreatment As FCFCDEBodyGoodsItemPreferentialTreatment
Private _specialCase As List(Of FCFCDEBodyGoodsItemSpecialCase)
Private _document As List(Of FCFCDEBodyGoodsItemDocument)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._document = New List(Of FCFCDEBodyGoodsItemDocument)()
Me._specialCase = New List(Of FCFCDEBodyGoodsItemSpecialCase)()
Me._preferentialTreatment = New FCFCDEBodyGoodsItemPreferentialTreatment()
Me._exciseDuty = New List(Of FCFCDEBodyGoodsItemExciseDuty)()
Me._assessment = New FCFCDEBodyGoodsItemAssessment()
Me._customsValue = New FCFCDEBodyGoodsItemCustomsValue()
Me._foreignTradeStatistics = New FCFCDEBodyGoodsItemForeignTradeStatistics()
Me._package = New FCFCDEBodyGoodsItemPackage()
Me._supplementaryCodes = New List(Of FCFCDEBodyGoodsItemSupplementaryCodes)()
Me._additionalProcedure = New List(Of FCFCDEBodyGoodsItemAdditionalProcedure)()
Me._commodityCode = New FCFCDEBodyGoodsItemCommodityCode()
Me._procedure = New FCFCDEBodyGoodsItemProcedure()
End Sub
<XmlElement(DataType:="integer")>
Public Property SequenceNumber() As String
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property Procedure() As FCFCDEBodyGoodsItemProcedure
Get
Return Me._procedure
End Get
Set
Me._procedure = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CessionManagementFlag() As String
Get
Return Me._cessionManagementFlag
End Get
Set
Me._cessionManagementFlag = Value
End Set
End Property
<XmlElement(DataType:="token")>
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
<XmlElement(DataType:="token")>
Public Property OriginCountry() As String
Get
Return Me._originCountry
End Get
Set
Me._originCountry = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property PreferentialOriginCountry() As String
Get
Return Me._preferentialOriginCountry
End Get
Set
Me._preferentialOriginCountry = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property SupplementaryInformation() As String
Get
Return Me._supplementaryInformation
End Get
Set
Me._supplementaryInformation = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Condition() As String
Get
Return Me._condition
End Get
Set
Me._condition = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property TobaccoRevenueStampNumber() As String
Get
Return Me._tobaccoRevenueStampNumber
End Get
Set
Me._tobaccoRevenueStampNumber = Value
End Set
End Property
Public Property CommodityCode() As FCFCDEBodyGoodsItemCommodityCode
Get
Return Me._commodityCode
End Get
Set
Me._commodityCode = Value
End Set
End Property
<XmlElement("AdditionalProcedure")>
Public Property AdditionalProcedure() As List(Of FCFCDEBodyGoodsItemAdditionalProcedure)
Get
Return Me._additionalProcedure
End Get
Set
Me._additionalProcedure = Value
End Set
End Property
<XmlElement("SupplementaryCodes")>
Public Property SupplementaryCodes() As List(Of FCFCDEBodyGoodsItemSupplementaryCodes)
Get
Return Me._supplementaryCodes
End Get
Set
Me._supplementaryCodes = Value
End Set
End Property
Public Property Package() As FCFCDEBodyGoodsItemPackage
Get
Return Me._package
End Get
Set
Me._package = Value
End Set
End Property
Public Property ForeignTradeStatistics() As FCFCDEBodyGoodsItemForeignTradeStatistics
Get
Return Me._foreignTradeStatistics
End Get
Set
Me._foreignTradeStatistics = Value
End Set
End Property
Public Property CustomsValue() As FCFCDEBodyGoodsItemCustomsValue
Get
Return Me._customsValue
End Get
Set
Me._customsValue = Value
End Set
End Property
Public Property Assessment() As FCFCDEBodyGoodsItemAssessment
Get
Return Me._assessment
End Get
Set
Me._assessment = Value
End Set
End Property
<XmlElement("ExciseDuty")>
Public Property ExciseDuty() As List(Of FCFCDEBodyGoodsItemExciseDuty)
Get
Return Me._exciseDuty
End Get
Set
Me._exciseDuty = Value
End Set
End Property
Public Property PreferentialTreatment() As FCFCDEBodyGoodsItemPreferentialTreatment
Get
Return Me._preferentialTreatment
End Get
Set
Me._preferentialTreatment = Value
End Set
End Property
<XmlElement("SpecialCase")>
Public Property SpecialCase() As List(Of FCFCDEBodyGoodsItemSpecialCase)
Get
Return Me._specialCase
End Get
Set
Me._specialCase = Value
End Set
End Property
<XmlElement("Document")>
Public Property Document() As List(Of FCFCDEBodyGoodsItemDocument)
Get
Return Me._document
End Get
Set
Me._document = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItem))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItem object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItem object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItem)
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 FCFCDEBodyGoodsItem) 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 FCFCDEBodyGoodsItem
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItem)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItem
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItem)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItem object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItem object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItem object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItem, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItem)
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 FCFCDEBodyGoodsItem) 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 FCFCDEBodyGoodsItem
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemProcedure
#Region "Private fields"
Private _requestedPreviousProcedure As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property RequestedPreviousProcedure() As String
Get
Return Me._requestedPreviousProcedure
End Get
Set
Me._requestedPreviousProcedure = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemProcedure))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemProcedure object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemProcedure object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemProcedure object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemProcedure)
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 FCFCDEBodyGoodsItemProcedure) 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 FCFCDEBodyGoodsItemProcedure
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemProcedure)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemProcedure
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemProcedure)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemProcedure object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemProcedure object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemProcedure object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemProcedure)
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 FCFCDEBodyGoodsItemProcedure) 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 FCFCDEBodyGoodsItemProcedure
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCommodityCode
#Region "Private fields"
Private _commodityCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property CommodityCode() As String
Get
Return Me._commodityCode
End Get
Set
Me._commodityCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCommodityCode))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCommodityCode object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCommodityCode object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCommodityCode object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCommodityCode)
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 FCFCDEBodyGoodsItemCommodityCode) 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 FCFCDEBodyGoodsItemCommodityCode
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCommodityCode)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCommodityCode
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCommodityCode)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCommodityCode object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCommodityCode object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCommodityCode object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCommodityCode)
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 FCFCDEBodyGoodsItemCommodityCode) 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 FCFCDEBodyGoodsItemCommodityCode
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemAdditionalProcedure
#Region "Private fields"
Private _code As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Code() As String
Get
Return Me._code
End Get
Set
Me._code = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemAdditionalProcedure))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemAdditionalProcedure object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemAdditionalProcedure object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAdditionalProcedure object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAdditionalProcedure)
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 FCFCDEBodyGoodsItemAdditionalProcedure) 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 FCFCDEBodyGoodsItemAdditionalProcedure
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemAdditionalProcedure)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemAdditionalProcedure
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemAdditionalProcedure)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemAdditionalProcedure object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemAdditionalProcedure object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAdditionalProcedure object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAdditionalProcedure)
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 FCFCDEBodyGoodsItemAdditionalProcedure) 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 FCFCDEBodyGoodsItemAdditionalProcedure
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemSupplementaryCodes
#Region "Private fields"
Private _code As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Code() As String
Get
Return Me._code
End Get
Set
Me._code = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemSupplementaryCodes))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemSupplementaryCodes object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemSupplementaryCodes object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemSupplementaryCodes object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemSupplementaryCodes)
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 FCFCDEBodyGoodsItemSupplementaryCodes) 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 FCFCDEBodyGoodsItemSupplementaryCodes
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemSupplementaryCodes)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemSupplementaryCodes
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemSupplementaryCodes)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemSupplementaryCodes object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemSupplementaryCodes object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemSupplementaryCodes object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemSupplementaryCodes)
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 FCFCDEBodyGoodsItemSupplementaryCodes) 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 FCFCDEBodyGoodsItemSupplementaryCodes
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemPackage
#Region "Private fields"
Private _kind As String
Private _quantity As String
Private _marksNumbers As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Kind() As String
Get
Return Me._kind
End Get
Set
Me._kind = Value
End Set
End Property
<XmlElement(DataType:="integer")>
Public Property Quantity() As String
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MarksNumbers() As String
Get
Return Me._marksNumbers
End Get
Set
Me._marksNumbers = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemPackage))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemPackage object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemPackage object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPackage object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPackage)
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 FCFCDEBodyGoodsItemPackage) 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 FCFCDEBodyGoodsItemPackage
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemPackage)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemPackage
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemPackage)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemPackage object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemPackage object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPackage object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPackage)
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 FCFCDEBodyGoodsItemPackage) 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 FCFCDEBodyGoodsItemPackage
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemForeignTradeStatistics
#Region "Private fields"
Private _quantity As String
Private _grossMassMeasure As Decimal
Private _amount As FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._amount = New FCFCDEBodyGoodsItemForeignTradeStatisticsAmount()
End Sub
<XmlElement(DataType:="integer")>
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 FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
Get
Return Me._amount
End Get
Set
Me._amount = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemForeignTradeStatistics))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemForeignTradeStatistics object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemForeignTradeStatistics object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemForeignTradeStatistics object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemForeignTradeStatistics)
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 FCFCDEBodyGoodsItemForeignTradeStatistics) 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 FCFCDEBodyGoodsItemForeignTradeStatistics
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemForeignTradeStatistics)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemForeignTradeStatistics
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemForeignTradeStatistics)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemForeignTradeStatistics object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemForeignTradeStatistics object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemForeignTradeStatistics object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemForeignTradeStatistics)
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 FCFCDEBodyGoodsItemForeignTradeStatistics) 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 FCFCDEBodyGoodsItemForeignTradeStatistics
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemForeignTradeStatisticsAmount))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemForeignTradeStatisticsAmount)
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 FCFCDEBodyGoodsItemForeignTradeStatisticsAmount) 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 FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemForeignTradeStatisticsAmount)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemForeignTradeStatisticsAmount)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemForeignTradeStatisticsAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemForeignTradeStatisticsAmount)
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 FCFCDEBodyGoodsItemForeignTradeStatisticsAmount) 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 FCFCDEBodyGoodsItemForeignTradeStatisticsAmount
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCustomsValue
#Region "Private fields"
Private _departureAirport As String
Private _destinationPlace As String
Private _additionDeductionDescription As String
Private _netPrice As FCFCDEBodyGoodsItemCustomsValueNetPrice
Private _indirectPayment As FCFCDEBodyGoodsItemCustomsValueIndirectPayment
Private _airFreightCosts As FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
Private _additionDeduction As List(Of FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionDeduction = New List(Of FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)()
Me._airFreightCosts = New FCFCDEBodyGoodsItemCustomsValueAirFreightCosts()
Me._indirectPayment = New FCFCDEBodyGoodsItemCustomsValueIndirectPayment()
Me._netPrice = New FCFCDEBodyGoodsItemCustomsValueNetPrice()
End Sub
<XmlElement(DataType:="token")>
Public Property DepartureAirport() As String
Get
Return Me._departureAirport
End Get
Set
Me._departureAirport = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property DestinationPlace() As String
Get
Return Me._destinationPlace
End Get
Set
Me._destinationPlace = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AdditionDeductionDescription() As String
Get
Return Me._additionDeductionDescription
End Get
Set
Me._additionDeductionDescription = Value
End Set
End Property
Public Property NetPrice() As FCFCDEBodyGoodsItemCustomsValueNetPrice
Get
Return Me._netPrice
End Get
Set
Me._netPrice = Value
End Set
End Property
Public Property IndirectPayment() As FCFCDEBodyGoodsItemCustomsValueIndirectPayment
Get
Return Me._indirectPayment
End Get
Set
Me._indirectPayment = Value
End Set
End Property
Public Property AirFreightCosts() As FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
Get
Return Me._airFreightCosts
End Get
Set
Me._airFreightCosts = Value
End Set
End Property
<XmlElement("AdditionDeduction")>
Public Property AdditionDeduction() As List(Of FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
Get
Return Me._additionDeduction
End Get
Set
Me._additionDeduction = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCustomsValue))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCustomsValue object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCustomsValue object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValue object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValue)
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 FCFCDEBodyGoodsItemCustomsValue) 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 FCFCDEBodyGoodsItemCustomsValue
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCustomsValue)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCustomsValue
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCustomsValue)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCustomsValue object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCustomsValue object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValue object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValue)
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 FCFCDEBodyGoodsItemCustomsValue) 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 FCFCDEBodyGoodsItemCustomsValue
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCustomsValueNetPrice
#Region "Private fields"
Private _value As Decimal
Private _currencyCode As String
Private _currencyRateAgreedFlag As String
Private _currencyRate As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Value() As Decimal
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyCode() As String
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
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 SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCustomsValueNetPrice))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCustomsValueNetPrice object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCustomsValueNetPrice object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueNetPrice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueNetPrice)
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 FCFCDEBodyGoodsItemCustomsValueNetPrice) 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 FCFCDEBodyGoodsItemCustomsValueNetPrice
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCustomsValueNetPrice)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCustomsValueNetPrice
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCustomsValueNetPrice)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCustomsValueNetPrice object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCustomsValueNetPrice object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueNetPrice object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueNetPrice)
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 FCFCDEBodyGoodsItemCustomsValueNetPrice) 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 FCFCDEBodyGoodsItemCustomsValueNetPrice
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCustomsValueIndirectPayment
#Region "Private fields"
Private _value As Decimal
Private _currencyCode As String
Private _currencyRateAgreedFlag As String
Private _currencyRate As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Value() As Decimal
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyCode() As String
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
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 SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCustomsValueIndirectPayment))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCustomsValueIndirectPayment object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCustomsValueIndirectPayment object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueIndirectPayment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueIndirectPayment)
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 FCFCDEBodyGoodsItemCustomsValueIndirectPayment) 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 FCFCDEBodyGoodsItemCustomsValueIndirectPayment
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCustomsValueIndirectPayment)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCustomsValueIndirectPayment
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCustomsValueIndirectPayment)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCustomsValueIndirectPayment object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCustomsValueIndirectPayment object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueIndirectPayment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueIndirectPayment)
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 FCFCDEBodyGoodsItemCustomsValueIndirectPayment) 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 FCFCDEBodyGoodsItemCustomsValueIndirectPayment
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
#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 _serializerXml As XmlSerializer
#End Region
Public Property Value() As Decimal
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyCode() As String
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyRateIATA() As String
Get
Return Me._currencyRateIATA
End Get
Set
Me._currencyRateIATA = Value
End Set
End Property
<XmlElement(DataType:="token")>
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
<XmlElement(DataType:="date")>
Public Property CurrencyRateDate() As Date
Get
Return Me._currencyRateDate
End Get
Set
Me._currencyRateDate = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCustomsValueAirFreightCosts))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueAirFreightCosts)
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 FCFCDEBodyGoodsItemCustomsValueAirFreightCosts) 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 FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCustomsValueAirFreightCosts)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCustomsValueAirFreightCosts)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueAirFreightCosts object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueAirFreightCosts)
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 FCFCDEBodyGoodsItemCustomsValueAirFreightCosts) 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 FCFCDEBodyGoodsItemCustomsValueAirFreightCosts
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemCustomsValueAdditionDeduction
#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 _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
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
<XmlElement(DataType:="token")>
Public Property CurrencyCode() As String
Get
Return Me._currencyCode
End Get
Set
Me._currencyCode = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property CurrencyRateIATA() As String
Get
Return Me._currencyRateIATA
End Get
Set
Me._currencyRateIATA = Value
End Set
End Property
<XmlElement(DataType:="token")>
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
<XmlElement(DataType:="date")>
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 SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemCustomsValueAdditionDeduction))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
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 FCFCDEBodyGoodsItemCustomsValueAdditionDeduction) 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 FCFCDEBodyGoodsItemCustomsValueAdditionDeduction
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemCustomsValueAdditionDeduction
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemCustomsValueAdditionDeduction object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemCustomsValueAdditionDeduction)
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 FCFCDEBodyGoodsItemCustomsValueAdditionDeduction) 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 FCFCDEBodyGoodsItemCustomsValueAdditionDeduction
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemAssessment
#Region "Private fields"
Private _customsValue As Decimal
Private _outwardProcessingFee As Decimal
Private _taxCosts As Decimal
Private _amount As List(Of FCFCDEBodyGoodsItemAssessmentAmount)
Private _specificRate As List(Of FCFCDEBodyGoodsItemAssessmentSpecificRate)
Private _contentInformation As List(Of FCFCDEBodyGoodsItemAssessmentContentInformation)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contentInformation = New List(Of FCFCDEBodyGoodsItemAssessmentContentInformation)()
Me._specificRate = New List(Of FCFCDEBodyGoodsItemAssessmentSpecificRate)()
Me._amount = New List(Of FCFCDEBodyGoodsItemAssessmentAmount)()
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
<XmlElement("Amount")>
Public Property Amount() As List(Of FCFCDEBodyGoodsItemAssessmentAmount)
Get
Return Me._amount
End Get
Set
Me._amount = Value
End Set
End Property
<XmlElement("SpecificRate")>
Public Property SpecificRate() As List(Of FCFCDEBodyGoodsItemAssessmentSpecificRate)
Get
Return Me._specificRate
End Get
Set
Me._specificRate = Value
End Set
End Property
<XmlElement("ContentInformation")>
Public Property ContentInformation() As List(Of FCFCDEBodyGoodsItemAssessmentContentInformation)
Get
Return Me._contentInformation
End Get
Set
Me._contentInformation = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemAssessment))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemAssessment object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemAssessment object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessment)
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 FCFCDEBodyGoodsItemAssessment) 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 FCFCDEBodyGoodsItemAssessment
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemAssessment)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemAssessment
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemAssessment)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemAssessment object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemAssessment object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessment)
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 FCFCDEBodyGoodsItemAssessment) 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 FCFCDEBodyGoodsItemAssessment
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemAssessmentAmount
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemAssessmentAmount))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemAssessmentAmount object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemAssessmentAmount object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentAmount)
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 FCFCDEBodyGoodsItemAssessmentAmount) 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 FCFCDEBodyGoodsItemAssessmentAmount
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemAssessmentAmount)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemAssessmentAmount
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemAssessmentAmount)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemAssessmentAmount object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemAssessmentAmount object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentAmount)
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 FCFCDEBodyGoodsItemAssessmentAmount) 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 FCFCDEBodyGoodsItemAssessmentAmount
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemAssessmentSpecificRate
#Region "Private fields"
Private _type As String
Private _value As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
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 SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemAssessmentSpecificRate))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemAssessmentSpecificRate object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemAssessmentSpecificRate object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentSpecificRate object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentSpecificRate)
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 FCFCDEBodyGoodsItemAssessmentSpecificRate) 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 FCFCDEBodyGoodsItemAssessmentSpecificRate
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemAssessmentSpecificRate)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemAssessmentSpecificRate
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemAssessmentSpecificRate)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemAssessmentSpecificRate object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemAssessmentSpecificRate object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentSpecificRate object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentSpecificRate)
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 FCFCDEBodyGoodsItemAssessmentSpecificRate) 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 FCFCDEBodyGoodsItemAssessmentSpecificRate
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemAssessmentContentInformation
#Region "Private fields"
Private _type As String
Private _degreePercentage As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement("Degree-Percentage")>
Public Property DegreePercentage() As Decimal
Get
Return Me._degreePercentage
End Get
Set
Me._degreePercentage = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemAssessmentContentInformation))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemAssessmentContentInformation object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemAssessmentContentInformation object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentContentInformation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentContentInformation)
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 FCFCDEBodyGoodsItemAssessmentContentInformation) 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 FCFCDEBodyGoodsItemAssessmentContentInformation
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemAssessmentContentInformation)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemAssessmentContentInformation
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemAssessmentContentInformation)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemAssessmentContentInformation object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemAssessmentContentInformation object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemAssessmentContentInformation object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemAssessmentContentInformation)
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 FCFCDEBodyGoodsItemAssessmentContentInformation) 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 FCFCDEBodyGoodsItemAssessmentContentInformation
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemExciseDuty
#Region "Private fields"
Private _code As String
Private _degreePercentage As Decimal
Private _value As Decimal
Private _amount As FCFCDEBodyGoodsItemExciseDutyAmount
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._amount = New FCFCDEBodyGoodsItemExciseDutyAmount()
End Sub
<XmlElement(DataType:="token")>
Public Property Code() As String
Get
Return Me._code
End Get
Set
Me._code = Value
End Set
End Property
<XmlElement("Degree-Percentage")>
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 FCFCDEBodyGoodsItemExciseDutyAmount
Get
Return Me._amount
End Get
Set
Me._amount = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemExciseDuty))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemExciseDuty object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemExciseDuty object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemExciseDuty object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemExciseDuty)
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 FCFCDEBodyGoodsItemExciseDuty) 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 FCFCDEBodyGoodsItemExciseDuty
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemExciseDuty)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemExciseDuty
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemExciseDuty)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemExciseDuty object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemExciseDuty object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemExciseDuty object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemExciseDuty)
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 FCFCDEBodyGoodsItemExciseDuty) 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 FCFCDEBodyGoodsItemExciseDuty
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemExciseDutyAmount
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemExciseDutyAmount))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemExciseDutyAmount object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemExciseDutyAmount object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemExciseDutyAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemExciseDutyAmount)
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 FCFCDEBodyGoodsItemExciseDutyAmount) 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 FCFCDEBodyGoodsItemExciseDutyAmount
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemExciseDutyAmount)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemExciseDutyAmount
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemExciseDutyAmount)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemExciseDutyAmount object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemExciseDutyAmount object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemExciseDutyAmount object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemExciseDutyAmount)
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 FCFCDEBodyGoodsItemExciseDutyAmount) 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 FCFCDEBodyGoodsItemExciseDutyAmount
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemPreferentialTreatment
#Region "Private fields"
Private _requestedPreferentialTreatment As String
Private _declaration As FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._declaration = New FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration()
End Sub
<XmlElement(DataType:="token")>
Public Property RequestedPreferentialTreatment() As String
Get
Return Me._requestedPreferentialTreatment
End Get
Set
Me._requestedPreferentialTreatment = Value
End Set
End Property
Public Property Declaration() As FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
Get
Return Me._declaration
End Get
Set
Me._declaration = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemPreferentialTreatment))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemPreferentialTreatment object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemPreferentialTreatment object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatment)
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 FCFCDEBodyGoodsItemPreferentialTreatment) 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 FCFCDEBodyGoodsItemPreferentialTreatment
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemPreferentialTreatment)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemPreferentialTreatment
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemPreferentialTreatment)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemPreferentialTreatment object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemPreferentialTreatment object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatment object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatment)
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 FCFCDEBodyGoodsItemPreferentialTreatment) 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 FCFCDEBodyGoodsItemPreferentialTreatment
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
#Region "Private fields"
Private _contingent As List(Of FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
Private _preferentialTreatmentQuantity As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._preferentialTreatmentQuantity = New FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity()
Me._contingent = New List(Of FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)()
End Sub
<XmlElement("Contingent")>
Public Property Contingent() As List(Of FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
Get
Return Me._contingent
End Get
Set
Me._contingent = Value
End Set
End Property
Public Property PreferentialTreatmentQuantity() As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
Get
Return Me._preferentialTreatmentQuantity
End Get
Set
Me._preferentialTreatmentQuantity = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclaration
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent
#Region "Private fields"
Private _contingentNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property ContingentNumber() As String
Get
Return Me._contingentNumber
End Get
Set
Me._contingentNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationContingent
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
#Region "Private fields"
Private _quantity As String
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="integer")>
Public Property Quantity() As String
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)
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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) 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 FCFCDEBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemSpecialCase
#Region "Private fields"
Private _group As String
Private _applicationType As String
Private _rateOrAmountOrFactor As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(DataType:="token")>
Public Property Group() As String
Get
Return Me._group
End Get
Set
Me._group = Value
End Set
End Property
<XmlElement(DataType:="token")>
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 SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemSpecialCase))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemSpecialCase object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemSpecialCase object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemSpecialCase object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemSpecialCase)
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 FCFCDEBodyGoodsItemSpecialCase) 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 FCFCDEBodyGoodsItemSpecialCase
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemSpecialCase)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemSpecialCase
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemSpecialCase)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemSpecialCase object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemSpecialCase object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemSpecialCase object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemSpecialCase)
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 FCFCDEBodyGoodsItemSpecialCase) 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 FCFCDEBodyGoodsItemSpecialCase
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemDocument
#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 FCFCDEBodyGoodsItemDocumentWriteOff
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._writeOff = New FCFCDEBodyGoodsItemDocumentWriteOff()
End Sub
<XmlElement(DataType:="token")>
Public Property Division() As String
Get
Return Me._division
End Get
Set
Me._division = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
<XmlElement(DataType:="date")>
Public Property IssuingDate() As Date
Get
Return Me._issuingDate
End Get
Set
Me._issuingDate = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property AtHandFlag() As String
Get
Return Me._atHandFlag
End Get
Set
Me._atHandFlag = Value
End Set
End Property
Public Property WriteOff() As FCFCDEBodyGoodsItemDocumentWriteOff
Get
Return Me._writeOff
End Get
Set
Me._writeOff = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemDocument))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemDocument object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemDocument object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemDocument object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemDocument)
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 FCFCDEBodyGoodsItemDocument) 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 FCFCDEBodyGoodsItemDocument
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemDocument)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemDocument
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemDocument)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemDocument object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemDocument object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemDocument object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemDocument)
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 FCFCDEBodyGoodsItemDocument) 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 FCFCDEBodyGoodsItemDocument
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType(AnonymousType:=True)>
Partial Public Class FCFCDEBodyGoodsItemDocumentWriteOff
#Region "Private fields"
Private _quantity As Decimal
Private _measurementUnit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Quantity() As Decimal
Get
Return Me._quantity
End Get
Set
Me._quantity = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property MeasurementUnit() As String
Get
Return Me._measurementUnit
End Get
Set
Me._measurementUnit = Value
End Set
End Property
<XmlElement(DataType:="token")>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDEBodyGoodsItemDocumentWriteOff))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize FCFCDEBodyGoodsItemDocumentWriteOff object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New 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
''' <summary>
''' Deserializes FCFCDEBodyGoodsItemDocumentWriteOff object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemDocumentWriteOff object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDEBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemDocumentWriteOff)
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 FCFCDEBodyGoodsItemDocumentWriteOff) 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 FCFCDEBodyGoodsItemDocumentWriteOff
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FCFCDEBodyGoodsItemDocumentWriteOff)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FCFCDEBodyGoodsItemDocumentWriteOff
Return CType(SerializerXml.Deserialize(s), FCFCDEBodyGoodsItemDocumentWriteOff)
End Function
#End Region
''' <summary>
''' Serializes current FCFCDEBodyGoodsItemDocumentWriteOff object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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 StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an FCFCDEBodyGoodsItemDocumentWriteOff object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output FCFCDEBodyGoodsItemDocumentWriteOff object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDEBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FCFCDEBodyGoodsItemDocumentWriteOff)
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 FCFCDEBodyGoodsItemDocumentWriteOff) 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 FCFCDEBodyGoodsItemDocumentWriteOff
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
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
#Enable Warning