'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com '' {"TargetFramework":"Net48","NameSpace":"AbschliessendeFestsetzung_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 AbschliessendeFestsetzung_006 Partial Public Class AbschliessendeFestsetzungTAXATyp Inherits DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp() End Sub Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp Get Return Me._einzelAbschliessendeFestsetzung End Get Set Me._einzelAbschliessendeFestsetzung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AbschliessendeFestsetzungTAXATyp 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 AbschliessendeFestsetzungTAXATyp object ''' ''' string to deserialize ''' Output AbschliessendeFestsetzungTAXATyp 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 AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp Return CType(SerializerXml.Deserialize(s), AbschliessendeFestsetzungTAXATyp) End Function #End Region ''' ''' Serializes current AbschliessendeFestsetzungTAXATyp 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 AbschliessendeFestsetzungTAXATyp object ''' ''' File to load and deserialize ''' Output AbschliessendeFestsetzungTAXATyp 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 AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp 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 EinzelAbschliessendeFestsetzungTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp Private _position As List(Of PositionAbschliessendeFestsetzungTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)() Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp() Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp Get Return Me._objektIdentifizierung End Get Set Me._objektIdentifizierung = Value End Set End Property Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp Get Return Me._kopfDaten End Get Set Me._kopfDaten = Value End Set End Property Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) Get Return Me._position End Get Set Me._position = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EinzelAbschliessendeFestsetzungTyp 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 EinzelAbschliessendeFestsetzungTyp object ''' ''' string to deserialize ''' Output EinzelAbschliessendeFestsetzungTyp 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 EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp Return CType(SerializerXml.Deserialize(s), EinzelAbschliessendeFestsetzungTyp) End Function #End Region ''' ''' Serializes current EinzelAbschliessendeFestsetzungTyp 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 EinzelAbschliessendeFestsetzungTyp object ''' ''' File to load and deserialize ''' Output EinzelAbschliessendeFestsetzungTyp 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 EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp 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 ObjektIdentifizierungTAXATyp #Region "Private fields" Private _objektName As String Private _objektAlias 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 ObjektAlias() As String Get Return Me._objektAlias End Get Set Me._objektAlias = 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(ObjektIdentifizierungTAXATyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungTAXATyp 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 ObjektIdentifizierungTAXATyp object ''' ''' string to deserialize ''' Output ObjektIdentifizierungTAXATyp 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 ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXATyp) End Function #End Region ''' ''' Serializes current ObjektIdentifizierungTAXATyp 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 ObjektIdentifizierungTAXATyp object ''' ''' File to load and deserialize ''' Output ObjektIdentifizierungTAXATyp 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 ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp 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 PositionAbschliessendeFestsetzungTyp #Region "Private fields" Private _positionsnummer As String Private _freigabeSicherheitenKz As String Private _applicationInternalData As ApplicationInternalDataType Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() End Sub Public Property Positionsnummer() As String Get Return Me._positionsnummer End Get Set Me._positionsnummer = Value End Set End Property Public Property FreigabeSicherheitenKz() As String Get Return Me._freigabeSicherheitenKz End Get Set Me._freigabeSicherheitenKz = Value End Set End Property Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set Me._applicationInternalData = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PositionAbschliessendeFestsetzungTyp 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 PositionAbschliessendeFestsetzungTyp object ''' ''' string to deserialize ''' Output PositionAbschliessendeFestsetzungTyp 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 PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp Return CType(SerializerXml.Deserialize(s), PositionAbschliessendeFestsetzungTyp) End Function #End Region ''' ''' Serializes current PositionAbschliessendeFestsetzungTyp 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 PositionAbschliessendeFestsetzungTyp object ''' ''' File to load and deserialize ''' Output PositionAbschliessendeFestsetzungTyp 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 PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ApplicationInternalDataType #Region "Private fields" Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() End Sub Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) Get Return Me._additionalDetails End Get Set Me._additionalDetails = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ApplicationInternalDataType object ''' ''' string to deserialize ''' Output ApplicationInternalDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) End Function #End Region ''' ''' Serializes current ApplicationInternalDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ApplicationInternalDataType object ''' ''' File to load and deserialize ''' Output ApplicationInternalDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ApplicationInternalDataAdditionalDetailsDataType #Region "Private fields" Private _key As String Private _value As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Key() As String Get Return Me._key End Get Set Me._key = Value End Set End Property Public Property Value() As String Get Return Me._value End Get Set Me._value = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object ''' ''' string to deserialize ''' Output ApplicationInternalDataAdditionalDetailsDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) End Function #End Region ''' ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object ''' ''' File to load and deserialize ''' Output ApplicationInternalDataAdditionalDetailsDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KopfDatenAbschliessendeFestsetzungTyp #Region "Private fields" Private _waehrungKz As String Private _rechtsbehelfKz As String Private _gesamtschuldnerschaftKz As String Private _umsatzsteuerIDNr As String Private _registrierNr As String Private _veralteteWeitereRegistriernummer As String Private _nIZZARegistrierKz As String Private _freizugebeneSicherheitEUR As Decimal Private _auszahlungArt As String Private _freigegebeneSicherheitGesamt As Decimal Private _freigabeSicherheitKz As String Private _freigabeSicherheitArt As String Private _sonstigeMitteilung As String Private _bearbeiter As String Private _rechtsbehelfHZABezeichung As String Private _rechtsbehelfHZAEmailAdresse As String Private _rechtsbehelfHZADEmailAdresse As String Private _rechtsbehelfHZAStrasseHausNr As String Private _rechtsbehelfHZAPLZS As String Private _rechtsbehelfHZAOrtS As String Private _rechtsbehelfHZAOrtsteil As String Private _rechtsbehelfHZAPostfach As String Private _rechtsbehelfHZAPLZP As String Private _rechtsbehelfHZAOrtP As String Private _rechnungEORI As String Private _rechnungNLNR As String Private _rechnungNationalitaet As String Private _rechnungNameFirmenbezeichnung As String Private _rechnungStrasseHausNr As String Private _rechnungPLZS As String Private _rechnungOrtS As String Private _rechnungOrtsteil As String Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String Private _zahlungsempfaengerKreditinstitut As String Private _zahlungsempfaengerFreigegebeneSicherheitenName As String Private _zahlungsempfaengerNationalitaet As String Private _zahlungsempfaengerStrasseHausNr As String Private _zahlungsempfaengerPLZS As String Private _zahlungsempfaengerOrtS As String Private _zahlungsempfaengerOrtsteil As String Private _zahlungsempfaengerIBAN As String Private _zahlungsempfaengerBIC As String Private _bescheideempfaengerEORI As String Private _bescheideempfaengerNLNR As String Private _bescheideempfaengerKreditinstitut As String Private _bescheideempfaengerName As String Private _bescheideempfaengerNationalitaet As String Private _bescheideempfaengerStrasseHausNr As String Private _bescheideempfaengerPLZS As String Private _bescheideempfaengerOrtS As String Private _bescheideempfaengerOrtsteil As String Private _bescheideempfaengerIBAN As String Private _bescheideempfaengerBIC As String Private _abgabenschuldnerEORI As String Private _abgabenschuldnerNLNR As String Private _abgabenschuldnerName As String Private _abgabenschuldnerNationalitaet As String Private _abgabenschuldnerStrasseHausNr As String Private _abgabenschuldnerPLZS As String Private _abgabenschuldnerOrtS As String Private _abgabenschuldnerOrtsteil As String Private _applicationInternalData As ApplicationInternalDataType Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() End Sub Public Property WaehrungKz() As String Get Return Me._waehrungKz End Get Set Me._waehrungKz = Value End Set End Property Public Property RechtsbehelfKz() As String Get Return Me._rechtsbehelfKz End Get Set Me._rechtsbehelfKz = Value End Set End Property Public Property GesamtschuldnerschaftKz() As String Get Return Me._gesamtschuldnerschaftKz End Get Set Me._gesamtschuldnerschaftKz = Value End Set End Property Public Property UmsatzsteuerIDNr() As String Get Return Me._umsatzsteuerIDNr End Get Set Me._umsatzsteuerIDNr = Value End Set End Property Public Property RegistrierNr() As String Get Return Me._registrierNr End Get Set Me._registrierNr = Value End Set End Property Public Property VeralteteWeitereRegistriernummer() As String Get Return Me._veralteteWeitereRegistriernummer End Get Set Me._veralteteWeitereRegistriernummer = Value End Set End Property Public Property NIZZARegistrierKz() As String Get Return Me._nIZZARegistrierKz End Get Set Me._nIZZARegistrierKz = Value End Set End Property Public Property FreizugebeneSicherheitEUR() As Decimal Get Return Me._freizugebeneSicherheitEUR End Get Set Me._freizugebeneSicherheitEUR = Value End Set End Property Public Property AuszahlungArt() As String Get Return Me._auszahlungArt End Get Set Me._auszahlungArt = Value End Set End Property Public Property FreigegebeneSicherheitGesamt() As Decimal Get Return Me._freigegebeneSicherheitGesamt End Get Set Me._freigegebeneSicherheitGesamt = Value End Set End Property Public Property FreigabeSicherheitKz() As String Get Return Me._freigabeSicherheitKz End Get Set Me._freigabeSicherheitKz = Value End Set End Property Public Property FreigabeSicherheitArt() As String Get Return Me._freigabeSicherheitArt End Get Set Me._freigabeSicherheitArt = Value End Set End Property Public Property SonstigeMitteilung() As String Get Return Me._sonstigeMitteilung End Get Set Me._sonstigeMitteilung = Value End Set End Property Public Property Bearbeiter() As String Get Return Me._bearbeiter End Get Set Me._bearbeiter = Value End Set End Property Public Property RechtsbehelfHZABezeichung() As String Get Return Me._rechtsbehelfHZABezeichung End Get Set Me._rechtsbehelfHZABezeichung = Value End Set End Property Public Property RechtsbehelfHZAEmailAdresse() As String Get Return Me._rechtsbehelfHZAEmailAdresse End Get Set Me._rechtsbehelfHZAEmailAdresse = Value End Set End Property Public Property RechtsbehelfHZADEmailAdresse() As String Get Return Me._rechtsbehelfHZADEmailAdresse End Get Set Me._rechtsbehelfHZADEmailAdresse = Value End Set End Property Public Property RechtsbehelfHZAStrasseHausNr() As String Get Return Me._rechtsbehelfHZAStrasseHausNr End Get Set Me._rechtsbehelfHZAStrasseHausNr = Value End Set End Property Public Property RechtsbehelfHZAPLZS() As String Get Return Me._rechtsbehelfHZAPLZS End Get Set Me._rechtsbehelfHZAPLZS = Value End Set End Property Public Property RechtsbehelfHZAOrtS() As String Get Return Me._rechtsbehelfHZAOrtS End Get Set Me._rechtsbehelfHZAOrtS = Value End Set End Property Public Property RechtsbehelfHZAOrtsteil() As String Get Return Me._rechtsbehelfHZAOrtsteil End Get Set Me._rechtsbehelfHZAOrtsteil = Value End Set End Property Public Property RechtsbehelfHZAPostfach() As String Get Return Me._rechtsbehelfHZAPostfach End Get Set Me._rechtsbehelfHZAPostfach = Value End Set End Property Public Property RechtsbehelfHZAPLZP() As String Get Return Me._rechtsbehelfHZAPLZP End Get Set Me._rechtsbehelfHZAPLZP = Value End Set End Property Public Property RechtsbehelfHZAOrtP() As String Get Return Me._rechtsbehelfHZAOrtP End Get Set Me._rechtsbehelfHZAOrtP = Value End Set End Property Public Property RechnungEORI() As String Get Return Me._rechnungEORI End Get Set Me._rechnungEORI = Value End Set End Property Public Property RechnungNLNR() As String Get Return Me._rechnungNLNR End Get Set Me._rechnungNLNR = Value End Set End Property Public Property RechnungNationalitaet() As String Get Return Me._rechnungNationalitaet End Get Set Me._rechnungNationalitaet = Value End Set End Property Public Property RechnungNameFirmenbezeichnung() As String Get Return Me._rechnungNameFirmenbezeichnung End Get Set Me._rechnungNameFirmenbezeichnung = Value End Set End Property Public Property RechnungStrasseHausNr() As String Get Return Me._rechnungStrasseHausNr End Get Set Me._rechnungStrasseHausNr = Value End Set End Property Public Property RechnungPLZS() As String Get Return Me._rechnungPLZS End Get Set Me._rechnungPLZS = Value End Set End Property Public Property RechnungOrtS() As String Get Return Me._rechnungOrtS End Get Set Me._rechnungOrtS = Value End Set End Property Public Property RechnungOrtsteil() As String Get Return Me._rechnungOrtsteil End Get Set Me._rechnungOrtsteil = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String Get Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI End Get Set Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String Get Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR End Get Set Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value End Set End Property Public Property ZahlungsempfaengerKreditinstitut() As String Get Return Me._zahlungsempfaengerKreditinstitut End Get Set Me._zahlungsempfaengerKreditinstitut = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String Get Return Me._zahlungsempfaengerFreigegebeneSicherheitenName End Get Set Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value End Set End Property Public Property ZahlungsempfaengerNationalitaet() As String Get Return Me._zahlungsempfaengerNationalitaet End Get Set Me._zahlungsempfaengerNationalitaet = Value End Set End Property Public Property ZahlungsempfaengerStrasseHausNr() As String Get Return Me._zahlungsempfaengerStrasseHausNr End Get Set Me._zahlungsempfaengerStrasseHausNr = Value End Set End Property Public Property ZahlungsempfaengerPLZS() As String Get Return Me._zahlungsempfaengerPLZS End Get Set Me._zahlungsempfaengerPLZS = Value End Set End Property Public Property ZahlungsempfaengerOrtS() As String Get Return Me._zahlungsempfaengerOrtS End Get Set Me._zahlungsempfaengerOrtS = Value End Set End Property Public Property ZahlungsempfaengerOrtsteil() As String Get Return Me._zahlungsempfaengerOrtsteil End Get Set Me._zahlungsempfaengerOrtsteil = Value End Set End Property Public Property ZahlungsempfaengerIBAN() As String Get Return Me._zahlungsempfaengerIBAN End Get Set Me._zahlungsempfaengerIBAN = Value End Set End Property Public Property ZahlungsempfaengerBIC() As String Get Return Me._zahlungsempfaengerBIC End Get Set Me._zahlungsempfaengerBIC = Value End Set End Property Public Property BescheideempfaengerEORI() As String Get Return Me._bescheideempfaengerEORI End Get Set Me._bescheideempfaengerEORI = Value End Set End Property Public Property BescheideempfaengerNLNR() As String Get Return Me._bescheideempfaengerNLNR End Get Set Me._bescheideempfaengerNLNR = Value End Set End Property Public Property BescheideempfaengerKreditinstitut() As String Get Return Me._bescheideempfaengerKreditinstitut End Get Set Me._bescheideempfaengerKreditinstitut = Value End Set End Property Public Property BescheideempfaengerName() As String Get Return Me._bescheideempfaengerName End Get Set Me._bescheideempfaengerName = Value End Set End Property Public Property BescheideempfaengerNationalitaet() As String Get Return Me._bescheideempfaengerNationalitaet End Get Set Me._bescheideempfaengerNationalitaet = Value End Set End Property Public Property BescheideempfaengerStrasseHausNr() As String Get Return Me._bescheideempfaengerStrasseHausNr End Get Set Me._bescheideempfaengerStrasseHausNr = Value End Set End Property Public Property BescheideempfaengerPLZS() As String Get Return Me._bescheideempfaengerPLZS End Get Set Me._bescheideempfaengerPLZS = Value End Set End Property Public Property BescheideempfaengerOrtS() As String Get Return Me._bescheideempfaengerOrtS End Get Set Me._bescheideempfaengerOrtS = Value End Set End Property Public Property BescheideempfaengerOrtsteil() As String Get Return Me._bescheideempfaengerOrtsteil End Get Set Me._bescheideempfaengerOrtsteil = Value End Set End Property Public Property BescheideempfaengerIBAN() As String Get Return Me._bescheideempfaengerIBAN End Get Set Me._bescheideempfaengerIBAN = Value End Set End Property Public Property BescheideempfaengerBIC() As String Get Return Me._bescheideempfaengerBIC End Get Set Me._bescheideempfaengerBIC = Value End Set End Property Public Property AbgabenschuldnerEORI() As String Get Return Me._abgabenschuldnerEORI End Get Set Me._abgabenschuldnerEORI = Value End Set End Property Public Property AbgabenschuldnerNLNR() As String Get Return Me._abgabenschuldnerNLNR End Get Set Me._abgabenschuldnerNLNR = Value End Set End Property Public Property AbgabenschuldnerName() As String Get Return Me._abgabenschuldnerName End Get Set Me._abgabenschuldnerName = Value End Set End Property Public Property AbgabenschuldnerNationalitaet() As String Get Return Me._abgabenschuldnerNationalitaet End Get Set Me._abgabenschuldnerNationalitaet = Value End Set End Property Public Property AbgabenschuldnerStrasseHausNr() As String Get Return Me._abgabenschuldnerStrasseHausNr End Get Set Me._abgabenschuldnerStrasseHausNr = Value End Set End Property Public Property AbgabenschuldnerPLZS() As String Get Return Me._abgabenschuldnerPLZS End Get Set Me._abgabenschuldnerPLZS = Value End Set End Property Public Property AbgabenschuldnerOrtS() As String Get Return Me._abgabenschuldnerOrtS End Get Set Me._abgabenschuldnerOrtS = Value End Set End Property Public Property AbgabenschuldnerOrtsteil() As String Get Return Me._abgabenschuldnerOrtsteil End Get Set Me._abgabenschuldnerOrtsteil = Value End Set End Property Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set Me._applicationInternalData = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenAbschliessendeFestsetzungTyp 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 KopfDatenAbschliessendeFestsetzungTyp object ''' ''' string to deserialize ''' Output KopfDatenAbschliessendeFestsetzungTyp 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 KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp Return CType(SerializerXml.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp) End Function #End Region ''' ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp 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 KopfDatenAbschliessendeFestsetzungTyp object ''' ''' File to load and deserialize ''' Output KopfDatenAbschliessendeFestsetzungTyp 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 KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp 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 TransaktionFreierVerkehrTyp #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(TransaktionFreierVerkehrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp object ''' ''' string to deserialize ''' Output TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) End Function #End Region ''' ''' Serializes current TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp object ''' ''' File to load and deserialize ''' Output TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _transaktion As TransaktionFreierVerkehrTyp Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub Public Property Transaktion() As TransaktionFreierVerkehrTyp 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(DatenaustauschFreierVerkehrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp object ''' ''' string to deserialize ''' Output DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) End Function #End Region ''' ''' Serializes current DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp object ''' ''' File to load and deserialize ''' Output DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp 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