'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com '' {"TargetFramework":"Net47","NameSpace":"BestaetigungAusfuhr_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace BestaetigungAusfuhr_006 Partial Public Class BestaetigungAusfuhrENTyp Inherits DatenaustauschExportTyp #Region "Private fields" Private _einzelBestaetigung As List(Of EinzelBestaetigungAusfuhrTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._einzelBestaetigung = New List(Of EinzelBestaetigungAusfuhrTyp)() End Sub Public Property EinzelBestaetigung() As List(Of EinzelBestaetigungAusfuhrTyp) Get Return Me._einzelBestaetigung End Get Set Me._einzelBestaetigung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BestaetigungAusfuhrENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize BestaetigungAusfuhrENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes BestaetigungAusfuhrENTyp object ''' ''' string to deserialize ''' Output BestaetigungAusfuhrENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BestaetigungAusfuhrENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As BestaetigungAusfuhrENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BestaetigungAusfuhrENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As BestaetigungAusfuhrENTyp Return CType(SerializerXml.Deserialize(s), BestaetigungAusfuhrENTyp) End Function #End Region ''' ''' Serializes current BestaetigungAusfuhrENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an BestaetigungAusfuhrENTyp object ''' ''' File to load and deserialize ''' Output BestaetigungAusfuhrENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BestaetigungAusfuhrENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BestaetigungAusfuhrENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EinzelBestaetigungAusfuhrTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungENTyp Private _kopfDaten As KopfDatenBestaetigungAusfuhrTyp Private _warenPosition As List(Of PositionBestaetigungAusfuhrTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._warenPosition = New List(Of PositionBestaetigungAusfuhrTyp)() Me._kopfDaten = New KopfDatenBestaetigungAusfuhrTyp() Me._objektIdentifizierung = New ObjektIdentifizierungENTyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungENTyp Get Return Me._objektIdentifizierung End Get Set Me._objektIdentifizierung = Value End Set End Property Public Property KopfDaten() As KopfDatenBestaetigungAusfuhrTyp Get Return Me._kopfDaten End Get Set Me._kopfDaten = Value End Set End Property Public Property WarenPosition() As List(Of PositionBestaetigungAusfuhrTyp) Get Return Me._warenPosition End Get Set Me._warenPosition = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBestaetigungAusfuhrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EinzelBestaetigungAusfuhrTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes EinzelBestaetigungAusfuhrTyp object ''' ''' string to deserialize ''' Output EinzelBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBestaetigungAusfuhrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBestaetigungAusfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelBestaetigungAusfuhrTyp Return CType(SerializerXml.Deserialize(s), EinzelBestaetigungAusfuhrTyp) End Function #End Region ''' ''' Serializes current EinzelBestaetigungAusfuhrTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an EinzelBestaetigungAusfuhrTyp object ''' ''' File to load and deserialize ''' Output EinzelBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBestaetigungAusfuhrTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ObjektIdentifizierungENTyp #Region "Private fields" Private _objektName As String Private _eDIFACTNachrichtenNr As String Private _zeitpunktEingang As Date Private _shipmentReferenz As String Private Shared _serializerXml As XmlSerializer #End Region Public Property ObjektName() As String Get Return Me._objektName End Get Set Me._objektName = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me._eDIFACTNachrichtenNr End Get Set Me._eDIFACTNachrichtenNr = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me._zeitpunktEingang End Get Set Me._zeitpunktEingang = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me._shipmentReferenz End Get Set Me._shipmentReferenz = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ObjektIdentifizierungENTyp object ''' ''' string to deserialize ''' Output ObjektIdentifizierungENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungENTyp Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungENTyp) End Function #End Region ''' ''' Serializes current ObjektIdentifizierungENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ObjektIdentifizierungENTyp object ''' ''' File to load and deserialize ''' Output ObjektIdentifizierungENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EmpfaengerPositionENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _identifikationsart As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property Identifikationsart() As String Get Return Me._identifikationsart End Get Set Me._identifikationsart = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EmpfaengerPositionENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes EmpfaengerPositionENTyp object ''' ''' string to deserialize ''' Output EmpfaengerPositionENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EmpfaengerPositionENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerPositionENTyp Return CType(SerializerXml.Deserialize(s), EmpfaengerPositionENTyp) End Function #End Region ''' ''' Serializes current EmpfaengerPositionENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an EmpfaengerPositionENTyp object ''' ''' File to load and deserialize ''' Output EmpfaengerPositionENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EmpfaengerPositionENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class PackstueckENTyp #Region "Private fields" Private _anzahl As String Private _verpackungsartCode As String Private _kennzeichnung As String Private _positionHauptpack As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Anzahl() As String Get Return Me._anzahl End Get Set Me._anzahl = Value End Set End Property Public Property VerpackungsartCode() As String Get Return Me._verpackungsartCode End Get Set Me._verpackungsartCode = Value End Set End Property Public Property Kennzeichnung() As String Get Return Me._kennzeichnung End Get Set Me._kennzeichnung = Value End Set End Property Public Property PositionHauptpack() As String Get Return Me._positionHauptpack End Get Set Me._positionHauptpack = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PackstueckENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes PackstueckENTyp object ''' ''' string to deserialize ''' Output PackstueckENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PackstueckENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackstueckENTyp Return CType(SerializerXml.Deserialize(s), PackstueckENTyp) End Function #End Region ''' ''' Serializes current PackstueckENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PackstueckENTyp object ''' ''' File to load and deserialize ''' Output PackstueckENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PackstueckENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class VerfahrenENTyp #Region "Private fields" Private _verfahrenAngemeldetCode As String Private _verfahrenVorangegangenCode As String Private _verfahrenNationalCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property VerfahrenAngemeldetCode() As String Get Return Me._verfahrenAngemeldetCode End Get Set Me._verfahrenAngemeldetCode = Value End Set End Property Public Property VerfahrenVorangegangenCode() As String Get Return Me._verfahrenVorangegangenCode End Get Set Me._verfahrenVorangegangenCode = Value End Set End Property Public Property VerfahrenNationalCode() As String Get Return Me._verfahrenNationalCode End Get Set Me._verfahrenNationalCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VerfahrenENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes VerfahrenENTyp object ''' ''' string to deserialize ''' Output VerfahrenENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerfahrenENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrenENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrenENTyp Return CType(SerializerXml.Deserialize(s), VerfahrenENTyp) End Function #End Region ''' ''' Serializes current VerfahrenENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VerfahrenENTyp object ''' ''' File to load and deserialize ''' Output VerfahrenENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerfahrenENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class PositionBestaetigungAusfuhrTyp #Region "Private fields" Private _positionsnummer As String Private _warenNummerKN8 As String Private _warenNummerTARIC As String Private _warenNummerZusatz1 As String Private _warenNummerZusatz2 As String Private _warenNummerNational As String Private _warenBezeichnung As String Private _registrierNummerFremdSystem As String Private _kennnummerSendung As String Private _eigenmasse As Decimal Private _rohmasse As Decimal Private _wasserzeichen As String Private _verfahren As VerfahrenENTyp Private _ausfuhrerstattungVerfahrensCode As String Private _packstueck As List(Of PackstueckENTyp) Private _empfaenger As EmpfaengerPositionENTyp Private _incotermCode As String Private _incotermText As String Private _incotermOrt As String Private _geschaeftArtCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._empfaenger = New EmpfaengerPositionENTyp() Me._packstueck = New List(Of PackstueckENTyp)() Me._verfahren = New VerfahrenENTyp() End Sub Public Property Positionsnummer() As String Get Return Me._positionsnummer End Get Set Me._positionsnummer = Value End Set End Property Public Property WarenNummerKN8() As String Get Return Me._warenNummerKN8 End Get Set Me._warenNummerKN8 = Value End Set End Property Public Property WarenNummerTARIC() As String Get Return Me._warenNummerTARIC End Get Set Me._warenNummerTARIC = Value End Set End Property Public Property WarenNummerZusatz1() As String Get Return Me._warenNummerZusatz1 End Get Set Me._warenNummerZusatz1 = Value End Set End Property Public Property WarenNummerZusatz2() As String Get Return Me._warenNummerZusatz2 End Get Set Me._warenNummerZusatz2 = Value End Set End Property Public Property WarenNummerNational() As String Get Return Me._warenNummerNational End Get Set Me._warenNummerNational = Value End Set End Property Public Property WarenBezeichnung() As String Get Return Me._warenBezeichnung End Get Set Me._warenBezeichnung = Value End Set End Property Public Property RegistrierNummerFremdSystem() As String Get Return Me._registrierNummerFremdSystem End Get Set Me._registrierNummerFremdSystem = Value End Set End Property Public Property KennnummerSendung() As String Get Return Me._kennnummerSendung End Get Set Me._kennnummerSendung = Value End Set End Property Public Property Eigenmasse() As Decimal Get Return Me._eigenmasse End Get Set Me._eigenmasse = Value End Set End Property Public Property Rohmasse() As Decimal Get Return Me._rohmasse End Get Set Me._rohmasse = Value End Set End Property Public Property Wasserzeichen() As String Get Return Me._wasserzeichen End Get Set Me._wasserzeichen = Value End Set End Property Public Property Verfahren() As VerfahrenENTyp Get Return Me._verfahren End Get Set Me._verfahren = Value End Set End Property Public Property AusfuhrerstattungVerfahrensCode() As String Get Return Me._ausfuhrerstattungVerfahrensCode End Get Set Me._ausfuhrerstattungVerfahrensCode = Value End Set End Property Public Property Packstueck() As List(Of PackstueckENTyp) Get Return Me._packstueck End Get Set Me._packstueck = Value End Set End Property Public Property Empfaenger() As EmpfaengerPositionENTyp Get Return Me._empfaenger End Get Set Me._empfaenger = Value End Set End Property Public Property IncotermCode() As String Get Return Me._incotermCode End Get Set Me._incotermCode = Value End Set End Property Public Property IncotermText() As String Get Return Me._incotermText End Get Set Me._incotermText = Value End Set End Property Public Property IncotermOrt() As String Get Return Me._incotermOrt End Get Set Me._incotermOrt = Value End Set End Property Public Property GeschaeftArtCode() As String Get Return Me._geschaeftArtCode End Get Set Me._geschaeftArtCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBestaetigungAusfuhrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PositionBestaetigungAusfuhrTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes PositionBestaetigungAusfuhrTyp object ''' ''' string to deserialize ''' Output PositionBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBestaetigungAusfuhrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBestaetigungAusfuhrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBestaetigungAusfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionBestaetigungAusfuhrTyp Return CType(SerializerXml.Deserialize(s), PositionBestaetigungAusfuhrTyp) End Function #End Region ''' ''' Serializes current PositionBestaetigungAusfuhrTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PositionBestaetigungAusfuhrTyp object ''' ''' File to load and deserialize ''' Output PositionBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBestaetigungAusfuhrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBestaetigungAusfuhrTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class LieferbedingungENTyp #Region "Private fields" Private _incotermCode As String Private _incotermText As String Private _incotermOrt As String Private Shared _serializerXml As XmlSerializer #End Region Public Property IncotermCode() As String Get Return Me._incotermCode End Get Set Me._incotermCode = Value End Set End Property Public Property IncotermText() As String Get Return Me._incotermText End Get Set Me._incotermText = Value End Set End Property Public Property IncotermOrt() As String Get Return Me._incotermOrt End Get Set Me._incotermOrt = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize LieferbedingungENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes LieferbedingungENTyp object ''' ''' string to deserialize ''' Output LieferbedingungENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, LieferbedingungENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LieferbedingungENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As LieferbedingungENTyp Return CType(SerializerXml.Deserialize(s), LieferbedingungENTyp) End Function #End Region ''' ''' Serializes current LieferbedingungENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an LieferbedingungENTyp object ''' ''' File to load and deserialize ''' Output LieferbedingungENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, LieferbedingungENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class SubUnternehmerENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SubUnternehmerENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SubUnternehmerENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes SubUnternehmerENTyp object ''' ''' string to deserialize ''' Output SubUnternehmerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SubUnternehmerENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As SubUnternehmerENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SubUnternehmerENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As SubUnternehmerENTyp Return CType(SerializerXml.Deserialize(s), SubUnternehmerENTyp) End Function #End Region ''' ''' Serializes current SubUnternehmerENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SubUnternehmerENTyp object ''' ''' File to load and deserialize ''' Output SubUnternehmerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SubUnternehmerENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubUnternehmerENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class VertreterAnmelderENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VertreterAnmelderENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes VertreterAnmelderENTyp object ''' ''' string to deserialize ''' Output VertreterAnmelderENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VertreterAnmelderENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As VertreterAnmelderENTyp Return CType(SerializerXml.Deserialize(s), VertreterAnmelderENTyp) End Function #End Region ''' ''' Serializes current VertreterAnmelderENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VertreterAnmelderENTyp object ''' ''' File to load and deserialize ''' Output VertreterAnmelderENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VertreterAnmelderENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AnmelderENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AnmelderENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes AnmelderENTyp object ''' ''' string to deserialize ''' Output AnmelderENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmelderENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmelderENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnmelderENTyp Return CType(SerializerXml.Deserialize(s), AnmelderENTyp) End Function #End Region ''' ''' Serializes current AnmelderENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an AnmelderENTyp object ''' ''' File to load and deserialize ''' Output AnmelderENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmelderENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EmpfaengerENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _identifikationsart As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property Identifikationsart() As String Get Return Me._identifikationsart End Get Set Me._identifikationsart = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EmpfaengerENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes EmpfaengerENTyp object ''' ''' string to deserialize ''' Output EmpfaengerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EmpfaengerENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerENTyp Return CType(SerializerXml.Deserialize(s), EmpfaengerENTyp) End Function #End Region ''' ''' Serializes current EmpfaengerENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an EmpfaengerENTyp object ''' ''' File to load and deserialize ''' Output EmpfaengerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EmpfaengerENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AusfuehrerENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _identifikationsart As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property Identifikationsart() As String Get Return Me._identifikationsart End Get Set Me._identifikationsart = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AusfuehrerENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes AusfuehrerENTyp object ''' ''' string to deserialize ''' Output AusfuehrerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AusfuehrerENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuehrerENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuehrerENTyp Return CType(SerializerXml.Deserialize(s), AusfuehrerENTyp) End Function #End Region ''' ''' Serializes current AusfuehrerENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an AusfuehrerENTyp object ''' ''' File to load and deserialize ''' Output AusfuehrerENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AusfuehrerENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class VerfahrensinhaberPVENTyp #Region "Private fields" Private _teilnehmerEORI As String Private _teilnehmerNLNR As String Private _name As String Private _strasse As String Private _ort As String Private _pLZ As String Private _landCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVENTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VerfahrensinhaberPVENTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes VerfahrensinhaberPVENTyp object ''' ''' string to deserialize ''' Output VerfahrensinhaberPVENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerfahrensinhaberPVENTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVENTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVENTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrensinhaberPVENTyp Return CType(SerializerXml.Deserialize(s), VerfahrensinhaberPVENTyp) End Function #End Region ''' ''' Serializes current VerfahrensinhaberPVENTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VerfahrensinhaberPVENTyp object ''' ''' File to load and deserialize ''' Output VerfahrensinhaberPVENTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerfahrensinhaberPVENTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVENTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KopfDatenBestaetigungAusfuhrTyp #Region "Private fields" Private _anmeldeArtAusfuhrCode As String Private _anmeldeArtVerfahrenCode As String Private _anmeldeArtUeberfuehrungCode As String Private _movementReferenceNumber As String Private _bestimmungslandCode As String Private _ausfuhrlandCode As String Private _ausgangDatumZeit As Date Private _ueberlassungDatumZeit As Date Private _alternativerNachweis As String Private _minderMengeIndikator As String Private _beteiligtenKonstellation As String Private _gesamtRohMasse As Decimal Private _registrierNummerFremdSystem As String Private _kennnummerSendung As String Private _anzahlPackStuecke As String Private _anzahlPositionen As String Private _wasserzeichen As String Private _ausfuhrZollstelleID As String Private _ausgangZollstelleID As String Private _geschaeftArtCode As String Private _rechnungspreis As Decimal Private _rechnungswaehrung As String Private _verfahrensinhaberPV As VerfahrensinhaberPVENTyp Private _ausfuehrer As AusfuehrerENTyp Private _empfaenger As EmpfaengerENTyp Private _anmelder As AnmelderENTyp Private _vertreterAnmelder As VertreterAnmelderENTyp Private _subUnternehmer As SubUnternehmerENTyp Private _lieferbedingung As LieferbedingungENTyp Private _dateinameAusgangsvermerk As String Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._lieferbedingung = New LieferbedingungENTyp() Me._subUnternehmer = New SubUnternehmerENTyp() Me._vertreterAnmelder = New VertreterAnmelderENTyp() Me._anmelder = New AnmelderENTyp() Me._empfaenger = New EmpfaengerENTyp() Me._ausfuehrer = New AusfuehrerENTyp() Me._verfahrensinhaberPV = New VerfahrensinhaberPVENTyp() End Sub Public Property AnmeldeArtAusfuhrCode() As String Get Return Me._anmeldeArtAusfuhrCode End Get Set Me._anmeldeArtAusfuhrCode = Value End Set End Property Public Property AnmeldeArtVerfahrenCode() As String Get Return Me._anmeldeArtVerfahrenCode End Get Set Me._anmeldeArtVerfahrenCode = Value End Set End Property Public Property AnmeldeArtUeberfuehrungCode() As String Get Return Me._anmeldeArtUeberfuehrungCode End Get Set Me._anmeldeArtUeberfuehrungCode = Value End Set End Property Public Property MovementReferenceNumber() As String Get Return Me._movementReferenceNumber End Get Set Me._movementReferenceNumber = Value End Set End Property Public Property BestimmungslandCode() As String Get Return Me._bestimmungslandCode End Get Set Me._bestimmungslandCode = Value End Set End Property Public Property AusfuhrlandCode() As String Get Return Me._ausfuhrlandCode End Get Set Me._ausfuhrlandCode = Value End Set End Property Public Property AusgangDatumZeit() As Date Get Return Me._ausgangDatumZeit End Get Set Me._ausgangDatumZeit = Value End Set End Property Public Property UeberlassungDatumZeit() As Date Get Return Me._ueberlassungDatumZeit End Get Set Me._ueberlassungDatumZeit = Value End Set End Property Public Property AlternativerNachweis() As String Get Return Me._alternativerNachweis End Get Set Me._alternativerNachweis = Value End Set End Property Public Property MinderMengeIndikator() As String Get Return Me._minderMengeIndikator End Get Set Me._minderMengeIndikator = Value End Set End Property Public Property BeteiligtenKonstellation() As String Get Return Me._beteiligtenKonstellation End Get Set Me._beteiligtenKonstellation = Value End Set End Property Public Property GesamtRohMasse() As Decimal Get Return Me._gesamtRohMasse End Get Set Me._gesamtRohMasse = Value End Set End Property Public Property RegistrierNummerFremdSystem() As String Get Return Me._registrierNummerFremdSystem End Get Set Me._registrierNummerFremdSystem = Value End Set End Property Public Property KennnummerSendung() As String Get Return Me._kennnummerSendung End Get Set Me._kennnummerSendung = Value End Set End Property Public Property AnzahlPackStuecke() As String Get Return Me._anzahlPackStuecke End Get Set Me._anzahlPackStuecke = Value End Set End Property Public Property AnzahlPositionen() As String Get Return Me._anzahlPositionen End Get Set Me._anzahlPositionen = Value End Set End Property Public Property Wasserzeichen() As String Get Return Me._wasserzeichen End Get Set Me._wasserzeichen = Value End Set End Property Public Property AusfuhrZollstelleID() As String Get Return Me._ausfuhrZollstelleID End Get Set Me._ausfuhrZollstelleID = Value End Set End Property Public Property AusgangZollstelleID() As String Get Return Me._ausgangZollstelleID End Get Set Me._ausgangZollstelleID = Value End Set End Property Public Property GeschaeftArtCode() As String Get Return Me._geschaeftArtCode End Get Set Me._geschaeftArtCode = Value End Set End Property Public Property Rechnungspreis() As Decimal Get Return Me._rechnungspreis End Get Set Me._rechnungspreis = Value End Set End Property Public Property Rechnungswaehrung() As String Get Return Me._rechnungswaehrung End Get Set Me._rechnungswaehrung = Value End Set End Property Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVENTyp Get Return Me._verfahrensinhaberPV End Get Set Me._verfahrensinhaberPV = Value End Set End Property Public Property Ausfuehrer() As AusfuehrerENTyp Get Return Me._ausfuehrer End Get Set Me._ausfuehrer = Value End Set End Property Public Property Empfaenger() As EmpfaengerENTyp Get Return Me._empfaenger End Get Set Me._empfaenger = Value End Set End Property Public Property Anmelder() As AnmelderENTyp Get Return Me._anmelder End Get Set Me._anmelder = Value End Set End Property Public Property VertreterAnmelder() As VertreterAnmelderENTyp Get Return Me._vertreterAnmelder End Get Set Me._vertreterAnmelder = Value End Set End Property Public Property SubUnternehmer() As SubUnternehmerENTyp Get Return Me._subUnternehmer End Get Set Me._subUnternehmer = Value End Set End Property Public Property Lieferbedingung() As LieferbedingungENTyp Get Return Me._lieferbedingung End Get Set Me._lieferbedingung = Value End Set End Property Public Property DateinameAusgangsvermerk() As String Get Return Me._dateinameAusgangsvermerk End Get Set Me._dateinameAusgangsvermerk = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenBestaetigungAusfuhrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenBestaetigungAusfuhrTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes KopfDatenBestaetigungAusfuhrTyp object ''' ''' string to deserialize ''' Output KopfDatenBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenBestaetigungAusfuhrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenBestaetigungAusfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenBestaetigungAusfuhrTyp Return CType(SerializerXml.Deserialize(s), KopfDatenBestaetigungAusfuhrTyp) End Function #End Region ''' ''' Serializes current KopfDatenBestaetigungAusfuhrTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an KopfDatenBestaetigungAusfuhrTyp object ''' ''' File to load and deserialize ''' Output KopfDatenBestaetigungAusfuhrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenBestaetigungAusfuhrTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class TransaktionExportTyp #Region "Private fields" Private _iOPartner As String Private _iODivision1 As String Private _iODivision2 As String Private _iODivision3 As String Private _iOReferenz As String Private _iODatumZeit As Date Private _version As String Private Shared _serializerXml As XmlSerializer #End Region Public Property IOPartner() As String Get Return Me._iOPartner End Get Set Me._iOPartner = Value End Set End Property Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set Me._iODivision1 = Value End Set End Property Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set Me._iODivision2 = Value End Set End Property Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set Me._iODivision3 = Value End Set End Property Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set Me._iOReferenz = Value End Set End Property Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set Me._iODatumZeit = Value End Set End Property Public Property Version() As String Get Return Me._version End Get Set Me._version = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TransaktionExportTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes TransaktionExportTyp object ''' ''' string to deserialize ''' Output TransaktionExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionExportTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionExportTyp Return CType(SerializerXml.Deserialize(s), TransaktionExportTyp) End Function #End Region ''' ''' Serializes current TransaktionExportTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TransaktionExportTyp object ''' ''' File to load and deserialize ''' Output TransaktionExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionExportTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class DatenaustauschExportTyp #Region "Private fields" Private _transaktion As TransaktionExportTyp Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._transaktion = New TransaktionExportTyp() End Sub Public Property Transaktion() As TransaktionExportTyp Get Return Me._transaktion End Get Set Me._transaktion = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschExportTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes DatenaustauschExportTyp object ''' ''' string to deserialize ''' Output DatenaustauschExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschExportTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschExportTyp Return CType(SerializerXml.Deserialize(s), DatenaustauschExportTyp) End Function #End Region ''' ''' Serializes current DatenaustauschExportTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an DatenaustauschExportTyp object ''' ''' File to load and deserialize ''' Output DatenaustauschExportTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschExportTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class End Namespace #Enable Warning