'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 4.4.0.7
'' VollstaendigeAusfuhrAnmeldungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse
''
'' ------------------------------------------------------------------------------
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Collections.Generic
Namespace VollstaendigeAusfuhrAnmeldung
_
Partial Public Class VollstaendigeAusfuhrAnmeldungEVTyp
Inherits DatenaustauschExportTyp
#Region "Private fields"
Private _einzelAnmeldung As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._einzelAnmeldung = New List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp)()
End Sub
_
Public Property EinzelAnmeldung() As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp)
Get
Return Me._einzelAnmeldung
End Get
Set(value As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp))
Me._einzelAnmeldung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VollstaendigeAusfuhrAnmeldungEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VollstaendigeAusfuhrAnmeldungEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VollstaendigeAusfuhrAnmeldungEVTyp object
'''
''' string workflow markup to deserialize
''' Output VollstaendigeAusfuhrAnmeldungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VollstaendigeAusfuhrAnmeldungEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VollstaendigeAusfuhrAnmeldungEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VollstaendigeAusfuhrAnmeldungEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VollstaendigeAusfuhrAnmeldungEVTyp
Return CType(Serializer.Deserialize(s), VollstaendigeAusfuhrAnmeldungEVTyp)
End Function
#End Region
'''
''' Serializes current VollstaendigeAusfuhrAnmeldungEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VollstaendigeAusfuhrAnmeldungEVTyp object
'''
''' string xml file to load and deserialize
''' Output VollstaendigeAusfuhrAnmeldungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VollstaendigeAusfuhrAnmeldungEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VollstaendigeAusfuhrAnmeldungEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class EinzelVollstaendigeAusfuhrAnmeldungTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungEVTyp
Private _kopfDaten As KopfDatenVollstaendigeAusfuhranmeldungTyp
Private _warenPosition As List(Of PositionVollstaendigeAusfuhranmeldungTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._warenPosition = New List(Of PositionVollstaendigeAusfuhranmeldungTyp)()
Me._kopfDaten = New KopfDatenVollstaendigeAusfuhranmeldungTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungEVTyp()
End Sub
_
Public Property ObjektIdentifizierung() As ObjektIdentifizierungEVTyp
Get
Return Me._objektIdentifizierung
End Get
Set(value As ObjektIdentifizierungEVTyp)
Me._objektIdentifizierung = Value
End Set
End Property
_
Public Property KopfDaten() As KopfDatenVollstaendigeAusfuhranmeldungTyp
Get
Return Me._kopfDaten
End Get
Set(value As KopfDatenVollstaendigeAusfuhranmeldungTyp)
Me._kopfDaten = Value
End Set
End Property
_
Public Property WarenPosition() As List(Of PositionVollstaendigeAusfuhranmeldungTyp)
Get
Return Me._warenPosition
End Get
Set(value As List(Of PositionVollstaendigeAusfuhranmeldungTyp))
Me._warenPosition = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelVollstaendigeAusfuhrAnmeldungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EinzelVollstaendigeAusfuhrAnmeldungTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an EinzelVollstaendigeAusfuhrAnmeldungTyp object
'''
''' string workflow markup to deserialize
''' Output EinzelVollstaendigeAusfuhrAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelVollstaendigeAusfuhrAnmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelVollstaendigeAusfuhrAnmeldungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelVollstaendigeAusfuhrAnmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelVollstaendigeAusfuhrAnmeldungTyp
Return CType(Serializer.Deserialize(s), EinzelVollstaendigeAusfuhrAnmeldungTyp)
End Function
#End Region
'''
''' Serializes current EinzelVollstaendigeAusfuhrAnmeldungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EinzelVollstaendigeAusfuhrAnmeldungTyp object
'''
''' string xml file to load and deserialize
''' Output EinzelVollstaendigeAusfuhrAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelVollstaendigeAusfuhrAnmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelVollstaendigeAusfuhrAnmeldungTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class ObjektIdentifizierungEVTyp
#Region "Private fields"
Private _objektName As String
Private _objektAliasname As String
Private _objektQuittung As String
Private _bezugsnummerVorblendung As String
Private _kopieVon As String
Private _objektAktion As List(Of String)
Private _compliancePruefung As String
Private _bearbeiter As String
Private _absenderSystemName As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._objektAktion = New List(Of String)()
End Sub
_
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set(value As String)
Me._objektName = Value
End Set
End Property
_
Public Property ObjektAliasname() As String
Get
Return Me._objektAliasname
End Get
Set(value As String)
Me._objektAliasname = Value
End Set
End Property
_
Public Property ObjektQuittung() As String
Get
Return Me._objektQuittung
End Get
Set(value As String)
Me._objektQuittung = Value
End Set
End Property
_
Public Property BezugsnummerVorblendung() As String
Get
Return Me._bezugsnummerVorblendung
End Get
Set(value As String)
Me._bezugsnummerVorblendung = Value
End Set
End Property
_
Public Property KopieVon() As String
Get
Return Me._kopieVon
End Get
Set(value As String)
Me._kopieVon = Value
End Set
End Property
_
Public Property ObjektAktion() As List(Of String)
Get
Return Me._objektAktion
End Get
Set(value As List(Of String))
Me._objektAktion = Value
End Set
End Property
_
Public Property CompliancePruefung() As String
Get
Return Me._compliancePruefung
End Get
Set(value As String)
Me._compliancePruefung = Value
End Set
End Property
_
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set(value As String)
Me._bearbeiter = Value
End Set
End Property
_
Public Property AbsenderSystemName() As String
Get
Return Me._absenderSystemName
End Get
Set(value As String)
Me._absenderSystemName = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current ObjektIdentifizierungEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an ObjektIdentifizierungEVTyp object
'''
''' string workflow markup to deserialize
''' Output ObjektIdentifizierungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungEVTyp
Return CType(Serializer.Deserialize(s), ObjektIdentifizierungEVTyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ObjektIdentifizierungEVTyp object
'''
''' string xml file to load and deserialize
''' Output ObjektIdentifizierungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class BeendigungPositionAVUVEVTyp
#Region "Private fields"
Private _positionsnummer As String
Private _registriernummer As String
Private _kzZugangATLAS As String
Private _warenbezogeneAngaben As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set(value As String)
Me._positionsnummer = Value
End Set
End Property
_
Public Property Registriernummer() As String
Get
Return Me._registriernummer
End Get
Set(value As String)
Me._registriernummer = Value
End Set
End Property
_
Public Property KzZugangATLAS() As String
Get
Return Me._kzZugangATLAS
End Get
Set(value As String)
Me._kzZugangATLAS = Value
End Set
End Property
_
Public Property WarenbezogeneAngaben() As String
Get
Return Me._warenbezogeneAngaben
End Get
Set(value As String)
Me._warenbezogeneAngaben = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionAVUVEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current BeendigungPositionAVUVEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an BeendigungPositionAVUVEVTyp object
'''
''' string workflow markup to deserialize
''' Output BeendigungPositionAVUVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungPositionAVUVEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionAVUVEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionAVUVEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungPositionAVUVEVTyp
Return CType(Serializer.Deserialize(s), BeendigungPositionAVUVEVTyp)
End Function
#End Region
'''
''' Serializes current BeendigungPositionAVUVEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BeendigungPositionAVUVEVTyp object
'''
''' string xml file to load and deserialize
''' Output BeendigungPositionAVUVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionAVUVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungPositionAVUVEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionAVUVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungPositionAVUVEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class BeendigungAVUVEVTyp
#Region "Private fields"
Private _bewilligungsnummer As String
Private _positionAVUV As List(Of BeendigungPositionAVUVEVTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._positionAVUV = New List(Of BeendigungPositionAVUVEVTyp)()
End Sub
_
Public Property Bewilligungsnummer() As String
Get
Return Me._bewilligungsnummer
End Get
Set(value As String)
Me._bewilligungsnummer = Value
End Set
End Property
_
Public Property PositionAVUV() As List(Of BeendigungPositionAVUVEVTyp)
Get
Return Me._positionAVUV
End Get
Set(value As List(Of BeendigungPositionAVUVEVTyp))
Me._positionAVUV = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current BeendigungAVUVEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an BeendigungAVUVEVTyp object
'''
''' string workflow markup to deserialize
''' Output BeendigungAVUVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungAVUVEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVEVTyp
Return CType(Serializer.Deserialize(s), BeendigungAVUVEVTyp)
End Function
#End Region
'''
''' Serializes current BeendigungAVUVEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BeendigungAVUVEVTyp object
'''
''' string xml file to load and deserialize
''' Output BeendigungAVUVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungAVUVEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungAVUVEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class AbgangsHandelsmengeEVTyp
#Region "Private fields"
Private _wert As String
Private _masseinheit As String
Private _qualifikator As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property Wert() As String
Get
Return Me._wert
End Get
Set(value As String)
Me._wert = Value
End Set
End Property
_
Public Property Masseinheit() As String
Get
Return Me._masseinheit
End Get
Set(value As String)
Me._masseinheit = Value
End Set
End Property
_
Public Property Qualifikator() As String
Get
Return Me._qualifikator
End Get
Set(value As String)
Me._qualifikator = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsHandelsmengeEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AbgangsHandelsmengeEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an AbgangsHandelsmengeEVTyp object
'''
''' string workflow markup to deserialize
''' Output AbgangsHandelsmengeEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgangsHandelsmengeEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsHandelsmengeEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsHandelsmengeEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsHandelsmengeEVTyp
Return CType(Serializer.Deserialize(s), AbgangsHandelsmengeEVTyp)
End Function
#End Region
'''
''' Serializes current AbgangsHandelsmengeEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AbgangsHandelsmengeEVTyp object
'''
''' string xml file to load and deserialize
''' Output AbgangsHandelsmengeEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsHandelsmengeEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgangsHandelsmengeEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsHandelsmengeEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgangsHandelsmengeEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class BeendigungPositionZLEVTyp
#Region "Private fields"
Private _positionsnummer As String
Private _registriernummer As String
Private _artikelcodeATZL As String
Private _warennummer As String
Private _kzUeblicheBehandlung As String
Private _kzZugangATLAS As String
Private _zusatz As String
Private _abgangsmenge As AbgangsHandelsmengeEVTyp
Private _handelsmenge As AbgangsHandelsmengeEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._handelsmenge = New AbgangsHandelsmengeEVTyp()
Me._abgangsmenge = New AbgangsHandelsmengeEVTyp()
End Sub
_
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set(value As String)
Me._positionsnummer = Value
End Set
End Property
_
Public Property Registriernummer() As String
Get
Return Me._registriernummer
End Get
Set(value As String)
Me._registriernummer = Value
End Set
End Property
_
Public Property ArtikelcodeATZL() As String
Get
Return Me._artikelcodeATZL
End Get
Set(value As String)
Me._artikelcodeATZL = Value
End Set
End Property
_
Public Property Warennummer() As String
Get
Return Me._warennummer
End Get
Set(value As String)
Me._warennummer = Value
End Set
End Property
_
Public Property KzUeblicheBehandlung() As String
Get
Return Me._kzUeblicheBehandlung
End Get
Set(value As String)
Me._kzUeblicheBehandlung = Value
End Set
End Property
_
Public Property KzZugangATLAS() As String
Get
Return Me._kzZugangATLAS
End Get
Set(value As String)
Me._kzZugangATLAS = Value
End Set
End Property
_
Public Property Zusatz() As String
Get
Return Me._zusatz
End Get
Set(value As String)
Me._zusatz = Value
End Set
End Property
_
Public Property Abgangsmenge() As AbgangsHandelsmengeEVTyp
Get
Return Me._abgangsmenge
End Get
Set(value As AbgangsHandelsmengeEVTyp)
Me._abgangsmenge = Value
End Set
End Property
_
Public Property Handelsmenge() As AbgangsHandelsmengeEVTyp
Get
Return Me._handelsmenge
End Get
Set(value As AbgangsHandelsmengeEVTyp)
Me._handelsmenge = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionZLEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current BeendigungPositionZLEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an BeendigungPositionZLEVTyp object
'''
''' string workflow markup to deserialize
''' Output BeendigungPositionZLEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungPositionZLEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionZLEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionZLEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungPositionZLEVTyp
Return CType(Serializer.Deserialize(s), BeendigungPositionZLEVTyp)
End Function
#End Region
'''
''' Serializes current BeendigungPositionZLEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BeendigungPositionZLEVTyp object
'''
''' string xml file to load and deserialize
''' Output BeendigungPositionZLEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionZLEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungPositionZLEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionZLEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungPositionZLEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class BeendigungZLEVTyp
#Region "Private fields"
Private _bewilligungsnummer As String
Private _bezugsnummer As String
Private _positionZL As List(Of BeendigungPositionZLEVTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._positionZL = New List(Of BeendigungPositionZLEVTyp)()
End Sub
_
Public Property Bewilligungsnummer() As String
Get
Return Me._bewilligungsnummer
End Get
Set(value As String)
Me._bewilligungsnummer = Value
End Set
End Property
_
Public Property Bezugsnummer() As String
Get
Return Me._bezugsnummer
End Get
Set(value As String)
Me._bezugsnummer = Value
End Set
End Property
_
Public Property PositionZL() As List(Of BeendigungPositionZLEVTyp)
Get
Return Me._positionZL
End Get
Set(value As List(Of BeendigungPositionZLEVTyp))
Me._positionZL = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current BeendigungZLEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an BeendigungZLEVTyp object
'''
''' string workflow markup to deserialize
''' Output BeendigungZLEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungZLEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLEVTyp
Return CType(Serializer.Deserialize(s), BeendigungZLEVTyp)
End Function
#End Region
'''
''' Serializes current BeendigungZLEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BeendigungZLEVTyp object
'''
''' string xml file to load and deserialize
''' Output BeendigungZLEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeendigungZLEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungZLEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class EndverwendePositionEVTyp
#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 sSerializer As XmlSerializer
#End Region
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EndverwendePositionEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EndverwendePositionEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an EndverwendePositionEVTyp object
'''
''' string workflow markup to deserialize
''' Output EndverwendePositionEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwendePositionEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EndverwendePositionEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwendePositionEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EndverwendePositionEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EndverwendePositionEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EndverwendePositionEVTyp
Return CType(Serializer.Deserialize(s), EndverwendePositionEVTyp)
End Function
#End Region
'''
''' Serializes current EndverwendePositionEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EndverwendePositionEVTyp object
'''
''' string xml file to load and deserialize
''' Output EndverwendePositionEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwendePositionEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EndverwendePositionEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwendePositionEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EndverwendePositionEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class EmpfaengerPositionEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EmpfaengerPositionEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an EmpfaengerPositionEVTyp object
'''
''' string workflow markup to deserialize
''' Output EmpfaengerPositionEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EmpfaengerPositionEVTyp
Return CType(Serializer.Deserialize(s), EmpfaengerPositionEVTyp)
End Function
#End Region
'''
''' Serializes current EmpfaengerPositionEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EmpfaengerPositionEVTyp object
'''
''' string xml file to load and deserialize
''' Output EmpfaengerPositionEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class UnterlageEVTyp
#Region "Private fields"
Private _typCode As String
Private _qualifierCode As String
Private _referenzID As String
Private _zusatz As String
Private _detail As String
Private _datumAusstellung As Date
Private _datumEndeGueltigkeit As Date
Private _wert As String
Private _abschreibungsmenge As String
Private _masseinheit As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property TypCode() As String
Get
Return Me._typCode
End Get
Set(value As String)
Me._typCode = Value
End Set
End Property
_
Public Property QualifierCode() As String
Get
Return Me._qualifierCode
End Get
Set(value As String)
Me._qualifierCode = Value
End Set
End Property
_
Public Property ReferenzID() As String
Get
Return Me._referenzID
End Get
Set(value As String)
Me._referenzID = Value
End Set
End Property
_
Public Property Zusatz() As String
Get
Return Me._zusatz
End Get
Set(value As String)
Me._zusatz = Value
End Set
End Property
_
Public Property Detail() As String
Get
Return Me._detail
End Get
Set(value As String)
Me._detail = Value
End Set
End Property
_
Public Property DatumAusstellung() As Date
Get
Return Me._datumAusstellung
End Get
Set(value As Date)
Me._datumAusstellung = Value
End Set
End Property
_
Public Property DatumEndeGueltigkeit() As Date
Get
Return Me._datumEndeGueltigkeit
End Get
Set(value As Date)
Me._datumEndeGueltigkeit = Value
End Set
End Property
_
Public Property Wert() As String
Get
Return Me._wert
End Get
Set(value As String)
Me._wert = Value
End Set
End Property
_
Public Property Abschreibungsmenge() As String
Get
Return Me._abschreibungsmenge
End Get
Set(value As String)
Me._abschreibungsmenge = Value
End Set
End Property
_
Public Property Masseinheit() As String
Get
Return Me._masseinheit
End Get
Set(value As String)
Me._masseinheit = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current UnterlageEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an UnterlageEVTyp object
'''
''' string workflow markup to deserialize
''' Output UnterlageEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageEVTyp
Return CType(Serializer.Deserialize(s), UnterlageEVTyp)
End Function
#End Region
'''
''' Serializes current UnterlageEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an UnterlageEVTyp object
'''
''' string xml file to load and deserialize
''' Output UnterlageEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class PackstueckEVTyp
#Region "Private fields"
Private _anzahl As String
Private _verpackungsartCode As String
Private _kennzeichnung As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property Anzahl() As String
Get
Return Me._anzahl
End Get
Set(value As String)
Me._anzahl = Value
End Set
End Property
_
Public Property VerpackungsartCode() As String
Get
Return Me._verpackungsartCode
End Get
Set(value As String)
Me._verpackungsartCode = Value
End Set
End Property
_
Public Property Kennzeichnung() As String
Get
Return Me._kennzeichnung
End Get
Set(value As String)
Me._kennzeichnung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current PackstueckEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an PackstueckEVTyp object
'''
''' string workflow markup to deserialize
''' Output PackstueckEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckEVTyp
Return CType(Serializer.Deserialize(s), PackstueckEVTyp)
End Function
#End Region
'''
''' Serializes current PackstueckEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an PackstueckEVTyp object
'''
''' string xml file to load and deserialize
''' Output PackstueckEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class VorpapierEVTyp
#Region "Private fields"
Private _typCode As String
Private _referenzID As String
Private _zusatz As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property TypCode() As String
Get
Return Me._typCode
End Get
Set(value As String)
Me._typCode = Value
End Set
End Property
_
Public Property ReferenzID() As String
Get
Return Me._referenzID
End Get
Set(value As String)
Me._referenzID = Value
End Set
End Property
_
Public Property Zusatz() As String
Get
Return Me._zusatz
End Get
Set(value As String)
Me._zusatz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VorpapierEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VorpapierEVTyp object
'''
''' string workflow markup to deserialize
''' Output VorpapierEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VorpapierEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierEVTyp
Return CType(Serializer.Deserialize(s), VorpapierEVTyp)
End Function
#End Region
'''
''' Serializes current VorpapierEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VorpapierEVTyp object
'''
''' string xml file to load and deserialize
''' Output VorpapierEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VorpapierEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VorpapierEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class VerfahrenEVTyp
#Region "Private fields"
Private _verfahrenAngemeldetCode As String
Private _verfahrenVorangegangenCode As String
Private _verfahrenNationalCode As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property VerfahrenAngemeldetCode() As String
Get
Return Me._verfahrenAngemeldetCode
End Get
Set(value As String)
Me._verfahrenAngemeldetCode = Value
End Set
End Property
_
Public Property VerfahrenVorangegangenCode() As String
Get
Return Me._verfahrenVorangegangenCode
End Get
Set(value As String)
Me._verfahrenVorangegangenCode = Value
End Set
End Property
_
Public Property VerfahrenNationalCode() As String
Get
Return Me._verfahrenNationalCode
End Get
Set(value As String)
Me._verfahrenNationalCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VerfahrenEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VerfahrenEVTyp object
'''
''' string workflow markup to deserialize
''' Output VerfahrenEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerfahrenEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerfahrenEVTyp
Return CType(Serializer.Deserialize(s), VerfahrenEVTyp)
End Function
#End Region
'''
''' Serializes current VerfahrenEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VerfahrenEVTyp object
'''
''' string xml file to load and deserialize
''' Output VerfahrenEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class PositionVollstaendigeAusfuhranmeldungTyp
#Region "Private fields"
Private _positionsnummer As String
Private _artikelNummer 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 _vermerk As String
Private _kennnummerSendung As String
Private _ursprungsbundeslandCode As String
Private _eigenmasse As String
Private _rohmasse As String
Private _gefahrgutnummer As String
Private _zahlungsweiseBefoerderungskosten As String
Private _verfahren As VerfahrenEVTyp
Private _ausfuhrerstattungVerfahrenscode As String
Private _menge As String
Private _wert As String
Private _vorpapier As List(Of VorpapierEVTyp)
Private _packstueck As List(Of PackstueckEVTyp)
Private _containerNummer As List(Of String)
Private _unterlage As List(Of UnterlageEVTyp)
Private _ausfuhrerstattungMenge As String
Private _adressatenKonstellation As String
Private _empfaenger As EmpfaengerPositionEVTyp
Private _endverwender As EndverwendePositionEVTyp
Private _beendigungZL As BeendigungZLEVTyp
Private _beendigungAVUV As BeendigungAVUVEVTyp
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private _geschaeftArtCode As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._beendigungAVUV = New BeendigungAVUVEVTyp()
Me._beendigungZL = New BeendigungZLEVTyp()
Me._endverwender = New EndverwendePositionEVTyp()
Me._empfaenger = New EmpfaengerPositionEVTyp()
Me._unterlage = New List(Of UnterlageEVTyp)()
Me._containerNummer = New List(Of String)()
Me._packstueck = New List(Of PackstueckEVTyp)()
Me._vorpapier = New List(Of VorpapierEVTyp)()
Me._verfahren = New VerfahrenEVTyp()
End Sub
_
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set(value As String)
Me._positionsnummer = Value
End Set
End Property
_
Public Property ArtikelNummer() As String
Get
Return Me._artikelNummer
End Get
Set(value As String)
Me._artikelNummer = Value
End Set
End Property
_
Public Property WarenNummerKN8() As String
Get
Return Me._warenNummerKN8
End Get
Set(value As String)
Me._warenNummerKN8 = Value
End Set
End Property
_
Public Property WarenNummerTARIC() As String
Get
Return Me._warenNummerTARIC
End Get
Set(value As String)
Me._warenNummerTARIC = Value
End Set
End Property
_
Public Property WarenNummerZusatz1() As String
Get
Return Me._warenNummerZusatz1
End Get
Set(value As String)
Me._warenNummerZusatz1 = Value
End Set
End Property
_
Public Property WarenNummerZusatz2() As String
Get
Return Me._warenNummerZusatz2
End Get
Set(value As String)
Me._warenNummerZusatz2 = Value
End Set
End Property
_
Public Property WarenNummerNational() As String
Get
Return Me._warenNummerNational
End Get
Set(value As String)
Me._warenNummerNational = Value
End Set
End Property
_
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set(value As String)
Me._warenBezeichnung = Value
End Set
End Property
_
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set(value As String)
Me._registrierNummerFremdSystem = Value
End Set
End Property
_
Public Property Vermerk() As String
Get
Return Me._vermerk
End Get
Set(value As String)
Me._vermerk = Value
End Set
End Property
_
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set(value As String)
Me._kennnummerSendung = Value
End Set
End Property
_
Public Property UrsprungsbundeslandCode() As String
Get
Return Me._ursprungsbundeslandCode
End Get
Set(value As String)
Me._ursprungsbundeslandCode = Value
End Set
End Property
_
Public Property Eigenmasse() As String
Get
Return Me._eigenmasse
End Get
Set(value As String)
Me._eigenmasse = Value
End Set
End Property
_
Public Property Rohmasse() As String
Get
Return Me._rohmasse
End Get
Set(value As String)
Me._rohmasse = Value
End Set
End Property
_
Public Property Gefahrgutnummer() As String
Get
Return Me._gefahrgutnummer
End Get
Set(value As String)
Me._gefahrgutnummer = Value
End Set
End Property
_
Public Property ZahlungsweiseBefoerderungskosten() As String
Get
Return Me._zahlungsweiseBefoerderungskosten
End Get
Set(value As String)
Me._zahlungsweiseBefoerderungskosten = Value
End Set
End Property
_
Public Property Verfahren() As VerfahrenEVTyp
Get
Return Me._verfahren
End Get
Set(value As VerfahrenEVTyp)
Me._verfahren = Value
End Set
End Property
_
Public Property AusfuhrerstattungVerfahrenscode() As String
Get
Return Me._ausfuhrerstattungVerfahrenscode
End Get
Set(value As String)
Me._ausfuhrerstattungVerfahrenscode = Value
End Set
End Property
_
Public Property Menge() As String
Get
Return Me._menge
End Get
Set(value As String)
Me._menge = Value
End Set
End Property
_
Public Property Wert() As String
Get
Return Me._wert
End Get
Set(value As String)
Me._wert = Value
End Set
End Property
_
Public Property Vorpapier() As List(Of VorpapierEVTyp)
Get
Return Me._vorpapier
End Get
Set(value As List(Of VorpapierEVTyp))
Me._vorpapier = Value
End Set
End Property
_
Public Property Packstueck() As List(Of PackstueckEVTyp)
Get
Return Me._packstueck
End Get
Set(value As List(Of PackstueckEVTyp))
Me._packstueck = Value
End Set
End Property
_
Public Property ContainerNummer() As List(Of String)
Get
Return Me._containerNummer
End Get
Set(value As List(Of String))
Me._containerNummer = Value
End Set
End Property
_
Public Property Unterlage() As List(Of UnterlageEVTyp)
Get
Return Me._unterlage
End Get
Set(value As List(Of UnterlageEVTyp))
Me._unterlage = Value
End Set
End Property
_
Public Property AusfuhrerstattungMenge() As String
Get
Return Me._ausfuhrerstattungMenge
End Get
Set(value As String)
Me._ausfuhrerstattungMenge = Value
End Set
End Property
_
Public Property AdressatenKonstellation() As String
Get
Return Me._adressatenKonstellation
End Get
Set(value As String)
Me._adressatenKonstellation = Value
End Set
End Property
_
Public Property Empfaenger() As EmpfaengerPositionEVTyp
Get
Return Me._empfaenger
End Get
Set(value As EmpfaengerPositionEVTyp)
Me._empfaenger = Value
End Set
End Property
_
Public Property Endverwender() As EndverwendePositionEVTyp
Get
Return Me._endverwender
End Get
Set(value As EndverwendePositionEVTyp)
Me._endverwender = Value
End Set
End Property
_
Public Property BeendigungZL() As BeendigungZLEVTyp
Get
Return Me._beendigungZL
End Get
Set(value As BeendigungZLEVTyp)
Me._beendigungZL = Value
End Set
End Property
_
Public Property BeendigungAVUV() As BeendigungAVUVEVTyp
Get
Return Me._beendigungAVUV
End Get
Set(value As BeendigungAVUVEVTyp)
Me._beendigungAVUV = Value
End Set
End Property
_
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set(value As String)
Me._incotermCode = Value
End Set
End Property
_
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set(value As String)
Me._incotermText = Value
End Set
End Property
_
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set(value As String)
Me._incotermOrt = Value
End Set
End Property
_
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set(value As String)
Me._geschaeftArtCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionVollstaendigeAusfuhranmeldungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current PositionVollstaendigeAusfuhranmeldungTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an PositionVollstaendigeAusfuhranmeldungTyp object
'''
''' string workflow markup to deserialize
''' Output PositionVollstaendigeAusfuhranmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionVollstaendigeAusfuhranmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionVollstaendigeAusfuhranmeldungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionVollstaendigeAusfuhranmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionVollstaendigeAusfuhranmeldungTyp
Return CType(Serializer.Deserialize(s), PositionVollstaendigeAusfuhranmeldungTyp)
End Function
#End Region
'''
''' Serializes current PositionVollstaendigeAusfuhranmeldungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an PositionVollstaendigeAusfuhranmeldungTyp object
'''
''' string xml file to load and deserialize
''' Output PositionVollstaendigeAusfuhranmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionVollstaendigeAusfuhranmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionVollstaendigeAusfuhranmeldungTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class LieferbedingungEVTyp
#Region "Private fields"
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set(value As String)
Me._incotermCode = Value
End Set
End Property
_
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set(value As String)
Me._incotermText = Value
End Set
End Property
_
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set(value As String)
Me._incotermOrt = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current LieferbedingungEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an LieferbedingungEVTyp object
'''
''' string workflow markup to deserialize
''' Output LieferbedingungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), LieferbedingungEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As LieferbedingungEVTyp
Return CType(Serializer.Deserialize(s), LieferbedingungEVTyp)
End Function
#End Region
'''
''' Serializes current LieferbedingungEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an LieferbedingungEVTyp object
'''
''' string xml file to load and deserialize
''' Output LieferbedingungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class ErzeugnisEVTyp
#Region "Private fields"
Private _erzeugnisWarennummer As String
Private _erzeugnisWarenbezeichnung As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property ErzeugnisWarennummer() As String
Get
Return Me._erzeugnisWarennummer
End Get
Set(value As String)
Me._erzeugnisWarennummer = Value
End Set
End Property
_
Public Property ErzeugnisWarenbezeichnung() As String
Get
Return Me._erzeugnisWarenbezeichnung
End Get
Set(value As String)
Me._erzeugnisWarenbezeichnung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ErzeugnisEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current ErzeugnisEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an ErzeugnisEVTyp object
'''
''' string workflow markup to deserialize
''' Output ErzeugnisEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ErzeugnisEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ErzeugnisEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ErzeugnisEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ErzeugnisEVTyp
Return CType(Serializer.Deserialize(s), ErzeugnisEVTyp)
End Function
#End Region
'''
''' Serializes current ErzeugnisEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ErzeugnisEVTyp object
'''
''' string xml file to load and deserialize
''' Output ErzeugnisEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErzeugnisEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ErzeugnisEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErzeugnisEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErzeugnisEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class NaemlichkeitEVTyp
#Region "Private fields"
Private _art As String
Private _beschreibung As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property Art() As String
Get
Return Me._art
End Get
Set(value As String)
Me._art = Value
End Set
End Property
_
Public Property Beschreibung() As String
Get
Return Me._beschreibung
End Get
Set(value As String)
Me._beschreibung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(NaemlichkeitEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current NaemlichkeitEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an NaemlichkeitEVTyp object
'''
''' string workflow markup to deserialize
''' Output NaemlichkeitEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, NaemlichkeitEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As NaemlichkeitEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), NaemlichkeitEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As NaemlichkeitEVTyp
Return CType(Serializer.Deserialize(s), NaemlichkeitEVTyp)
End Function
#End Region
'''
''' Serializes current NaemlichkeitEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an NaemlichkeitEVTyp object
'''
''' string xml file to load and deserialize
''' Output NaemlichkeitEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NaemlichkeitEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, NaemlichkeitEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NaemlichkeitEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As NaemlichkeitEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class PassiveVeredelungEVTyp
#Region "Private fields"
Private _wiedereinfuhrDatum As Date
Private _standardaustausch As String
Private _wiedereinfuhrland As List(Of String)
Private _naemlichkeit As List(Of NaemlichkeitEVTyp)
Private _erzeugnis As List(Of ErzeugnisEVTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._erzeugnis = New List(Of ErzeugnisEVTyp)()
Me._naemlichkeit = New List(Of NaemlichkeitEVTyp)()
Me._wiedereinfuhrland = New List(Of String)()
End Sub
_
Public Property WiedereinfuhrDatum() As Date
Get
Return Me._wiedereinfuhrDatum
End Get
Set(value As Date)
Me._wiedereinfuhrDatum = Value
End Set
End Property
_
Public Property Standardaustausch() As String
Get
Return Me._standardaustausch
End Get
Set(value As String)
Me._standardaustausch = Value
End Set
End Property
_
Public Property Wiedereinfuhrland() As List(Of String)
Get
Return Me._wiedereinfuhrland
End Get
Set(value As List(Of String))
Me._wiedereinfuhrland = Value
End Set
End Property
_
Public Property Naemlichkeit() As List(Of NaemlichkeitEVTyp)
Get
Return Me._naemlichkeit
End Get
Set(value As List(Of NaemlichkeitEVTyp))
Me._naemlichkeit = Value
End Set
End Property
_
Public Property Erzeugnis() As List(Of ErzeugnisEVTyp)
Get
Return Me._erzeugnis
End Get
Set(value As List(Of ErzeugnisEVTyp))
Me._erzeugnis = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PassiveVeredelungEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current PassiveVeredelungEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an PassiveVeredelungEVTyp object
'''
''' string workflow markup to deserialize
''' Output PassiveVeredelungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PassiveVeredelungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PassiveVeredelungEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PassiveVeredelungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PassiveVeredelungEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PassiveVeredelungEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PassiveVeredelungEVTyp
Return CType(Serializer.Deserialize(s), PassiveVeredelungEVTyp)
End Function
#End Region
'''
''' Serializes current PassiveVeredelungEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an PassiveVeredelungEVTyp object
'''
''' string xml file to load and deserialize
''' Output PassiveVeredelungEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PassiveVeredelungEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PassiveVeredelungEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PassiveVeredelungEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PassiveVeredelungEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class EndverwenderEVTyp
#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 sSerializer As XmlSerializer
#End Region
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EndverwenderEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EndverwenderEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an EndverwenderEVTyp object
'''
''' string workflow markup to deserialize
''' Output EndverwenderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwenderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EndverwenderEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwenderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EndverwenderEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EndverwenderEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EndverwenderEVTyp
Return CType(Serializer.Deserialize(s), EndverwenderEVTyp)
End Function
#End Region
'''
''' Serializes current EndverwenderEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EndverwenderEVTyp object
'''
''' string xml file to load and deserialize
''' Output EndverwenderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwenderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EndverwenderEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwenderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EndverwenderEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class VerfahrensinhaberPVEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _ansprechpartner As AnsprechpartnerEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._ansprechpartner = New AnsprechpartnerEVTyp()
End Sub
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property Ansprechpartner() As AnsprechpartnerEVTyp
Get
Return Me._ansprechpartner
End Get
Set(value As AnsprechpartnerEVTyp)
Me._ansprechpartner = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VerfahrensinhaberPVEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VerfahrensinhaberPVEVTyp object
'''
''' string workflow markup to deserialize
''' Output VerfahrensinhaberPVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerfahrensinhaberPVEVTyp
Return CType(Serializer.Deserialize(s), VerfahrensinhaberPVEVTyp)
End Function
#End Region
'''
''' Serializes current VerfahrensinhaberPVEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VerfahrensinhaberPVEVTyp object
'''
''' string xml file to load and deserialize
''' Output VerfahrensinhaberPVEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class AnsprechpartnerEVTyp
#Region "Private fields"
Private _sachbearbeiter As String
Private _telefonnummer As String
Private _stellung As String
Private _emailAdresse As String
Private _telefaxnummer As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property Sachbearbeiter() As String
Get
Return Me._sachbearbeiter
End Get
Set(value As String)
Me._sachbearbeiter = Value
End Set
End Property
_
Public Property Telefonnummer() As String
Get
Return Me._telefonnummer
End Get
Set(value As String)
Me._telefonnummer = Value
End Set
End Property
_
Public Property Stellung() As String
Get
Return Me._stellung
End Get
Set(value As String)
Me._stellung = Value
End Set
End Property
_
Public Property EmailAdresse() As String
Get
Return Me._emailAdresse
End Get
Set(value As String)
Me._emailAdresse = Value
End Set
End Property
_
Public Property Telefaxnummer() As String
Get
Return Me._telefaxnummer
End Get
Set(value As String)
Me._telefaxnummer = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AnsprechpartnerEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an AnsprechpartnerEVTyp object
'''
''' string workflow markup to deserialize
''' Output AnsprechpartnerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnsprechpartnerEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerEVTyp
Return CType(Serializer.Deserialize(s), AnsprechpartnerEVTyp)
End Function
#End Region
'''
''' Serializes current AnsprechpartnerEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AnsprechpartnerEVTyp object
'''
''' string xml file to load and deserialize
''' Output AnsprechpartnerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnsprechpartnerEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnsprechpartnerEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class SubunternehmerEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _deutscheZollnummerIndikator As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private _ansprechpartner As AnsprechpartnerEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._ansprechpartner = New AnsprechpartnerEVTyp()
End Sub
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property DeutscheZollnummerIndikator() As String
Get
Return Me._deutscheZollnummerIndikator
End Get
Set(value As String)
Me._deutscheZollnummerIndikator = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
_
Public Property Ansprechpartner() As AnsprechpartnerEVTyp
Get
Return Me._ansprechpartner
End Get
Set(value As AnsprechpartnerEVTyp)
Me._ansprechpartner = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SubunternehmerEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current SubunternehmerEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an SubunternehmerEVTyp object
'''
''' string workflow markup to deserialize
''' Output SubunternehmerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubunternehmerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubunternehmerEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubunternehmerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SubunternehmerEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SubunternehmerEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SubunternehmerEVTyp
Return CType(Serializer.Deserialize(s), SubunternehmerEVTyp)
End Function
#End Region
'''
''' Serializes current SubunternehmerEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an SubunternehmerEVTyp object
'''
''' string xml file to load and deserialize
''' Output SubunternehmerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubunternehmerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubunternehmerEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubunternehmerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubunternehmerEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class VertreterAnmelderEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _deutscheZollnummerIndikator As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private _ansprechpartner As AnsprechpartnerEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._ansprechpartner = New AnsprechpartnerEVTyp()
End Sub
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property DeutscheZollnummerIndikator() As String
Get
Return Me._deutscheZollnummerIndikator
End Get
Set(value As String)
Me._deutscheZollnummerIndikator = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
_
Public Property Ansprechpartner() As AnsprechpartnerEVTyp
Get
Return Me._ansprechpartner
End Get
Set(value As AnsprechpartnerEVTyp)
Me._ansprechpartner = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VertreterAnmelderEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VertreterAnmelderEVTyp object
'''
''' string workflow markup to deserialize
''' Output VertreterAnmelderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VertreterAnmelderEVTyp
Return CType(Serializer.Deserialize(s), VertreterAnmelderEVTyp)
End Function
#End Region
'''
''' Serializes current VertreterAnmelderEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VertreterAnmelderEVTyp object
'''
''' string xml file to load and deserialize
''' Output VertreterAnmelderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class AnmelderEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _deutscheZollnummerIndikator As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private _ansprechpartner As AnsprechpartnerEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._ansprechpartner = New AnsprechpartnerEVTyp()
End Sub
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property DeutscheZollnummerIndikator() As String
Get
Return Me._deutscheZollnummerIndikator
End Get
Set(value As String)
Me._deutscheZollnummerIndikator = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
_
Public Property Ansprechpartner() As AnsprechpartnerEVTyp
Get
Return Me._ansprechpartner
End Get
Set(value As AnsprechpartnerEVTyp)
Me._ansprechpartner = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AnmelderEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an AnmelderEVTyp object
'''
''' string workflow markup to deserialize
''' Output AnmelderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnmelderEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmelderEVTyp
Return CType(Serializer.Deserialize(s), AnmelderEVTyp)
End Function
#End Region
'''
''' Serializes current AnmelderEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AnmelderEVTyp object
'''
''' string xml file to load and deserialize
''' Output AnmelderEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class EmpfaengerEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EmpfaengerEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an EmpfaengerEVTyp object
'''
''' string workflow markup to deserialize
''' Output EmpfaengerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EmpfaengerEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EmpfaengerEVTyp
Return CType(Serializer.Deserialize(s), EmpfaengerEVTyp)
End Function
#End Region
'''
''' Serializes current EmpfaengerEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EmpfaengerEVTyp object
'''
''' string xml file to load and deserialize
''' Output EmpfaengerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class AusfuehrerEVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _teilnehmerID As String
Private _deutscheZollnummerIndikator As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private _ansprechpartner As AnsprechpartnerEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._ansprechpartner = New AnsprechpartnerEVTyp()
End Sub
_
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set(value As String)
Me._teilnehmerEORI = Value
End Set
End Property
_
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set(value As String)
Me._teilnehmerNLNR = Value
End Set
End Property
_
Public Property TeilnehmerID() As String
Get
Return Me._teilnehmerID
End Get
Set(value As String)
Me._teilnehmerID = Value
End Set
End Property
_
Public Property DeutscheZollnummerIndikator() As String
Get
Return Me._deutscheZollnummerIndikator
End Get
Set(value As String)
Me._deutscheZollnummerIndikator = Value
End Set
End Property
_
Public Property Name() As String
Get
Return Me._name
End Get
Set(value As String)
Me._name = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set(value As String)
Me._landCode = Value
End Set
End Property
_
Public Property Ansprechpartner() As AnsprechpartnerEVTyp
Get
Return Me._ansprechpartner
End Get
Set(value As AnsprechpartnerEVTyp)
Me._ansprechpartner = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AusfuehrerEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an AusfuehrerEVTyp object
'''
''' string workflow markup to deserialize
''' Output AusfuehrerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AusfuehrerEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AusfuehrerEVTyp
Return CType(Serializer.Deserialize(s), AusfuehrerEVTyp)
End Function
#End Region
'''
''' Serializes current AusfuehrerEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AusfuehrerEVTyp object
'''
''' string xml file to load and deserialize
''' Output AusfuehrerEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class FristEVTyp
#Region "Private fields"
Private _anfangDatumZeit As Date
Private _endeDatumZeit As Date
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property AnfangDatumZeit() As Date
Get
Return Me._anfangDatumZeit
End Get
Set(value As Date)
Me._anfangDatumZeit = Value
End Set
End Property
_
Public Property EndeDatumZeit() As Date
Get
Return Me._endeDatumZeit
End Get
Set(value As Date)
Me._endeDatumZeit = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FristEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current FristEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an FristEVTyp object
'''
''' string workflow markup to deserialize
''' Output FristEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FristEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FristEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FristEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As FristEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FristEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FristEVTyp
Return CType(Serializer.Deserialize(s), FristEVTyp)
End Function
#End Region
'''
''' Serializes current FristEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an FristEVTyp object
'''
''' string xml file to load and deserialize
''' Output FristEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FristEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FristEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FristEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FristEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class VerschluesseEVTyp
#Region "Private fields"
Private _artCode As String
Private _anzahl As String
Private _zeichen As List(Of String)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._zeichen = New List(Of String)()
End Sub
_
Public Property ArtCode() As String
Get
Return Me._artCode
End Get
Set(value As String)
Me._artCode = Value
End Set
End Property
_
Public Property Anzahl() As String
Get
Return Me._anzahl
End Get
Set(value As String)
Me._anzahl = Value
End Set
End Property
_
Public Property Zeichen() As List(Of String)
Get
Return Me._zeichen
End Get
Set(value As List(Of String))
Me._zeichen = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current VerschluesseEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an VerschluesseEVTyp object
'''
''' string workflow markup to deserialize
''' Output VerschluesseEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerschluesseEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseEVTyp
Return CType(Serializer.Deserialize(s), VerschluesseEVTyp)
End Function
#End Region
'''
''' Serializes current VerschluesseEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VerschluesseEVTyp object
'''
''' string xml file to load and deserialize
''' Output VerschluesseEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerschluesseEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerschluesseEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class LadeortEVTyp
#Region "Private fields"
Private _ortID As String
Private _strasse As String
Private _pLZ As String
Private _ort As String
Private _zusatz As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property OrtID() As String
Get
Return Me._ortID
End Get
Set(value As String)
Me._ortID = Value
End Set
End Property
_
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set(value As String)
Me._strasse = Value
End Set
End Property
_
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set(value As String)
Me._pLZ = Value
End Set
End Property
_
Public Property Ort() As String
Get
Return Me._ort
End Get
Set(value As String)
Me._ort = Value
End Set
End Property
_
Public Property Zusatz() As String
Get
Return Me._zusatz
End Get
Set(value As String)
Me._zusatz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(LadeortEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current LadeortEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an LadeortEVTyp object
'''
''' string workflow markup to deserialize
''' Output LadeortEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LadeortEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LadeortEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LadeortEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LadeortEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), LadeortEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As LadeortEVTyp
Return CType(Serializer.Deserialize(s), LadeortEVTyp)
End Function
#End Region
'''
''' Serializes current LadeortEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an LadeortEVTyp object
'''
''' string xml file to load and deserialize
''' Output LadeortEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LadeortEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LadeortEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LadeortEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LadeortEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class BefoerderungsmittelEVTyp
#Region "Private fields"
Private _artCode As String
Private _kennzeichen As String
Private _staatCode As String
Private Shared sSerializer As XmlSerializer
#End Region
_
Public Property ArtCode() As String
Get
Return Me._artCode
End Get
Set(value As String)
Me._artCode = Value
End Set
End Property
_
Public Property Kennzeichen() As String
Get
Return Me._kennzeichen
End Get
Set(value As String)
Me._kennzeichen = Value
End Set
End Property
_
Public Property StaatCode() As String
Get
Return Me._staatCode
End Get
Set(value As String)
Me._staatCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelEVTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current BefoerderungsmittelEVTyp object into an XML string
'''
''' string XML value
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes workflow markup into an BefoerderungsmittelEVTyp object
'''
''' string workflow markup to deserialize
''' Output BefoerderungsmittelEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefoerderungsmittelEVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelEVTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelEVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelEVTyp
Return CType(Serializer.Deserialize(s), BefoerderungsmittelEVTyp)
End Function
#End Region
'''
''' Serializes current BefoerderungsmittelEVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BefoerderungsmittelEVTyp object
'''
''' string xml file to load and deserialize
''' Output BefoerderungsmittelEVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelEVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefoerderungsmittelEVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelEVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefoerderungsmittelEVTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
_
Partial Public Class KopfDatenVollstaendigeAusfuhranmeldungTyp
#Region "Private fields"
Private _anmeldeArtAusfuhrCode As String
Private _anmeldeArtVerfahrenCode As String
Private _anmeldeArtUeberfuehrungCode As String
Private _ausfuhrlandCode As String
Private _bestimmungslandCode As String
Private _anmeldeDatumZeit As Date
Private _datumAusgang As Date
Private _massgeblichesDatum As Date
Private _besondereUmstaende As String
Private _zahlungsweiseBefoerderungskosten As String
Private _statistischeMeldung As String
Private _containerIndikator As String
Private _beteiligtenKonstellation As String
Private _adressatenKonstellation As String
Private _gesamtRohMasse As String
Private _registrierNummerFremdSystem As String
Private _vermerk As String
Private _kennnummerSendung As String
Private _anzahlPositionen As String
Private _bewilligungsnummerAusfuhr As String
Private _bewilligungsnummerAnschreibeverfahren As String
Private _bewilligungsnummerPassiveVeredelung As String
Private _bewilligungsnummerVertrauenswuerdigerAusfuehrer As String
Private _verkehrszweigInland As String
Private _befoerderungsmittelAbgang As BefoerderungsmittelEVTyp
Private _verkehrszweigGrenze As String
Private _befoerderungsmittelGrenze As BefoerderungsmittelEVTyp
Private _ladeort As LadeortEVTyp
Private _ausfuhrZollstelleID As String
Private _ausgangZollstelleID As String
Private _tatsaechlicheAusgangZollstelleID As String
Private _geschaeftArtCode As String
Private _rechnungspreis As String
Private _rechnungswaehrung As String
Private _besondererTatbestand As List(Of String)
Private _verschluss As VerschluesseEVTyp
Private _gestellungsfrist As FristEVTyp
Private _ausfuehrer As AusfuehrerEVTyp
Private _empfaenger As EmpfaengerEVTyp
Private _anmelder As AnmelderEVTyp
Private _vertreterAnmelder As VertreterAnmelderEVTyp
Private _subUnternehmer As SubunternehmerEVTyp
Private _verfahrensinhaberPV As VerfahrensinhaberPVEVTyp
Private _endverwender As EndverwenderEVTyp
Private _befoerderungsrouteLand As List(Of String)
Private _passiveVeredelung As PassiveVeredelungEVTyp
Private _lieferbedingung As LieferbedingungEVTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New()
Me._lieferbedingung = New LieferbedingungEVTyp()
Me._passiveVeredelung = New PassiveVeredelungEVTyp()
Me._befoerderungsrouteLand = New List(Of String)()
Me._endverwender = New EndverwenderEVTyp()
Me._verfahrensinhaberPV = New VerfahrensinhaberPVEVTyp()
Me._subUnternehmer = New SubunternehmerEVTyp()
Me._vertreterAnmelder = New VertreterAnmelderEVTyp()
Me._anmelder = New AnmelderEVTyp()
Me._empfaenger = New EmpfaengerEVTyp()
Me._ausfuehrer = New AusfuehrerEVTyp()
Me._gestellungsfrist = New FristEVTyp()
Me._verschluss = New VerschluesseEVTyp()
Me._besondererTatbestand = New List(Of String)()
Me._ladeort = New LadeortEVTyp()
Me._befoerderungsmittelGrenze = New BefoerderungsmittelEVTyp()
Me._befoerderungsmittelAbgang = New BefoerderungsmittelEVTyp()
End Sub
_
Public Property AnmeldeArtAusfuhrCode() As String
Get
Return Me._anmeldeArtAusfuhrCode
End Get
Set(value As String)
Me._anmeldeArtAusfuhrCode = Value
End Set
End Property
_
Public Property AnmeldeArtVerfahrenCode() As String
Get
Return Me._anmeldeArtVerfahrenCode
End Get
Set(value As String)
Me._anmeldeArtVerfahrenCode = Value
End Set
End Property
_
Public Property AnmeldeArtUeberfuehrungCode() As String
Get
Return Me._anmeldeArtUeberfuehrungCode
End Get
Set(value As String)
Me._anmeldeArtUeberfuehrungCode = Value
End Set
End Property
_
Public Property AusfuhrlandCode() As String
Get
Return Me._ausfuhrlandCode
End Get
Set(value As String)
Me._ausfuhrlandCode = Value
End Set
End Property
_
Public Property BestimmungslandCode() As String
Get
Return Me._bestimmungslandCode
End Get
Set(value As String)
Me._bestimmungslandCode = Value
End Set
End Property
_
Public Property AnmeldeDatumZeit() As Date
Get
Return Me._anmeldeDatumZeit
End Get
Set(value As Date)
Me._anmeldeDatumZeit = Value
End Set
End Property
_
Public Property DatumAusgang() As Date
Get
Return Me._datumAusgang
End Get
Set(value As Date)
Me._datumAusgang = Value
End Set
End Property
_
Public Property MassgeblichesDatum() As Date
Get
Return Me._massgeblichesDatum
End Get
Set(value As Date)
Me._massgeblichesDatum = Value
End Set
End Property
_
Public Property BesondereUmstaende() As String
Get
Return Me._besondereUmstaende
End Get
Set(value As String)
Me._besondereUmstaende = Value
End Set
End Property
_
Public Property ZahlungsweiseBefoerderungskosten() As String
Get
Return Me._zahlungsweiseBefoerderungskosten
End Get
Set(value As String)
Me._zahlungsweiseBefoerderungskosten = Value
End Set
End Property
_
Public Property StatistischeMeldung() As String
Get
Return Me._statistischeMeldung
End Get
Set(value As String)
Me._statistischeMeldung = Value
End Set
End Property
_
Public Property ContainerIndikator() As String
Get
Return Me._containerIndikator
End Get
Set(value As String)
Me._containerIndikator = Value
End Set
End Property
_
Public Property BeteiligtenKonstellation() As String
Get
Return Me._beteiligtenKonstellation
End Get
Set(value As String)
Me._beteiligtenKonstellation = Value
End Set
End Property
_
Public Property AdressatenKonstellation() As String
Get
Return Me._adressatenKonstellation
End Get
Set(value As String)
Me._adressatenKonstellation = Value
End Set
End Property
_
Public Property GesamtRohMasse() As String
Get
Return Me._gesamtRohMasse
End Get
Set(value As String)
Me._gesamtRohMasse = Value
End Set
End Property
_
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set(value As String)
Me._registrierNummerFremdSystem = Value
End Set
End Property
_
Public Property Vermerk() As String
Get
Return Me._vermerk
End Get
Set(value As String)
Me._vermerk = Value
End Set
End Property
_
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set(value As String)
Me._kennnummerSendung = Value
End Set
End Property
_
Public Property AnzahlPositionen() As String
Get
Return Me._anzahlPositionen
End Get
Set(value As String)
Me._anzahlPositionen = Value
End Set
End Property
_
Public Property BewilligungsnummerAusfuhr() As String
Get
Return Me._bewilligungsnummerAusfuhr
End Get
Set(value As String)
Me._bewilligungsnummerAusfuhr = Value
End Set
End Property
_
Public Property BewilligungsnummerAnschreibeverfahren() As String
Get
Return Me._bewilligungsnummerAnschreibeverfahren
End Get
Set(value As String)
Me._bewilligungsnummerAnschreibeverfahren = Value
End Set
End Property
_
Public Property BewilligungsnummerPassiveVeredelung() As String
Get
Return Me._bewilligungsnummerPassiveVeredelung
End Get
Set(value As String)
Me._bewilligungsnummerPassiveVeredelung = Value
End Set
End Property
_
Public Property BewilligungsnummerVertrauenswuerdigerAusfuehrer() As String
Get
Return Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer
End Get
Set(value As String)
Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer = Value
End Set
End Property
_
Public Property VerkehrszweigInland() As String
Get
Return Me._verkehrszweigInland
End Get
Set(value As String)
Me._verkehrszweigInland = Value
End Set
End Property
_
Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelEVTyp
Get
Return Me._befoerderungsmittelAbgang
End Get
Set(value As BefoerderungsmittelEVTyp)
Me._befoerderungsmittelAbgang = Value
End Set
End Property
_
Public Property VerkehrszweigGrenze() As String
Get
Return Me._verkehrszweigGrenze
End Get
Set(value As String)
Me._verkehrszweigGrenze = Value
End Set
End Property
_
Public Property BefoerderungsmittelGrenze() As BefoerderungsmittelEVTyp
Get
Return Me._befoerderungsmittelGrenze
End Get
Set(value As BefoerderungsmittelEVTyp)
Me._befoerderungsmittelGrenze = Value
End Set
End Property
_
Public Property Ladeort() As LadeortEVTyp
Get
Return Me._ladeort
End Get
Set(value As LadeortEVTyp)
Me._ladeort = Value
End Set
End Property
_
Public Property AusfuhrZollstelleID() As String
Get
Return Me._ausfuhrZollstelleID
End Get
Set(value As String)
Me._ausfuhrZollstelleID = Value
End Set
End Property
_
Public Property AusgangZollstelleID() As String
Get
Return Me._ausgangZollstelleID
End Get
Set(value As String)
Me._ausgangZollstelleID = Value
End Set
End Property
_
Public Property TatsaechlicheAusgangZollstelleID() As String
Get
Return Me._tatsaechlicheAusgangZollstelleID
End Get
Set(value As String)
Me._tatsaechlicheAusgangZollstelleID = Value
End Set
End Property
_
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set(value As String)
Me._geschaeftArtCode = Value
End Set
End Property