'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net47","NameSpace":"BestaetigungAusfuhr_007","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 BestaetigungAusfuhr_007
Partial Public Class BestaetigungAusfuhrENTyp
Inherits DatenaustauschExportTyp
#Region "Private fields"
Private _einzelBestaetigung As List(Of EinzelBestaetigungAusfuhrTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelBestaetigung = New List(Of EinzelBestaetigungAusfuhrTyp)()
End Sub
Public Property EinzelBestaetigung() As List(Of EinzelBestaetigungAusfuhrTyp)
Get
Return Me._einzelBestaetigung
End Get
Set
Me._einzelBestaetigung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BestaetigungAusfuhrENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize BestaetigungAusfuhrENTyp 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 BestaetigungAusfuhrENTyp object
'''
''' string to deserialize
''' Output BestaetigungAusfuhrENTyp 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 BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BestaetigungAusfuhrENTyp)
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 BestaetigungAusfuhrENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BestaetigungAusfuhrENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BestaetigungAusfuhrENTyp)
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 BestaetigungAusfuhrENTyp
Return CType(SerializerXml.Deserialize(s), BestaetigungAusfuhrENTyp)
End Function
#End Region
'''
''' Serializes current BestaetigungAusfuhrENTyp 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 BestaetigungAusfuhrENTyp object
'''
''' File to load and deserialize
''' Output BestaetigungAusfuhrENTyp 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 BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BestaetigungAusfuhrENTyp)
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 BestaetigungAusfuhrENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BestaetigungAusfuhrENTyp
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 EinzelBestaetigungAusfuhrTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungENTyp
Private _kopfDaten As KopfDatenBestaetigungAusfuhrTyp
Private _warenPosition As List(Of PositionBestaetigungAusfuhrTyp)
Private _exportOperation As ExportOperationENType
Private _goodsItem As List(Of GoodsItemENType)
Private _attachments As List(Of AttachmentENType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._attachments = New List(Of AttachmentENType)()
Me._goodsItem = New List(Of GoodsItemENType)()
Me._exportOperation = New ExportOperationENType()
Me._warenPosition = New List(Of PositionBestaetigungAusfuhrTyp)()
Me._kopfDaten = New KopfDatenBestaetigungAusfuhrTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungENTyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungENTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenBestaetigungAusfuhrTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
Public Property WarenPosition() As List(Of PositionBestaetigungAusfuhrTyp)
Get
Return Me._warenPosition
End Get
Set
Me._warenPosition = Value
End Set
End Property
Public Property ExportOperation() As ExportOperationENType
Get
Return Me._exportOperation
End Get
Set
Me._exportOperation = Value
End Set
End Property
Public Property GoodsItem() As List(Of GoodsItemENType)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
Public Property Attachments() As List(Of AttachmentENType)
Get
Return Me._attachments
End Get
Set
Me._attachments = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EinzelBestaetigungAusfuhrTyp 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 EinzelBestaetigungAusfuhrTyp object
'''
''' string to deserialize
''' Output EinzelBestaetigungAusfuhrTyp 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 EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp)
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 EinzelBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBestaetigungAusfuhrTyp)
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 EinzelBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), EinzelBestaetigungAusfuhrTyp)
End Function
#End Region
'''
''' Serializes current EinzelBestaetigungAusfuhrTyp 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 EinzelBestaetigungAusfuhrTyp object
'''
''' File to load and deserialize
''' Output EinzelBestaetigungAusfuhrTyp 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 EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp)
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 EinzelBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBestaetigungAusfuhrTyp
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 ObjektIdentifizierungENTyp
#Region "Private fields"
Private _objektName As String
Private _eDIFACTNachrichtenNr As String
Private _zeitpunktEingang As Date
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me._eDIFACTNachrichtenNr
End Get
Set
Me._eDIFACTNachrichtenNr = Value
End Set
End Property
Public Property ZeitpunktEingang() As Date
Get
Return Me._zeitpunktEingang
End Get
Set
Me._zeitpunktEingang = 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(ObjektIdentifizierungENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ObjektIdentifizierungENTyp 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 ObjektIdentifizierungENTyp object
'''
''' string to deserialize
''' Output ObjektIdentifizierungENTyp 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 ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungENTyp)
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 ObjektIdentifizierungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungENTyp)
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 ObjektIdentifizierungENTyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungENTyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungENTyp 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 ObjektIdentifizierungENTyp object
'''
''' File to load and deserialize
''' Output ObjektIdentifizierungENTyp 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 ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungENTyp)
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 ObjektIdentifizierungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungENTyp
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 AttachmentENType
#Region "Private fields"
Private _technicalContent As String
Private _originalFilename As String
Private _fileFormat As String
Private _dataEncoding As String
Private _data As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TechnicalContent() As String
Get
Return Me._technicalContent
End Get
Set
Me._technicalContent = Value
End Set
End Property
Public Property OriginalFilename() As String
Get
Return Me._originalFilename
End Get
Set
Me._originalFilename = Value
End Set
End Property
Public Property FileFormat() As String
Get
Return Me._fileFormat
End Get
Set
Me._fileFormat = Value
End Set
End Property
Public Property DataEncoding() As String
Get
Return Me._dataEncoding
End Get
Set
Me._dataEncoding = Value
End Set
End Property
Public Property Data() As String
Get
Return Me._data
End Get
Set
Me._data = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AttachmentENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AttachmentENType 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 AttachmentENType object
'''
''' string to deserialize
''' Output AttachmentENType 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 AttachmentENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AttachmentENType)
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 AttachmentENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AttachmentENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AttachmentENType)
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 AttachmentENType
Return CType(SerializerXml.Deserialize(s), AttachmentENType)
End Function
#End Region
'''
''' Serializes current AttachmentENType 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 AttachmentENType object
'''
''' File to load and deserialize
''' Output AttachmentENType 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 AttachmentENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AttachmentENType)
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 AttachmentENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AttachmentENType
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 PackagingENType
#Region "Private fields"
Private _numberOfPackages As String
Private _typeOfPackages As String
Private _shippingMarks As String
Private _packageReference As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property NumberOfPackages() As String
Get
Return Me._numberOfPackages
End Get
Set
Me._numberOfPackages = 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 ShippingMarks() As String
Get
Return Me._shippingMarks
End Get
Set
Me._shippingMarks = Value
End Set
End Property
Public Property PackageReference() As String
Get
Return Me._packageReference
End Get
Set
Me._packageReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackagingENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PackagingENType 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 PackagingENType object
'''
''' string to deserialize
''' Output PackagingENType 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 PackagingENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackagingENType)
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 PackagingENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PackagingENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackagingENType)
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 PackagingENType
Return CType(SerializerXml.Deserialize(s), PackagingENType)
End Function
#End Region
'''
''' Serializes current PackagingENType 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 PackagingENType object
'''
''' File to load and deserialize
''' Output PackagingENType 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 PackagingENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackagingENType)
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 PackagingENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackagingENType
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 ProcedureENType
#Region "Private fields"
Private _requestedProcedure As String
Private _previousProcedure As String
Private _additionalProcedure As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property RequestedProcedure() As String
Get
Return Me._requestedProcedure
End Get
Set
Me._requestedProcedure = Value
End Set
End Property
Public Property PreviousProcedure() As String
Get
Return Me._previousProcedure
End Get
Set
Me._previousProcedure = Value
End Set
End Property
Public Property AdditionalProcedure() As String
Get
Return Me._additionalProcedure
End Get
Set
Me._additionalProcedure = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProcedureENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ProcedureENType 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 ProcedureENType object
'''
''' string to deserialize
''' Output ProcedureENType 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 ProcedureENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ProcedureENType)
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 ProcedureENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ProcedureENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProcedureENType)
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 ProcedureENType
Return CType(SerializerXml.Deserialize(s), ProcedureENType)
End Function
#End Region
'''
''' Serializes current ProcedureENType 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 ProcedureENType object
'''
''' File to load and deserialize
''' Output ProcedureENType 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 ProcedureENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ProcedureENType)
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 ProcedureENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ProcedureENType
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 GoodsItemENType
#Region "Private fields"
Private _declarationGoodsItemNumber As String
Private _harmonizedSystemSubHeadingCode As String
Private _combinedNomenclatureCode As String
Private _taricAdditionalCode As List(Of String)
Private _descriptionOfGoods As String
Private _registrationNumberExternal As String
Private _referenceNumberUCR As String
Private _netMass As Decimal
Private _grossMass As Decimal
Private _supplementaryUnits As Decimal
Private _waterMark As String
Private _procedure As ProcedureENType
Private _statisticalValue As Decimal
Private _countryOfExport As String
Private _packaging As List(Of PackagingENType)
Private _consignee As AddressENType
Private _natureOfTransaction As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._consignee = New AddressENType()
Me._packaging = New List(Of PackagingENType)()
Me._procedure = New ProcedureENType()
Me._taricAdditionalCode = New List(Of String)()
End Sub
Public Property DeclarationGoodsItemNumber() As String
Get
Return Me._declarationGoodsItemNumber
End Get
Set
Me._declarationGoodsItemNumber = Value
End Set
End Property
Public Property HarmonizedSystemSubHeadingCode() As String
Get
Return Me._harmonizedSystemSubHeadingCode
End Get
Set
Me._harmonizedSystemSubHeadingCode = Value
End Set
End Property
Public Property CombinedNomenclatureCode() As String
Get
Return Me._combinedNomenclatureCode
End Get
Set
Me._combinedNomenclatureCode = Value
End Set
End Property
Public Property TaricAdditionalCode() As List(Of String)
Get
Return Me._taricAdditionalCode
End Get
Set
Me._taricAdditionalCode = 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 RegistrationNumberExternal() As String
Get
Return Me._registrationNumberExternal
End Get
Set
Me._registrationNumberExternal = Value
End Set
End Property
Public Property ReferenceNumberUCR() As String
Get
Return Me._referenceNumberUCR
End Get
Set
Me._referenceNumberUCR = 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 GrossMass() As Decimal
Get
Return Me._grossMass
End Get
Set
Me._grossMass = 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 WaterMark() As String
Get
Return Me._waterMark
End Get
Set
Me._waterMark = Value
End Set
End Property
Public Property Procedure() As ProcedureENType
Get
Return Me._procedure
End Get
Set
Me._procedure = 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 CountryOfExport() As String
Get
Return Me._countryOfExport
End Get
Set
Me._countryOfExport = Value
End Set
End Property
Public Property Packaging() As List(Of PackagingENType)
Get
Return Me._packaging
End Get
Set
Me._packaging = Value
End Set
End Property
Public Property Consignee() As AddressENType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
Public Property NatureOfTransaction() As String
Get
Return Me._natureOfTransaction
End Get
Set
Me._natureOfTransaction = 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(GoodsItemENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize GoodsItemENType 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 GoodsItemENType object
'''
''' string to deserialize
''' Output GoodsItemENType 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 GoodsItemENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsItemENType)
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 GoodsItemENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsItemENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsItemENType)
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 GoodsItemENType
Return CType(SerializerXml.Deserialize(s), GoodsItemENType)
End Function
#End Region
'''
''' Serializes current GoodsItemENType 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 GoodsItemENType object
'''
''' File to load and deserialize
''' Output GoodsItemENType 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 GoodsItemENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsItemENType)
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 GoodsItemENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsItemENType
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 AddressENType
#Region "Private fields"
Private _identificationNumber As String
Private _subsidiaryNumber As String
Private _name As String
Private _streetAndNumber As String
Private _city As String
Private _postcode As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
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 StreetAndNumber() As String
Get
Return Me._streetAndNumber
End Get
Set
Me._streetAndNumber = 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 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(AddressENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AddressENType 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 AddressENType object
'''
''' string to deserialize
''' Output AddressENType 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 AddressENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressENType)
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 AddressENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AddressENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressENType)
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 AddressENType
Return CType(SerializerXml.Deserialize(s), AddressENType)
End Function
#End Region
'''
''' Serializes current AddressENType 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 AddressENType object
'''
''' File to load and deserialize
''' Output AddressENType 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 AddressENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressENType)
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 AddressENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressENType
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 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 DeliveryTermsENType
#Region "Private fields"
Private _incotermCode As String
Private _text As String
Private _location As String
Private _uNLocode As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = 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 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
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(DeliveryTermsENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DeliveryTermsENType 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 DeliveryTermsENType object
'''
''' string to deserialize
''' Output DeliveryTermsENType 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 DeliveryTermsENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DeliveryTermsENType)
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 DeliveryTermsENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DeliveryTermsENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DeliveryTermsENType)
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 DeliveryTermsENType
Return CType(SerializerXml.Deserialize(s), DeliveryTermsENType)
End Function
#End Region
'''
''' Serializes current DeliveryTermsENType 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 DeliveryTermsENType object
'''
''' File to load and deserialize
''' Output DeliveryTermsENType 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 DeliveryTermsENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DeliveryTermsENType)
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 DeliveryTermsENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DeliveryTermsENType
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 ExportOperationENType
#Region "Private fields"
Private _declarationType As String
Private _exportDeclarationType As String
Private _mRN As String
Private _countryOfDestination As String
Private _countryOfExport As String
Private _exitDateAndTime As Date
Private _declarationAcceptanceDateAndTime As Date
Private _releaseDateAndTime As Date
Private _alternativeEvidence As List(Of String)
Private _shortage As String
Private _partyConstellation As String
Private _grossMass As Decimal
Private _registrationNumberExternal As String
Private _referenceNumberUCR As String
Private _waterMark As String
Private _customsOfficeOfPresentation As String
Private _customsOfficeOfExport As String
Private _customsOfficeOfExitActual As String
Private _natureOfTransaction As String
Private _totalAmountInvoiced As Decimal
Private _invoiceCurrency As String
Private _contractualPartner As AddressENType
Private _exporter As AddressENType
Private _consignee As AddressENType
Private _declarant As AddressENType
Private _representative As AddressENType
Private _subContractor As AddressENType
Private _deliveryTerms As DeliveryTermsENType
Private _fileNameOfExitNotification As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._deliveryTerms = New DeliveryTermsENType()
Me._subContractor = New AddressENType()
Me._representative = New AddressENType()
Me._declarant = New AddressENType()
Me._consignee = New AddressENType()
Me._exporter = New AddressENType()
Me._contractualPartner = New AddressENType()
Me._alternativeEvidence = New List(Of String)()
End Sub
Public Property DeclarationType() As String
Get
Return Me._declarationType
End Get
Set
Me._declarationType = Value
End Set
End Property
Public Property ExportDeclarationType() As String
Get
Return Me._exportDeclarationType
End Get
Set
Me._exportDeclarationType = Value
End Set
End Property
Public Property MRN() As String
Get
Return Me._mRN
End Get
Set
Me._mRN = 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 CountryOfExport() As String
Get
Return Me._countryOfExport
End Get
Set
Me._countryOfExport = Value
End Set
End Property
Public Property ExitDateAndTime() As Date
Get
Return Me._exitDateAndTime
End Get
Set
Me._exitDateAndTime = Value
End Set
End Property
Public Property DeclarationAcceptanceDateAndTime() As Date
Get
Return Me._declarationAcceptanceDateAndTime
End Get
Set
Me._declarationAcceptanceDateAndTime = Value
End Set
End Property
Public Property ReleaseDateAndTime() As Date
Get
Return Me._releaseDateAndTime
End Get
Set
Me._releaseDateAndTime = Value
End Set
End Property
Public Property AlternativeEvidence() As List(Of String)
Get
Return Me._alternativeEvidence
End Get
Set
Me._alternativeEvidence = Value
End Set
End Property
Public Property Shortage() As String
Get
Return Me._shortage
End Get
Set
Me._shortage = Value
End Set
End Property
Public Property PartyConstellation() As String
Get
Return Me._partyConstellation
End Get
Set
Me._partyConstellation = 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 RegistrationNumberExternal() As String
Get
Return Me._registrationNumberExternal
End Get
Set
Me._registrationNumberExternal = Value
End Set
End Property
Public Property ReferenceNumberUCR() As String
Get
Return Me._referenceNumberUCR
End Get
Set
Me._referenceNumberUCR = Value
End Set
End Property
Public Property WaterMark() As String
Get
Return Me._waterMark
End Get
Set
Me._waterMark = Value
End Set
End Property
Public Property CustomsOfficeOfPresentation() As String
Get
Return Me._customsOfficeOfPresentation
End Get
Set
Me._customsOfficeOfPresentation = Value
End Set
End Property
Public Property CustomsOfficeOfExport() As String
Get
Return Me._customsOfficeOfExport
End Get
Set
Me._customsOfficeOfExport = Value
End Set
End Property
Public Property CustomsOfficeOfExitActual() As String
Get
Return Me._customsOfficeOfExitActual
End Get
Set
Me._customsOfficeOfExitActual = Value
End Set
End Property
Public Property NatureOfTransaction() As String
Get
Return Me._natureOfTransaction
End Get
Set
Me._natureOfTransaction = Value
End Set
End Property
Public Property TotalAmountInvoiced() As Decimal
Get
Return Me._totalAmountInvoiced
End Get
Set
Me._totalAmountInvoiced = Value
End Set
End Property
Public Property InvoiceCurrency() As String
Get
Return Me._invoiceCurrency
End Get
Set
Me._invoiceCurrency = Value
End Set
End Property
Public Property ContractualPartner() As AddressENType
Get
Return Me._contractualPartner
End Get
Set
Me._contractualPartner = Value
End Set
End Property
Public Property Exporter() As AddressENType
Get
Return Me._exporter
End Get
Set
Me._exporter = Value
End Set
End Property
Public Property Consignee() As AddressENType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
Public Property Declarant() As AddressENType
Get
Return Me._declarant
End Get
Set
Me._declarant = Value
End Set
End Property
Public Property Representative() As AddressENType
Get
Return Me._representative
End Get
Set
Me._representative = Value
End Set
End Property
Public Property SubContractor() As AddressENType
Get
Return Me._subContractor
End Get
Set
Me._subContractor = Value
End Set
End Property
Public Property DeliveryTerms() As DeliveryTermsENType
Get
Return Me._deliveryTerms
End Get
Set
Me._deliveryTerms = Value
End Set
End Property
Public Property FileNameOfExitNotification() As String
Get
Return Me._fileNameOfExitNotification
End Get
Set
Me._fileNameOfExitNotification = 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(ExportOperationENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ExportOperationENType 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 ExportOperationENType object
'''
''' string to deserialize
''' Output ExportOperationENType 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 ExportOperationENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ExportOperationENType)
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 ExportOperationENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ExportOperationENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ExportOperationENType)
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 ExportOperationENType
Return CType(SerializerXml.Deserialize(s), ExportOperationENType)
End Function
#End Region
'''
''' Serializes current ExportOperationENType 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 ExportOperationENType object
'''
''' File to load and deserialize
''' Output ExportOperationENType 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 ExportOperationENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ExportOperationENType)
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 ExportOperationENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ExportOperationENType
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 EmpfaengerPositionENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EmpfaengerPositionENTyp 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 EmpfaengerPositionENTyp object
'''
''' string to deserialize
''' Output EmpfaengerPositionENTyp 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 EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionENTyp)
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 EmpfaengerPositionENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionENTyp)
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 EmpfaengerPositionENTyp
Return CType(SerializerXml.Deserialize(s), EmpfaengerPositionENTyp)
End Function
#End Region
'''
''' Serializes current EmpfaengerPositionENTyp 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 EmpfaengerPositionENTyp object
'''
''' File to load and deserialize
''' Output EmpfaengerPositionENTyp 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 EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionENTyp)
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 EmpfaengerPositionENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionENTyp
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 PackstueckENTyp
#Region "Private fields"
Private _anzahl As String
Private _verpackungsartCode As String
Private _kennzeichnung As String
Private _positionHauptpack As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Anzahl() As String
Get
Return Me._anzahl
End Get
Set
Me._anzahl = Value
End Set
End Property
Public Property VerpackungsartCode() As String
Get
Return Me._verpackungsartCode
End Get
Set
Me._verpackungsartCode = Value
End Set
End Property
Public Property Kennzeichnung() As String
Get
Return Me._kennzeichnung
End Get
Set
Me._kennzeichnung = Value
End Set
End Property
Public Property PositionHauptpack() As String
Get
Return Me._positionHauptpack
End Get
Set
Me._positionHauptpack = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PackstueckENTyp 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 PackstueckENTyp object
'''
''' string to deserialize
''' Output PackstueckENTyp 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 PackstueckENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckENTyp)
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 PackstueckENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckENTyp)
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 PackstueckENTyp
Return CType(SerializerXml.Deserialize(s), PackstueckENTyp)
End Function
#End Region
'''
''' Serializes current PackstueckENTyp 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 PackstueckENTyp object
'''
''' File to load and deserialize
''' Output PackstueckENTyp 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 PackstueckENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckENTyp)
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 PackstueckENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckENTyp
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 VerfahrenENTyp
#Region "Private fields"
Private _verfahrenAngemeldetCode As String
Private _verfahrenVorangegangenCode As String
Private _verfahrenNationalCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property VerfahrenAngemeldetCode() As String
Get
Return Me._verfahrenAngemeldetCode
End Get
Set
Me._verfahrenAngemeldetCode = Value
End Set
End Property
Public Property VerfahrenVorangegangenCode() As String
Get
Return Me._verfahrenVorangegangenCode
End Get
Set
Me._verfahrenVorangegangenCode = Value
End Set
End Property
Public Property VerfahrenNationalCode() As String
Get
Return Me._verfahrenNationalCode
End Get
Set
Me._verfahrenNationalCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize VerfahrenENTyp 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 VerfahrenENTyp object
'''
''' string to deserialize
''' Output VerfahrenENTyp 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 VerfahrenENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenENTyp)
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 VerfahrenENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrenENTyp)
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 VerfahrenENTyp
Return CType(SerializerXml.Deserialize(s), VerfahrenENTyp)
End Function
#End Region
'''
''' Serializes current VerfahrenENTyp 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 VerfahrenENTyp object
'''
''' File to load and deserialize
''' Output VerfahrenENTyp 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 VerfahrenENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenENTyp)
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 VerfahrenENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenENTyp
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 PositionBestaetigungAusfuhrTyp
#Region "Private fields"
Private _positionsnummer As String
Private _warenNummerKN8 As String
Private _warenNummerTARIC As String
Private _warenNummerZusatz1 As String
Private _warenNummerZusatz2 As String
Private _warenNummerNational As String
Private _warenBezeichnung As String
Private _registrierNummerFremdSystem As String
Private _kennnummerSendung As String
Private _eigenmasse As Decimal
Private _rohmasse As Decimal
Private _wasserzeichen As String
Private _verfahren As VerfahrenENTyp
Private _ausfuhrerstattungVerfahrensCode As String
Private _packstueck As List(Of PackstueckENTyp)
Private _empfaenger As EmpfaengerPositionENTyp
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private _geschaeftArtCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._empfaenger = New EmpfaengerPositionENTyp()
Me._packstueck = New List(Of PackstueckENTyp)()
Me._verfahren = New VerfahrenENTyp()
End Sub
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set
Me._positionsnummer = Value
End Set
End Property
Public Property WarenNummerKN8() As String
Get
Return Me._warenNummerKN8
End Get
Set
Me._warenNummerKN8 = Value
End Set
End Property
Public Property WarenNummerTARIC() As String
Get
Return Me._warenNummerTARIC
End Get
Set
Me._warenNummerTARIC = Value
End Set
End Property
Public Property WarenNummerZusatz1() As String
Get
Return Me._warenNummerZusatz1
End Get
Set
Me._warenNummerZusatz1 = Value
End Set
End Property
Public Property WarenNummerZusatz2() As String
Get
Return Me._warenNummerZusatz2
End Get
Set
Me._warenNummerZusatz2 = Value
End Set
End Property
Public Property WarenNummerNational() As String
Get
Return Me._warenNummerNational
End Get
Set
Me._warenNummerNational = Value
End Set
End Property
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set
Me._warenBezeichnung = Value
End Set
End Property
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set
Me._registrierNummerFremdSystem = Value
End Set
End Property
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set
Me._kennnummerSendung = Value
End Set
End Property
Public Property Eigenmasse() As Decimal
Get
Return Me._eigenmasse
End Get
Set
Me._eigenmasse = Value
End Set
End Property
Public Property Rohmasse() As Decimal
Get
Return Me._rohmasse
End Get
Set
Me._rohmasse = Value
End Set
End Property
Public Property Wasserzeichen() As String
Get
Return Me._wasserzeichen
End Get
Set
Me._wasserzeichen = Value
End Set
End Property
Public Property Verfahren() As VerfahrenENTyp
Get
Return Me._verfahren
End Get
Set
Me._verfahren = Value
End Set
End Property
Public Property AusfuhrerstattungVerfahrensCode() As String
Get
Return Me._ausfuhrerstattungVerfahrensCode
End Get
Set
Me._ausfuhrerstattungVerfahrensCode = Value
End Set
End Property
Public Property Packstueck() As List(Of PackstueckENTyp)
Get
Return Me._packstueck
End Get
Set
Me._packstueck = Value
End Set
End Property
Public Property Empfaenger() As EmpfaengerPositionENTyp
Get
Return Me._empfaenger
End Get
Set
Me._empfaenger = Value
End Set
End Property
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = Value
End Set
End Property
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set
Me._incotermText = Value
End Set
End Property
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set
Me._incotermOrt = Value
End Set
End Property
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set
Me._geschaeftArtCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PositionBestaetigungAusfuhrTyp 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 PositionBestaetigungAusfuhrTyp object
'''
''' string to deserialize
''' Output PositionBestaetigungAusfuhrTyp 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 PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBestaetigungAusfuhrTyp)
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 PositionBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBestaetigungAusfuhrTyp)
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 PositionBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), PositionBestaetigungAusfuhrTyp)
End Function
#End Region
'''
''' Serializes current PositionBestaetigungAusfuhrTyp 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 PositionBestaetigungAusfuhrTyp object
'''
''' File to load and deserialize
''' Output PositionBestaetigungAusfuhrTyp 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 PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBestaetigungAusfuhrTyp)
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 PositionBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBestaetigungAusfuhrTyp
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 LieferbedingungENTyp
#Region "Private fields"
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = Value
End Set
End Property
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set
Me._incotermText = Value
End Set
End Property
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set
Me._incotermOrt = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize LieferbedingungENTyp 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 LieferbedingungENTyp object
'''
''' string to deserialize
''' Output LieferbedingungENTyp 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 LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungENTyp)
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 LieferbedingungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LieferbedingungENTyp)
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 LieferbedingungENTyp
Return CType(SerializerXml.Deserialize(s), LieferbedingungENTyp)
End Function
#End Region
'''
''' Serializes current LieferbedingungENTyp 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 LieferbedingungENTyp object
'''
''' File to load and deserialize
''' Output LieferbedingungENTyp 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 LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungENTyp)
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 LieferbedingungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungENTyp
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 SubUnternehmerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SubUnternehmerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize SubUnternehmerENTyp 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 SubUnternehmerENTyp object
'''
''' string to deserialize
''' Output SubUnternehmerENTyp 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 SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubUnternehmerENTyp)
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 SubUnternehmerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SubUnternehmerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SubUnternehmerENTyp)
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 SubUnternehmerENTyp
Return CType(SerializerXml.Deserialize(s), SubUnternehmerENTyp)
End Function
#End Region
'''
''' Serializes current SubUnternehmerENTyp 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 SubUnternehmerENTyp object
'''
''' File to load and deserialize
''' Output SubUnternehmerENTyp 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 SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubUnternehmerENTyp)
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 SubUnternehmerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubUnternehmerENTyp
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 VertreterAnmelderENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize VertreterAnmelderENTyp 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 VertreterAnmelderENTyp object
'''
''' string to deserialize
''' Output VertreterAnmelderENTyp 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 VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderENTyp)
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 VertreterAnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderENTyp)
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 VertreterAnmelderENTyp
Return CType(SerializerXml.Deserialize(s), VertreterAnmelderENTyp)
End Function
#End Region
'''
''' Serializes current VertreterAnmelderENTyp 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 VertreterAnmelderENTyp object
'''
''' File to load and deserialize
''' Output VertreterAnmelderENTyp 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 VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderENTyp)
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 VertreterAnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderENTyp
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 AnmelderENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AnmelderENTyp 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 AnmelderENTyp object
'''
''' string to deserialize
''' Output AnmelderENTyp 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 AnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderENTyp)
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 AnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmelderENTyp)
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 AnmelderENTyp
Return CType(SerializerXml.Deserialize(s), AnmelderENTyp)
End Function
#End Region
'''
''' Serializes current AnmelderENTyp 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 AnmelderENTyp object
'''
''' File to load and deserialize
''' Output AnmelderENTyp 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 AnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderENTyp)
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 AnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderENTyp
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 EmpfaengerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EmpfaengerENTyp 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 EmpfaengerENTyp object
'''
''' string to deserialize
''' Output EmpfaengerENTyp 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 EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerENTyp)
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 EmpfaengerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerENTyp)
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 EmpfaengerENTyp
Return CType(SerializerXml.Deserialize(s), EmpfaengerENTyp)
End Function
#End Region
'''
''' Serializes current EmpfaengerENTyp 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 EmpfaengerENTyp object
'''
''' File to load and deserialize
''' Output EmpfaengerENTyp 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 EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerENTyp)
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 EmpfaengerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerENTyp
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 AusfuehrerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AusfuehrerENTyp 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 AusfuehrerENTyp object
'''
''' string to deserialize
''' Output AusfuehrerENTyp 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 AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerENTyp)
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 AusfuehrerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuehrerENTyp)
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 AusfuehrerENTyp
Return CType(SerializerXml.Deserialize(s), AusfuehrerENTyp)
End Function
#End Region
'''
''' Serializes current AusfuehrerENTyp 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 AusfuehrerENTyp object
'''
''' File to load and deserialize
''' Output AusfuehrerENTyp 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 AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerENTyp)
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 AusfuehrerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerENTyp
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 VerfahrensinhaberPVENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = 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 Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize VerfahrensinhaberPVENTyp 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 VerfahrensinhaberPVENTyp object
'''
''' string to deserialize
''' Output VerfahrensinhaberPVENTyp 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 VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVENTyp)
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 VerfahrensinhaberPVENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVENTyp)
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 VerfahrensinhaberPVENTyp
Return CType(SerializerXml.Deserialize(s), VerfahrensinhaberPVENTyp)
End Function
#End Region
'''
''' Serializes current VerfahrensinhaberPVENTyp 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 VerfahrensinhaberPVENTyp object
'''
''' File to load and deserialize
''' Output VerfahrensinhaberPVENTyp 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 VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVENTyp)
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 VerfahrensinhaberPVENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVENTyp
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 KopfDatenBestaetigungAusfuhrTyp
#Region "Private fields"
Private _anmeldeArtAusfuhrCode As String
Private _anmeldeArtVerfahrenCode As String
Private _anmeldeArtUeberfuehrungCode As String
Private _movementReferenceNumber As String
Private _bestimmungslandCode As String
Private _ausfuhrlandCode As String
Private _ausgangDatumZeit As Date
Private _ueberlassungDatumZeit As Date
Private _alternativerNachweis As String
Private _minderMengeIndikator As String
Private _beteiligtenKonstellation As String
Private _gesamtRohMasse As Decimal
Private _registrierNummerFremdSystem As String
Private _kennnummerSendung As String
Private _anzahlPackStuecke As String
Private _anzahlPositionen As String
Private _wasserzeichen As String
Private _ausfuhrZollstelleID As String
Private _ausgangZollstelleID As String
Private _geschaeftArtCode As String
Private _rechnungspreis As Decimal
Private _rechnungswaehrung As String
Private _verfahrensinhaberPV As VerfahrensinhaberPVENTyp
Private _ausfuehrer As AusfuehrerENTyp
Private _empfaenger As EmpfaengerENTyp
Private _anmelder As AnmelderENTyp
Private _vertreterAnmelder As VertreterAnmelderENTyp
Private _subUnternehmer As SubUnternehmerENTyp
Private _lieferbedingung As LieferbedingungENTyp
Private _dateinameAusgangsvermerk As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._lieferbedingung = New LieferbedingungENTyp()
Me._subUnternehmer = New SubUnternehmerENTyp()
Me._vertreterAnmelder = New VertreterAnmelderENTyp()
Me._anmelder = New AnmelderENTyp()
Me._empfaenger = New EmpfaengerENTyp()
Me._ausfuehrer = New AusfuehrerENTyp()
Me._verfahrensinhaberPV = New VerfahrensinhaberPVENTyp()
End Sub
Public Property AnmeldeArtAusfuhrCode() As String
Get
Return Me._anmeldeArtAusfuhrCode
End Get
Set
Me._anmeldeArtAusfuhrCode = Value
End Set
End Property
Public Property AnmeldeArtVerfahrenCode() As String
Get
Return Me._anmeldeArtVerfahrenCode
End Get
Set
Me._anmeldeArtVerfahrenCode = Value
End Set
End Property
Public Property AnmeldeArtUeberfuehrungCode() As String
Get
Return Me._anmeldeArtUeberfuehrungCode
End Get
Set
Me._anmeldeArtUeberfuehrungCode = Value
End Set
End Property
Public Property MovementReferenceNumber() As String
Get
Return Me._movementReferenceNumber
End Get
Set
Me._movementReferenceNumber = Value
End Set
End Property
Public Property BestimmungslandCode() As String
Get
Return Me._bestimmungslandCode
End Get
Set
Me._bestimmungslandCode = Value
End Set
End Property
Public Property AusfuhrlandCode() As String
Get
Return Me._ausfuhrlandCode
End Get
Set
Me._ausfuhrlandCode = Value
End Set
End Property
Public Property AusgangDatumZeit() As Date
Get
Return Me._ausgangDatumZeit
End Get
Set
Me._ausgangDatumZeit = Value
End Set
End Property
Public Property UeberlassungDatumZeit() As Date
Get
Return Me._ueberlassungDatumZeit
End Get
Set
Me._ueberlassungDatumZeit = Value
End Set
End Property
Public Property AlternativerNachweis() As String
Get
Return Me._alternativerNachweis
End Get
Set
Me._alternativerNachweis = Value
End Set
End Property
Public Property MinderMengeIndikator() As String
Get
Return Me._minderMengeIndikator
End Get
Set
Me._minderMengeIndikator = Value
End Set
End Property
Public Property BeteiligtenKonstellation() As String
Get
Return Me._beteiligtenKonstellation
End Get
Set
Me._beteiligtenKonstellation = Value
End Set
End Property
Public Property GesamtRohMasse() As Decimal
Get
Return Me._gesamtRohMasse
End Get
Set
Me._gesamtRohMasse = Value
End Set
End Property
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set
Me._registrierNummerFremdSystem = Value
End Set
End Property
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set
Me._kennnummerSendung = Value
End Set
End Property
Public Property AnzahlPackStuecke() As String
Get
Return Me._anzahlPackStuecke
End Get
Set
Me._anzahlPackStuecke = Value
End Set
End Property
Public Property AnzahlPositionen() As String
Get
Return Me._anzahlPositionen
End Get
Set
Me._anzahlPositionen = Value
End Set
End Property
Public Property Wasserzeichen() As String
Get
Return Me._wasserzeichen
End Get
Set
Me._wasserzeichen = Value
End Set
End Property
Public Property AusfuhrZollstelleID() As String
Get
Return Me._ausfuhrZollstelleID
End Get
Set
Me._ausfuhrZollstelleID = Value
End Set
End Property
Public Property AusgangZollstelleID() As String
Get
Return Me._ausgangZollstelleID
End Get
Set
Me._ausgangZollstelleID = Value
End Set
End Property
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set
Me._geschaeftArtCode = Value
End Set
End Property
Public Property Rechnungspreis() As Decimal
Get
Return Me._rechnungspreis
End Get
Set
Me._rechnungspreis = Value
End Set
End Property
Public Property Rechnungswaehrung() As String
Get
Return Me._rechnungswaehrung
End Get
Set
Me._rechnungswaehrung = Value
End Set
End Property
Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVENTyp
Get
Return Me._verfahrensinhaberPV
End Get
Set
Me._verfahrensinhaberPV = Value
End Set
End Property
Public Property Ausfuehrer() As AusfuehrerENTyp
Get
Return Me._ausfuehrer
End Get
Set
Me._ausfuehrer = Value
End Set
End Property
Public Property Empfaenger() As EmpfaengerENTyp
Get
Return Me._empfaenger
End Get
Set
Me._empfaenger = Value
End Set
End Property
Public Property Anmelder() As AnmelderENTyp
Get
Return Me._anmelder
End Get
Set
Me._anmelder = Value
End Set
End Property
Public Property VertreterAnmelder() As VertreterAnmelderENTyp
Get
Return Me._vertreterAnmelder
End Get
Set
Me._vertreterAnmelder = Value
End Set
End Property
Public Property SubUnternehmer() As SubUnternehmerENTyp
Get
Return Me._subUnternehmer
End Get
Set
Me._subUnternehmer = Value
End Set
End Property
Public Property Lieferbedingung() As LieferbedingungENTyp
Get
Return Me._lieferbedingung
End Get
Set
Me._lieferbedingung = Value
End Set
End Property
Public Property DateinameAusgangsvermerk() As String
Get
Return Me._dateinameAusgangsvermerk
End Get
Set
Me._dateinameAusgangsvermerk = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize KopfDatenBestaetigungAusfuhrTyp 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 KopfDatenBestaetigungAusfuhrTyp object
'''
''' string to deserialize
''' Output KopfDatenBestaetigungAusfuhrTyp 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 KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp)
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 KopfDatenBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenBestaetigungAusfuhrTyp)
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 KopfDatenBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), KopfDatenBestaetigungAusfuhrTyp)
End Function
#End Region
'''
''' Serializes current KopfDatenBestaetigungAusfuhrTyp 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 KopfDatenBestaetigungAusfuhrTyp object
'''
''' File to load and deserialize
''' Output KopfDatenBestaetigungAusfuhrTyp 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 KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp)
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 KopfDatenBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenBestaetigungAusfuhrTyp
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 TransaktionExportTyp
#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(TransaktionExportTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransaktionExportTyp 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 TransaktionExportTyp object
'''
''' string to deserialize
''' Output TransaktionExportTyp 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 TransaktionExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionExportTyp)
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 TransaktionExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp)
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 TransaktionExportTyp
Return CType(SerializerXml.Deserialize(s), TransaktionExportTyp)
End Function
#End Region
'''
''' Serializes current TransaktionExportTyp 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 TransaktionExportTyp object
'''
''' File to load and deserialize
''' Output TransaktionExportTyp 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 TransaktionExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionExportTyp)
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 TransaktionExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp
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 DatenaustauschExportTyp
#Region "Private fields"
Private _transaktion As TransaktionExportTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transaktion = New TransaktionExportTyp()
End Sub
Public Property Transaktion() As TransaktionExportTyp
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(DatenaustauschExportTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DatenaustauschExportTyp 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 DatenaustauschExportTyp object
'''
''' string to deserialize
''' Output DatenaustauschExportTyp 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 DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschExportTyp)
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 DatenaustauschExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp)
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 DatenaustauschExportTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschExportTyp)
End Function
#End Region
'''
''' Serializes current DatenaustauschExportTyp 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 DatenaustauschExportTyp object
'''
''' File to load and deserialize
''' Output DatenaustauschExportTyp 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 DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschExportTyp)
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 DatenaustauschExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp
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