'' ------------------------------------------------------------------------------ '' '' 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 _ Public Property Rechnungspreis() As String Get Return Me._rechnungspreis End Get Set(value As String) Me._rechnungspreis = Value End Set End Property _ Public Property Rechnungswaehrung() As String Get Return Me._rechnungswaehrung End Get Set(value As String) Me._rechnungswaehrung = Value End Set End Property _ Public Property BesondererTatbestand() As List(Of String) Get Return Me._besondererTatbestand End Get Set(value As List(Of String)) Me._besondererTatbestand = Value End Set End Property _ Public Property Verschluss() As VerschluesseEVTyp Get Return Me._verschluss End Get Set(value As VerschluesseEVTyp) Me._verschluss = Value End Set End Property _ Public Property Gestellungsfrist() As FristEVTyp Get Return Me._gestellungsfrist End Get Set(value As FristEVTyp) Me._gestellungsfrist = Value End Set End Property _ Public Property Ausfuehrer() As AusfuehrerEVTyp Get Return Me._ausfuehrer End Get Set(value As AusfuehrerEVTyp) Me._ausfuehrer = Value End Set End Property _ Public Property Empfaenger() As EmpfaengerEVTyp Get Return Me._empfaenger End Get Set(value As EmpfaengerEVTyp) Me._empfaenger = Value End Set End Property _ Public Property Anmelder() As AnmelderEVTyp Get Return Me._anmelder End Get Set(value As AnmelderEVTyp) Me._anmelder = Value End Set End Property _ Public Property VertreterAnmelder() As VertreterAnmelderEVTyp Get Return Me._vertreterAnmelder End Get Set(value As VertreterAnmelderEVTyp) Me._vertreterAnmelder = Value End Set End Property _ Public Property SubUnternehmer() As SubunternehmerEVTyp Get Return Me._subUnternehmer End Get Set(value As SubunternehmerEVTyp) Me._subUnternehmer = Value End Set End Property _ Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVEVTyp Get Return Me._verfahrensinhaberPV End Get Set(value As VerfahrensinhaberPVEVTyp) Me._verfahrensinhaberPV = Value End Set End Property _ Public Property Endverwender() As EndverwenderEVTyp Get Return Me._endverwender End Get Set(value As EndverwenderEVTyp) Me._endverwender = Value End Set End Property _ Public Property BefoerderungsrouteLand() As List(Of String) Get Return Me._befoerderungsrouteLand End Get Set(value As List(Of String)) Me._befoerderungsrouteLand = Value End Set End Property _ Public Property PassiveVeredelung() As PassiveVeredelungEVTyp Get Return Me._passiveVeredelung End Get Set(value As PassiveVeredelungEVTyp) Me._passiveVeredelung = Value End Set End Property _ Public Property Lieferbedingung() As LieferbedingungEVTyp Get Return Me._lieferbedingung End Get Set(value As LieferbedingungEVTyp) Me._lieferbedingung = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenVollstaendigeAusfuhranmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KopfDatenVollstaendigeAusfuhranmeldungTyp 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 KopfDatenVollstaendigeAusfuhranmeldungTyp object ''' ''' string workflow markup to deserialize ''' Output KopfDatenVollstaendigeAusfuhranmeldungTyp 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 KopfDatenVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp Return CType(Serializer.Deserialize(s), KopfDatenVollstaendigeAusfuhranmeldungTyp) End Function #End Region ''' ''' Serializes current KopfDatenVollstaendigeAusfuhranmeldungTyp 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 KopfDatenVollstaendigeAusfuhranmeldungTyp object ''' ''' string xml file to load and deserialize ''' Output KopfDatenVollstaendigeAusfuhranmeldungTyp 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 KopfDatenVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp 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 TransaktionExportTyp #Region "Private fields" Private _iOPartner As String Private _iODivision1 As String Private _iODivision2 As String Private _iODivision3 As String Private _iOReferenz As String Private _iODatumZeit As Date Private _version As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property IOPartner() As String Get Return Me._iOPartner End Get Set(value As String) Me._iOPartner = Value End Set End Property _ Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set(value As String) Me._iODivision1 = Value End Set End Property _ Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set(value As String) Me._iODivision2 = Value End Set End Property _ Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set(value As String) Me._iODivision3 = Value End Set End Property _ Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set(value As String) Me._iOReferenz = Value End Set End Property _ Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set(value As Date) Me._iODatumZeit = Value End Set End Property _ Public Property Version() As String Get Return Me._version End Get Set(value As String) Me._version = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current TransaktionExportTyp 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 TransaktionExportTyp object ''' ''' string workflow markup to deserialize ''' Output TransaktionExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionExportTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionExportTyp Return CType(Serializer.Deserialize(s), TransaktionExportTyp) End Function #End Region ''' ''' Serializes current TransaktionExportTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As 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 TransaktionExportTyp object ''' ''' string xml file to load and deserialize ''' Output TransaktionExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionExportTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp Dim file As 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 DatenaustauschExportTyp #Region "Private fields" Private _transaktion As TransaktionExportTyp Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._transaktion = New TransaktionExportTyp() End Sub _ Public Property Transaktion() As TransaktionExportTyp Get Return Me._transaktion End Get Set(value As TransaktionExportTyp) Me._transaktion = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current DatenaustauschExportTyp 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 DatenaustauschExportTyp object ''' ''' string workflow markup to deserialize ''' Output DatenaustauschExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschExportTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschExportTyp Return CType(Serializer.Deserialize(s), DatenaustauschExportTyp) End Function #End Region ''' ''' Serializes current DatenaustauschExportTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As 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 DatenaustauschExportTyp object ''' ''' string xml file to load and deserialize ''' Output DatenaustauschExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschExportTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp Dim file As 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 End Namespace