'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com '' Abgabenbescheid_009ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Xml Imports System.Collections.Generic Namespace Abgabenbescheid_009 Partial Public Class AbgabenbescheidEinfuhrTAXTyp Inherits DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() End Sub Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp Get Return Me._einzelAbgabenbescheid End Get Set Me._einzelAbgabenbescheid = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object ''' ''' string workflow markup to deserialize ''' Output AbgabenbescheidEinfuhrTAXTyp 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 AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp Return CType(Serializer.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) End Function #End Region ''' ''' Serializes current AbgabenbescheidEinfuhrTAXTyp 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 AbgabenbescheidEinfuhrTAXTyp object ''' ''' string xml file to load and deserialize ''' Output AbgabenbescheidEinfuhrTAXTyp 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 AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EinzelAbgabenbescheidTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp Private _kopfDaten As KopfDatenEinfuhrbescheidTyp Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp Get Return Me._objektIdentifizierung End Get Set Me._objektIdentifizierung = Value End Set End Property Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp Get Return Me._kopfDaten End Get Set Me._kopfDaten = Value End Set End Property Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) Get Return Me._position End Get Set Me._position = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EinzelAbgabenbescheidTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EinzelAbgabenbescheidTyp object ''' ''' string workflow markup to deserialize ''' Output EinzelAbgabenbescheidTyp 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 EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp Return CType(Serializer.Deserialize(s), EinzelAbgabenbescheidTyp) End Function #End Region ''' ''' Serializes current EinzelAbgabenbescheidTyp 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 EinzelAbgabenbescheidTyp object ''' ''' string xml file to load and deserialize ''' Output EinzelAbgabenbescheidTyp 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 EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ObjektIdentifizierungTAXTyp #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 sSerializer 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 Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ObjektIdentifizierungTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object ''' ''' string workflow markup to deserialize ''' Output ObjektIdentifizierungTAXTyp 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 ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXTyp) End Function #End Region ''' ''' Serializes current ObjektIdentifizierungTAXTyp 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 ObjektIdentifizierungTAXTyp object ''' ''' string xml file to load and deserialize ''' Output ObjektIdentifizierungTAXTyp 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 ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EinzelAbgabenSatzTAXTyp #Region "Private fields" Private _lfdNrAbgabensatz As List(Of String) Private _abgabensatz As List(Of Decimal) Private _bemessungsmassstab As List(Of String) Private _gehaltsangabenArt As List(Of String) Private _gehaltsangabenGradProzent As List(Of Decimal) Private _bemessungsgrundlageKz As List(Of String) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._bemessungsgrundlageKz = New List(Of String)() Me._gehaltsangabenGradProzent = New List(Of Decimal)() Me._gehaltsangabenArt = New List(Of String)() Me._bemessungsmassstab = New List(Of String)() Me._abgabensatz = New List(Of Decimal)() Me._lfdNrAbgabensatz = New List(Of String)() End Sub Public Property LfdNrAbgabensatz() As List(Of String) Get Return Me._lfdNrAbgabensatz End Get Set Me._lfdNrAbgabensatz = Value End Set End Property Public Property Abgabensatz() As List(Of Decimal) Get Return Me._abgabensatz End Get Set Me._abgabensatz = Value End Set End Property Public Property Bemessungsmassstab() As List(Of String) Get Return Me._bemessungsmassstab End Get Set Me._bemessungsmassstab = Value End Set End Property Public Property GehaltsangabenArt() As List(Of String) Get Return Me._gehaltsangabenArt End Get Set Me._gehaltsangabenArt = Value End Set End Property Public Property GehaltsangabenGradProzent() As List(Of Decimal) Get Return Me._gehaltsangabenGradProzent End Get Set Me._gehaltsangabenGradProzent = Value End Set End Property Public Property BemessungsgrundlageKz() As List(Of String) Get Return Me._bemessungsgrundlageKz End Get Set Me._bemessungsgrundlageKz = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EinzelAbgabenSatzTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object ''' ''' string workflow markup to deserialize ''' Output EinzelAbgabenSatzTAXTyp 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 EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp Return CType(Serializer.Deserialize(s), EinzelAbgabenSatzTAXTyp) End Function #End Region ''' ''' Serializes current EinzelAbgabenSatzTAXTyp 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 EinzelAbgabenSatzTAXTyp object ''' ''' string xml file to load and deserialize ''' Output EinzelAbgabenSatzTAXTyp 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 EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AbgabengruppeTAXTyp #Region "Private fields" Private _abgabengruppe As String Private _abgabeArt As String Private _berechnungshinweis As String Private _angewandterPVMinderungsBetrag As Decimal Private _errechneterAbgabenbetrag As Decimal Private _abgabenbetrag As Decimal Private _abgabensatzKontNr As String Private _verbrauchssteuerCode As String Private _verbrauchssteuerMenge As Decimal Private _verbrauchssteuerMasseinheit As String Private _verbrauchssteuerQualifikator As String Private _verbrauchssteuerGradProzent As Decimal Private _verbrauchssteuerWert As Decimal Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() End Sub Public Property Abgabengruppe() As String Get Return Me._abgabengruppe End Get Set Me._abgabengruppe = Value End Set End Property Public Property AbgabeArt() As String Get Return Me._abgabeArt End Get Set Me._abgabeArt = Value End Set End Property Public Property Berechnungshinweis() As String Get Return Me._berechnungshinweis End Get Set Me._berechnungshinweis = Value End Set End Property Public Property AngewandterPVMinderungsBetrag() As Decimal Get Return Me._angewandterPVMinderungsBetrag End Get Set Me._angewandterPVMinderungsBetrag = Value End Set End Property Public Property ErrechneterAbgabenbetrag() As Decimal Get Return Me._errechneterAbgabenbetrag End Get Set Me._errechneterAbgabenbetrag = Value End Set End Property Public Property Abgabenbetrag() As Decimal Get Return Me._abgabenbetrag End Get Set Me._abgabenbetrag = Value End Set End Property Public Property AbgabensatzKontNr() As String Get Return Me._abgabensatzKontNr End Get Set Me._abgabensatzKontNr = Value End Set End Property Public Property VerbrauchssteuerCode() As String Get Return Me._verbrauchssteuerCode End Get Set Me._verbrauchssteuerCode = Value End Set End Property Public Property VerbrauchssteuerMenge() As Decimal Get Return Me._verbrauchssteuerMenge End Get Set Me._verbrauchssteuerMenge = Value End Set End Property Public Property VerbrauchssteuerMasseinheit() As String Get Return Me._verbrauchssteuerMasseinheit End Get Set Me._verbrauchssteuerMasseinheit = Value End Set End Property Public Property VerbrauchssteuerQualifikator() As String Get Return Me._verbrauchssteuerQualifikator End Get Set Me._verbrauchssteuerQualifikator = Value End Set End Property Public Property VerbrauchssteuerGradProzent() As Decimal Get Return Me._verbrauchssteuerGradProzent End Get Set Me._verbrauchssteuerGradProzent = Value End Set End Property Public Property VerbrauchssteuerWert() As Decimal Get Return Me._verbrauchssteuerWert End Get Set Me._verbrauchssteuerWert = Value End Set End Property Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) Get Return Me._einzelAbgabenSatz End Get Set Me._einzelAbgabenSatz = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current AbgabengruppeTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an AbgabengruppeTAXTyp object ''' ''' string workflow markup to deserialize ''' Output AbgabengruppeTAXTyp 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 AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp Return CType(Serializer.Deserialize(s), AbgabengruppeTAXTyp) End Function #End Region ''' ''' Serializes current AbgabengruppeTAXTyp 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 AbgabengruppeTAXTyp object ''' ''' string xml file to load and deserialize ''' Output AbgabengruppeTAXTyp 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 AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AbweichendeFestsetzungTAXTyp #Region "Private fields" Private _feldname As String Private _qualifikator As String Private _qualifikatorInhalt As String Private _artAbweichendeFestsetzung As String Private _festgesetztVon As String Private _festgesetztAuf As String Private Shared sSerializer As XmlSerializer #End Region Public Property Feldname() As String Get Return Me._feldname End Get Set Me._feldname = Value End Set End Property Public Property Qualifikator() As String Get Return Me._qualifikator End Get Set Me._qualifikator = Value End Set End Property Public Property QualifikatorInhalt() As String Get Return Me._qualifikatorInhalt End Get Set Me._qualifikatorInhalt = Value End Set End Property Public Property ArtAbweichendeFestsetzung() As String Get Return Me._artAbweichendeFestsetzung End Get Set Me._artAbweichendeFestsetzung = Value End Set End Property Public Property FestgesetztVon() As String Get Return Me._festgesetztVon End Get Set Me._festgesetztVon = Value End Set End Property Public Property FestgesetztAuf() As String Get Return Me._festgesetztAuf End Get Set Me._festgesetztAuf = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current AbweichendeFestsetzungTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object ''' ''' string workflow markup to deserialize ''' Output AbweichendeFestsetzungTAXTyp 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 AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp Return CType(Serializer.Deserialize(s), AbweichendeFestsetzungTAXTyp) End Function #End Region ''' ''' Serializes current AbweichendeFestsetzungTAXTyp 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 AbweichendeFestsetzungTAXTyp object ''' ''' string xml file to load and deserialize ''' Output AbweichendeFestsetzungTAXTyp 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 AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KontingentAngerechnetWarenMengeTAXTyp #Region "Private fields" Private _menge As String Private _masseinheit As String Private _qualifier As String Private Shared sSerializer As XmlSerializer #End Region Public Property Menge() As String Get Return Me._menge End Get Set Me._menge = Value End Set End Property Public Property Masseinheit() As String Get Return Me._masseinheit End Get Set Me._masseinheit = Value End Set End Property Public Property Qualifier() As String Get Return Me._qualifier End Get Set Me._qualifier = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object ''' ''' string workflow markup to deserialize ''' Output KontingentAngerechnetWarenMengeTAXTyp 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 KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp Return CType(Serializer.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) End Function #End Region ''' ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp 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 KontingentAngerechnetWarenMengeTAXTyp object ''' ''' string xml file to load and deserialize ''' Output KontingentAngerechnetWarenMengeTAXTyp 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 KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KontingentAngerechnetTAXTyp #Region "Private fields" Private _kontNrAngerechnet As String Private _zollwertAngerechnet As Decimal Private _eUStKostenAngerechnet As Decimal Private _beguenstMengeAngerechnet As Decimal Private _masseinhBegMengeAng As String Private _qualifBegMengeAng As String Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() End Sub Public Property KontNrAngerechnet() As String Get Return Me._kontNrAngerechnet End Get Set Me._kontNrAngerechnet = Value End Set End Property Public Property ZollwertAngerechnet() As Decimal Get Return Me._zollwertAngerechnet End Get Set Me._zollwertAngerechnet = Value End Set End Property Public Property EUStKostenAngerechnet() As Decimal Get Return Me._eUStKostenAngerechnet End Get Set Me._eUStKostenAngerechnet = Value End Set End Property Public Property BeguenstMengeAngerechnet() As Decimal Get Return Me._beguenstMengeAngerechnet End Get Set Me._beguenstMengeAngerechnet = Value End Set End Property Public Property MasseinhBegMengeAng() As String Get Return Me._masseinhBegMengeAng End Get Set Me._masseinhBegMengeAng = Value End Set End Property Public Property QualifBegMengeAng() As String Get Return Me._qualifBegMengeAng End Get Set Me._qualifBegMengeAng = Value End Set End Property Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) Get Return Me._warenMenge End Get Set Me._warenMenge = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KontingentAngerechnetTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an KontingentAngerechnetTAXTyp object ''' ''' string workflow markup to deserialize ''' Output KontingentAngerechnetTAXTyp 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 KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp Return CType(Serializer.Deserialize(s), KontingentAngerechnetTAXTyp) End Function #End Region ''' ''' Serializes current KontingentAngerechnetTAXTyp 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 KontingentAngerechnetTAXTyp object ''' ''' string xml file to load and deserialize ''' Output KontingentAngerechnetTAXTyp 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 KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class SonderfalleingabeTAXTyp #Region "Private fields" Private _sonderabgabenGruppe As String Private _anwendungsart As String Private _satzBetragFaktor As Decimal Private Shared sSerializer As XmlSerializer #End Region Public Property SonderabgabenGruppe() As String Get Return Me._sonderabgabenGruppe End Get Set Me._sonderabgabenGruppe = Value End Set End Property Public Property Anwendungsart() As String Get Return Me._anwendungsart End Get Set Me._anwendungsart = Value End Set End Property Public Property SatzBetragFaktor() As Decimal Get Return Me._satzBetragFaktor End Get Set Me._satzBetragFaktor = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current SonderfalleingabeTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an SonderfalleingabeTAXTyp object ''' ''' string workflow markup to deserialize ''' Output SonderfalleingabeTAXTyp 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 SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp Return CType(Serializer.Deserialize(s), SonderfalleingabeTAXTyp) End Function #End Region ''' ''' Serializes current SonderfalleingabeTAXTyp 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 SonderfalleingabeTAXTyp object ''' ''' string xml file to load and deserialize ''' Output SonderfalleingabeTAXTyp 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 SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EZAAVVeredelungserzeugnisTyp #Region "Private fields" Private _warenbezeichnung As String Private _ausbeuteart As String Private _ausbeutesatz As String Private _kNCode As String Private Shared sSerializer As XmlSerializer #End Region Public Property Warenbezeichnung() As String Get Return Me._warenbezeichnung End Get Set Me._warenbezeichnung = Value End Set End Property Public Property Ausbeuteart() As String Get Return Me._ausbeuteart End Get Set Me._ausbeuteart = Value End Set End Property Public Property Ausbeutesatz() As String Get Return Me._ausbeutesatz End Get Set Me._ausbeutesatz = Value End Set End Property Public Property KNCode() As String Get Return Me._kNCode End Get Set Me._kNCode = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EZAAVVeredelungserzeugnisTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EZAAVVeredelungserzeugnisTyp object ''' ''' string workflow markup to deserialize ''' Output EZAAVVeredelungserzeugnisTyp 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 EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVVeredelungserzeugnisTyp Return CType(Serializer.Deserialize(s), EZAAVVeredelungserzeugnisTyp) End Function #End Region ''' ''' Serializes current EZAAVVeredelungserzeugnisTyp 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 EZAAVVeredelungserzeugnisTyp object ''' ''' string xml file to load and deserialize ''' Output EZAAVVeredelungserzeugnisTyp 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 EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EZAAVAngabenPosTyp #Region "Private fields" Private _aVWirtschaftlicheVoraussetzungen As String Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp) Private _aVNaemlichkeitsmittel As String Private _aVErlaeuterungNaemlichkeit As String Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)() End Sub Public Property AVWirtschaftlicheVoraussetzungen() As String Get Return Me._aVWirtschaftlicheVoraussetzungen End Get Set Me._aVWirtschaftlicheVoraussetzungen = Value End Set End Property Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) Get Return Me._aVVeredelungserzeugnis End Get Set Me._aVVeredelungserzeugnis = Value End Set End Property Public Property AVNaemlichkeitsmittel() As String Get Return Me._aVNaemlichkeitsmittel End Get Set Me._aVNaemlichkeitsmittel = Value End Set End Property Public Property AVErlaeuterungNaemlichkeit() As String Get Return Me._aVErlaeuterungNaemlichkeit End Get Set Me._aVErlaeuterungNaemlichkeit = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EZAAVAngabenPosTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EZAAVAngabenPosTyp object ''' ''' string workflow markup to deserialize ''' Output EZAAVAngabenPosTyp 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 EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenPosTyp Return CType(Serializer.Deserialize(s), EZAAVAngabenPosTyp) End Function #End Region ''' ''' Serializes current EZAAVAngabenPosTyp 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 EZAAVAngabenPosTyp object ''' ''' string xml file to load and deserialize ''' Output EZAAVAngabenPosTyp 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 EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AngemeldeteUnterlageTAXTyp #Region "Private fields" Private _unterlageArt As String Private _unterlageBereich As String Private _unterlageNr As String Private _anerkennungKz As String Private _abschreibungKz As String Private _einbehaltenKz As String Private _periodischeVorlageKz As String Private Shared sSerializer As XmlSerializer #End Region Public Property UnterlageArt() As String Get Return Me._unterlageArt End Get Set Me._unterlageArt = Value End Set End Property Public Property UnterlageBereich() As String Get Return Me._unterlageBereich End Get Set Me._unterlageBereich = Value End Set End Property Public Property UnterlageNr() As String Get Return Me._unterlageNr End Get Set Me._unterlageNr = Value End Set End Property Public Property AnerkennungKz() As String Get Return Me._anerkennungKz End Get Set Me._anerkennungKz = Value End Set End Property Public Property AbschreibungKz() As String Get Return Me._abschreibungKz End Get Set Me._abschreibungKz = Value End Set End Property Public Property EinbehaltenKz() As String Get Return Me._einbehaltenKz End Get Set Me._einbehaltenKz = Value End Set End Property Public Property PeriodischeVorlageKz() As String Get Return Me._periodischeVorlageKz End Get Set Me._periodischeVorlageKz = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current AngemeldeteUnterlageTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object ''' ''' string workflow markup to deserialize ''' Output AngemeldeteUnterlageTAXTyp 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 AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp Return CType(Serializer.Deserialize(s), AngemeldeteUnterlageTAXTyp) End Function #End Region ''' ''' Serializes current AngemeldeteUnterlageTAXTyp 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 AngemeldeteUnterlageTAXTyp object ''' ''' string xml file to load and deserialize ''' Output AngemeldeteUnterlageTAXTyp 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 AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KursAbzugHinzuTAXTyp #Region "Private fields" Private _artAbHinzu As String Private _angewandterKurs As Decimal Private Shared sSerializer As XmlSerializer #End Region Public Property ArtAbHinzu() As String Get Return Me._artAbHinzu End Get Set Me._artAbHinzu = Value End Set End Property Public Property AngewandterKurs() As Decimal Get Return Me._angewandterKurs End Get Set Me._angewandterKurs = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KursAbzugHinzuTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an KursAbzugHinzuTAXTyp object ''' ''' string workflow markup to deserialize ''' Output KursAbzugHinzuTAXTyp 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 KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp Return CType(Serializer.Deserialize(s), KursAbzugHinzuTAXTyp) End Function #End Region ''' ''' Serializes current KursAbzugHinzuTAXTyp 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 KursAbzugHinzuTAXTyp object ''' ''' string xml file to load and deserialize ''' Output KursAbzugHinzuTAXTyp 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 KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class PositionAbgabenbescheidEinfuhrTyp #Region "Private fields" Private _positionsNr As String Private _erledigungKz As String Private _warenNummerEZT As String Private _warenNummerZusatzCode As List(Of String) Private _warenBezeichnung As String Private _beschauMitteilung As String Private _erledigungMitteilung As String Private _ablehnungAenderung As String Private _weitererNachweis As String Private _gewaehrteBeguenstigung As String Private _anordnungKz As String Private _eUStWert As Decimal Private _kostenFuerEUSt As Decimal Private _zollWert As Decimal Private _annahmeAenderung As String Private _sicherheitsLeistungBetrag As Decimal Private _registrierNrvZAAZ As String Private _positionsNrInvZAAZ As String Private _annahmeKz As String Private _annahmeDatum As Date Private _ueberlassungDatum As Date Private _lagerfrist As String Private _wiederAusfuhrFrist As Date Private _fristWeitererNachweis As Date Private _befund As String Private _dV1AbweichendFestgesetztKz As String Private _sonderfalleingabeKz As String Private _angewandterKursNettopreis As Decimal Private _angewandterKursMittelbZahlungen As Decimal Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) Private _luftFrachtGesamtProzentsatz As String Private _luftFrachtGesamtAngewandterKurs As Decimal Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) Private _eZAAVAngabenPos As EZAAVAngabenPosTyp Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) Private _kontNrAngewandt As List(Of String) Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) Private _abgaben As List(Of AbgabengruppeTAXTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._abgaben = New List(Of AbgabengruppeTAXTyp)() Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() Me._kontNrAngewandt = New List(Of String)() Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp() Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() Me._warenNummerZusatzCode = New List(Of String)() End Sub Public Property PositionsNr() As String Get Return Me._positionsNr End Get Set Me._positionsNr = Value End Set End Property Public Property ErledigungKz() As String Get Return Me._erledigungKz End Get Set Me._erledigungKz = Value End Set End Property Public Property WarenNummerEZT() As String Get Return Me._warenNummerEZT End Get Set Me._warenNummerEZT = Value End Set End Property Public Property WarenNummerZusatzCode() As List(Of String) Get Return Me._warenNummerZusatzCode End Get Set Me._warenNummerZusatzCode = Value End Set End Property Public Property WarenBezeichnung() As String Get Return Me._warenBezeichnung End Get Set Me._warenBezeichnung = Value End Set End Property Public Property BeschauMitteilung() As String Get Return Me._beschauMitteilung End Get Set Me._beschauMitteilung = Value End Set End Property Public Property ErledigungMitteilung() As String Get Return Me._erledigungMitteilung End Get Set Me._erledigungMitteilung = Value End Set End Property Public Property AblehnungAenderung() As String Get Return Me._ablehnungAenderung End Get Set Me._ablehnungAenderung = Value End Set End Property Public Property WeitererNachweis() As String Get Return Me._weitererNachweis End Get Set Me._weitererNachweis = Value End Set End Property Public Property GewaehrteBeguenstigung() As String Get Return Me._gewaehrteBeguenstigung End Get Set Me._gewaehrteBeguenstigung = Value End Set End Property Public Property AnordnungKz() As String Get Return Me._anordnungKz End Get Set Me._anordnungKz = Value End Set End Property Public Property EUStWert() As Decimal Get Return Me._eUStWert End Get Set Me._eUStWert = Value End Set End Property Public Property KostenFuerEUSt() As Decimal Get Return Me._kostenFuerEUSt End Get Set Me._kostenFuerEUSt = Value End Set End Property Public Property ZollWert() As Decimal Get Return Me._zollWert End Get Set Me._zollWert = Value End Set End Property Public Property AnnahmeAenderung() As String Get Return Me._annahmeAenderung End Get Set Me._annahmeAenderung = Value End Set End Property Public Property SicherheitsLeistungBetrag() As Decimal Get Return Me._sicherheitsLeistungBetrag End Get Set Me._sicherheitsLeistungBetrag = Value End Set End Property Public Property RegistrierNrvZAAZ() As String Get Return Me._registrierNrvZAAZ End Get Set Me._registrierNrvZAAZ = Value End Set End Property Public Property PositionsNrInvZAAZ() As String Get Return Me._positionsNrInvZAAZ End Get Set Me._positionsNrInvZAAZ = Value End Set End Property Public Property AnnahmeKz() As String Get Return Me._annahmeKz End Get Set Me._annahmeKz = Value End Set End Property Public Property AnnahmeDatum() As Date Get Return Me._annahmeDatum End Get Set Me._annahmeDatum = Value End Set End Property Public Property UeberlassungDatum() As Date Get Return Me._ueberlassungDatum End Get Set Me._ueberlassungDatum = Value End Set End Property Public Property Lagerfrist() As String Get Return Me._lagerfrist End Get Set Me._lagerfrist = Value End Set End Property Public Property WiederAusfuhrFrist() As Date Get Return Me._wiederAusfuhrFrist End Get Set Me._wiederAusfuhrFrist = Value End Set End Property Public Property FristWeitererNachweis() As Date Get Return Me._fristWeitererNachweis End Get Set Me._fristWeitererNachweis = Value End Set End Property Public Property Befund() As String Get Return Me._befund End Get Set Me._befund = Value End Set End Property Public Property DV1AbweichendFestgesetztKz() As String Get Return Me._dV1AbweichendFestgesetztKz End Get Set Me._dV1AbweichendFestgesetztKz = Value End Set End Property Public Property SonderfalleingabeKz() As String Get Return Me._sonderfalleingabeKz End Get Set Me._sonderfalleingabeKz = Value End Set End Property Public Property AngewandterKursNettopreis() As Decimal Get Return Me._angewandterKursNettopreis End Get Set Me._angewandterKursNettopreis = Value End Set End Property Public Property AngewandterKursMittelbZahlungen() As Decimal Get Return Me._angewandterKursMittelbZahlungen End Get Set Me._angewandterKursMittelbZahlungen = Value End Set End Property Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) Get Return Me._abzugHinzurechnungen End Get Set Me._abzugHinzurechnungen = Value End Set End Property Public Property LuftFrachtGesamtProzentsatz() As String Get Return Me._luftFrachtGesamtProzentsatz End Get Set Me._luftFrachtGesamtProzentsatz = Value End Set End Property Public Property LuftFrachtGesamtAngewandterKurs() As Decimal Get Return Me._luftFrachtGesamtAngewandterKurs End Get Set Me._luftFrachtGesamtAngewandterKurs = Value End Set End Property Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) Get Return Me._angemeldeteUnterlage End Get Set Me._angemeldeteUnterlage = Value End Set End Property Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp Get Return Me._eZAAVAngabenPos End Get Set Me._eZAAVAngabenPos = Value End Set End Property Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) Get Return Me._sonderabgabenGruppe End Get Set Me._sonderabgabenGruppe = Value End Set End Property Public Property KontNrAngewandt() As List(Of String) Get Return Me._kontNrAngewandt End Get Set Me._kontNrAngewandt = Value End Set End Property Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) Get Return Me._kontingentAngerechnet End Get Set Me._kontingentAngerechnet = Value End Set End Property Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) Get Return Me._abweichendeFestsetzung End Get Set Me._abweichendeFestsetzung = Value End Set End Property Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) Get Return Me._abgaben End Get Set Me._abgaben = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object ''' ''' string workflow markup to deserialize ''' Output PositionAbgabenbescheidEinfuhrTyp 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 PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp Return CType(Serializer.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) End Function #End Region ''' ''' Serializes current PositionAbgabenbescheidEinfuhrTyp 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 PositionAbgabenbescheidEinfuhrTyp object ''' ''' string xml file to load and deserialize ''' Output PositionAbgabenbescheidEinfuhrTyp 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 PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp #Region "Private fields" Private _strasse As String Private _land As String Private _pLZ As String Private _ort As String Private _ortsteil As String Private Shared sSerializer As XmlSerializer #End Region Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Land() As String Get Return Me._land End Get Set Me._land = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property Ortsteil() As String Get Return Me._ortsteil End Get Set Me._ortsteil = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object ''' ''' string workflow markup to deserialize ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp 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 EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp) End Function #End Region ''' ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp 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 EZAAVAngabenKopfWeitererVeredelungsortTyp object ''' ''' string xml file to load and deserialize ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp 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 EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EZAAVAngabenKopfTyp #Region "Private fields" Private _kzBemessungEinfuhrabgabenbetrag As String Private _kzAbrechnung As String Private _kzVereinfBefoerderung As String Private _zusaetzlicheAngaben As String Private _kzVerzichtSicherheit As String Private _erlaeuterungenZurSicherheit As String Private _betragDerSicherheit As Decimal Private _deutschesUeHZA As String Private _einzelheitenGeplantVeredelungsvorgang As String Private _hauptbuchhaltungStrasse As String Private _hauptbuchhaltungLand As String Private _hauptbuchhaltungPLZ As String Private _hauptbuchhaltungOrt As String Private _hauptbuchhaltungOrtsteil As String Private _veredelungStrasse As String Private _veredelungLand As String Private _veredelungPLZ As String Private _veredelungOrt As String Private _veredelungOrtsteil As String Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) Private _zollstelleErledigung As List(Of String) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._zollstelleErledigung = New List(Of String)() Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() End Sub Public Property KzBemessungEinfuhrabgabenbetrag() As String Get Return Me._kzBemessungEinfuhrabgabenbetrag End Get Set Me._kzBemessungEinfuhrabgabenbetrag = Value End Set End Property Public Property KzAbrechnung() As String Get Return Me._kzAbrechnung End Get Set Me._kzAbrechnung = Value End Set End Property Public Property KzVereinfBefoerderung() As String Get Return Me._kzVereinfBefoerderung End Get Set Me._kzVereinfBefoerderung = Value End Set End Property Public Property ZusaetzlicheAngaben() As String Get Return Me._zusaetzlicheAngaben End Get Set Me._zusaetzlicheAngaben = Value End Set End Property Public Property KzVerzichtSicherheit() As String Get Return Me._kzVerzichtSicherheit End Get Set Me._kzVerzichtSicherheit = Value End Set End Property Public Property ErlaeuterungenZurSicherheit() As String Get Return Me._erlaeuterungenZurSicherheit End Get Set Me._erlaeuterungenZurSicherheit = Value End Set End Property Public Property BetragDerSicherheit() As Decimal Get Return Me._betragDerSicherheit End Get Set Me._betragDerSicherheit = Value End Set End Property Public Property DeutschesUeHZA() As String Get Return Me._deutschesUeHZA End Get Set Me._deutschesUeHZA = Value End Set End Property Public Property EinzelheitenGeplantVeredelungsvorgang() As String Get Return Me._einzelheitenGeplantVeredelungsvorgang End Get Set Me._einzelheitenGeplantVeredelungsvorgang = Value End Set End Property Public Property HauptbuchhaltungStrasse() As String Get Return Me._hauptbuchhaltungStrasse End Get Set Me._hauptbuchhaltungStrasse = Value End Set End Property Public Property HauptbuchhaltungLand() As String Get Return Me._hauptbuchhaltungLand End Get Set Me._hauptbuchhaltungLand = Value End Set End Property Public Property HauptbuchhaltungPLZ() As String Get Return Me._hauptbuchhaltungPLZ End Get Set Me._hauptbuchhaltungPLZ = Value End Set End Property Public Property HauptbuchhaltungOrt() As String Get Return Me._hauptbuchhaltungOrt End Get Set Me._hauptbuchhaltungOrt = Value End Set End Property Public Property HauptbuchhaltungOrtsteil() As String Get Return Me._hauptbuchhaltungOrtsteil End Get Set Me._hauptbuchhaltungOrtsteil = Value End Set End Property Public Property VeredelungStrasse() As String Get Return Me._veredelungStrasse End Get Set Me._veredelungStrasse = Value End Set End Property Public Property VeredelungLand() As String Get Return Me._veredelungLand End Get Set Me._veredelungLand = Value End Set End Property Public Property VeredelungPLZ() As String Get Return Me._veredelungPLZ End Get Set Me._veredelungPLZ = Value End Set End Property Public Property VeredelungOrt() As String Get Return Me._veredelungOrt End Get Set Me._veredelungOrt = Value End Set End Property Public Property VeredelungOrtsteil() As String Get Return Me._veredelungOrtsteil End Get Set Me._veredelungOrtsteil = Value End Set End Property Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) Get Return Me._weitererVeredelungsort End Get Set Me._weitererVeredelungsort = Value End Set End Property Public Property ZollstelleErledigung() As List(Of String) Get Return Me._zollstelleErledigung End Get Set Me._zollstelleErledigung = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EZAAVAngabenKopfTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EZAAVAngabenKopfTyp object ''' ''' string workflow markup to deserialize ''' Output EZAAVAngabenKopfTyp 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 EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfTyp Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfTyp) End Function #End Region ''' ''' Serializes current EZAAVAngabenKopfTyp 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 EZAAVAngabenKopfTyp object ''' ''' string xml file to load and deserialize ''' Output EZAAVAngabenKopfTyp 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 EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class SicherheitTAXTyp #Region "Private fields" Private _einzelbetragUnbareSicherheit As Decimal Private _artUnbareSicherheitsleistung As String Private Shared sSerializer As XmlSerializer #End Region Public Property EinzelbetragUnbareSicherheit() As Decimal Get Return Me._einzelbetragUnbareSicherheit End Get Set Me._einzelbetragUnbareSicherheit = Value End Set End Property Public Property ArtUnbareSicherheitsleistung() As String Get Return Me._artUnbareSicherheitsleistung End Get Set Me._artUnbareSicherheitsleistung = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current SicherheitTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an SicherheitTAXTyp object ''' ''' string workflow markup to deserialize ''' Output SicherheitTAXTyp 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 SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitTAXTyp) 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 SicherheitTAXTyp) 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 SicherheitTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp Return CType(Serializer.Deserialize(s), SicherheitTAXTyp) End Function #End Region ''' ''' Serializes current SicherheitTAXTyp 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 SicherheitTAXTyp object ''' ''' string xml file to load and deserialize ''' Output SicherheitTAXTyp 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 SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitTAXTyp) 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 SicherheitTAXTyp) 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 SicherheitTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AbgabenNachArtKopfTAXTyp #Region "Private fields" Private _abgabeArt As String Private _abgabenbetrag As Decimal Private _zahlungsart As String Private _aufschubnehmerName As String Private _aufschubnehmerTIN As String Private _artAufschubAntrag As String Private _kennBuchstabenAufschub As String Private _aufschubkontoNr As String Private _faelligkeit As Date Private Shared sSerializer As XmlSerializer #End Region Public Property AbgabeArt() As String Get Return Me._abgabeArt End Get Set Me._abgabeArt = Value End Set End Property Public Property Abgabenbetrag() As Decimal Get Return Me._abgabenbetrag End Get Set Me._abgabenbetrag = Value End Set End Property Public Property Zahlungsart() As String Get Return Me._zahlungsart End Get Set Me._zahlungsart = Value End Set End Property Public Property AufschubnehmerName() As String Get Return Me._aufschubnehmerName End Get Set Me._aufschubnehmerName = Value End Set End Property Public Property AufschubnehmerTIN() As String Get Return Me._aufschubnehmerTIN End Get Set Me._aufschubnehmerTIN = Value End Set End Property Public Property ArtAufschubAntrag() As String Get Return Me._artAufschubAntrag End Get Set Me._artAufschubAntrag = Value End Set End Property Public Property KennBuchstabenAufschub() As String Get Return Me._kennBuchstabenAufschub End Get Set Me._kennBuchstabenAufschub = Value End Set End Property Public Property AufschubkontoNr() As String Get Return Me._aufschubkontoNr End Get Set Me._aufschubkontoNr = Value End Set End Property Public Property Faelligkeit() As Date Get Return Me._faelligkeit End Get Set Me._faelligkeit = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current AbgabenNachArtKopfTAXTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object ''' ''' string workflow markup to deserialize ''' Output AbgabenNachArtKopfTAXTyp 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 AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp Return CType(Serializer.Deserialize(s), AbgabenNachArtKopfTAXTyp) End Function #End Region ''' ''' Serializes current AbgabenNachArtKopfTAXTyp 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 AbgabenNachArtKopfTAXTyp object ''' ''' string xml file to load and deserialize ''' Output AbgabenNachArtKopfTAXTyp 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 AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KopfDatenEinfuhrbescheidTyp #Region "Private fields" Private _artAnmeldung As String Private _erledigungKopfKz As String Private _waehrung As String Private _gesamtabgabenBetrag As Decimal Private _abgabenbetragZuZahlen As Decimal Private _abgabenbetragZuErstatten As Decimal Private _vertretungsverhaeltnis As String Private _zahlungsaufforderungArtAufschub As String Private _zahlungsaufforderungArtAbgaben As String Private _zahlungsaufforderungArtSicherheit As String Private _kleinbetragKz As String Private _kleinbetragRechtsbehelf As String Private _gesamtschuldnerschaftKz As String Private _eingangszollstelleGeaendertKz As String Private _aVbewilligtKz As String Private _benutzererstelltKz As String Private _eUStKz As String Private _ustID As String Private _registriernummer As String Private _registrierdatum As Date Private _nizzaRegistrierKz As String Private _nizzaRegistrierKzSicherheit As String Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) Private _gesamtsicherheitssumme As Decimal Private _errechneteSicherheitsSumme As Decimal Private _unbarSicherheitsbetraege As Decimal Private _barSicherheitsbetraege As Decimal Private _freizugebenSicherheit As Decimal Private _auszuzahlenSicherheit As Decimal Private _einbehaltenSicherheit As Decimal Private _sicherheitsleistungForm As String Private _sicherheitsleistungsVerzicht As String Private _auszahlungsArt As String Private _unbareSicherheiten As List(Of SicherheitTAXTyp) Private _bescheidendeDienststelleNr As String Private _bescheidendeDienststelleName As String Private _bescheidendeDienststelleStrasseHausNr As String Private _bescheidendeDienststelleOrtS As String Private _bescheidendeDienststellePLZS As String Private _bearbeiter As String Private _bescheidendeDienststelleTelefonNr As String Private _rechtsbehelfHauptzollamt As String Private _rechtsbehelfHZAEmailAdresse As String Private _rechtsbehelfHZADEmailAdresse As String Private _rechtsbehelfHauptzollamtStrHausNr As String Private _rechtsbehelfHauptzollamtPLZS As String Private _rechtsbehelfHauptzollamtOrtS As String Private _rechtsbehelfHauptzollamtOrtsteil As String Private _rechtsbehelfHauptzollamtPostfach As String Private _rechtsbehelfHauptzollamtPLZP As String Private _rechtsbehelfHauptzollamtOrtP As String Private _zollzahlstelle As String Private _zollzahlstelleKreditinstitut As String Private _zollzahlstelleStrasseHausNr As String Private _zollzahlstellePLZS As String Private _zollzahlstelleOrtS As String Private _zollzahlstellePostfach As String Private _zollzahlstellePLZP As String Private _zollzahlstelleOrtP As String Private _zollzahlstelleIBAN As String Private _zollzahlstelleBIC As String Private _anmelderEORI As String Private _anmelderNLNR As String Private _vorsteuerabzugKz As String Private _anmelderName As String Private _anmelderNationalitaet As String Private _anmelderStrasseHausNr As String Private _anmelderPLZS As String Private _anmelderOrtS As String Private _anmelderOrtsteil As String Private _vertreterEORI As String Private _vertreterNLNR As String Private _vertreterName As String Private _vertreterNationalitaet As String Private _vertreterStrasseHausNr As String Private _vertreterPLZS As String Private _vertreterOrtS As String Private _vertreterOrtsteil As String Private _fRechnungEORI As String Private _fRechnungNLNR As String Private _fRechnungNationalitaet As String Private _fRechnungName As String Private _fRechnungStrasseHausNr As String Private _fRechnungPLZS As String Private _fRechnungOrtS As String Private _fRechnungOrtsteil As String Private _lagerhalterEORI As String Private _lagerhalterNLNR As String Private _lagerhalterName As String Private _lagerhalterStrasseHausNr As String Private _lagerhalterNationalitaet As String Private _lagerhalterPLZ As String Private _lagerhalterOrt As String Private _lagerhalterOrtsteil As String Private _empfaengerEORI As String Private _empfaengerNLNR As String Private _empfaengerNationalitaet As String Private _empfaengerName As String Private _empfaengerStrasseHausNr As String Private _empfaengerPLZS As String Private _empfaengerOrtS As String Private _empfaengerOrtsteil As String Private _zahlungsEmpfaengerEORI As String Private _zahlungsEmpfaengerNLNR As String Private _zahlungsEmpfaengerKreditinstitut As String Private _zahlungsEmpfaengerName 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 _erstellungsDatumBefund As Date Private _erfassungsdatum As Date Private _barzahlungFaelligkeit As Date Private _sicherheitsleistungFaelligkeit As String Private _abrechnungszeitraumBeginn As Date Private _abrechnungszeitraumEnde As Date Private _zollbefund As String Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp Private _lieferbedingungCode As String Private _lieferbedingungText As String Private _lieferbedingungOrt As String Private _lieferbedingungSchluessel As String Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp() Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() End Sub Public Property ArtAnmeldung() As String Get Return Me._artAnmeldung End Get Set Me._artAnmeldung = Value End Set End Property Public Property ErledigungKopfKz() As String Get Return Me._erledigungKopfKz End Get Set Me._erledigungKopfKz = Value End Set End Property Public Property Waehrung() As String Get Return Me._waehrung End Get Set Me._waehrung = Value End Set End Property Public Property GesamtabgabenBetrag() As Decimal Get Return Me._gesamtabgabenBetrag End Get Set Me._gesamtabgabenBetrag = Value End Set End Property Public Property AbgabenbetragZuZahlen() As Decimal Get Return Me._abgabenbetragZuZahlen End Get Set Me._abgabenbetragZuZahlen = Value End Set End Property Public Property AbgabenbetragZuErstatten() As Decimal Get Return Me._abgabenbetragZuErstatten End Get Set Me._abgabenbetragZuErstatten = Value End Set End Property Public Property Vertretungsverhaeltnis() As String Get Return Me._vertretungsverhaeltnis End Get Set Me._vertretungsverhaeltnis = Value End Set End Property Public Property ZahlungsaufforderungArtAufschub() As String Get Return Me._zahlungsaufforderungArtAufschub End Get Set Me._zahlungsaufforderungArtAufschub = Value End Set End Property Public Property ZahlungsaufforderungArtAbgaben() As String Get Return Me._zahlungsaufforderungArtAbgaben End Get Set Me._zahlungsaufforderungArtAbgaben = Value End Set End Property Public Property ZahlungsaufforderungArtSicherheit() As String Get Return Me._zahlungsaufforderungArtSicherheit End Get Set Me._zahlungsaufforderungArtSicherheit = Value End Set End Property Public Property KleinbetragKz() As String Get Return Me._kleinbetragKz End Get Set Me._kleinbetragKz = Value End Set End Property Public Property KleinbetragRechtsbehelf() As String Get Return Me._kleinbetragRechtsbehelf End Get Set Me._kleinbetragRechtsbehelf = 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 EingangszollstelleGeaendertKz() As String Get Return Me._eingangszollstelleGeaendertKz End Get Set Me._eingangszollstelleGeaendertKz = Value End Set End Property Public Property AVbewilligtKz() As String Get Return Me._aVbewilligtKz End Get Set Me._aVbewilligtKz = Value End Set End Property Public Property BenutzererstelltKz() As String Get Return Me._benutzererstelltKz End Get Set Me._benutzererstelltKz = Value End Set End Property Public Property EUStKz() As String Get Return Me._eUStKz End Get Set Me._eUStKz = Value End Set End Property Public Property UstID() As String Get Return Me._ustID End Get Set Me._ustID = Value End Set End Property Public Property Registriernummer() As String Get Return Me._registriernummer End Get Set Me._registriernummer = Value End Set End Property Public Property Registrierdatum() As Date Get Return Me._registrierdatum End Get Set Me._registrierdatum = 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 NizzaRegistrierKzSicherheit() As String Get Return Me._nizzaRegistrierKzSicherheit End Get Set Me._nizzaRegistrierKzSicherheit = Value End Set End Property Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) Get Return Me._abgabenNachArt End Get Set Me._abgabenNachArt = Value End Set End Property Public Property Gesamtsicherheitssumme() As Decimal Get Return Me._gesamtsicherheitssumme End Get Set Me._gesamtsicherheitssumme = Value End Set End Property Public Property ErrechneteSicherheitsSumme() As Decimal Get Return Me._errechneteSicherheitsSumme End Get Set Me._errechneteSicherheitsSumme = Value End Set End Property Public Property UnbarSicherheitsbetraege() As Decimal Get Return Me._unbarSicherheitsbetraege End Get Set Me._unbarSicherheitsbetraege = Value End Set End Property Public Property BarSicherheitsbetraege() As Decimal Get Return Me._barSicherheitsbetraege End Get Set Me._barSicherheitsbetraege = Value End Set End Property Public Property FreizugebenSicherheit() As Decimal Get Return Me._freizugebenSicherheit End Get Set Me._freizugebenSicherheit = Value End Set End Property Public Property AuszuzahlenSicherheit() As Decimal Get Return Me._auszuzahlenSicherheit End Get Set Me._auszuzahlenSicherheit = Value End Set End Property Public Property EinbehaltenSicherheit() As Decimal Get Return Me._einbehaltenSicherheit End Get Set Me._einbehaltenSicherheit = Value End Set End Property Public Property SicherheitsleistungForm() As String Get Return Me._sicherheitsleistungForm End Get Set Me._sicherheitsleistungForm = Value End Set End Property Public Property SicherheitsleistungsVerzicht() As String Get Return Me._sicherheitsleistungsVerzicht End Get Set Me._sicherheitsleistungsVerzicht = Value End Set End Property Public Property AuszahlungsArt() As String Get Return Me._auszahlungsArt End Get Set Me._auszahlungsArt = Value End Set End Property Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) Get Return Me._unbareSicherheiten End Get Set Me._unbareSicherheiten = Value End Set End Property Public Property BescheidendeDienststelleNr() As String Get Return Me._bescheidendeDienststelleNr End Get Set Me._bescheidendeDienststelleNr = Value End Set End Property Public Property BescheidendeDienststelleName() As String Get Return Me._bescheidendeDienststelleName End Get Set Me._bescheidendeDienststelleName = Value End Set End Property Public Property BescheidendeDienststelleStrasseHausNr() As String Get Return Me._bescheidendeDienststelleStrasseHausNr End Get Set Me._bescheidendeDienststelleStrasseHausNr = Value End Set End Property Public Property BescheidendeDienststelleOrtS() As String Get Return Me._bescheidendeDienststelleOrtS End Get Set Me._bescheidendeDienststelleOrtS = Value End Set End Property Public Property BescheidendeDienststellePLZS() As String Get Return Me._bescheidendeDienststellePLZS End Get Set Me._bescheidendeDienststellePLZS = 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 BescheidendeDienststelleTelefonNr() As String Get Return Me._bescheidendeDienststelleTelefonNr End Get Set Me._bescheidendeDienststelleTelefonNr = Value End Set End Property Public Property RechtsbehelfHauptzollamt() As String Get Return Me._rechtsbehelfHauptzollamt End Get Set Me._rechtsbehelfHauptzollamt = 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 RechtsbehelfHauptzollamtStrHausNr() As String Get Return Me._rechtsbehelfHauptzollamtStrHausNr End Get Set Me._rechtsbehelfHauptzollamtStrHausNr = Value End Set End Property Public Property RechtsbehelfHauptzollamtPLZS() As String Get Return Me._rechtsbehelfHauptzollamtPLZS End Get Set Me._rechtsbehelfHauptzollamtPLZS = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtS() As String Get Return Me._rechtsbehelfHauptzollamtOrtS End Get Set Me._rechtsbehelfHauptzollamtOrtS = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtsteil() As String Get Return Me._rechtsbehelfHauptzollamtOrtsteil End Get Set Me._rechtsbehelfHauptzollamtOrtsteil = Value End Set End Property Public Property RechtsbehelfHauptzollamtPostfach() As String Get Return Me._rechtsbehelfHauptzollamtPostfach End Get Set Me._rechtsbehelfHauptzollamtPostfach = Value End Set End Property Public Property RechtsbehelfHauptzollamtPLZP() As String Get Return Me._rechtsbehelfHauptzollamtPLZP End Get Set Me._rechtsbehelfHauptzollamtPLZP = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtP() As String Get Return Me._rechtsbehelfHauptzollamtOrtP End Get Set Me._rechtsbehelfHauptzollamtOrtP = Value End Set End Property Public Property Zollzahlstelle() As String Get Return Me._zollzahlstelle End Get Set Me._zollzahlstelle = Value End Set End Property Public Property ZollzahlstelleKreditinstitut() As String Get Return Me._zollzahlstelleKreditinstitut End Get Set Me._zollzahlstelleKreditinstitut = Value End Set End Property Public Property ZollzahlstelleStrasseHausNr() As String Get Return Me._zollzahlstelleStrasseHausNr End Get Set Me._zollzahlstelleStrasseHausNr = Value End Set End Property Public Property ZollzahlstellePLZS() As String Get Return Me._zollzahlstellePLZS End Get Set Me._zollzahlstellePLZS = Value End Set End Property Public Property ZollzahlstelleOrtS() As String Get Return Me._zollzahlstelleOrtS End Get Set Me._zollzahlstelleOrtS = Value End Set End Property Public Property ZollzahlstellePostfach() As String Get Return Me._zollzahlstellePostfach End Get Set Me._zollzahlstellePostfach = Value End Set End Property Public Property ZollzahlstellePLZP() As String Get Return Me._zollzahlstellePLZP End Get Set Me._zollzahlstellePLZP = Value End Set End Property Public Property ZollzahlstelleOrtP() As String Get Return Me._zollzahlstelleOrtP End Get Set Me._zollzahlstelleOrtP = Value End Set End Property Public Property ZollzahlstelleIBAN() As String Get Return Me._zollzahlstelleIBAN End Get Set Me._zollzahlstelleIBAN = Value End Set End Property Public Property ZollzahlstelleBIC() As String Get Return Me._zollzahlstelleBIC End Get Set Me._zollzahlstelleBIC = Value End Set End Property Public Property AnmelderEORI() As String Get Return Me._anmelderEORI End Get Set Me._anmelderEORI = Value End Set End Property Public Property AnmelderNLNR() As String Get Return Me._anmelderNLNR End Get Set Me._anmelderNLNR = Value End Set End Property Public Property VorsteuerabzugKz() As String Get Return Me._vorsteuerabzugKz End Get Set Me._vorsteuerabzugKz = Value End Set End Property Public Property AnmelderName() As String Get Return Me._anmelderName End Get Set Me._anmelderName = Value End Set End Property Public Property AnmelderNationalitaet() As String Get Return Me._anmelderNationalitaet End Get Set Me._anmelderNationalitaet = Value End Set End Property Public Property AnmelderStrasseHausNr() As String Get Return Me._anmelderStrasseHausNr End Get Set Me._anmelderStrasseHausNr = Value End Set End Property Public Property AnmelderPLZS() As String Get Return Me._anmelderPLZS End Get Set Me._anmelderPLZS = Value End Set End Property Public Property AnmelderOrtS() As String Get Return Me._anmelderOrtS End Get Set Me._anmelderOrtS = Value End Set End Property Public Property AnmelderOrtsteil() As String Get Return Me._anmelderOrtsteil End Get Set Me._anmelderOrtsteil = Value End Set End Property Public Property VertreterEORI() As String Get Return Me._vertreterEORI End Get Set Me._vertreterEORI = Value End Set End Property Public Property VertreterNLNR() As String Get Return Me._vertreterNLNR End Get Set Me._vertreterNLNR = Value End Set End Property Public Property VertreterName() As String Get Return Me._vertreterName End Get Set Me._vertreterName = Value End Set End Property Public Property VertreterNationalitaet() As String Get Return Me._vertreterNationalitaet End Get Set Me._vertreterNationalitaet = Value End Set End Property Public Property VertreterStrasseHausNr() As String Get Return Me._vertreterStrasseHausNr End Get Set Me._vertreterStrasseHausNr = Value End Set End Property Public Property VertreterPLZS() As String Get Return Me._vertreterPLZS End Get Set Me._vertreterPLZS = Value End Set End Property Public Property VertreterOrtS() As String Get Return Me._vertreterOrtS End Get Set Me._vertreterOrtS = Value End Set End Property Public Property VertreterOrtsteil() As String Get Return Me._vertreterOrtsteil End Get Set Me._vertreterOrtsteil = Value End Set End Property Public Property FRechnungEORI() As String Get Return Me._fRechnungEORI End Get Set Me._fRechnungEORI = Value End Set End Property Public Property FRechnungNLNR() As String Get Return Me._fRechnungNLNR End Get Set Me._fRechnungNLNR = Value End Set End Property Public Property FRechnungNationalitaet() As String Get Return Me._fRechnungNationalitaet End Get Set Me._fRechnungNationalitaet = Value End Set End Property Public Property FRechnungName() As String Get Return Me._fRechnungName End Get Set Me._fRechnungName = Value End Set End Property Public Property FRechnungStrasseHausNr() As String Get Return Me._fRechnungStrasseHausNr End Get Set Me._fRechnungStrasseHausNr = Value End Set End Property Public Property FRechnungPLZS() As String Get Return Me._fRechnungPLZS End Get Set Me._fRechnungPLZS = Value End Set End Property Public Property FRechnungOrtS() As String Get Return Me._fRechnungOrtS End Get Set Me._fRechnungOrtS = Value End Set End Property Public Property FRechnungOrtsteil() As String Get Return Me._fRechnungOrtsteil End Get Set Me._fRechnungOrtsteil = Value End Set End Property Public Property LagerhalterEORI() As String Get Return Me._lagerhalterEORI End Get Set Me._lagerhalterEORI = Value End Set End Property Public Property LagerhalterNLNR() As String Get Return Me._lagerhalterNLNR End Get Set Me._lagerhalterNLNR = Value End Set End Property Public Property LagerhalterName() As String Get Return Me._lagerhalterName End Get Set Me._lagerhalterName = Value End Set End Property Public Property LagerhalterStrasseHausNr() As String Get Return Me._lagerhalterStrasseHausNr End Get Set Me._lagerhalterStrasseHausNr = Value End Set End Property Public Property LagerhalterNationalitaet() As String Get Return Me._lagerhalterNationalitaet End Get Set Me._lagerhalterNationalitaet = Value End Set End Property Public Property LagerhalterPLZ() As String Get Return Me._lagerhalterPLZ End Get Set Me._lagerhalterPLZ = Value End Set End Property Public Property LagerhalterOrt() As String Get Return Me._lagerhalterOrt End Get Set Me._lagerhalterOrt = Value End Set End Property Public Property LagerhalterOrtsteil() As String Get Return Me._lagerhalterOrtsteil End Get Set Me._lagerhalterOrtsteil = Value End Set End Property Public Property EmpfaengerEORI() As String Get Return Me._empfaengerEORI End Get Set Me._empfaengerEORI = Value End Set End Property Public Property EmpfaengerNLNR() As String Get Return Me._empfaengerNLNR End Get Set Me._empfaengerNLNR = Value End Set End Property Public Property EmpfaengerNationalitaet() As String Get Return Me._empfaengerNationalitaet End Get Set Me._empfaengerNationalitaet = Value End Set End Property Public Property EmpfaengerName() As String Get Return Me._empfaengerName End Get Set Me._empfaengerName = Value End Set End Property Public Property EmpfaengerStrasseHausNr() As String Get Return Me._empfaengerStrasseHausNr End Get Set Me._empfaengerStrasseHausNr = Value End Set End Property Public Property EmpfaengerPLZS() As String Get Return Me._empfaengerPLZS End Get Set Me._empfaengerPLZS = Value End Set End Property Public Property EmpfaengerOrtS() As String Get Return Me._empfaengerOrtS End Get Set Me._empfaengerOrtS = Value End Set End Property Public Property EmpfaengerOrtsteil() As String Get Return Me._empfaengerOrtsteil End Get Set Me._empfaengerOrtsteil = Value End Set End Property Public Property ZahlungsEmpfaengerEORI() As String Get Return Me._zahlungsEmpfaengerEORI End Get Set Me._zahlungsEmpfaengerEORI = Value End Set End Property Public Property ZahlungsEmpfaengerNLNR() As String Get Return Me._zahlungsEmpfaengerNLNR End Get Set Me._zahlungsEmpfaengerNLNR = 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 ZahlungsEmpfaengerName() As String Get Return Me._zahlungsEmpfaengerName End Get Set Me._zahlungsEmpfaengerName = 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 ErstellungsDatumBefund() As Date Get Return Me._erstellungsDatumBefund End Get Set Me._erstellungsDatumBefund = Value End Set End Property Public Property Erfassungsdatum() As Date Get Return Me._erfassungsdatum End Get Set Me._erfassungsdatum = Value End Set End Property Public Property BarzahlungFaelligkeit() As Date Get Return Me._barzahlungFaelligkeit End Get Set Me._barzahlungFaelligkeit = Value End Set End Property Public Property SicherheitsleistungFaelligkeit() As String Get Return Me._sicherheitsleistungFaelligkeit End Get Set Me._sicherheitsleistungFaelligkeit = Value End Set End Property Public Property AbrechnungszeitraumBeginn() As Date Get Return Me._abrechnungszeitraumBeginn End Get Set Me._abrechnungszeitraumBeginn = Value End Set End Property Public Property AbrechnungszeitraumEnde() As Date Get Return Me._abrechnungszeitraumEnde End Get Set Me._abrechnungszeitraumEnde = Value End Set End Property Public Property Zollbefund() As String Get Return Me._zollbefund End Get Set Me._zollbefund = Value End Set End Property Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp Get Return Me._eZAAVAngabenKopf End Get Set Me._eZAAVAngabenKopf = Value End Set End Property Public Property LieferbedingungCode() As String Get Return Me._lieferbedingungCode End Get Set Me._lieferbedingungCode = Value End Set End Property Public Property LieferbedingungText() As String Get Return Me._lieferbedingungText End Get Set Me._lieferbedingungText = Value End Set End Property Public Property LieferbedingungOrt() As String Get Return Me._lieferbedingungOrt End Get Set Me._lieferbedingungOrt = Value End Set End Property Public Property LieferbedingungSchluessel() As String Get Return Me._lieferbedingungSchluessel End Get Set Me._lieferbedingungSchluessel = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KopfDatenEinfuhrbescheidTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an KopfDatenEinfuhrbescheidTyp object ''' ''' string workflow markup to deserialize ''' Output KopfDatenEinfuhrbescheidTyp 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 KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrbescheidTyp Return CType(Serializer.Deserialize(s), KopfDatenEinfuhrbescheidTyp) End Function #End Region ''' ''' Serializes current KopfDatenEinfuhrbescheidTyp 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 KopfDatenEinfuhrbescheidTyp object ''' ''' string xml file to load and deserialize ''' Output KopfDatenEinfuhrbescheidTyp 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 KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 sSerializer 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 Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object ''' ''' string workflow markup 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 System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.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 System.IO.Stream) As TransaktionFreierVerkehrTyp Return CType(Serializer.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 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 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _transaktion As TransaktionFreierVerkehrTyp Private Shared sSerializer 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 Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object ''' ''' string workflow markup 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 System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.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 System.IO.Stream) As DatenaustauschFreierVerkehrTyp Return CType(Serializer.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 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 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 System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class End Namespace