'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net48","NameSpace":"EingangsanzeigeNCTSDE_003","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 EingangsanzeigeNCTSDE_003
Partial Public Class EingangsanzeigeEATyp
Inherits DatenaustauschNCTSTyp
#Region "Private fields"
Private _einzelEingangsanzeige As EinzelEingangsanzeigeTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelEingangsanzeige = New EinzelEingangsanzeigeTyp()
End Sub
Public Property EinzelEingangsanzeige() As EinzelEingangsanzeigeTyp
Get
Return Me._einzelEingangsanzeige
End Get
Set
Me._einzelEingangsanzeige = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EingangsanzeigeEATyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EingangsanzeigeEATyp 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 EingangsanzeigeEATyp object
'''
''' string to deserialize
''' Output EingangsanzeigeEATyp 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 EingangsanzeigeEATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EingangsanzeigeEATyp)
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 EingangsanzeigeEATyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EingangsanzeigeEATyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EingangsanzeigeEATyp)
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 EingangsanzeigeEATyp
Return CType(SerializerXml.Deserialize(s), EingangsanzeigeEATyp)
End Function
#End Region
'''
''' Serializes current EingangsanzeigeEATyp 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 EingangsanzeigeEATyp object
'''
''' File to load and deserialize
''' Output EingangsanzeigeEATyp 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 EingangsanzeigeEATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EingangsanzeigeEATyp)
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 EingangsanzeigeEATyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EingangsanzeigeEATyp
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 EinzelEingangsanzeigeTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungEATyp
Private _transitOperation As TransitOperationEAType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transitOperation = New TransitOperationEAType()
Me._objektIdentifizierung = New ObjektIdentifizierungEATyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungEATyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
Public Property TransitOperation() As TransitOperationEAType
Get
Return Me._transitOperation
End Get
Set
Me._transitOperation = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEingangsanzeigeTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EinzelEingangsanzeigeTyp 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 EinzelEingangsanzeigeTyp object
'''
''' string to deserialize
''' Output EinzelEingangsanzeigeTyp 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 EinzelEingangsanzeigeTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelEingangsanzeigeTyp)
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 EinzelEingangsanzeigeTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEingangsanzeigeTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEingangsanzeigeTyp)
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 EinzelEingangsanzeigeTyp
Return CType(SerializerXml.Deserialize(s), EinzelEingangsanzeigeTyp)
End Function
#End Region
'''
''' Serializes current EinzelEingangsanzeigeTyp 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 EinzelEingangsanzeigeTyp object
'''
''' File to load and deserialize
''' Output EinzelEingangsanzeigeTyp 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 EinzelEingangsanzeigeTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelEingangsanzeigeTyp)
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 EinzelEingangsanzeigeTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEingangsanzeigeTyp
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 ObjektIdentifizierungEATyp
#Region "Private fields"
Private _objektName As String
Private _objektAliasname As String
Private _bezugsnummerVorblendung As String
Private _kopieVon As String
Private _objektAktion As List(Of String)
Private _bearbeiter As String
Private _anfBemerkungStatusanzeige As String
Private _nameAbsendendesSystem As String
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._objektAktion = New List(Of String)()
End Sub
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
Public Property ObjektAliasname() As String
Get
Return Me._objektAliasname
End Get
Set
Me._objektAliasname = Value
End Set
End Property
Public Property BezugsnummerVorblendung() As String
Get
Return Me._bezugsnummerVorblendung
End Get
Set
Me._bezugsnummerVorblendung = Value
End Set
End Property
Public Property KopieVon() As String
Get
Return Me._kopieVon
End Get
Set
Me._kopieVon = Value
End Set
End Property
Public Property ObjektAktion() As List(Of String)
Get
Return Me._objektAktion
End Get
Set
Me._objektAktion = Value
End Set
End Property
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
Public Property AnfBemerkungStatusanzeige() As String
Get
Return Me._anfBemerkungStatusanzeige
End Get
Set
Me._anfBemerkungStatusanzeige = Value
End Set
End Property
Public Property NameAbsendendesSystem() As String
Get
Return Me._nameAbsendendesSystem
End Get
Set
Me._nameAbsendendesSystem = Value
End Set
End Property
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungEATyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ObjektIdentifizierungEATyp 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 ObjektIdentifizierungEATyp object
'''
''' string to deserialize
''' Output ObjektIdentifizierungEATyp 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 ObjektIdentifizierungEATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungEATyp)
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 ObjektIdentifizierungEATyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungEATyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungEATyp)
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 ObjektIdentifizierungEATyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungEATyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungEATyp 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 ObjektIdentifizierungEATyp object
'''
''' File to load and deserialize
''' Output ObjektIdentifizierungEATyp 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 ObjektIdentifizierungEATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungEATyp)
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 ObjektIdentifizierungEATyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungEATyp
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 ApplicationInternalDataAdditionalDetailsDataType
#Region "Private fields"
Private _key As String
Private _value As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
Public Property Value() As String
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType object
'''
''' string to deserialize
''' Output ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
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 ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
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 ApplicationInternalDataAdditionalDetailsDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
End Function
#End Region
'''
''' Serializes current ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType object
'''
''' File to load and deserialize
''' Output ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
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 ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
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 ApplicationInternalDataType
#Region "Private fields"
Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
End Sub
Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Get
Return Me._additionalDetails
End Get
Set
Me._additionalDetails = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ApplicationInternalDataType 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 ApplicationInternalDataType object
'''
''' string to deserialize
''' Output ApplicationInternalDataType 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 ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
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 ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
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 ApplicationInternalDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
End Function
#End Region
'''
''' Serializes current ApplicationInternalDataType 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 ApplicationInternalDataType object
'''
''' File to load and deserialize
''' Output ApplicationInternalDataType 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 ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
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 ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
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 TranshipmentEAType
#Region "Private fields"
Private _containerIndicator As String
Private _typeOfIdentificationOfTransportMeans As String
Private _identificationNumberOfTransportMeans As String
Private _nationalityOfTransportMeans As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property ContainerIndicator() As String
Get
Return Me._containerIndicator
End Get
Set
Me._containerIndicator = Value
End Set
End Property
Public Property TypeOfIdentificationOfTransportMeans() As String
Get
Return Me._typeOfIdentificationOfTransportMeans
End Get
Set
Me._typeOfIdentificationOfTransportMeans = Value
End Set
End Property
Public Property IdentificationNumberOfTransportMeans() As String
Get
Return Me._identificationNumberOfTransportMeans
End Get
Set
Me._identificationNumberOfTransportMeans = Value
End Set
End Property
Public Property NationalityOfTransportMeans() As String
Get
Return Me._nationalityOfTransportMeans
End Get
Set
Me._nationalityOfTransportMeans = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TranshipmentEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TranshipmentEAType 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 TranshipmentEAType object
'''
''' string to deserialize
''' Output TranshipmentEAType 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 TranshipmentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TranshipmentEAType)
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 TranshipmentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TranshipmentEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TranshipmentEAType)
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 TranshipmentEAType
Return CType(SerializerXml.Deserialize(s), TranshipmentEAType)
End Function
#End Region
'''
''' Serializes current TranshipmentEAType 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 TranshipmentEAType object
'''
''' File to load and deserialize
''' Output TranshipmentEAType 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 TranshipmentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TranshipmentEAType)
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 TranshipmentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TranshipmentEAType
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 TransportEquipmentEAType
#Region "Private fields"
Private _numberOfSeals As String
Private _seal As List(Of String)
Private _containerIdentificationNumber As String
Private _goodsReference As List(Of String)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._goodsReference = New List(Of String)()
Me._seal = New List(Of String)()
End Sub
Public Property NumberOfSeals() As String
Get
Return Me._numberOfSeals
End Get
Set
Me._numberOfSeals = Value
End Set
End Property
Public Property Seal() As List(Of String)
Get
Return Me._seal
End Get
Set
Me._seal = 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 GoodsReference() As List(Of String)
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(TransportEquipmentEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransportEquipmentEAType 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 TransportEquipmentEAType object
'''
''' string to deserialize
''' Output TransportEquipmentEAType 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 TransportEquipmentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportEquipmentEAType)
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 TransportEquipmentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportEquipmentEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportEquipmentEAType)
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 TransportEquipmentEAType
Return CType(SerializerXml.Deserialize(s), TransportEquipmentEAType)
End Function
#End Region
'''
''' Serializes current TransportEquipmentEAType 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 TransportEquipmentEAType object
'''
''' File to load and deserialize
''' Output TransportEquipmentEAType 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 TransportEquipmentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportEquipmentEAType)
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 TransportEquipmentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportEquipmentEAType
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 IncidentEAType
#Region "Private fields"
Private _code As String
Private _text As String
Private _dateOfEndorsement As Date
Private _authorityOfEndorsement As String
Private _placeOfEndorsement As String
Private _countryOfEndorsement As String
Private _qualifierOfIdentificationOfLocation As String
Private _uNLocode As String
Private _countryOfLocation As String
Private _latitude As String
Private _longitude As String
Private _streetAndNumberOfLocation As String
Private _cityOfLocation As String
Private _postcodeOfLocation As String
Private _transportEquipment As List(Of TransportEquipmentEAType)
Private _transhipment As TranshipmentEAType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transhipment = New TranshipmentEAType()
Me._transportEquipment = New List(Of TransportEquipmentEAType)()
End Sub
Public Property Code() As String
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 DateOfEndorsement() As Date
Get
Return Me._dateOfEndorsement
End Get
Set
Me._dateOfEndorsement = Value
End Set
End Property
Public Property AuthorityOfEndorsement() As String
Get
Return Me._authorityOfEndorsement
End Get
Set
Me._authorityOfEndorsement = Value
End Set
End Property
Public Property PlaceOfEndorsement() As String
Get
Return Me._placeOfEndorsement
End Get
Set
Me._placeOfEndorsement = Value
End Set
End Property
Public Property CountryOfEndorsement() As String
Get
Return Me._countryOfEndorsement
End Get
Set
Me._countryOfEndorsement = Value
End Set
End Property
Public Property QualifierOfIdentificationOfLocation() As String
Get
Return Me._qualifierOfIdentificationOfLocation
End Get
Set
Me._qualifierOfIdentificationOfLocation = 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 CountryOfLocation() As String
Get
Return Me._countryOfLocation
End Get
Set
Me._countryOfLocation = Value
End Set
End Property
Public Property Latitude() As String
Get
Return Me._latitude
End Get
Set
Me._latitude = Value
End Set
End Property
Public Property Longitude() As String
Get
Return Me._longitude
End Get
Set
Me._longitude = Value
End Set
End Property
Public Property StreetAndNumberOfLocation() As String
Get
Return Me._streetAndNumberOfLocation
End Get
Set
Me._streetAndNumberOfLocation = Value
End Set
End Property
Public Property CityOfLocation() As String
Get
Return Me._cityOfLocation
End Get
Set
Me._cityOfLocation = Value
End Set
End Property
Public Property PostcodeOfLocation() As String
Get
Return Me._postcodeOfLocation
End Get
Set
Me._postcodeOfLocation = Value
End Set
End Property
Public Property TransportEquipment() As List(Of TransportEquipmentEAType)
Get
Return Me._transportEquipment
End Get
Set
Me._transportEquipment = Value
End Set
End Property
Public Property Transhipment() As TranshipmentEAType
Get
Return Me._transhipment
End Get
Set
Me._transhipment = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IncidentEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize IncidentEAType 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 IncidentEAType object
'''
''' string to deserialize
''' Output IncidentEAType 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 IncidentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentEAType)
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 IncidentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As IncidentEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IncidentEAType)
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 IncidentEAType
Return CType(SerializerXml.Deserialize(s), IncidentEAType)
End Function
#End Region
'''
''' Serializes current IncidentEAType 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 IncidentEAType object
'''
''' File to load and deserialize
''' Output IncidentEAType 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 IncidentEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, IncidentEAType)
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 IncidentEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IncidentEAType
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 AuthorisationEAType
#Region "Private fields"
Private _type As String
Private _referenceNumber As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Type() As String
Get
Return Me._type
End Get
Set
Me._type = Value
End Set
End Property
Public Property ReferenceNumber() As String
Get
Return Me._referenceNumber
End Get
Set
Me._referenceNumber = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AuthorisationEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AuthorisationEAType 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 AuthorisationEAType object
'''
''' string to deserialize
''' Output AuthorisationEAType 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 AuthorisationEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AuthorisationEAType)
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 AuthorisationEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AuthorisationEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AuthorisationEAType)
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 AuthorisationEAType
Return CType(SerializerXml.Deserialize(s), AuthorisationEAType)
End Function
#End Region
'''
''' Serializes current AuthorisationEAType 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 AuthorisationEAType object
'''
''' File to load and deserialize
''' Output AuthorisationEAType 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 AuthorisationEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AuthorisationEAType)
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 AuthorisationEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AuthorisationEAType
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 AddressEAType
#Region "Private fields"
Private _addressCode As String
Private _identificationNumber As String
Private _subsidiaryNumber As String
Private _contactPerson As ContactPersonVAType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonVAType()
End Sub
Public Property AddressCode() As String
Get
Return Me._addressCode
End Get
Set
Me._addressCode = 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 ContactPerson() As ContactPersonVAType
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(AddressEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AddressEAType 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 AddressEAType object
'''
''' string to deserialize
''' Output AddressEAType 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 AddressEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressEAType)
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 AddressEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AddressEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressEAType)
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 AddressEAType
Return CType(SerializerXml.Deserialize(s), AddressEAType)
End Function
#End Region
'''
''' Serializes current AddressEAType 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 AddressEAType object
'''
''' File to load and deserialize
''' Output AddressEAType 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 AddressEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressEAType)
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 AddressEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressEAType
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 ContactPersonVAType
#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(ContactPersonVAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ContactPersonVAType 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 ContactPersonVAType object
'''
''' string to deserialize
''' Output ContactPersonVAType 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 ContactPersonVAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ContactPersonVAType)
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 ContactPersonVAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ContactPersonVAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactPersonVAType)
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 ContactPersonVAType
Return CType(SerializerXml.Deserialize(s), ContactPersonVAType)
End Function
#End Region
'''
''' Serializes current ContactPersonVAType 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 ContactPersonVAType object
'''
''' File to load and deserialize
''' Output ContactPersonVAType 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 ContactPersonVAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ContactPersonVAType)
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 ContactPersonVAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ContactPersonVAType
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 LocationOfGoodsEAType
#Region "Private fields"
Private _additionalIdentifier As String
Private _contactPerson As ContactPersonVAType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._contactPerson = New ContactPersonVAType()
End Sub
Public Property AdditionalIdentifier() As String
Get
Return Me._additionalIdentifier
End Get
Set
Me._additionalIdentifier = Value
End Set
End Property
Public Property ContactPerson() As ContactPersonVAType
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(LocationOfGoodsEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize LocationOfGoodsEAType 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 LocationOfGoodsEAType object
'''
''' string to deserialize
''' Output LocationOfGoodsEAType 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 LocationOfGoodsEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LocationOfGoodsEAType)
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 LocationOfGoodsEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LocationOfGoodsEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LocationOfGoodsEAType)
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 LocationOfGoodsEAType
Return CType(SerializerXml.Deserialize(s), LocationOfGoodsEAType)
End Function
#End Region
'''
''' Serializes current LocationOfGoodsEAType 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 LocationOfGoodsEAType object
'''
''' File to load and deserialize
''' Output LocationOfGoodsEAType 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 LocationOfGoodsEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LocationOfGoodsEAType)
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 LocationOfGoodsEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LocationOfGoodsEAType
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 TransitOperationEAType
#Region "Private fields"
Private _mRN As String
Private _arrivalNotificationDateAndTime As Date
Private _locationOfGoods As LocationOfGoodsEAType
Private _incidentFlag As String
Private _customsOfficeOfDestinationActual As String
Private _traderAtDestination As AddressEAType
Private _authorisation As List(Of AuthorisationEAType)
Private _incident As List(Of IncidentEAType)
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._incident = New List(Of IncidentEAType)()
Me._authorisation = New List(Of AuthorisationEAType)()
Me._traderAtDestination = New AddressEAType()
Me._locationOfGoods = New LocationOfGoodsEAType()
End Sub
Public Property MRN() As String
Get
Return Me._mRN
End Get
Set
Me._mRN = Value
End Set
End Property
Public Property ArrivalNotificationDateAndTime() As Date
Get
Return Me._arrivalNotificationDateAndTime
End Get
Set
Me._arrivalNotificationDateAndTime = Value
End Set
End Property
Public Property LocationOfGoods() As LocationOfGoodsEAType
Get
Return Me._locationOfGoods
End Get
Set
Me._locationOfGoods = Value
End Set
End Property
Public Property IncidentFlag() As String
Get
Return Me._incidentFlag
End Get
Set
Me._incidentFlag = Value
End Set
End Property
Public Property CustomsOfficeOfDestinationActual() As String
Get
Return Me._customsOfficeOfDestinationActual
End Get
Set
Me._customsOfficeOfDestinationActual = Value
End Set
End Property
Public Property TraderAtDestination() As AddressEAType
Get
Return Me._traderAtDestination
End Get
Set
Me._traderAtDestination = Value
End Set
End Property
Public Property Authorisation() As List(Of AuthorisationEAType)
Get
Return Me._authorisation
End Get
Set
Me._authorisation = Value
End Set
End Property
Public Property Incident() As List(Of IncidentEAType)
Get
Return Me._incident
End Get
Set
Me._incident = Value
End Set
End Property
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitOperationEAType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransitOperationEAType 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 TransitOperationEAType object
'''
''' string to deserialize
''' Output TransitOperationEAType 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 TransitOperationEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitOperationEAType)
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 TransitOperationEAType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransitOperationEAType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitOperationEAType)
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 TransitOperationEAType
Return CType(SerializerXml.Deserialize(s), TransitOperationEAType)
End Function
#End Region
'''
''' Serializes current TransitOperationEAType 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 TransitOperationEAType object
'''
''' File to load and deserialize
''' Output TransitOperationEAType 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 TransitOperationEAType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransitOperationEAType)
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 TransitOperationEAType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitOperationEAType
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 TransaktionNCTSTyp
#Region "Private fields"
Private _iOPartner As String
Private _iODivision1 As String
Private _iODivision2 As String
Private _iODivision3 As String
Private _iOReferenz As String
Private _iODatumZeit As Date
Private _version As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property IOPartner() As String
Get
Return Me._iOPartner
End Get
Set
Me._iOPartner = Value
End Set
End Property
Public Property IODivision1() As String
Get
Return Me._iODivision1
End Get
Set
Me._iODivision1 = Value
End Set
End Property
Public Property IODivision2() As String
Get
Return Me._iODivision2
End Get
Set
Me._iODivision2 = Value
End Set
End Property
Public Property IODivision3() As String
Get
Return Me._iODivision3
End Get
Set
Me._iODivision3 = Value
End Set
End Property
Public Property IOReferenz() As String
Get
Return Me._iOReferenz
End Get
Set
Me._iOReferenz = Value
End Set
End Property
Public Property IODatumZeit() As Date
Get
Return Me._iODatumZeit
End Get
Set
Me._iODatumZeit = Value
End Set
End Property
Public Property Version() As String
Get
Return Me._version
End Get
Set
Me._version = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransaktionNCTSTyp 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 TransaktionNCTSTyp object
'''
''' string to deserialize
''' Output TransaktionNCTSTyp 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 TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionNCTSTyp)
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 TransaktionNCTSTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp)
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 TransaktionNCTSTyp
Return CType(SerializerXml.Deserialize(s), TransaktionNCTSTyp)
End Function
#End Region
'''
''' Serializes current TransaktionNCTSTyp 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 TransaktionNCTSTyp object
'''
''' File to load and deserialize
''' Output TransaktionNCTSTyp 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 TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionNCTSTyp)
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 TransaktionNCTSTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionNCTSTyp
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 DatenaustauschNCTSTyp
#Region "Private fields"
Private _transaktion As TransaktionNCTSTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transaktion = New TransaktionNCTSTyp()
End Sub
Public Property Transaktion() As TransaktionNCTSTyp
Get
Return Me._transaktion
End Get
Set
Me._transaktion = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DatenaustauschNCTSTyp 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 DatenaustauschNCTSTyp object
'''
''' string to deserialize
''' Output DatenaustauschNCTSTyp 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 DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschNCTSTyp)
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 DatenaustauschNCTSTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp)
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 DatenaustauschNCTSTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschNCTSTyp)
End Function
#End Region
'''
''' Serializes current DatenaustauschNCTSTyp 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 DatenaustauschNCTSTyp object
'''
''' File to load and deserialize
''' Output DatenaustauschNCTSTyp 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 DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschNCTSTyp)
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 DatenaustauschNCTSTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschNCTSTyp
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