'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net48","NameSpace":"MicNctsTransitDeclarationP5","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
''
'' ------------------------------------------------------------------------------
#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 MicNctsTransitDeclarationP5
Partial Public Class TransitDeclaration
#Region "Private fields"
Private _transitDeclarationHeader As TransitDeclarationHeaderType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transitDeclarationHeader = New TransitDeclarationHeaderType()
End Sub
Public Property TransitDeclarationHeader() As TransitDeclarationHeaderType
Get
Return Me._transitDeclarationHeader
End Get
Set
Me._transitDeclarationHeader = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclaration))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclaration object
'''
''' XML value
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
'''
''' Deserializes TransitDeclaration object
'''
''' string to deserialize
''' Output TransitDeclaration object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclaration)
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 TransitDeclaration) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclaration
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclaration)
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 TransitDeclaration
Return CType(SerializerXml.Deserialize(s), TransitDeclaration)
End Function
#End Region
'''
''' Serializes current TransitDeclaration object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclaration object
'''
''' File to load and deserialize
''' Output TransitDeclaration object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclaration, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclaration)
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 TransitDeclaration) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclaration
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
Partial Public Class TransitDeclarationHeaderType
#Region "Private fields"
Private _company As String
Private _plant As String
Private _localReferenceNumber As String
Private _referenceNumberUniqueConsignmentReference As String
Private _templateName As String
Private _createdFor As String
Private _useAsTemplate As Boolean
Private _declarationType As String
Private _transitDeclarationType As String
Private _additionalDeclarationType As String
Private _month As String
Private _declarationDate As Date
Private _limitDate As Date
Private _security As String
Private _reducedDatasetIndicator As Boolean
Private _specificCircumstanceIndicator As String
Private _bindingItinerary As Boolean
Private _customsOfficeOfDeparture As String
Private _customsOfficeOfDestinationDeclared As String
Private _tirCarnetNumber As String
Private _signingInformation As String
Private _holderOfTheTransitProcedure As HolderOfTheTransitProcedureType
Private _representative As TransitDeclarationRepresentativeType
Private _authorisation As List(Of AuthorisationType)
Private _guarantee As List(Of GuaranteeType)
Private _consignment As TransitDeclarationConsignmentType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._consignment = New TransitDeclarationConsignmentType()
Me._guarantee = New List(Of GuaranteeType)()
Me._authorisation = New List(Of AuthorisationType)()
Me._representative = New TransitDeclarationRepresentativeType()
Me._holderOfTheTransitProcedure = New HolderOfTheTransitProcedureType()
End Sub
Public Property company() As String
Get
Return Me._company
End Get
Set
Me._company = Value
End Set
End Property
Public Property plant() As String
Get
Return Me._plant
End Get
Set
Me._plant = Value
End Set
End Property
Public Property localReferenceNumber() As String
Get
Return Me._localReferenceNumber
End Get
Set
Me._localReferenceNumber = Value
End Set
End Property
Public Property referenceNumberUniqueConsignmentReference() As String
Get
Return Me._referenceNumberUniqueConsignmentReference
End Get
Set
Me._referenceNumberUniqueConsignmentReference = Value
End Set
End Property
Public Property templateName() As String
Get
Return Me._templateName
End Get
Set
Me._templateName = Value
End Set
End Property
Public Property createdFor() As String
Get
Return Me._createdFor
End Get
Set
Me._createdFor = Value
End Set
End Property
Public Property useAsTemplate() As Boolean
Get
Return Me._useAsTemplate
End Get
Set
Me._useAsTemplate = Value
End Set
End Property
Public Property declarationType() As String
Get
Return Me._declarationType
End Get
Set
Me._declarationType = Value
End Set
End Property
Public Property transitDeclarationType() As String
Get
Return Me._transitDeclarationType
End Get
Set
Me._transitDeclarationType = Value
End Set
End Property
Public Property additionalDeclarationType() As String
Get
Return Me._additionalDeclarationType
End Get
Set
Me._additionalDeclarationType = Value
End Set
End Property
Public Property month() As String
Get
Return Me._month
End Get
Set
Me._month = Value
End Set
End Property
Public Property declarationDate() As Date
Get
Return Me._declarationDate
End Get
Set
Me._declarationDate = Value
End Set
End Property
Public Property limitDate() As Date
Get
Return Me._limitDate
End Get
Set
Me._limitDate = Value
End Set
End Property
Public Property security() As String
Get
Return Me._security
End Get
Set
Me._security = Value
End Set
End Property
Public Property reducedDatasetIndicator() As Boolean
Get
Return Me._reducedDatasetIndicator
End Get
Set
Me._reducedDatasetIndicator = Value
End Set
End Property
Public Property specificCircumstanceIndicator() As String
Get
Return Me._specificCircumstanceIndicator
End Get
Set
Me._specificCircumstanceIndicator = Value
End Set
End Property
Public Property bindingItinerary() As Boolean
Get
Return Me._bindingItinerary
End Get
Set
Me._bindingItinerary = Value
End Set
End Property
Public Property customsOfficeOfDeparture() As String
Get
Return Me._customsOfficeOfDeparture
End Get
Set
Me._customsOfficeOfDeparture = Value
End Set
End Property
Public Property customsOfficeOfDestinationDeclared() As String
Get
Return Me._customsOfficeOfDestinationDeclared
End Get
Set
Me._customsOfficeOfDestinationDeclared = Value
End Set
End Property
Public Property tirCarnetNumber() As String
Get
Return Me._tirCarnetNumber
End Get
Set
Me._tirCarnetNumber = Value
End Set
End Property
Public Property signingInformation() As String
Get
Return Me._signingInformation
End Get
Set
Me._signingInformation = Value
End Set
End Property
Public Property holderOfTheTransitProcedure() As HolderOfTheTransitProcedureType
Get
Return Me._holderOfTheTransitProcedure
End Get
Set
Me._holderOfTheTransitProcedure = Value
End Set
End Property
Public Property representative() As TransitDeclarationRepresentativeType
Get
Return Me._representative
End Get
Set
Me._representative = Value
End Set
End Property
Public Property authorisation() As List(Of AuthorisationType)
Get
Return Me._authorisation
End Get
Set
Me._authorisation = Value
End Set
End Property
Public Property guarantee() As List(Of GuaranteeType)
Get
Return Me._guarantee
End Get
Set
Me._guarantee = Value
End Set
End Property
Public Property consignment() As TransitDeclarationConsignmentType
Get
Return Me._consignment
End Get
Set
Me._consignment = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclarationHeaderType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclarationHeaderType object
'''
''' XML value
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
'''
''' Deserializes TransitDeclarationHeaderType object
'''
''' string to deserialize
''' Output TransitDeclarationHeaderType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclarationHeaderType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationHeaderType)
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 TransitDeclarationHeaderType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclarationHeaderType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclarationHeaderType)
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 TransitDeclarationHeaderType
Return CType(SerializerXml.Deserialize(s), TransitDeclarationHeaderType)
End Function
#End Region
'''
''' Serializes current TransitDeclarationHeaderType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclarationHeaderType object
'''
''' File to load and deserialize
''' Output TransitDeclarationHeaderType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclarationHeaderType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationHeaderType)
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 TransitDeclarationHeaderType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclarationHeaderType
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
Partial Public Class HolderOfTheTransitProcedureType
#Region "Private fields"
Private _addressNumber As String
Private _identificationNumber As String
Private _tirHolderIdentificationNumber As String
Private _name As String
Private _address As AddressType
Private _contactPerson As ContactPersonType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._address = New AddressType()
End Sub
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Public Property identificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Public Property tirHolderIdentificationNumber() As String
Get
Return Me._tirHolderIdentificationNumber
End Get
Set
Me._tirHolderIdentificationNumber = Value
End Set
End Property
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HolderOfTheTransitProcedureType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize HolderOfTheTransitProcedureType object
'''
''' XML value
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
'''
''' Deserializes HolderOfTheTransitProcedureType object
'''
''' string to deserialize
''' Output HolderOfTheTransitProcedureType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, HolderOfTheTransitProcedureType)
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 HolderOfTheTransitProcedureType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As HolderOfTheTransitProcedureType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HolderOfTheTransitProcedureType)
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 HolderOfTheTransitProcedureType
Return CType(SerializerXml.Deserialize(s), HolderOfTheTransitProcedureType)
End Function
#End Region
'''
''' Serializes current HolderOfTheTransitProcedureType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an HolderOfTheTransitProcedureType object
'''
''' File to load and deserialize
''' Output HolderOfTheTransitProcedureType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, HolderOfTheTransitProcedureType)
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 HolderOfTheTransitProcedureType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HolderOfTheTransitProcedureType
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
Partial Public Class AddressType
#Region "Private fields"
Private _streetAndNumber As String
Private _postcode As String
Private _city As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property streetAndNumber() As String
Get
Return Me._streetAndNumber
End Get
Set
Me._streetAndNumber = Value
End Set
End Property
Public Property postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
Public Property city() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
Public Property country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AddressType object
'''
''' XML value
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
'''
''' Deserializes AddressType object
'''
''' string to deserialize
''' Output AddressType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressType)
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 AddressType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AddressType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressType)
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 AddressType
Return CType(SerializerXml.Deserialize(s), AddressType)
End Function
#End Region
'''
''' Serializes current AddressType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AddressType object
'''
''' File to load and deserialize
''' Output AddressType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressType)
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 AddressType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressType
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
Partial Public Class DangerousGoodsOfConsignmentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _unDangerousGoodsNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property unDangerousGoodsNumber() As String
Get
Return Me._unDangerousGoodsNumber
End Get
Set
Me._unDangerousGoodsNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DangerousGoodsOfConsignmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DangerousGoodsOfConsignmentType object
'''
''' XML value
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
'''
''' Deserializes DangerousGoodsOfConsignmentType object
'''
''' string to deserialize
''' Output DangerousGoodsOfConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DangerousGoodsOfConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DangerousGoodsOfConsignmentType)
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 DangerousGoodsOfConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DangerousGoodsOfConsignmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DangerousGoodsOfConsignmentType)
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 DangerousGoodsOfConsignmentType
Return CType(SerializerXml.Deserialize(s), DangerousGoodsOfConsignmentType)
End Function
#End Region
'''
''' Serializes current DangerousGoodsOfConsignmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an DangerousGoodsOfConsignmentType object
'''
''' File to load and deserialize
''' Output DangerousGoodsOfConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DangerousGoodsOfConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DangerousGoodsOfConsignmentType)
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 DangerousGoodsOfConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DangerousGoodsOfConsignmentType
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
Partial Public Class ConsignmentItemPackagingType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _typeOfPackages As String
Private _numberOfPackages As Integer
Private _shippingMarks As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property typeOfPackages() As String
Get
Return Me._typeOfPackages
End Get
Set
Me._typeOfPackages = Value
End Set
End Property
Public Property numberOfPackages() As Integer
Get
Return Me._numberOfPackages
End Get
Set
Me._numberOfPackages = Value
End Set
End Property
Public Property shippingMarks() As String
Get
Return Me._shippingMarks
End Get
Set
Me._shippingMarks = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignmentItemPackagingType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ConsignmentItemPackagingType object
'''
''' XML value
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
'''
''' Deserializes ConsignmentItemPackagingType object
'''
''' string to deserialize
''' Output ConsignmentItemPackagingType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemPackagingType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ConsignmentItemPackagingType)
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 ConsignmentItemPackagingType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignmentItemPackagingType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignmentItemPackagingType)
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 ConsignmentItemPackagingType
Return CType(SerializerXml.Deserialize(s), ConsignmentItemPackagingType)
End Function
#End Region
'''
''' Serializes current ConsignmentItemPackagingType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ConsignmentItemPackagingType object
'''
''' File to load and deserialize
''' Output ConsignmentItemPackagingType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentItemPackagingType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ConsignmentItemPackagingType)
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 ConsignmentItemPackagingType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsignmentItemPackagingType
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
Partial Public Class ConsignmentItemType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _goodsItemNumber As Integer
Private _declarationGoodsItemNumber As Integer
Private _declarationType As String
Private _partNumber As String
Private _descriptionOfGoods As String
Private _cusCode As String
Private _commodityCode As String
Private _grossMass As Decimal
Private _netMass As Decimal
Private _countryOfDispatch As String
Private _countryOfDestination As String
Private _referenceNumberUniqueConsignmentReference As String
Private _packaging As List(Of ConsignmentItemPackagingType)
Private _dangerousGoodsOfConsignment As List(Of DangerousGoodsOfConsignmentType)
Private _consignee As OperatorWithContactAndSubsidiaryType
Private _supplementaryUnits As Decimal
Private _statisticalValue As Decimal
Private _statisticalQuantity As Decimal
Private _foreignStatisticalValue As Decimal
Private _foreignCurrency As String
Private _methodOfPayment As String
Private _previousDocument As List(Of ItemPreviousDocumentType)
Private _supportingDocument As List(Of SupportingDocumentType)
Private _transportDocument As List(Of TransportDocumentType)
Private _additionalInformation As List(Of AdditionalInformationType)
Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType)
Private _additionalReference As List(Of AdditionalReferenceType)
Private _customerFields As CustomerFieldsType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._customerFields = New CustomerFieldsType()
Me._additionalReference = New List(Of AdditionalReferenceType)()
Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)()
Me._additionalInformation = New List(Of AdditionalInformationType)()
Me._transportDocument = New List(Of TransportDocumentType)()
Me._supportingDocument = New List(Of SupportingDocumentType)()
Me._previousDocument = New List(Of ItemPreviousDocumentType)()
Me._consignee = New OperatorWithContactAndSubsidiaryType()
Me._dangerousGoodsOfConsignment = New List(Of DangerousGoodsOfConsignmentType)()
Me._packaging = New List(Of ConsignmentItemPackagingType)()
End Sub
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property goodsItemNumber() As Integer
Get
Return Me._goodsItemNumber
End Get
Set
Me._goodsItemNumber = Value
End Set
End Property
Public Property declarationGoodsItemNumber() As Integer
Get
Return Me._declarationGoodsItemNumber
End Get
Set
Me._declarationGoodsItemNumber = Value
End Set
End Property
Public Property declarationType() As String
Get
Return Me._declarationType
End Get
Set
Me._declarationType = Value
End Set
End Property
Public Property partNumber() As String
Get
Return Me._partNumber
End Get
Set
Me._partNumber = Value
End Set
End Property
Public Property descriptionOfGoods() As String
Get
Return Me._descriptionOfGoods
End Get
Set
Me._descriptionOfGoods = Value
End Set
End Property
Public Property cusCode() As String
Get
Return Me._cusCode
End Get
Set
Me._cusCode = Value
End Set
End Property
Public Property commodityCode() As String
Get
Return Me._commodityCode
End Get
Set
Me._commodityCode = Value
End Set
End Property
Public Property grossMass() As Decimal
Get
Return Me._grossMass
End Get
Set
Me._grossMass = Value
End Set
End Property
Public Property netMass() As Decimal
Get
Return Me._netMass
End Get
Set
Me._netMass = Value
End Set
End Property
Public Property countryOfDispatch() As String
Get
Return Me._countryOfDispatch
End Get
Set
Me._countryOfDispatch = Value
End Set
End Property
Public Property countryOfDestination() As String
Get
Return Me._countryOfDestination
End Get
Set
Me._countryOfDestination = Value
End Set
End Property
Public Property referenceNumberUniqueConsignmentReference() As String
Get
Return Me._referenceNumberUniqueConsignmentReference
End Get
Set
Me._referenceNumberUniqueConsignmentReference = Value
End Set
End Property
Public Property packaging() As List(Of ConsignmentItemPackagingType)
Get
Return Me._packaging
End Get
Set
Me._packaging = Value
End Set
End Property
Public Property dangerousGoodsOfConsignment() As List(Of DangerousGoodsOfConsignmentType)
Get
Return Me._dangerousGoodsOfConsignment
End Get
Set
Me._dangerousGoodsOfConsignment = Value
End Set
End Property
Public Property consignee() As OperatorWithContactAndSubsidiaryType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
Public Property supplementaryUnits() As Decimal
Get
Return Me._supplementaryUnits
End Get
Set
Me._supplementaryUnits = Value
End Set
End Property
Public Property statisticalValue() As Decimal
Get
Return Me._statisticalValue
End Get
Set
Me._statisticalValue = Value
End Set
End Property
Public Property statisticalQuantity() As Decimal
Get
Return Me._statisticalQuantity
End Get
Set
Me._statisticalQuantity = Value
End Set
End Property
Public Property foreignStatisticalValue() As Decimal
Get
Return Me._foreignStatisticalValue
End Get
Set
Me._foreignStatisticalValue = Value
End Set
End Property
Public Property foreignCurrency() As String
Get
Return Me._foreignCurrency
End Get
Set
Me._foreignCurrency = Value
End Set
End Property
Public Property methodOfPayment() As String
Get
Return Me._methodOfPayment
End Get
Set
Me._methodOfPayment = Value
End Set
End Property
Public Property previousDocument() As List(Of ItemPreviousDocumentType)
Get
Return Me._previousDocument
End Get
Set
Me._previousDocument = Value
End Set
End Property
Public Property supportingDocument() As List(Of SupportingDocumentType)
Get
Return Me._supportingDocument
End Get
Set
Me._supportingDocument = Value
End Set
End Property
Public Property transportDocument() As List(Of TransportDocumentType)
Get
Return Me._transportDocument
End Get
Set
Me._transportDocument = Value
End Set
End Property
Public Property additionalInformation() As List(Of AdditionalInformationType)
Get
Return Me._additionalInformation
End Get
Set
Me._additionalInformation = Value
End Set
End Property
Public Property additionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType)
Get
Return Me._additionalSupplyChainActor
End Get
Set
Me._additionalSupplyChainActor = Value
End Set
End Property
Public Property additionalReference() As List(Of AdditionalReferenceType)
Get
Return Me._additionalReference
End Get
Set
Me._additionalReference = Value
End Set
End Property
Public Property customerFields() As CustomerFieldsType
Get
Return Me._customerFields
End Get
Set
Me._customerFields = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignmentItemType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ConsignmentItemType object
'''
''' XML value
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
'''
''' Deserializes ConsignmentItemType object
'''
''' string to deserialize
''' Output ConsignmentItemType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ConsignmentItemType)
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 ConsignmentItemType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignmentItemType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignmentItemType)
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 ConsignmentItemType
Return CType(SerializerXml.Deserialize(s), ConsignmentItemType)
End Function
#End Region
'''
''' Serializes current ConsignmentItemType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ConsignmentItemType object
'''
''' File to load and deserialize
''' Output ConsignmentItemType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentItemType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ConsignmentItemType)
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 ConsignmentItemType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsignmentItemType
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
Partial Public Class OperatorWithContactAndSubsidiaryType
#Region "Private fields"
Private _addressNumber As String
Private _identificationNumber As String
Private _subsidiaryNumber As String
Private _name As String
Private _address As AddressType
Private _contactPerson As ContactPersonType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._address = New AddressType()
End Sub
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Public Property identificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Public Property subsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(OperatorWithContactAndSubsidiaryType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize OperatorWithContactAndSubsidiaryType object
'''
''' XML value
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
'''
''' Deserializes OperatorWithContactAndSubsidiaryType object
'''
''' string to deserialize
''' Output OperatorWithContactAndSubsidiaryType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As OperatorWithContactAndSubsidiaryType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, OperatorWithContactAndSubsidiaryType)
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 OperatorWithContactAndSubsidiaryType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As OperatorWithContactAndSubsidiaryType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), OperatorWithContactAndSubsidiaryType)
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 OperatorWithContactAndSubsidiaryType
Return CType(SerializerXml.Deserialize(s), OperatorWithContactAndSubsidiaryType)
End Function
#End Region
'''
''' Serializes current OperatorWithContactAndSubsidiaryType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an OperatorWithContactAndSubsidiaryType object
'''
''' File to load and deserialize
''' Output OperatorWithContactAndSubsidiaryType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As OperatorWithContactAndSubsidiaryType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, OperatorWithContactAndSubsidiaryType)
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 OperatorWithContactAndSubsidiaryType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As OperatorWithContactAndSubsidiaryType
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
Partial Public Class ContactPersonType
#Region "Private fields"
Private _name As String
Private _phoneNumber As String
Private _emailAddress As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property phoneNumber() As String
Get
Return Me._phoneNumber
End Get
Set
Me._phoneNumber = Value
End Set
End Property
Public Property emailAddress() As String
Get
Return Me._emailAddress
End Get
Set
Me._emailAddress = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ContactPersonType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ContactPersonType object
'''
''' XML value
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
'''
''' Deserializes ContactPersonType object
'''
''' string to deserialize
''' Output ContactPersonType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ContactPersonType)
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 ContactPersonType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ContactPersonType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactPersonType)
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 ContactPersonType
Return CType(SerializerXml.Deserialize(s), ContactPersonType)
End Function
#End Region
'''
''' Serializes current ContactPersonType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ContactPersonType object
'''
''' File to load and deserialize
''' Output ContactPersonType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ContactPersonType)
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 ContactPersonType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ContactPersonType
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
Partial Public Class ItemPreviousDocumentType
Inherits PreviousDocumentType
#Region "Private fields"
Private _previousDocumentTypeOfPackages As String
Private _previousDocumentNumberOfPackages As Integer
Private _previousDocumentMeasurementUnit As String
Private _previousDocumentQuantity As Decimal
Private _depreciatedAmountOfGuarantee As Long
Private _authorisationSpecialProcedure As String
Private _commodityCodeOfEarlyExportedEqualMaterial As String
Private _earlyExportOfEqualMaterial As String
Private _partNumberOfPreviousDocument As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property previousDocumentTypeOfPackages() As String
Get
Return Me._previousDocumentTypeOfPackages
End Get
Set
Me._previousDocumentTypeOfPackages = Value
End Set
End Property
Public Property previousDocumentNumberOfPackages() As Integer
Get
Return Me._previousDocumentNumberOfPackages
End Get
Set
Me._previousDocumentNumberOfPackages = Value
End Set
End Property
Public Property previousDocumentMeasurementUnit() As String
Get
Return Me._previousDocumentMeasurementUnit
End Get
Set
Me._previousDocumentMeasurementUnit = Value
End Set
End Property
Public Property previousDocumentQuantity() As Decimal
Get
Return Me._previousDocumentQuantity
End Get
Set
Me._previousDocumentQuantity = Value
End Set
End Property
Public Property depreciatedAmountOfGuarantee() As Long
Get
Return Me._depreciatedAmountOfGuarantee
End Get
Set
Me._depreciatedAmountOfGuarantee = Value
End Set
End Property
Public Property authorisationSpecialProcedure() As String
Get
Return Me._authorisationSpecialProcedure
End Get
Set
Me._authorisationSpecialProcedure = Value
End Set
End Property
Public Property commodityCodeOfEarlyExportedEqualMaterial() As String
Get
Return Me._commodityCodeOfEarlyExportedEqualMaterial
End Get
Set
Me._commodityCodeOfEarlyExportedEqualMaterial = Value
End Set
End Property
Public Property earlyExportOfEqualMaterial() As String
Get
Return Me._earlyExportOfEqualMaterial
End Get
Set
Me._earlyExportOfEqualMaterial = Value
End Set
End Property
Public Property partNumberOfPreviousDocument() As String
Get
Return Me._partNumberOfPreviousDocument
End Get
Set
Me._partNumberOfPreviousDocument = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ItemPreviousDocumentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ItemPreviousDocumentType object
'''
''' XML value
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
'''
''' Deserializes ItemPreviousDocumentType object
'''
''' string to deserialize
''' Output ItemPreviousDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ItemPreviousDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ItemPreviousDocumentType)
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 ItemPreviousDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ItemPreviousDocumentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ItemPreviousDocumentType)
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 ItemPreviousDocumentType
Return CType(SerializerXml.Deserialize(s), ItemPreviousDocumentType)
End Function
#End Region
'''
''' Serializes current ItemPreviousDocumentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ItemPreviousDocumentType object
'''
''' File to load and deserialize
''' Output ItemPreviousDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ItemPreviousDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ItemPreviousDocumentType)
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 ItemPreviousDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ItemPreviousDocumentType
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
Partial Public Class PreviousDocumentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _previousDocumentType As String
Private _previousDocumentReference As String
Private _previousDocumentGoodsItemNumber As Long
Private _previousDocumentGoodsItemNumberString As String
Private _previousDocumentComplementOfInformation As String
Private _temporaryStorage As Boolean
Private _previousDocumentSid As Long
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property previousDocumentType() As String
Get
Return Me._previousDocumentType
End Get
Set
Me._previousDocumentType = Value
End Set
End Property
Public Property previousDocumentReference() As String
Get
Return Me._previousDocumentReference
End Get
Set
Me._previousDocumentReference = Value
End Set
End Property
Public Property previousDocumentGoodsItemNumber() As Long
Get
Return Me._previousDocumentGoodsItemNumber
End Get
Set
Me._previousDocumentGoodsItemNumber = Value
End Set
End Property
Public Property previousDocumentGoodsItemNumberString() As String
Get
Return Me._previousDocumentGoodsItemNumberString
End Get
Set
Me._previousDocumentGoodsItemNumberString = Value
End Set
End Property
Public Property previousDocumentComplementOfInformation() As String
Get
Return Me._previousDocumentComplementOfInformation
End Get
Set
Me._previousDocumentComplementOfInformation = Value
End Set
End Property
Public Property temporaryStorage() As Boolean
Get
Return Me._temporaryStorage
End Get
Set
Me._temporaryStorage = Value
End Set
End Property
Public Property previousDocumentSid() As Long
Get
Return Me._previousDocumentSid
End Get
Set
Me._previousDocumentSid = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PreviousDocumentType object
'''
''' XML value
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
'''
''' Deserializes PreviousDocumentType object
'''
''' string to deserialize
''' Output PreviousDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PreviousDocumentType)
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 PreviousDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentType)
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 PreviousDocumentType
Return CType(SerializerXml.Deserialize(s), PreviousDocumentType)
End Function
#End Region
'''
''' Serializes current PreviousDocumentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an PreviousDocumentType object
'''
''' File to load and deserialize
''' Output PreviousDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PreviousDocumentType)
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 PreviousDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreviousDocumentType
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
Partial Public Class SupportingDocumentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _supportingDocumentType As String
Private _supportingDocumentReference As String
Private _supportingDocumentLineItemNumber As Integer
Private _supportingDocumentComplementOfInformation As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property supportingDocumentType() As String
Get
Return Me._supportingDocumentType
End Get
Set
Me._supportingDocumentType = Value
End Set
End Property
Public Property supportingDocumentReference() As String
Get
Return Me._supportingDocumentReference
End Get
Set
Me._supportingDocumentReference = Value
End Set
End Property
Public Property supportingDocumentLineItemNumber() As Integer
Get
Return Me._supportingDocumentLineItemNumber
End Get
Set
Me._supportingDocumentLineItemNumber = Value
End Set
End Property
Public Property supportingDocumentComplementOfInformation() As String
Get
Return Me._supportingDocumentComplementOfInformation
End Get
Set
Me._supportingDocumentComplementOfInformation = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SupportingDocumentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize SupportingDocumentType object
'''
''' XML value
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
'''
''' Deserializes SupportingDocumentType object
'''
''' string to deserialize
''' Output SupportingDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SupportingDocumentType)
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 SupportingDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SupportingDocumentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SupportingDocumentType)
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 SupportingDocumentType
Return CType(SerializerXml.Deserialize(s), SupportingDocumentType)
End Function
#End Region
'''
''' Serializes current SupportingDocumentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an SupportingDocumentType object
'''
''' File to load and deserialize
''' Output SupportingDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SupportingDocumentType)
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 SupportingDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SupportingDocumentType
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
Partial Public Class TransportDocumentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _transportDocumentType As String
Private _transportDocumentReference As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property transportDocumentType() As String
Get
Return Me._transportDocumentType
End Get
Set
Me._transportDocumentType = Value
End Set
End Property
Public Property transportDocumentReference() As String
Get
Return Me._transportDocumentReference
End Get
Set
Me._transportDocumentReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportDocumentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransportDocumentType object
'''
''' XML value
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
'''
''' Deserializes TransportDocumentType object
'''
''' string to deserialize
''' Output TransportDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportDocumentType)
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 TransportDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportDocumentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportDocumentType)
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 TransportDocumentType
Return CType(SerializerXml.Deserialize(s), TransportDocumentType)
End Function
#End Region
'''
''' Serializes current TransportDocumentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransportDocumentType object
'''
''' File to load and deserialize
''' Output TransportDocumentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportDocumentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportDocumentType)
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 TransportDocumentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportDocumentType
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
Partial Public Class AdditionalInformationType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _additionalInformationCode As String
Private _additionalInformationText As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property additionalInformationCode() As String
Get
Return Me._additionalInformationCode
End Get
Set
Me._additionalInformationCode = Value
End Set
End Property
Public Property additionalInformationText() As String
Get
Return Me._additionalInformationText
End Get
Set
Me._additionalInformationText = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalInformationType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AdditionalInformationType object
'''
''' XML value
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
'''
''' Deserializes AdditionalInformationType object
'''
''' string to deserialize
''' Output AdditionalInformationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalInformationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalInformationType)
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 AdditionalInformationType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalInformationType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalInformationType)
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 AdditionalInformationType
Return CType(SerializerXml.Deserialize(s), AdditionalInformationType)
End Function
#End Region
'''
''' Serializes current AdditionalInformationType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AdditionalInformationType object
'''
''' File to load and deserialize
''' Output AdditionalInformationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalInformationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalInformationType)
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 AdditionalInformationType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalInformationType
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
Partial Public Class AdditionalSupplyChainActorType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _role As String
Private _supplyChainActorId As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property role() As String
Get
Return Me._role
End Get
Set
Me._role = Value
End Set
End Property
Public Property supplyChainActorId() As String
Get
Return Me._supplyChainActorId
End Get
Set
Me._supplyChainActorId = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalSupplyChainActorType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AdditionalSupplyChainActorType object
'''
''' XML value
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
'''
''' Deserializes AdditionalSupplyChainActorType object
'''
''' string to deserialize
''' Output AdditionalSupplyChainActorType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalSupplyChainActorType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalSupplyChainActorType)
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 AdditionalSupplyChainActorType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalSupplyChainActorType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalSupplyChainActorType)
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 AdditionalSupplyChainActorType
Return CType(SerializerXml.Deserialize(s), AdditionalSupplyChainActorType)
End Function
#End Region
'''
''' Serializes current AdditionalSupplyChainActorType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AdditionalSupplyChainActorType object
'''
''' File to load and deserialize
''' Output AdditionalSupplyChainActorType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalSupplyChainActorType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalSupplyChainActorType)
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 AdditionalSupplyChainActorType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalSupplyChainActorType
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
Partial Public Class AdditionalReferenceType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _additionalReferenceType As String
Private _additionalReferenceReference As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property additionalReferenceType() As String
Get
Return Me._additionalReferenceType
End Get
Set
Me._additionalReferenceType = Value
End Set
End Property
Public Property additionalReferenceReference() As String
Get
Return Me._additionalReferenceReference
End Get
Set
Me._additionalReferenceReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalReferenceType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AdditionalReferenceType object
'''
''' XML value
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
'''
''' Deserializes AdditionalReferenceType object
'''
''' string to deserialize
''' Output AdditionalReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalReferenceType)
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 AdditionalReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalReferenceType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalReferenceType)
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 AdditionalReferenceType
Return CType(SerializerXml.Deserialize(s), AdditionalReferenceType)
End Function
#End Region
'''
''' Serializes current AdditionalReferenceType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AdditionalReferenceType object
'''
''' File to load and deserialize
''' Output AdditionalReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdditionalReferenceType)
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 AdditionalReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalReferenceType
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
Partial Public Class CustomerFieldsType
#Region "Private fields"
Private _text1 As String
Private _text2 As String
Private _text3 As String
Private _text4 As String
Private _text5 As String
Private _text6 As String
Private _text7 As String
Private _text8 As String
Private _text9 As String
Private _text10 As String
Private _num1 As Decimal
Private _num2 As Decimal
Private _num3 As Decimal
Private _num4 As Decimal
Private _num5 As Decimal
Private _num6 As Decimal
Private _num7 As Decimal
Private _num8 As Decimal
Private _num9 As Decimal
Private _num10 As Decimal
Private _flag1 As Boolean
Private _flag2 As Boolean
Private _flag3 As Boolean
Private _flag4 As Boolean
Private _flag5 As Boolean
Private _flag6 As Boolean
Private _flag7 As Boolean
Private _flag8 As Boolean
Private _flag9 As Boolean
Private _flag10 As Boolean
Private _date1 As Date
Private _date2 As Date
Private _date3 As Date
Private _date4 As Date
Private _date5 As Date
Private _date6 As Date
Private _date7 As Date
Private _date8 As Date
Private _date9 As Date
Private _date10 As Date
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property text1() As String
Get
Return Me._text1
End Get
Set
Me._text1 = Value
End Set
End Property
Public Property text2() As String
Get
Return Me._text2
End Get
Set
Me._text2 = Value
End Set
End Property
Public Property text3() As String
Get
Return Me._text3
End Get
Set
Me._text3 = Value
End Set
End Property
Public Property text4() As String
Get
Return Me._text4
End Get
Set
Me._text4 = Value
End Set
End Property
Public Property text5() As String
Get
Return Me._text5
End Get
Set
Me._text5 = Value
End Set
End Property
Public Property text6() As String
Get
Return Me._text6
End Get
Set
Me._text6 = Value
End Set
End Property
Public Property text7() As String
Get
Return Me._text7
End Get
Set
Me._text7 = Value
End Set
End Property
Public Property text8() As String
Get
Return Me._text8
End Get
Set
Me._text8 = Value
End Set
End Property
Public Property text9() As String
Get
Return Me._text9
End Get
Set
Me._text9 = Value
End Set
End Property
Public Property text10() As String
Get
Return Me._text10
End Get
Set
Me._text10 = Value
End Set
End Property
Public Property num1() As Decimal
Get
Return Me._num1
End Get
Set
Me._num1 = Value
End Set
End Property
Public Property num2() As Decimal
Get
Return Me._num2
End Get
Set
Me._num2 = Value
End Set
End Property
Public Property num3() As Decimal
Get
Return Me._num3
End Get
Set
Me._num3 = Value
End Set
End Property
Public Property num4() As Decimal
Get
Return Me._num4
End Get
Set
Me._num4 = Value
End Set
End Property
Public Property num5() As Decimal
Get
Return Me._num5
End Get
Set
Me._num5 = Value
End Set
End Property
Public Property num6() As Decimal
Get
Return Me._num6
End Get
Set
Me._num6 = Value
End Set
End Property
Public Property num7() As Decimal
Get
Return Me._num7
End Get
Set
Me._num7 = Value
End Set
End Property
Public Property num8() As Decimal
Get
Return Me._num8
End Get
Set
Me._num8 = Value
End Set
End Property
Public Property num9() As Decimal
Get
Return Me._num9
End Get
Set
Me._num9 = Value
End Set
End Property
Public Property num10() As Decimal
Get
Return Me._num10
End Get
Set
Me._num10 = Value
End Set
End Property
Public Property flag1() As Boolean
Get
Return Me._flag1
End Get
Set
Me._flag1 = Value
End Set
End Property
Public Property flag2() As Boolean
Get
Return Me._flag2
End Get
Set
Me._flag2 = Value
End Set
End Property
Public Property flag3() As Boolean
Get
Return Me._flag3
End Get
Set
Me._flag3 = Value
End Set
End Property
Public Property flag4() As Boolean
Get
Return Me._flag4
End Get
Set
Me._flag4 = Value
End Set
End Property
Public Property flag5() As Boolean
Get
Return Me._flag5
End Get
Set
Me._flag5 = Value
End Set
End Property
Public Property flag6() As Boolean
Get
Return Me._flag6
End Get
Set
Me._flag6 = Value
End Set
End Property
Public Property flag7() As Boolean
Get
Return Me._flag7
End Get
Set
Me._flag7 = Value
End Set
End Property
Public Property flag8() As Boolean
Get
Return Me._flag8
End Get
Set
Me._flag8 = Value
End Set
End Property
Public Property flag9() As Boolean
Get
Return Me._flag9
End Get
Set
Me._flag9 = Value
End Set
End Property
Public Property flag10() As Boolean
Get
Return Me._flag10
End Get
Set
Me._flag10 = Value
End Set
End Property
Public Property date1() As Date
Get
Return Me._date1
End Get
Set
Me._date1 = Value
End Set
End Property
Public Property date2() As Date
Get
Return Me._date2
End Get
Set
Me._date2 = Value
End Set
End Property
Public Property date3() As Date
Get
Return Me._date3
End Get
Set
Me._date3 = Value
End Set
End Property
Public Property date4() As Date
Get
Return Me._date4
End Get
Set
Me._date4 = Value
End Set
End Property
Public Property date5() As Date
Get
Return Me._date5
End Get
Set
Me._date5 = Value
End Set
End Property
Public Property date6() As Date
Get
Return Me._date6
End Get
Set
Me._date6 = Value
End Set
End Property
Public Property date7() As Date
Get
Return Me._date7
End Get
Set
Me._date7 = Value
End Set
End Property
Public Property date8() As Date
Get
Return Me._date8
End Get
Set
Me._date8 = Value
End Set
End Property
Public Property date9() As Date
Get
Return Me._date9
End Get
Set
Me._date9 = Value
End Set
End Property
Public Property date10() As Date
Get
Return Me._date10
End Get
Set
Me._date10 = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomerFieldsType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize CustomerFieldsType object
'''
''' XML value
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
'''
''' Deserializes CustomerFieldsType object
'''
''' string to deserialize
''' Output CustomerFieldsType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomerFieldsType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CustomerFieldsType)
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 CustomerFieldsType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As CustomerFieldsType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomerFieldsType)
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 CustomerFieldsType
Return CType(SerializerXml.Deserialize(s), CustomerFieldsType)
End Function
#End Region
'''
''' Serializes current CustomerFieldsType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an CustomerFieldsType object
'''
''' File to load and deserialize
''' Output CustomerFieldsType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomerFieldsType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CustomerFieldsType)
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 CustomerFieldsType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomerFieldsType
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
Partial Public Class HouseConsignmentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _countryOfDispatch As String
Private _countryOfDestination As String
Private _grossMass As Decimal
Private _referenceNumberUniqueConsignmentReference As String
Private _consignor As OperatorWithContactAndSubsidiaryType
Private _consignee As OperatorWithContactAndSubsidiaryType
Private _methodOfPayment As String
Private _previousDocument As List(Of PreviousDocumentType)
Private _supportingDocument As List(Of SupportingDocumentType)
Private _transportDocument As List(Of TransportDocumentType)
Private _additionalReference As List(Of AdditionalReferenceType)
Private _additionalInformation As List(Of AdditionalInformationType)
Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType)
Private _customerFields As CustomerFieldsType
Private _consignmentItem As List(Of ConsignmentItemType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._consignmentItem = New List(Of ConsignmentItemType)()
Me._customerFields = New CustomerFieldsType()
Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)()
Me._additionalInformation = New List(Of AdditionalInformationType)()
Me._additionalReference = New List(Of AdditionalReferenceType)()
Me._transportDocument = New List(Of TransportDocumentType)()
Me._supportingDocument = New List(Of SupportingDocumentType)()
Me._previousDocument = New List(Of PreviousDocumentType)()
Me._consignee = New OperatorWithContactAndSubsidiaryType()
Me._consignor = New OperatorWithContactAndSubsidiaryType()
End Sub
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property countryOfDispatch() As String
Get
Return Me._countryOfDispatch
End Get
Set
Me._countryOfDispatch = Value
End Set
End Property
Public Property countryOfDestination() As String
Get
Return Me._countryOfDestination
End Get
Set
Me._countryOfDestination = Value
End Set
End Property
Public Property grossMass() As Decimal
Get
Return Me._grossMass
End Get
Set
Me._grossMass = Value
End Set
End Property
Public Property referenceNumberUniqueConsignmentReference() As String
Get
Return Me._referenceNumberUniqueConsignmentReference
End Get
Set
Me._referenceNumberUniqueConsignmentReference = Value
End Set
End Property
Public Property consignor() As OperatorWithContactAndSubsidiaryType
Get
Return Me._consignor
End Get
Set
Me._consignor = Value
End Set
End Property
Public Property consignee() As OperatorWithContactAndSubsidiaryType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
Public Property methodOfPayment() As String
Get
Return Me._methodOfPayment
End Get
Set
Me._methodOfPayment = Value
End Set
End Property
Public Property previousDocument() As List(Of PreviousDocumentType)
Get
Return Me._previousDocument
End Get
Set
Me._previousDocument = Value
End Set
End Property
Public Property supportingDocument() As List(Of SupportingDocumentType)
Get
Return Me._supportingDocument
End Get
Set
Me._supportingDocument = Value
End Set
End Property
Public Property transportDocument() As List(Of TransportDocumentType)
Get
Return Me._transportDocument
End Get
Set
Me._transportDocument = Value
End Set
End Property
Public Property additionalReference() As List(Of AdditionalReferenceType)
Get
Return Me._additionalReference
End Get
Set
Me._additionalReference = Value
End Set
End Property
Public Property additionalInformation() As List(Of AdditionalInformationType)
Get
Return Me._additionalInformation
End Get
Set
Me._additionalInformation = Value
End Set
End Property
Public Property additionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType)
Get
Return Me._additionalSupplyChainActor
End Get
Set
Me._additionalSupplyChainActor = Value
End Set
End Property
Public Property customerFields() As CustomerFieldsType
Get
Return Me._customerFields
End Get
Set
Me._customerFields = Value
End Set
End Property
Public Property consignmentItem() As List(Of ConsignmentItemType)
Get
Return Me._consignmentItem
End Get
Set
Me._consignmentItem = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HouseConsignmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize HouseConsignmentType object
'''
''' XML value
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
'''
''' Deserializes HouseConsignmentType object
'''
''' string to deserialize
''' Output HouseConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HouseConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, HouseConsignmentType)
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 HouseConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As HouseConsignmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HouseConsignmentType)
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 HouseConsignmentType
Return CType(SerializerXml.Deserialize(s), HouseConsignmentType)
End Function
#End Region
'''
''' Serializes current HouseConsignmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an HouseConsignmentType object
'''
''' File to load and deserialize
''' Output HouseConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HouseConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, HouseConsignmentType)
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 HouseConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HouseConsignmentType
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
Partial Public Class PortInformationType
#Region "Private fields"
Private _documentType As String
Private _bookingReference As String
Private _port As String
Private _terminal As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property documentType() As String
Get
Return Me._documentType
End Get
Set
Me._documentType = Value
End Set
End Property
Public Property bookingReference() As String
Get
Return Me._bookingReference
End Get
Set
Me._bookingReference = Value
End Set
End Property
Public Property port() As String
Get
Return Me._port
End Get
Set
Me._port = Value
End Set
End Property
Public Property terminal() As String
Get
Return Me._terminal
End Get
Set
Me._terminal = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PortInformationType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PortInformationType object
'''
''' XML value
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
'''
''' Deserializes PortInformationType object
'''
''' string to deserialize
''' Output PortInformationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PortInformationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PortInformationType)
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 PortInformationType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PortInformationType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PortInformationType)
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 PortInformationType
Return CType(SerializerXml.Deserialize(s), PortInformationType)
End Function
#End Region
'''
''' Serializes current PortInformationType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an PortInformationType object
'''
''' File to load and deserialize
''' Output PortInformationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PortInformationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PortInformationType)
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 PortInformationType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PortInformationType
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
Partial Public Class TransitDeclarationPartnerType
#Region "Private fields"
Private _type As String
Private _status As String
Private _addressNumber As String
Private _identificationNumber As String
Private _name As String
Private _representativeRin As String
Private _address As AddressType
Private _contactPerson As ContactPersonType
Private _tirHolderIdentificationNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._address = New AddressType()
End Sub
Public Property type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
Public Property status() As String
Get
Return Me._status
End Get
Set
Me._status = Value
End Set
End Property
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Public Property identificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property representativeRin() As String
Get
Return Me._representativeRin
End Get
Set
Me._representativeRin = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Public Property tirHolderIdentificationNumber() As String
Get
Return Me._tirHolderIdentificationNumber
End Get
Set
Me._tirHolderIdentificationNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclarationPartnerType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclarationPartnerType object
'''
''' XML value
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
'''
''' Deserializes TransitDeclarationPartnerType object
'''
''' string to deserialize
''' Output TransitDeclarationPartnerType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclarationPartnerType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationPartnerType)
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 TransitDeclarationPartnerType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclarationPartnerType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclarationPartnerType)
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 TransitDeclarationPartnerType
Return CType(SerializerXml.Deserialize(s), TransitDeclarationPartnerType)
End Function
#End Region
'''
''' Serializes current TransitDeclarationPartnerType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclarationPartnerType object
'''
''' File to load and deserialize
''' Output TransitDeclarationPartnerType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclarationPartnerType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationPartnerType)
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 TransitDeclarationPartnerType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclarationPartnerType
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
Partial Public Class IncidentGoodsReferenceType
#Region "Private fields"
Private _headerId As String
Private _sequenceNumber As Integer
Private _transportEquipmentGoodsReferenceDeclarationGoodsItemNumber As Integer
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property headerId() As String
Get
Return Me._headerId
End Get
Set
Me._headerId = Value
End Set
End Property
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property transportEquipmentGoodsReferenceDeclarationGoodsItemNumber() As Integer
Get
Return Me._transportEquipmentGoodsReferenceDeclarationGoodsItemNumber
End Get
Set
Me._transportEquipmentGoodsReferenceDeclarationGoodsItemNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IncidentGoodsReferenceType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize IncidentGoodsReferenceType object
'''
''' XML value
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
'''
''' Deserializes IncidentGoodsReferenceType object
'''
''' string to deserialize
''' Output IncidentGoodsReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IncidentGoodsReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentGoodsReferenceType)
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 IncidentGoodsReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As IncidentGoodsReferenceType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IncidentGoodsReferenceType)
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 IncidentGoodsReferenceType
Return CType(SerializerXml.Deserialize(s), IncidentGoodsReferenceType)
End Function
#End Region
'''
''' Serializes current IncidentGoodsReferenceType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an IncidentGoodsReferenceType object
'''
''' File to load and deserialize
''' Output IncidentGoodsReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IncidentGoodsReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentGoodsReferenceType)
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 IncidentGoodsReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IncidentGoodsReferenceType
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
Partial Public Class IncidentSealType
#Region "Private fields"
Private _headerId As String
Private _sequenceNumber As Integer
Private _sealsIdentifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property headerId() As String
Get
Return Me._headerId
End Get
Set
Me._headerId = Value
End Set
End Property
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property sealsIdentifier() As String
Get
Return Me._sealsIdentifier
End Get
Set
Me._sealsIdentifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IncidentSealType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize IncidentSealType object
'''
''' XML value
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
'''
''' Deserializes IncidentSealType object
'''
''' string to deserialize
''' Output IncidentSealType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IncidentSealType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentSealType)
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 IncidentSealType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As IncidentSealType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IncidentSealType)
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 IncidentSealType
Return CType(SerializerXml.Deserialize(s), IncidentSealType)
End Function
#End Region
'''
''' Serializes current IncidentSealType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an IncidentSealType object
'''
''' File to load and deserialize
''' Output IncidentSealType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IncidentSealType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentSealType)
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 IncidentSealType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IncidentSealType
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
Partial Public Class IncidentTransportEquipmentType
#Region "Private fields"
Private _headerId As String
Private _sequenceNumber As Integer
Private _containerIdentificationNumber As String
Private _numberOfSeals As Integer
Private _seal As List(Of IncidentSealType)
Private _goodsReference As List(Of IncidentGoodsReferenceType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsReference = New List(Of IncidentGoodsReferenceType)()
Me._seal = New List(Of IncidentSealType)()
End Sub
Public Property headerId() As String
Get
Return Me._headerId
End Get
Set
Me._headerId = Value
End Set
End Property
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property containerIdentificationNumber() As String
Get
Return Me._containerIdentificationNumber
End Get
Set
Me._containerIdentificationNumber = Value
End Set
End Property
Public Property numberOfSeals() As Integer
Get
Return Me._numberOfSeals
End Get
Set
Me._numberOfSeals = Value
End Set
End Property
Public Property seal() As List(Of IncidentSealType)
Get
Return Me._seal
End Get
Set
Me._seal = Value
End Set
End Property
Public Property goodsReference() As List(Of IncidentGoodsReferenceType)
Get
Return Me._goodsReference
End Get
Set
Me._goodsReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IncidentTransportEquipmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize IncidentTransportEquipmentType object
'''
''' XML value
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
'''
''' Deserializes IncidentTransportEquipmentType object
'''
''' string to deserialize
''' Output IncidentTransportEquipmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IncidentTransportEquipmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentTransportEquipmentType)
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 IncidentTransportEquipmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As IncidentTransportEquipmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IncidentTransportEquipmentType)
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 IncidentTransportEquipmentType
Return CType(SerializerXml.Deserialize(s), IncidentTransportEquipmentType)
End Function
#End Region
'''
''' Serializes current IncidentTransportEquipmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an IncidentTransportEquipmentType object
'''
''' File to load and deserialize
''' Output IncidentTransportEquipmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IncidentTransportEquipmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentTransportEquipmentType)
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 IncidentTransportEquipmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IncidentTransportEquipmentType
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
Partial Public Class IncidentType
#Region "Private fields"
Private _transportEquipment As List(Of IncidentTransportEquipmentType)
Private _headerId As String
Private _sequenceNumber As Integer
Private _incidentNotificationDateAndTime As Date
Private _customsOfficeOfIncidentRegistration As String
Private _code As Integer
Private _text As String
Private _endorsementDate As Date
Private _endorsementAuthority As String
Private _endorsementPlace As String
Private _endorsementCountry As String
Private _locationQualifierOfIdentification As String
Private _locationUNLocode As String
Private _locationCountry As String
Private _locationGNSSLatitude As String
Private _locationGNSSLongitude As String
Private _locationAddressStreetAndNumber As String
Private _locationAddressPostcode As String
Private _locationAddressCity As String
Private _containerIndicator As Boolean
Private _transportMeansTypeOfIdentification As String
Private _transportMeansIdentificationNumber As String
Private _transportMeansNationality As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transportEquipment = New List(Of IncidentTransportEquipmentType)()
End Sub
Public Property transportEquipment() As List(Of IncidentTransportEquipmentType)
Get
Return Me._transportEquipment
End Get
Set
Me._transportEquipment = Value
End Set
End Property
Public Property headerId() As String
Get
Return Me._headerId
End Get
Set
Me._headerId = Value
End Set
End Property
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property incidentNotificationDateAndTime() As Date
Get
Return Me._incidentNotificationDateAndTime
End Get
Set
Me._incidentNotificationDateAndTime = Value
End Set
End Property
Public Property customsOfficeOfIncidentRegistration() As String
Get
Return Me._customsOfficeOfIncidentRegistration
End Get
Set
Me._customsOfficeOfIncidentRegistration = Value
End Set
End Property
Public Property code() As Integer
Get
Return Me._code
End Get
Set
Me._code = Value
End Set
End Property
Public Property text() As String
Get
Return Me._text
End Get
Set
Me._text = Value
End Set
End Property
Public Property endorsementDate() As Date
Get
Return Me._endorsementDate
End Get
Set
Me._endorsementDate = Value
End Set
End Property
Public Property endorsementAuthority() As String
Get
Return Me._endorsementAuthority
End Get
Set
Me._endorsementAuthority = Value
End Set
End Property
Public Property endorsementPlace() As String
Get
Return Me._endorsementPlace
End Get
Set
Me._endorsementPlace = Value
End Set
End Property
Public Property endorsementCountry() As String
Get
Return Me._endorsementCountry
End Get
Set
Me._endorsementCountry = Value
End Set
End Property
Public Property locationQualifierOfIdentification() As String
Get
Return Me._locationQualifierOfIdentification
End Get
Set
Me._locationQualifierOfIdentification = Value
End Set
End Property
Public Property locationUNLocode() As String
Get
Return Me._locationUNLocode
End Get
Set
Me._locationUNLocode = Value
End Set
End Property
Public Property locationCountry() As String
Get
Return Me._locationCountry
End Get
Set
Me._locationCountry = Value
End Set
End Property
Public Property locationGNSSLatitude() As String
Get
Return Me._locationGNSSLatitude
End Get
Set
Me._locationGNSSLatitude = Value
End Set
End Property
Public Property locationGNSSLongitude() As String
Get
Return Me._locationGNSSLongitude
End Get
Set
Me._locationGNSSLongitude = Value
End Set
End Property
Public Property locationAddressStreetAndNumber() As String
Get
Return Me._locationAddressStreetAndNumber
End Get
Set
Me._locationAddressStreetAndNumber = Value
End Set
End Property
Public Property locationAddressPostcode() As String
Get
Return Me._locationAddressPostcode
End Get
Set
Me._locationAddressPostcode = Value
End Set
End Property
Public Property locationAddressCity() As String
Get
Return Me._locationAddressCity
End Get
Set
Me._locationAddressCity = Value
End Set
End Property
Public Property containerIndicator() As Boolean
Get
Return Me._containerIndicator
End Get
Set
Me._containerIndicator = Value
End Set
End Property
Public Property transportMeansTypeOfIdentification() As String
Get
Return Me._transportMeansTypeOfIdentification
End Get
Set
Me._transportMeansTypeOfIdentification = Value
End Set
End Property
Public Property transportMeansIdentificationNumber() As String
Get
Return Me._transportMeansIdentificationNumber
End Get
Set
Me._transportMeansIdentificationNumber = Value
End Set
End Property
Public Property transportMeansNationality() As String
Get
Return Me._transportMeansNationality
End Get
Set
Me._transportMeansNationality = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IncidentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize IncidentType object
'''
''' XML value
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
'''
''' Deserializes IncidentType object
'''
''' string to deserialize
''' Output IncidentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IncidentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentType)
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 IncidentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As IncidentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IncidentType)
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 IncidentType
Return CType(SerializerXml.Deserialize(s), IncidentType)
End Function
#End Region
'''
''' Serializes current IncidentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an IncidentType object
'''
''' File to load and deserialize
''' Output IncidentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IncidentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentType)
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 IncidentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IncidentType
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
Partial Public Class CarrierType
#Region "Private fields"
Private _addressNumber As String
Private _identificationNumber As String
Private _subsidiaryNumber As String
Private _name As String
Private _address As AddressType
Private _contactPerson As ContactPersonType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._address = New AddressType()
End Sub
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Public Property identificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Public Property subsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CarrierType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize CarrierType object
'''
''' XML value
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
'''
''' Deserializes CarrierType object
'''
''' string to deserialize
''' Output CarrierType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarrierType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CarrierType)
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 CarrierType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As CarrierType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CarrierType)
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 CarrierType
Return CType(SerializerXml.Deserialize(s), CarrierType)
End Function
#End Region
'''
''' Serializes current CarrierType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an CarrierType object
'''
''' File to load and deserialize
''' Output CarrierType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarrierType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CarrierType)
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 CarrierType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CarrierType
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
Partial Public Class CountryOfRoutingOfConsignmentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CountryOfRoutingOfConsignmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize CountryOfRoutingOfConsignmentType object
'''
''' XML value
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
'''
''' Deserializes CountryOfRoutingOfConsignmentType object
'''
''' string to deserialize
''' Output CountryOfRoutingOfConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CountryOfRoutingOfConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CountryOfRoutingOfConsignmentType)
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 CountryOfRoutingOfConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As CountryOfRoutingOfConsignmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CountryOfRoutingOfConsignmentType)
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 CountryOfRoutingOfConsignmentType
Return CType(SerializerXml.Deserialize(s), CountryOfRoutingOfConsignmentType)
End Function
#End Region
'''
''' Serializes current CountryOfRoutingOfConsignmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an CountryOfRoutingOfConsignmentType object
'''
''' File to load and deserialize
''' Output CountryOfRoutingOfConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CountryOfRoutingOfConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CountryOfRoutingOfConsignmentType)
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 CountryOfRoutingOfConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CountryOfRoutingOfConsignmentType
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
Partial Public Class CustomsOfficeOfTransitDeclaredType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _customsOfficeOfTransitDeclared As String
Private _arrivalDateAndTimeEstimated As Date
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property customsOfficeOfTransitDeclared() As String
Get
Return Me._customsOfficeOfTransitDeclared
End Get
Set
Me._customsOfficeOfTransitDeclared = Value
End Set
End Property
Public Property arrivalDateAndTimeEstimated() As Date
Get
Return Me._arrivalDateAndTimeEstimated
End Get
Set
Me._arrivalDateAndTimeEstimated = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfTransitDeclaredType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize CustomsOfficeOfTransitDeclaredType object
'''
''' XML value
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
'''
''' Deserializes CustomsOfficeOfTransitDeclaredType object
'''
''' string to deserialize
''' Output CustomsOfficeOfTransitDeclaredType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfTransitDeclaredType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CustomsOfficeOfTransitDeclaredType)
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 CustomsOfficeOfTransitDeclaredType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfTransitDeclaredType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfTransitDeclaredType)
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 CustomsOfficeOfTransitDeclaredType
Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfTransitDeclaredType)
End Function
#End Region
'''
''' Serializes current CustomsOfficeOfTransitDeclaredType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an CustomsOfficeOfTransitDeclaredType object
'''
''' File to load and deserialize
''' Output CustomsOfficeOfTransitDeclaredType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfTransitDeclaredType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, CustomsOfficeOfTransitDeclaredType)
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 CustomsOfficeOfTransitDeclaredType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeOfTransitDeclaredType
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
Partial Public Class ActiveTransportMeansType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _typeOfIdentificationAtBorderCrossing As String
Private _identificationNumberAtBorderCrossing As String
Private _nationalityAtBorderCrossing As String
Private _conveyanceReferenceNumber As String
Private _customsOfficeAtBorderDeclared As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property typeOfIdentificationAtBorderCrossing() As String
Get
Return Me._typeOfIdentificationAtBorderCrossing
End Get
Set
Me._typeOfIdentificationAtBorderCrossing = Value
End Set
End Property
Public Property identificationNumberAtBorderCrossing() As String
Get
Return Me._identificationNumberAtBorderCrossing
End Get
Set
Me._identificationNumberAtBorderCrossing = Value
End Set
End Property
Public Property nationalityAtBorderCrossing() As String
Get
Return Me._nationalityAtBorderCrossing
End Get
Set
Me._nationalityAtBorderCrossing = Value
End Set
End Property
Public Property conveyanceReferenceNumber() As String
Get
Return Me._conveyanceReferenceNumber
End Get
Set
Me._conveyanceReferenceNumber = Value
End Set
End Property
Public Property customsOfficeAtBorderDeclared() As String
Get
Return Me._customsOfficeAtBorderDeclared
End Get
Set
Me._customsOfficeAtBorderDeclared = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ActiveTransportMeansType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ActiveTransportMeansType object
'''
''' XML value
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
'''
''' Deserializes ActiveTransportMeansType object
'''
''' string to deserialize
''' Output ActiveTransportMeansType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ActiveTransportMeansType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ActiveTransportMeansType)
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 ActiveTransportMeansType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ActiveTransportMeansType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ActiveTransportMeansType)
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 ActiveTransportMeansType
Return CType(SerializerXml.Deserialize(s), ActiveTransportMeansType)
End Function
#End Region
'''
''' Serializes current ActiveTransportMeansType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ActiveTransportMeansType object
'''
''' File to load and deserialize
''' Output ActiveTransportMeansType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ActiveTransportMeansType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ActiveTransportMeansType)
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 ActiveTransportMeansType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ActiveTransportMeansType
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
Partial Public Class DepartureTransportMeansType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _typeOfIdentificationAtDeparture As String
Private _identificationNumberAtDeparture As String
Private _nationalityAtDeparture As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property typeOfIdentificationAtDeparture() As String
Get
Return Me._typeOfIdentificationAtDeparture
End Get
Set
Me._typeOfIdentificationAtDeparture = Value
End Set
End Property
Public Property identificationNumberAtDeparture() As String
Get
Return Me._identificationNumberAtDeparture
End Get
Set
Me._identificationNumberAtDeparture = Value
End Set
End Property
Public Property nationalityAtDeparture() As String
Get
Return Me._nationalityAtDeparture
End Get
Set
Me._nationalityAtDeparture = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DepartureTransportMeansType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DepartureTransportMeansType object
'''
''' XML value
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
'''
''' Deserializes DepartureTransportMeansType object
'''
''' string to deserialize
''' Output DepartureTransportMeansType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DepartureTransportMeansType)
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 DepartureTransportMeansType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DepartureTransportMeansType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DepartureTransportMeansType)
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 DepartureTransportMeansType
Return CType(SerializerXml.Deserialize(s), DepartureTransportMeansType)
End Function
#End Region
'''
''' Serializes current DepartureTransportMeansType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an DepartureTransportMeansType object
'''
''' File to load and deserialize
''' Output DepartureTransportMeansType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DepartureTransportMeansType)
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 DepartureTransportMeansType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DepartureTransportMeansType
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
Partial Public Class GoodsReferenceType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _transportEquipmentGoodsReferenceDeclarationGoodsItemNumber As Integer
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property transportEquipmentGoodsReferenceDeclarationGoodsItemNumber() As Integer
Get
Return Me._transportEquipmentGoodsReferenceDeclarationGoodsItemNumber
End Get
Set
Me._transportEquipmentGoodsReferenceDeclarationGoodsItemNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsReferenceType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize GoodsReferenceType object
'''
''' XML value
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
'''
''' Deserializes GoodsReferenceType object
'''
''' string to deserialize
''' Output GoodsReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsReferenceType)
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 GoodsReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsReferenceType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsReferenceType)
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 GoodsReferenceType
Return CType(SerializerXml.Deserialize(s), GoodsReferenceType)
End Function
#End Region
'''
''' Serializes current GoodsReferenceType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an GoodsReferenceType object
'''
''' File to load and deserialize
''' Output GoodsReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsReferenceType)
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 GoodsReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsReferenceType
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
Partial Public Class SealType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _sealsIdentifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property sealsIdentifier() As String
Get
Return Me._sealsIdentifier
End Get
Set
Me._sealsIdentifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SealType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize SealType object
'''
''' XML value
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
'''
''' Deserializes SealType object
'''
''' string to deserialize
''' Output SealType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SealType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SealType)
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 SealType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SealType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SealType)
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 SealType
Return CType(SerializerXml.Deserialize(s), SealType)
End Function
#End Region
'''
''' Serializes current SealType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an SealType object
'''
''' File to load and deserialize
''' Output SealType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SealType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SealType)
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 SealType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SealType
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
Partial Public Class TransportEquipmentType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _containerIdentificationNumber As String
Private _numberOfSeals As Integer
Private _seal As List(Of SealType)
Private _goodsReference As List(Of GoodsReferenceType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsReference = New List(Of GoodsReferenceType)()
Me._seal = New List(Of SealType)()
End Sub
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property containerIdentificationNumber() As String
Get
Return Me._containerIdentificationNumber
End Get
Set
Me._containerIdentificationNumber = Value
End Set
End Property
Public Property numberOfSeals() As Integer
Get
Return Me._numberOfSeals
End Get
Set
Me._numberOfSeals = Value
End Set
End Property
Public Property seal() As List(Of SealType)
Get
Return Me._seal
End Get
Set
Me._seal = Value
End Set
End Property
Public Property goodsReference() As List(Of GoodsReferenceType)
Get
Return Me._goodsReference
End Get
Set
Me._goodsReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportEquipmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransportEquipmentType object
'''
''' XML value
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
'''
''' Deserializes TransportEquipmentType object
'''
''' string to deserialize
''' Output TransportEquipmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportEquipmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportEquipmentType)
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 TransportEquipmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportEquipmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportEquipmentType)
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 TransportEquipmentType
Return CType(SerializerXml.Deserialize(s), TransportEquipmentType)
End Function
#End Region
'''
''' Serializes current TransportEquipmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransportEquipmentType object
'''
''' File to load and deserialize
''' Output TransportEquipmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportEquipmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportEquipmentType)
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 TransportEquipmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportEquipmentType
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
Partial Public Class PostCodeAddressType
#Region "Private fields"
Private _houseNumber As String
Private _postcode As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property houseNumber() As String
Get
Return Me._houseNumber
End Get
Set
Me._houseNumber = Value
End Set
End Property
Public Property postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
Public Property country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PostCodeAddressType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PostCodeAddressType object
'''
''' XML value
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
'''
''' Deserializes PostCodeAddressType object
'''
''' string to deserialize
''' Output PostCodeAddressType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostCodeAddressType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PostCodeAddressType)
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 PostCodeAddressType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PostCodeAddressType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PostCodeAddressType)
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 PostCodeAddressType
Return CType(SerializerXml.Deserialize(s), PostCodeAddressType)
End Function
#End Region
'''
''' Serializes current PostCodeAddressType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an PostCodeAddressType object
'''
''' File to load and deserialize
''' Output PostCodeAddressType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostCodeAddressType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PostCodeAddressType)
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 PostCodeAddressType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PostCodeAddressType
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
Partial Public Class LocationOfGoodsType
#Region "Private fields"
Private _typeOfLocation As String
Private _qualifierOfIdentification As String
Private _additionalIdentifier As String
Private _unLocode As String
Private _authorisationNumber As String
Private _customsOffice As String
Private _gnssLatitude As String
Private _gnssLongitude As String
Private _economicOperatorIdentificationNumber As String
Private _address As AddressType
Private _postCodeAddress As PostCodeAddressType
Private _contactPerson As ContactPersonType
Private _addressNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._postCodeAddress = New PostCodeAddressType()
Me._address = New AddressType()
End Sub
Public Property typeOfLocation() As String
Get
Return Me._typeOfLocation
End Get
Set
Me._typeOfLocation = Value
End Set
End Property
Public Property qualifierOfIdentification() As String
Get
Return Me._qualifierOfIdentification
End Get
Set
Me._qualifierOfIdentification = Value
End Set
End Property
Public Property additionalIdentifier() As String
Get
Return Me._additionalIdentifier
End Get
Set
Me._additionalIdentifier = Value
End Set
End Property
Public Property unLocode() As String
Get
Return Me._unLocode
End Get
Set
Me._unLocode = Value
End Set
End Property
Public Property authorisationNumber() As String
Get
Return Me._authorisationNumber
End Get
Set
Me._authorisationNumber = Value
End Set
End Property
Public Property customsOffice() As String
Get
Return Me._customsOffice
End Get
Set
Me._customsOffice = Value
End Set
End Property
Public Property gnssLatitude() As String
Get
Return Me._gnssLatitude
End Get
Set
Me._gnssLatitude = Value
End Set
End Property
Public Property gnssLongitude() As String
Get
Return Me._gnssLongitude
End Get
Set
Me._gnssLongitude = Value
End Set
End Property
Public Property economicOperatorIdentificationNumber() As String
Get
Return Me._economicOperatorIdentificationNumber
End Get
Set
Me._economicOperatorIdentificationNumber = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property postCodeAddress() As PostCodeAddressType
Get
Return Me._postCodeAddress
End Get
Set
Me._postCodeAddress = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LocationOfGoodsType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize LocationOfGoodsType object
'''
''' XML value
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
'''
''' Deserializes LocationOfGoodsType object
'''
''' string to deserialize
''' Output LocationOfGoodsType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LocationOfGoodsType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LocationOfGoodsType)
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 LocationOfGoodsType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LocationOfGoodsType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LocationOfGoodsType)
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 LocationOfGoodsType
Return CType(SerializerXml.Deserialize(s), LocationOfGoodsType)
End Function
#End Region
'''
''' Serializes current LocationOfGoodsType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an LocationOfGoodsType object
'''
''' File to load and deserialize
''' Output LocationOfGoodsType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LocationOfGoodsType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LocationOfGoodsType)
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 LocationOfGoodsType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LocationOfGoodsType
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
Partial Public Class LoadingType
#Region "Private fields"
Private _country As String
Private _location As String
Private _unlocode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Public Property location() As String
Get
Return Me._location
End Get
Set
Me._location = Value
End Set
End Property
Public Property unlocode() As String
Get
Return Me._unlocode
End Get
Set
Me._unlocode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LoadingType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize LoadingType object
'''
''' XML value
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
'''
''' Deserializes LoadingType object
'''
''' string to deserialize
''' Output LoadingType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LoadingType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LoadingType)
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 LoadingType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LoadingType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LoadingType)
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 LoadingType
Return CType(SerializerXml.Deserialize(s), LoadingType)
End Function
#End Region
'''
''' Serializes current LoadingType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an LoadingType object
'''
''' File to load and deserialize
''' Output LoadingType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LoadingType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LoadingType)
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 LoadingType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LoadingType
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
Partial Public Class TransitDeclarationConsignmentType
#Region "Private fields"
Private _countryOfDispatch As String
Private _countryOfDestination As String
Private _containerIndicator As Boolean
Private _inlandModeOfTransport As String
Private _modeOfTransportAtTheBorder As String
Private _consignmentGrossMass As Decimal
Private _referenceNumberUniqueConsignmentReference As String
Private _placeOfLoading As LoadingType
Private _placeOfUnloading As LoadingType
Private _locationOfGoods As LocationOfGoodsType
Private _transportEquipment As List(Of TransportEquipmentType)
Private _departureTransportMeans As List(Of DepartureTransportMeansType)
Private _activeTransportMeans As List(Of ActiveTransportMeansType)
Private _customsOfficeOfTransitDeclared As List(Of CustomsOfficeOfTransitDeclaredType)
Private _countryOfRoutingOfConsignment As List(Of CountryOfRoutingOfConsignmentType)
Private _carrier As CarrierType
Private _consignor As OperatorWithContactAndSubsidiaryType
Private _consignee As OperatorWithContactAndSubsidiaryType
Private _previousDocument As List(Of PreviousDocumentType)
Private _supportingDocument As List(Of SupportingDocumentType)
Private _transportDocument As List(Of TransportDocumentType)
Private _additionalInformation As List(Of AdditionalInformationType)
Private _additionalReference As List(Of AdditionalReferenceType)
Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType)
Private _incident As List(Of IncidentType)
Private _partner As List(Of TransitDeclarationPartnerType)
Private _methodOfPayment As String
Private _customerFields As CustomerFieldsType
Private _closed As Boolean
Private _worklist As String
Private _portInformation As PortInformationType
Private _houseConsignment As List(Of HouseConsignmentType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._houseConsignment = New List(Of HouseConsignmentType)()
Me._portInformation = New PortInformationType()
Me._customerFields = New CustomerFieldsType()
Me._partner = New List(Of TransitDeclarationPartnerType)()
Me._incident = New List(Of IncidentType)()
Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)()
Me._additionalReference = New List(Of AdditionalReferenceType)()
Me._additionalInformation = New List(Of AdditionalInformationType)()
Me._transportDocument = New List(Of TransportDocumentType)()
Me._supportingDocument = New List(Of SupportingDocumentType)()
Me._previousDocument = New List(Of PreviousDocumentType)()
Me._consignee = New OperatorWithContactAndSubsidiaryType()
Me._consignor = New OperatorWithContactAndSubsidiaryType()
Me._carrier = New CarrierType()
Me._countryOfRoutingOfConsignment = New List(Of CountryOfRoutingOfConsignmentType)()
Me._customsOfficeOfTransitDeclared = New List(Of CustomsOfficeOfTransitDeclaredType)()
Me._activeTransportMeans = New List(Of ActiveTransportMeansType)()
Me._departureTransportMeans = New List(Of DepartureTransportMeansType)()
Me._transportEquipment = New List(Of TransportEquipmentType)()
Me._locationOfGoods = New LocationOfGoodsType()
Me._placeOfUnloading = New LoadingType()
Me._placeOfLoading = New LoadingType()
End Sub
Public Property countryOfDispatch() As String
Get
Return Me._countryOfDispatch
End Get
Set
Me._countryOfDispatch = Value
End Set
End Property
Public Property countryOfDestination() As String
Get
Return Me._countryOfDestination
End Get
Set
Me._countryOfDestination = Value
End Set
End Property
Public Property containerIndicator() As Boolean
Get
Return Me._containerIndicator
End Get
Set
Me._containerIndicator = Value
End Set
End Property
Public Property inlandModeOfTransport() As String
Get
Return Me._inlandModeOfTransport
End Get
Set
Me._inlandModeOfTransport = Value
End Set
End Property
Public Property modeOfTransportAtTheBorder() As String
Get
Return Me._modeOfTransportAtTheBorder
End Get
Set
Me._modeOfTransportAtTheBorder = Value
End Set
End Property
Public Property consignmentGrossMass() As Decimal
Get
Return Me._consignmentGrossMass
End Get
Set
Me._consignmentGrossMass = Value
End Set
End Property
Public Property referenceNumberUniqueConsignmentReference() As String
Get
Return Me._referenceNumberUniqueConsignmentReference
End Get
Set
Me._referenceNumberUniqueConsignmentReference = Value
End Set
End Property
Public Property placeOfLoading() As LoadingType
Get
Return Me._placeOfLoading
End Get
Set
Me._placeOfLoading = Value
End Set
End Property
Public Property placeOfUnloading() As LoadingType
Get
Return Me._placeOfUnloading
End Get
Set
Me._placeOfUnloading = Value
End Set
End Property
Public Property locationOfGoods() As LocationOfGoodsType
Get
Return Me._locationOfGoods
End Get
Set
Me._locationOfGoods = Value
End Set
End Property
Public Property transportEquipment() As List(Of TransportEquipmentType)
Get
Return Me._transportEquipment
End Get
Set
Me._transportEquipment = Value
End Set
End Property
Public Property departureTransportMeans() As List(Of DepartureTransportMeansType)
Get
Return Me._departureTransportMeans
End Get
Set
Me._departureTransportMeans = Value
End Set
End Property
Public Property activeTransportMeans() As List(Of ActiveTransportMeansType)
Get
Return Me._activeTransportMeans
End Get
Set
Me._activeTransportMeans = Value
End Set
End Property
Public Property customsOfficeOfTransitDeclared() As List(Of CustomsOfficeOfTransitDeclaredType)
Get
Return Me._customsOfficeOfTransitDeclared
End Get
Set
Me._customsOfficeOfTransitDeclared = Value
End Set
End Property
Public Property countryOfRoutingOfConsignment() As List(Of CountryOfRoutingOfConsignmentType)
Get
Return Me._countryOfRoutingOfConsignment
End Get
Set
Me._countryOfRoutingOfConsignment = Value
End Set
End Property
Public Property carrier() As CarrierType
Get
Return Me._carrier
End Get
Set
Me._carrier = Value
End Set
End Property
Public Property consignor() As OperatorWithContactAndSubsidiaryType
Get
Return Me._consignor
End Get
Set
Me._consignor = Value
End Set
End Property
Public Property consignee() As OperatorWithContactAndSubsidiaryType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
Public Property previousDocument() As List(Of PreviousDocumentType)
Get
Return Me._previousDocument
End Get
Set
Me._previousDocument = Value
End Set
End Property
Public Property supportingDocument() As List(Of SupportingDocumentType)
Get
Return Me._supportingDocument
End Get
Set
Me._supportingDocument = Value
End Set
End Property
Public Property transportDocument() As List(Of TransportDocumentType)
Get
Return Me._transportDocument
End Get
Set
Me._transportDocument = Value
End Set
End Property
Public Property additionalInformation() As List(Of AdditionalInformationType)
Get
Return Me._additionalInformation
End Get
Set
Me._additionalInformation = Value
End Set
End Property
Public Property additionalReference() As List(Of AdditionalReferenceType)
Get
Return Me._additionalReference
End Get
Set
Me._additionalReference = Value
End Set
End Property
Public Property additionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType)
Get
Return Me._additionalSupplyChainActor
End Get
Set
Me._additionalSupplyChainActor = Value
End Set
End Property
Public Property incident() As List(Of IncidentType)
Get
Return Me._incident
End Get
Set
Me._incident = Value
End Set
End Property
Public Property partner() As List(Of TransitDeclarationPartnerType)
Get
Return Me._partner
End Get
Set
Me._partner = Value
End Set
End Property
Public Property methodOfPayment() As String
Get
Return Me._methodOfPayment
End Get
Set
Me._methodOfPayment = Value
End Set
End Property
Public Property customerFields() As CustomerFieldsType
Get
Return Me._customerFields
End Get
Set
Me._customerFields = Value
End Set
End Property
Public Property closed() As Boolean
Get
Return Me._closed
End Get
Set
Me._closed = Value
End Set
End Property
Public Property worklist() As String
Get
Return Me._worklist
End Get
Set
Me._worklist = Value
End Set
End Property
Public Property portInformation() As PortInformationType
Get
Return Me._portInformation
End Get
Set
Me._portInformation = Value
End Set
End Property
Public Property houseConsignment() As List(Of HouseConsignmentType)
Get
Return Me._houseConsignment
End Get
Set
Me._houseConsignment = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclarationConsignmentType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclarationConsignmentType object
'''
''' XML value
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
'''
''' Deserializes TransitDeclarationConsignmentType object
'''
''' string to deserialize
''' Output TransitDeclarationConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclarationConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationConsignmentType)
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 TransitDeclarationConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclarationConsignmentType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclarationConsignmentType)
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 TransitDeclarationConsignmentType
Return CType(SerializerXml.Deserialize(s), TransitDeclarationConsignmentType)
End Function
#End Region
'''
''' Serializes current TransitDeclarationConsignmentType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclarationConsignmentType object
'''
''' File to load and deserialize
''' Output TransitDeclarationConsignmentType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclarationConsignmentType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationConsignmentType)
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 TransitDeclarationConsignmentType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclarationConsignmentType
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
Partial Public Class TransitDeclarationGuaranteeReferenceType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _guaranteeReferenceNumber As String
Private _accessCode As String
Private _amountToBeCovered As Decimal
Private _currency As String
Private _customsOfficeOfGuarantee As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property guaranteeReferenceNumber() As String
Get
Return Me._guaranteeReferenceNumber
End Get
Set
Me._guaranteeReferenceNumber = Value
End Set
End Property
Public Property accessCode() As String
Get
Return Me._accessCode
End Get
Set
Me._accessCode = Value
End Set
End Property
Public Property amountToBeCovered() As Decimal
Get
Return Me._amountToBeCovered
End Get
Set
Me._amountToBeCovered = Value
End Set
End Property
Public Property currency() As String
Get
Return Me._currency
End Get
Set
Me._currency = Value
End Set
End Property
Public Property customsOfficeOfGuarantee() As String
Get
Return Me._customsOfficeOfGuarantee
End Get
Set
Me._customsOfficeOfGuarantee = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclarationGuaranteeReferenceType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclarationGuaranteeReferenceType object
'''
''' XML value
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
'''
''' Deserializes TransitDeclarationGuaranteeReferenceType object
'''
''' string to deserialize
''' Output TransitDeclarationGuaranteeReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclarationGuaranteeReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationGuaranteeReferenceType)
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 TransitDeclarationGuaranteeReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclarationGuaranteeReferenceType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclarationGuaranteeReferenceType)
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 TransitDeclarationGuaranteeReferenceType
Return CType(SerializerXml.Deserialize(s), TransitDeclarationGuaranteeReferenceType)
End Function
#End Region
'''
''' Serializes current TransitDeclarationGuaranteeReferenceType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclarationGuaranteeReferenceType object
'''
''' File to load and deserialize
''' Output TransitDeclarationGuaranteeReferenceType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclarationGuaranteeReferenceType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationGuaranteeReferenceType)
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 TransitDeclarationGuaranteeReferenceType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclarationGuaranteeReferenceType
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
Partial Public Class GuaranteeType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _guaranteeType As String
Private _otherGuaranteeReference As String
Private _kindOfCalculation As String
Private _guaranteeNotValidInCtry As String
Private _guaranteeReference As List(Of TransitDeclarationGuaranteeReferenceType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._guaranteeReference = New List(Of TransitDeclarationGuaranteeReferenceType)()
End Sub
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property guaranteeType() As String
Get
Return Me._guaranteeType
End Get
Set
Me._guaranteeType = Value
End Set
End Property
Public Property otherGuaranteeReference() As String
Get
Return Me._otherGuaranteeReference
End Get
Set
Me._otherGuaranteeReference = Value
End Set
End Property
Public Property kindOfCalculation() As String
Get
Return Me._kindOfCalculation
End Get
Set
Me._kindOfCalculation = Value
End Set
End Property
Public Property guaranteeNotValidInCtry() As String
Get
Return Me._guaranteeNotValidInCtry
End Get
Set
Me._guaranteeNotValidInCtry = Value
End Set
End Property
Public Property guaranteeReference() As List(Of TransitDeclarationGuaranteeReferenceType)
Get
Return Me._guaranteeReference
End Get
Set
Me._guaranteeReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GuaranteeType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize GuaranteeType object
'''
''' XML value
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
'''
''' Deserializes GuaranteeType object
'''
''' string to deserialize
''' Output GuaranteeType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GuaranteeType)
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 GuaranteeType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As GuaranteeType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GuaranteeType)
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 GuaranteeType
Return CType(SerializerXml.Deserialize(s), GuaranteeType)
End Function
#End Region
'''
''' Serializes current GuaranteeType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an GuaranteeType object
'''
''' File to load and deserialize
''' Output GuaranteeType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GuaranteeType)
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 GuaranteeType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GuaranteeType
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
Partial Public Class AuthorisationType
#Region "Private fields"
Private _sequenceNumber As Integer
Private _authorisationType As String
Private _authorisationNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property sequenceNumber() As Integer
Get
Return Me._sequenceNumber
End Get
Set
Me._sequenceNumber = Value
End Set
End Property
Public Property authorisationType() As String
Get
Return Me._authorisationType
End Get
Set
Me._authorisationType = Value
End Set
End Property
Public Property authorisationNumber() As String
Get
Return Me._authorisationNumber
End Get
Set
Me._authorisationNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AuthorisationType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AuthorisationType object
'''
''' XML value
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
'''
''' Deserializes AuthorisationType object
'''
''' string to deserialize
''' Output AuthorisationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AuthorisationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AuthorisationType)
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 AuthorisationType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AuthorisationType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AuthorisationType)
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 AuthorisationType
Return CType(SerializerXml.Deserialize(s), AuthorisationType)
End Function
#End Region
'''
''' Serializes current AuthorisationType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AuthorisationType object
'''
''' File to load and deserialize
''' Output AuthorisationType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AuthorisationType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AuthorisationType)
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 AuthorisationType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AuthorisationType
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
Partial Public Class TransitDeclarationRepresentativeType
#Region "Private fields"
Private _addressNumber As String
Private _identificationNumber As String
Private _name As String
Private _address As AddressType
Private _contactPerson As ContactPersonType
Private _status As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonType()
Me._address = New AddressType()
End Sub
Public Property addressNumber() As String
Get
Return Me._addressNumber
End Get
Set
Me._addressNumber = Value
End Set
End Property
Public Property identificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
Public Property name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property address() As AddressType
Get
Return Me._address
End Get
Set
Me._address = Value
End Set
End Property
Public Property contactPerson() As ContactPersonType
Get
Return Me._contactPerson
End Get
Set
Me._contactPerson = Value
End Set
End Property
Public Property status() As String
Get
Return Me._status
End Get
Set
Me._status = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitDeclarationRepresentativeType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitDeclarationRepresentativeType object
'''
''' XML value
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
'''
''' Deserializes TransitDeclarationRepresentativeType object
'''
''' string to deserialize
''' Output TransitDeclarationRepresentativeType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitDeclarationRepresentativeType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationRepresentativeType)
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 TransitDeclarationRepresentativeType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitDeclarationRepresentativeType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitDeclarationRepresentativeType)
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 TransitDeclarationRepresentativeType
Return CType(SerializerXml.Deserialize(s), TransitDeclarationRepresentativeType)
End Function
#End Region
'''
''' Serializes current TransitDeclarationRepresentativeType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an TransitDeclarationRepresentativeType object
'''
''' File to load and deserialize
''' Output TransitDeclarationRepresentativeType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitDeclarationRepresentativeType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitDeclarationRepresentativeType)
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 TransitDeclarationRepresentativeType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitDeclarationRepresentativeType
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