'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) '' AbschliessendeFestsetzung_005ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace AbschliessendeFestsetzung_005 Partial Public Class AbschliessendeFestsetzungTAXATyp Inherits DatenaustauschFreierVerkehrTyp Private einzelAbschliessendeFestsetzungField As EinzelAbschliessendeFestsetzungTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.einzelAbschliessendeFestsetzungField = New EinzelAbschliessendeFestsetzungTyp() End Sub Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp Get Return Me.einzelAbschliessendeFestsetzungField End Get Set Me.einzelAbschliessendeFestsetzungField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbschliessendeFestsetzungTAXATyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbschliessendeFestsetzungTAXATyp object ''' '''string workflow markup to deserialize '''Output AbschliessendeFestsetzungTAXATyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbschliessendeFestsetzungTAXATyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object ''' '''string xml file to load and deserialize '''Output AbschliessendeFestsetzungTAXATyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class EinzelAbschliessendeFestsetzungTyp Private objektIdentifizierungField As ObjektIdentifizierungTAXATyp Private kopfDatenField As KopfDatenAbschliessendeFestsetzungTyp Private positionField As List(Of PositionAbschliessendeFestsetzungTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.positionField = New List(Of PositionAbschliessendeFestsetzungTyp)() Me.kopfDatenField = New KopfDatenAbschliessendeFestsetzungTyp() Me.objektIdentifizierungField = New ObjektIdentifizierungTAXATyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp Get Return Me.objektIdentifizierungField End Get Set Me.objektIdentifizierungField = Value End Set End Property Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp Get Return Me.kopfDatenField End Get Set Me.kopfDatenField = Value End Set End Property Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) Get Return Me.positionField End Get Set Me.positionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EinzelAbschliessendeFestsetzungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EinzelAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output EinzelAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output EinzelAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class ObjektIdentifizierungTAXATyp Private objektNameField As String Private objektAliasField As String Private eDIFACTNachrichtenNrField As String Private zeitpunktEingangField As Date Private shipmentReferenzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ObjektName() As String Get Return Me.objektNameField End Get Set Me.objektNameField = Value End Set End Property Public Property ObjektAlias() As String Get Return Me.objektAliasField End Get Set Me.objektAliasField = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me.eDIFACTNachrichtenNrField End Get Set Me.eDIFACTNachrichtenNrField = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me.zeitpunktEingangField End Get Set Me.zeitpunktEingangField = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me.shipmentReferenzField End Get Set Me.shipmentReferenzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXATyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ObjektIdentifizierungTAXATyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an ObjektIdentifizierungTAXATyp object ''' '''string workflow markup to deserialize '''Output ObjektIdentifizierungTAXATyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXATyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXATyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object ''' '''string xml file to load and deserialize '''Output ObjektIdentifizierungTAXATyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class PositionAbschliessendeFestsetzungTyp Private positionsnummerField As String Private freigabeSicherheitenKzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Positionsnummer() As String Get Return Me.positionsnummerField End Get Set Me.positionsnummerField = Value End Set End Property Public Property FreigabeSicherheitenKz() As String Get Return Me.freigabeSicherheitenKzField End Get Set Me.freigabeSicherheitenKzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PositionAbschliessendeFestsetzungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an PositionAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output PositionAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output PositionAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class KopfDatenAbschliessendeFestsetzungTyp Private waehrungKzField As String Private rechtsbehelfKzField As String Private gesamtschuldnerschaftKzField As String Private umsatzsteuerIDNrField As String Private registrierNrField As String Private nIZZARegistrierKzField As String Private freizugebeneSicherheitEURField As Decimal Private freizugebeneSicherheitEURFieldSpecified As Boolean Private auszahlungArtField As String Private freigegebeneSicherheitGesamtField As Decimal Private freigegebeneSicherheitGesamtFieldSpecified As Boolean Private freigabeSicherheitKzField As String Private freigabeSicherheitArtField As String Private sonstigeMitteilungField As String Private bearbeiterField As String Private rechtsbehelfHZABezeichungField As String Private rechtsbehelfHZAEmailAdresseField As String Private rechtsbehelfHZADEmailAdresseField As String Private rechtsbehelfHZAStrasseHausNrField As String Private rechtsbehelfHZAPLZSField As String Private rechtsbehelfHZAOrtSField As String Private rechtsbehelfHZAOrtsteilField As String Private rechtsbehelfHZAPostfachField As String Private rechtsbehelfHZAPLZPField As String Private rechtsbehelfHZAOrtPField As String Private rechnungEORIField As String Private rechnungNLNRField As String Private rechnungNationalitaetField As String Private rechnungNameFirmenbezeichnungField As String Private rechnungStrasseHausNrField As String Private rechnungPLZSField As String Private rechnungOrtSField As String Private rechnungOrtsteilField As String Private zahlungsempfaengerFreigegebeneSicherheitenEORIField As String Private zahlungsempfaengerFreigegebeneSicherheitenNLNRField As String Private zahlungsempfaengerKreditinstitutField As String Private zahlungsempfaengerFreigegebeneSicherheitenNameField As String Private zahlungsempfaengerNationalitaetField As String Private zahlungsempfaengerStrasseHausNrField As String Private zahlungsempfaengerPLZSField As String Private zahlungsempfaengerOrtSField As String Private zahlungsempfaengerOrtsteilField As String Private zahlungsempfaengerIBANField As String Private zahlungsempfaengerBICField As String Private bescheideempfaengerEORIField As String Private bescheideempfaengerNLNRField As String Private bescheideempfaengerKreditinstitutField As String Private bescheideempfaengerNameField As String Private bescheideempfaengerNationalitaetField As String Private bescheideempfaengerStrasseHausNrField As String Private bescheideempfaengerPLZSField As String Private bescheideempfaengerOrtSField As String Private bescheideempfaengerOrtsteilField As String Private bescheideempfaengerIBANField As String Private bescheideempfaengerBICField As String Private abgabenschuldnerEORIField As String Private abgabenschuldnerNLNRField As String Private abgabenschuldnerNameField As String Private abgabenschuldnerNationalitaetField As String Private abgabenschuldnerStrasseHausNrField As String Private abgabenschuldnerPLZSField As String Private abgabenschuldnerOrtSField As String Private abgabenschuldnerOrtsteilField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property WaehrungKz() As String Get Return Me.waehrungKzField End Get Set Me.waehrungKzField = Value End Set End Property Public Property RechtsbehelfKz() As String Get Return Me.rechtsbehelfKzField End Get Set Me.rechtsbehelfKzField = Value End Set End Property Public Property GesamtschuldnerschaftKz() As String Get Return Me.gesamtschuldnerschaftKzField End Get Set Me.gesamtschuldnerschaftKzField = Value End Set End Property Public Property UmsatzsteuerIDNr() As String Get Return Me.umsatzsteuerIDNrField End Get Set Me.umsatzsteuerIDNrField = Value End Set End Property Public Property RegistrierNr() As String Get Return Me.registrierNrField End Get Set Me.registrierNrField = Value End Set End Property Public Property NIZZARegistrierKz() As String Get Return Me.nIZZARegistrierKzField End Get Set Me.nIZZARegistrierKzField = Value End Set End Property Public Property FreizugebeneSicherheitEUR() As Decimal Get Return Me.freizugebeneSicherheitEURField End Get Set Me.freizugebeneSicherheitEURField = Value End Set End Property Public Property FreizugebeneSicherheitEURSpecified() As Boolean Get Return Me.freizugebeneSicherheitEURFieldSpecified End Get Set Me.freizugebeneSicherheitEURFieldSpecified = Value End Set End Property Public Property AuszahlungArt() As String Get Return Me.auszahlungArtField End Get Set Me.auszahlungArtField = Value End Set End Property Public Property FreigegebeneSicherheitGesamt() As Decimal Get Return Me.freigegebeneSicherheitGesamtField End Get Set Me.freigegebeneSicherheitGesamtField = Value End Set End Property Public Property FreigegebeneSicherheitGesamtSpecified() As Boolean Get Return Me.freigegebeneSicherheitGesamtFieldSpecified End Get Set Me.freigegebeneSicherheitGesamtFieldSpecified = Value End Set End Property Public Property FreigabeSicherheitKz() As String Get Return Me.freigabeSicherheitKzField End Get Set Me.freigabeSicherheitKzField = Value End Set End Property Public Property FreigabeSicherheitArt() As String Get Return Me.freigabeSicherheitArtField End Get Set Me.freigabeSicherheitArtField = Value End Set End Property Public Property SonstigeMitteilung() As String Get Return Me.sonstigeMitteilungField End Get Set Me.sonstigeMitteilungField = Value End Set End Property Public Property Bearbeiter() As String Get Return Me.bearbeiterField End Get Set Me.bearbeiterField = Value End Set End Property Public Property RechtsbehelfHZABezeichung() As String Get Return Me.rechtsbehelfHZABezeichungField End Get Set Me.rechtsbehelfHZABezeichungField = Value End Set End Property Public Property RechtsbehelfHZAEmailAdresse() As String Get Return Me.rechtsbehelfHZAEmailAdresseField End Get Set Me.rechtsbehelfHZAEmailAdresseField = Value End Set End Property Public Property RechtsbehelfHZADEmailAdresse() As String Get Return Me.rechtsbehelfHZADEmailAdresseField End Get Set Me.rechtsbehelfHZADEmailAdresseField = Value End Set End Property Public Property RechtsbehelfHZAStrasseHausNr() As String Get Return Me.rechtsbehelfHZAStrasseHausNrField End Get Set Me.rechtsbehelfHZAStrasseHausNrField = Value End Set End Property Public Property RechtsbehelfHZAPLZS() As String Get Return Me.rechtsbehelfHZAPLZSField End Get Set Me.rechtsbehelfHZAPLZSField = Value End Set End Property Public Property RechtsbehelfHZAOrtS() As String Get Return Me.rechtsbehelfHZAOrtSField End Get Set Me.rechtsbehelfHZAOrtSField = Value End Set End Property Public Property RechtsbehelfHZAOrtsteil() As String Get Return Me.rechtsbehelfHZAOrtsteilField End Get Set Me.rechtsbehelfHZAOrtsteilField = Value End Set End Property Public Property RechtsbehelfHZAPostfach() As String Get Return Me.rechtsbehelfHZAPostfachField End Get Set Me.rechtsbehelfHZAPostfachField = Value End Set End Property Public Property RechtsbehelfHZAPLZP() As String Get Return Me.rechtsbehelfHZAPLZPField End Get Set Me.rechtsbehelfHZAPLZPField = Value End Set End Property Public Property RechtsbehelfHZAOrtP() As String Get Return Me.rechtsbehelfHZAOrtPField End Get Set Me.rechtsbehelfHZAOrtPField = Value End Set End Property Public Property RechnungEORI() As String Get Return Me.rechnungEORIField End Get Set Me.rechnungEORIField = Value End Set End Property Public Property RechnungNLNR() As String Get Return Me.rechnungNLNRField End Get Set Me.rechnungNLNRField = Value End Set End Property Public Property RechnungNationalitaet() As String Get Return Me.rechnungNationalitaetField End Get Set Me.rechnungNationalitaetField = Value End Set End Property Public Property RechnungNameFirmenbezeichnung() As String Get Return Me.rechnungNameFirmenbezeichnungField End Get Set Me.rechnungNameFirmenbezeichnungField = Value End Set End Property Public Property RechnungStrasseHausNr() As String Get Return Me.rechnungStrasseHausNrField End Get Set Me.rechnungStrasseHausNrField = Value End Set End Property Public Property RechnungPLZS() As String Get Return Me.rechnungPLZSField End Get Set Me.rechnungPLZSField = Value End Set End Property Public Property RechnungOrtS() As String Get Return Me.rechnungOrtSField End Get Set Me.rechnungOrtSField = Value End Set End Property Public Property RechnungOrtsteil() As String Get Return Me.rechnungOrtsteilField End Get Set Me.rechnungOrtsteilField = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String Get Return Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField End Get Set Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String Get Return Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField End Get Set Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField = Value End Set End Property Public Property ZahlungsempfaengerKreditinstitut() As String Get Return Me.zahlungsempfaengerKreditinstitutField End Get Set Me.zahlungsempfaengerKreditinstitutField = Value End Set End Property Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String Get Return Me.zahlungsempfaengerFreigegebeneSicherheitenNameField End Get Set Me.zahlungsempfaengerFreigegebeneSicherheitenNameField = Value End Set End Property Public Property ZahlungsempfaengerNationalitaet() As String Get Return Me.zahlungsempfaengerNationalitaetField End Get Set Me.zahlungsempfaengerNationalitaetField = Value End Set End Property Public Property ZahlungsempfaengerStrasseHausNr() As String Get Return Me.zahlungsempfaengerStrasseHausNrField End Get Set Me.zahlungsempfaengerStrasseHausNrField = Value End Set End Property Public Property ZahlungsempfaengerPLZS() As String Get Return Me.zahlungsempfaengerPLZSField End Get Set Me.zahlungsempfaengerPLZSField = Value End Set End Property Public Property ZahlungsempfaengerOrtS() As String Get Return Me.zahlungsempfaengerOrtSField End Get Set Me.zahlungsempfaengerOrtSField = Value End Set End Property Public Property ZahlungsempfaengerOrtsteil() As String Get Return Me.zahlungsempfaengerOrtsteilField End Get Set Me.zahlungsempfaengerOrtsteilField = Value End Set End Property Public Property ZahlungsempfaengerIBAN() As String Get Return Me.zahlungsempfaengerIBANField End Get Set Me.zahlungsempfaengerIBANField = Value End Set End Property Public Property ZahlungsempfaengerBIC() As String Get Return Me.zahlungsempfaengerBICField End Get Set Me.zahlungsempfaengerBICField = Value End Set End Property Public Property BescheideempfaengerEORI() As String Get Return Me.bescheideempfaengerEORIField End Get Set Me.bescheideempfaengerEORIField = Value End Set End Property Public Property BescheideempfaengerNLNR() As String Get Return Me.bescheideempfaengerNLNRField End Get Set Me.bescheideempfaengerNLNRField = Value End Set End Property Public Property BescheideempfaengerKreditinstitut() As String Get Return Me.bescheideempfaengerKreditinstitutField End Get Set Me.bescheideempfaengerKreditinstitutField = Value End Set End Property Public Property BescheideempfaengerName() As String Get Return Me.bescheideempfaengerNameField End Get Set Me.bescheideempfaengerNameField = Value End Set End Property Public Property BescheideempfaengerNationalitaet() As String Get Return Me.bescheideempfaengerNationalitaetField End Get Set Me.bescheideempfaengerNationalitaetField = Value End Set End Property Public Property BescheideempfaengerStrasseHausNr() As String Get Return Me.bescheideempfaengerStrasseHausNrField End Get Set Me.bescheideempfaengerStrasseHausNrField = Value End Set End Property Public Property BescheideempfaengerPLZS() As String Get Return Me.bescheideempfaengerPLZSField End Get Set Me.bescheideempfaengerPLZSField = Value End Set End Property Public Property BescheideempfaengerOrtS() As String Get Return Me.bescheideempfaengerOrtSField End Get Set Me.bescheideempfaengerOrtSField = Value End Set End Property Public Property BescheideempfaengerOrtsteil() As String Get Return Me.bescheideempfaengerOrtsteilField End Get Set Me.bescheideempfaengerOrtsteilField = Value End Set End Property Public Property BescheideempfaengerIBAN() As String Get Return Me.bescheideempfaengerIBANField End Get Set Me.bescheideempfaengerIBANField = Value End Set End Property Public Property BescheideempfaengerBIC() As String Get Return Me.bescheideempfaengerBICField End Get Set Me.bescheideempfaengerBICField = Value End Set End Property Public Property AbgabenschuldnerEORI() As String Get Return Me.abgabenschuldnerEORIField End Get Set Me.abgabenschuldnerEORIField = Value End Set End Property Public Property AbgabenschuldnerNLNR() As String Get Return Me.abgabenschuldnerNLNRField End Get Set Me.abgabenschuldnerNLNRField = Value End Set End Property Public Property AbgabenschuldnerName() As String Get Return Me.abgabenschuldnerNameField End Get Set Me.abgabenschuldnerNameField = Value End Set End Property Public Property AbgabenschuldnerNationalitaet() As String Get Return Me.abgabenschuldnerNationalitaetField End Get Set Me.abgabenschuldnerNationalitaetField = Value End Set End Property Public Property AbgabenschuldnerStrasseHausNr() As String Get Return Me.abgabenschuldnerStrasseHausNrField End Get Set Me.abgabenschuldnerStrasseHausNrField = Value End Set End Property Public Property AbgabenschuldnerPLZS() As String Get Return Me.abgabenschuldnerPLZSField End Get Set Me.abgabenschuldnerPLZSField = Value End Set End Property Public Property AbgabenschuldnerOrtS() As String Get Return Me.abgabenschuldnerOrtSField End Get Set Me.abgabenschuldnerOrtSField = Value End Set End Property Public Property AbgabenschuldnerOrtsteil() As String Get Return Me.abgabenschuldnerOrtsteilField End Get Set Me.abgabenschuldnerOrtsteilField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KopfDatenAbschliessendeFestsetzungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KopfDatenAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output KopfDatenAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output KopfDatenAbschliessendeFestsetzungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class TransaktionFreierVerkehrTyp Private iOPartnerField As String Private iODivision1Field As String Private iODivision2Field As String Private iODivision3Field As String Private iOReferenzField As String Private iODatumZeitField As Date Private versionField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property IOPartner() As String Get Return Me.iOPartnerField End Get Set Me.iOPartnerField = Value End Set End Property Public Property IODivision1() As String Get Return Me.iODivision1Field End Get Set Me.iODivision1Field = Value End Set End Property Public Property IODivision2() As String Get Return Me.iODivision2Field End Get Set Me.iODivision2Field = Value End Set End Property Public Property IODivision3() As String Get Return Me.iODivision3Field End Get Set Me.iODivision3Field = Value End Set End Property Public Property IOReferenz() As String Get Return Me.iOReferenzField End Get Set Me.iOReferenzField = Value End Set End Property Public Property IODatumZeit() As Date Get Return Me.iODatumZeitField End Get Set Me.iODatumZeitField = Value End Set End Property Public Property Version() As String Get Return Me.versionField End Get Set Me.versionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TransaktionFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class DatenaustauschFreierVerkehrTyp Private transaktionField As TransaktionFreierVerkehrTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.transaktionField = New TransaktionFreierVerkehrTyp() End Sub Public Property Transaktion() As TransaktionFreierVerkehrTyp Get Return Me.transaktionField End Get Set Me.transaktionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class End Namespace