'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) '' Abgabenbescheid_010ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace Abgabenbescheid_010 Partial Public Class AbgabenbescheidEinfuhrTAXTyp Inherits DatenaustauschFreierVerkehrTyp Private einzelAbgabenbescheidField As EinzelAbgabenbescheidTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.einzelAbgabenbescheidField = New EinzelAbgabenbescheidTyp() End Sub Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp Get Return Me.einzelAbgabenbescheidField End Get Set Me.einzelAbgabenbescheidField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object ''' '''string workflow markup to deserialize '''Output AbgabenbescheidEinfuhrTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenbescheidEinfuhrTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EinzelAbgabenbescheidTyp Private objektIdentifizierungField As ObjektIdentifizierungTAXTyp Private kopfDatenField As KopfDatenEinfuhrbescheidTyp Private positionField As List(Of PositionAbgabenbescheidEinfuhrTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.positionField = New List(Of PositionAbgabenbescheidEinfuhrTyp)() Me.kopfDatenField = New KopfDatenEinfuhrbescheidTyp() Me.objektIdentifizierungField = New ObjektIdentifizierungTAXTyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp Get Return Me.objektIdentifizierungField End Get Set Me.objektIdentifizierungField = Value End Set End Property Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp Get Return Me.kopfDatenField End Get Set Me.kopfDatenField = Value End Set End Property Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) Get Return Me.positionField End Get Set Me.positionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbgabenbescheidTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EinzelAbgabenbescheidTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EinzelAbgabenbescheidTyp object ''' '''string workflow markup to deserialize '''Output EinzelAbgabenbescheidTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenbescheidTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenbescheidTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class ObjektIdentifizierungTAXTyp Private objektNameField As String Private objektAliasField As String Private eDIFACTNachrichtenNrField As String Private zeitpunktEingangField As Date Private shipmentReferenzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ObjektName() As String Get Return Me.objektNameField End Get Set Me.objektNameField = Value End Set End Property Public Property ObjektAlias() As String Get Return Me.objektAliasField End Get Set Me.objektAliasField = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me.eDIFACTNachrichtenNrField End Get Set Me.eDIFACTNachrichtenNrField = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me.zeitpunktEingangField End Get Set Me.zeitpunktEingangField = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me.shipmentReferenzField End Get Set Me.shipmentReferenzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ObjektIdentifizierungTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object ''' '''string workflow markup to deserialize '''Output ObjektIdentifizierungTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EinzelAbgabenSatzTAXTyp Private lfdNrAbgabensatzField As List(Of String) Private abgabensatzField As List(Of Decimal) Private bemessungsmassstabField As List(Of String) Private gehaltsangabenArtField As List(Of String) Private gehaltsangabenGradProzentField As List(Of Decimal) Private bemessungsgrundlageKzField As List(Of String) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.bemessungsgrundlageKzField = New List(Of String)() Me.gehaltsangabenGradProzentField = New List(Of Decimal)() Me.gehaltsangabenArtField = New List(Of String)() Me.bemessungsmassstabField = New List(Of String)() Me.abgabensatzField = New List(Of Decimal)() Me.lfdNrAbgabensatzField = New List(Of String)() End Sub Public Property LfdNrAbgabensatz() As List(Of String) Get Return Me.lfdNrAbgabensatzField End Get Set Me.lfdNrAbgabensatzField = Value End Set End Property Public Property Abgabensatz() As List(Of Decimal) Get Return Me.abgabensatzField End Get Set Me.abgabensatzField = Value End Set End Property Public Property Bemessungsmassstab() As List(Of String) Get Return Me.bemessungsmassstabField End Get Set Me.bemessungsmassstabField = Value End Set End Property Public Property GehaltsangabenArt() As List(Of String) Get Return Me.gehaltsangabenArtField End Get Set Me.gehaltsangabenArtField = Value End Set End Property Public Property GehaltsangabenGradProzent() As List(Of Decimal) Get Return Me.gehaltsangabenGradProzentField End Get Set Me.gehaltsangabenGradProzentField = Value End Set End Property Public Property BemessungsgrundlageKz() As List(Of String) Get Return Me.bemessungsgrundlageKzField End Get Set Me.bemessungsgrundlageKzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbgabenSatzTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EinzelAbgabenSatzTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object ''' '''string workflow markup to deserialize '''Output EinzelAbgabenSatzTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenSatzTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class AbgabengruppeTAXTyp Private abgabengruppeField As String Private abgabeArtField As String Private berechnungshinweisField As String Private errechneterAbgabenbetragField As Decimal Private errechneterAbgabenbetragFieldSpecified As Boolean Private abgabenbetragField As Decimal Private abgabenbetragFieldSpecified As Boolean Private abgabensatzKontNrField As String Private verbrauchssteuerCodeField As String Private verbrauchssteuerMengeField As Decimal Private verbrauchssteuerMengeFieldSpecified As Boolean Private verbrauchssteuerMasseinheitField As String Private verbrauchssteuerQualifikatorField As String Private verbrauchssteuerGradProzentField As Decimal Private verbrauchssteuerGradProzentFieldSpecified As Boolean Private verbrauchssteuerWertField As Decimal Private verbrauchssteuerWertFieldSpecified As Boolean Private einzelAbgabenSatzField As List(Of EinzelAbgabenSatzTAXTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.einzelAbgabenSatzField = New List(Of EinzelAbgabenSatzTAXTyp)() End Sub Public Property Abgabengruppe() As String Get Return Me.abgabengruppeField End Get Set Me.abgabengruppeField = Value End Set End Property Public Property AbgabeArt() As String Get Return Me.abgabeArtField End Get Set Me.abgabeArtField = Value End Set End Property Public Property Berechnungshinweis() As String Get Return Me.berechnungshinweisField End Get Set Me.berechnungshinweisField = Value End Set End Property Public Property ErrechneterAbgabenbetrag() As Decimal Get Return Me.errechneterAbgabenbetragField End Get Set Me.errechneterAbgabenbetragField = Value End Set End Property Public Property ErrechneterAbgabenbetragSpecified() As Boolean Get Return Me.errechneterAbgabenbetragFieldSpecified End Get Set Me.errechneterAbgabenbetragFieldSpecified = Value End Set End Property Public Property Abgabenbetrag() As Decimal Get Return Me.abgabenbetragField End Get Set Me.abgabenbetragField = Value End Set End Property Public Property AbgabenbetragSpecified() As Boolean Get Return Me.abgabenbetragFieldSpecified End Get Set Me.abgabenbetragFieldSpecified = Value End Set End Property Public Property AbgabensatzKontNr() As String Get Return Me.abgabensatzKontNrField End Get Set Me.abgabensatzKontNrField = Value End Set End Property Public Property VerbrauchssteuerCode() As String Get Return Me.verbrauchssteuerCodeField End Get Set Me.verbrauchssteuerCodeField = Value End Set End Property Public Property VerbrauchssteuerMenge() As Decimal Get Return Me.verbrauchssteuerMengeField End Get Set Me.verbrauchssteuerMengeField = Value End Set End Property Public Property VerbrauchssteuerMengeSpecified() As Boolean Get Return Me.verbrauchssteuerMengeFieldSpecified End Get Set Me.verbrauchssteuerMengeFieldSpecified = Value End Set End Property Public Property VerbrauchssteuerMasseinheit() As String Get Return Me.verbrauchssteuerMasseinheitField End Get Set Me.verbrauchssteuerMasseinheitField = Value End Set End Property Public Property VerbrauchssteuerQualifikator() As String Get Return Me.verbrauchssteuerQualifikatorField End Get Set Me.verbrauchssteuerQualifikatorField = Value End Set End Property Public Property VerbrauchssteuerGradProzent() As Decimal Get Return Me.verbrauchssteuerGradProzentField End Get Set Me.verbrauchssteuerGradProzentField = Value End Set End Property Public Property VerbrauchssteuerGradProzentSpecified() As Boolean Get Return Me.verbrauchssteuerGradProzentFieldSpecified End Get Set Me.verbrauchssteuerGradProzentFieldSpecified = Value End Set End Property Public Property VerbrauchssteuerWert() As Decimal Get Return Me.verbrauchssteuerWertField End Get Set Me.verbrauchssteuerWertField = Value End Set End Property Public Property VerbrauchssteuerWertSpecified() As Boolean Get Return Me.verbrauchssteuerWertFieldSpecified End Get Set Me.verbrauchssteuerWertFieldSpecified = Value End Set End Property Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) Get Return Me.einzelAbgabenSatzField End Get Set Me.einzelAbgabenSatzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabengruppeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbgabengruppeTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbgabengruppeTAXTyp object ''' '''string workflow markup to deserialize '''Output AbgabengruppeTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabengruppeTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabengruppeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class PauschalierungTAXTyp Private warenkategorieField As String Private kzPauschalierterAbgabensatzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Warenkategorie() As String Get Return Me.warenkategorieField End Get Set Me.warenkategorieField = Value End Set End Property Public Property KzPauschalierterAbgabensatz() As String Get Return Me.kzPauschalierterAbgabensatzField End Get Set Me.kzPauschalierterAbgabensatzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PauschalierungTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PauschalierungTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an PauschalierungTAXTyp object ''' '''string workflow markup to deserialize '''Output PauschalierungTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PauschalierungTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As PauschalierungTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PauschalierungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current PauschalierungTAXTyp 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 PauschalierungTAXTyp object ''' '''string xml file to load and deserialize '''Output PauschalierungTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PauschalierungTAXTyp) 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 PauschalierungTAXTyp) 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 PauschalierungTAXTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class AbweichendeFestsetzungTAXTyp Private feldnameField As String Private qualifikatorField As String Private qualifikatorInhaltField As String Private artAbweichendeFestsetzungField As String Private festgesetztVonField As String Private festgesetztAufField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Feldname() As String Get Return Me.feldnameField End Get Set Me.feldnameField = Value End Set End Property Public Property Qualifikator() As String Get Return Me.qualifikatorField End Get Set Me.qualifikatorField = Value End Set End Property Public Property QualifikatorInhalt() As String Get Return Me.qualifikatorInhaltField End Get Set Me.qualifikatorInhaltField = Value End Set End Property Public Property ArtAbweichendeFestsetzung() As String Get Return Me.artAbweichendeFestsetzungField End Get Set Me.artAbweichendeFestsetzungField = Value End Set End Property Public Property FestgesetztVon() As String Get Return Me.festgesetztVonField End Get Set Me.festgesetztVonField = Value End Set End Property Public Property FestgesetztAuf() As String Get Return Me.festgesetztAufField End Get Set Me.festgesetztAufField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichendeFestsetzungTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbweichendeFestsetzungTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object ''' '''string workflow markup to deserialize '''Output AbweichendeFestsetzungTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichendeFestsetzungTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class KontingentAngerechnetWarenMengeTAXTyp Private mengeField As String Private masseinheitField As String Private qualifierField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Menge() As String Get Return Me.mengeField End Get Set Me.mengeField = Value End Set End Property Public Property Masseinheit() As String Get Return Me.masseinheitField End Get Set Me.masseinheitField = Value End Set End Property Public Property Qualifier() As String Get Return Me.qualifierField End Get Set Me.qualifierField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object ''' '''string workflow markup to deserialize '''Output KontingentAngerechnetWarenMengeTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetWarenMengeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class KontingentAngerechnetTAXTyp Private kontNrAngerechnetField As String Private zollwertAngerechnetField As Decimal Private zollwertAngerechnetFieldSpecified As Boolean Private eUStKostenAngerechnetField As Decimal Private eUStKostenAngerechnetFieldSpecified As Boolean Private beguenstMengeAngerechnetField As Decimal Private beguenstMengeAngerechnetFieldSpecified As Boolean Private masseinhBegMengeAngField As String Private qualifBegMengeAngField As String Private warenMengeField As List(Of KontingentAngerechnetWarenMengeTAXTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.warenMengeField = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() End Sub Public Property KontNrAngerechnet() As String Get Return Me.kontNrAngerechnetField End Get Set Me.kontNrAngerechnetField = Value End Set End Property Public Property ZollwertAngerechnet() As Decimal Get Return Me.zollwertAngerechnetField End Get Set Me.zollwertAngerechnetField = Value End Set End Property Public Property ZollwertAngerechnetSpecified() As Boolean Get Return Me.zollwertAngerechnetFieldSpecified End Get Set Me.zollwertAngerechnetFieldSpecified = Value End Set End Property Public Property EUStKostenAngerechnet() As Decimal Get Return Me.eUStKostenAngerechnetField End Get Set Me.eUStKostenAngerechnetField = Value End Set End Property Public Property EUStKostenAngerechnetSpecified() As Boolean Get Return Me.eUStKostenAngerechnetFieldSpecified End Get Set Me.eUStKostenAngerechnetFieldSpecified = Value End Set End Property Public Property BeguenstMengeAngerechnet() As Decimal Get Return Me.beguenstMengeAngerechnetField End Get Set Me.beguenstMengeAngerechnetField = Value End Set End Property Public Property BeguenstMengeAngerechnetSpecified() As Boolean Get Return Me.beguenstMengeAngerechnetFieldSpecified End Get Set Me.beguenstMengeAngerechnetFieldSpecified = Value End Set End Property Public Property MasseinhBegMengeAng() As String Get Return Me.masseinhBegMengeAngField End Get Set Me.masseinhBegMengeAngField = Value End Set End Property Public Property QualifBegMengeAng() As String Get Return Me.qualifBegMengeAngField End Get Set Me.qualifBegMengeAngField = Value End Set End Property Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) Get Return Me.warenMengeField End Get Set Me.warenMengeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KontingentAngerechnetTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KontingentAngerechnetTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KontingentAngerechnetTAXTyp object ''' '''string workflow markup to deserialize '''Output KontingentAngerechnetTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class SonderfalleingabeTAXTyp Private sonderabgabenGruppeField As String Private anwendungsartField As String Private satzBetragFaktorField As Decimal Private satzBetragFaktorFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property SonderabgabenGruppe() As String Get Return Me.sonderabgabenGruppeField End Get Set Me.sonderabgabenGruppeField = Value End Set End Property Public Property Anwendungsart() As String Get Return Me.anwendungsartField End Get Set Me.anwendungsartField = Value End Set End Property Public Property SatzBetragFaktor() As Decimal Get Return Me.satzBetragFaktorField End Get Set Me.satzBetragFaktorField = Value End Set End Property Public Property SatzBetragFaktorSpecified() As Boolean Get Return Me.satzBetragFaktorFieldSpecified End Get Set Me.satzBetragFaktorFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderfalleingabeTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current SonderfalleingabeTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an SonderfalleingabeTAXTyp object ''' '''string workflow markup to deserialize '''Output SonderfalleingabeTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalleingabeTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderfalleingabeTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EZAAVVeredelungserzeugnisTyp Private warenbezeichnungField As String Private ausbeuteartField As String Private ausbeutesatzField As String Private kNCodeField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Warenbezeichnung() As String Get Return Me.warenbezeichnungField End Get Set Me.warenbezeichnungField = Value End Set End Property Public Property Ausbeuteart() As String Get Return Me.ausbeuteartField End Get Set Me.ausbeuteartField = Value End Set End Property Public Property Ausbeutesatz() As String Get Return Me.ausbeutesatzField End Get Set Me.ausbeutesatzField = Value End Set End Property Public Property KNCode() As String Get Return Me.kNCodeField End Get Set Me.kNCodeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EZAAVVeredelungserzeugnisTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EZAAVVeredelungserzeugnisTyp object ''' '''string workflow markup to deserialize '''Output EZAAVVeredelungserzeugnisTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVVeredelungserzeugnisTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EZAAVAngabenPosTyp Private aVWirtschaftlicheVoraussetzungenField As String Private aVVeredelungserzeugnisField As List(Of EZAAVVeredelungserzeugnisTyp) Private aVNaemlichkeitsmittelField As String Private aVErlaeuterungNaemlichkeitField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.aVVeredelungserzeugnisField = New List(Of EZAAVVeredelungserzeugnisTyp)() End Sub Public Property AVWirtschaftlicheVoraussetzungen() As String Get Return Me.aVWirtschaftlicheVoraussetzungenField End Get Set Me.aVWirtschaftlicheVoraussetzungenField = Value End Set End Property Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) Get Return Me.aVVeredelungserzeugnisField End Get Set Me.aVVeredelungserzeugnisField = Value End Set End Property Public Property AVNaemlichkeitsmittel() As String Get Return Me.aVNaemlichkeitsmittelField End Get Set Me.aVNaemlichkeitsmittelField = Value End Set End Property Public Property AVErlaeuterungNaemlichkeit() As String Get Return Me.aVErlaeuterungNaemlichkeitField End Get Set Me.aVErlaeuterungNaemlichkeitField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenPosTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EZAAVAngabenPosTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EZAAVAngabenPosTyp object ''' '''string workflow markup to deserialize '''Output EZAAVAngabenPosTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenPosTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenPosTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class AngemeldeteUnterlageTAXTyp Private unterlageArtField As String Private unterlageBereichField As String Private unterlageNrField As String Private anerkennungKzField As String Private abschreibungKzField As String Private einbehaltenKzField As String Private periodischeVorlageKzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property UnterlageArt() As String Get Return Me.unterlageArtField End Get Set Me.unterlageArtField = Value End Set End Property Public Property UnterlageBereich() As String Get Return Me.unterlageBereichField End Get Set Me.unterlageBereichField = Value End Set End Property Public Property UnterlageNr() As String Get Return Me.unterlageNrField End Get Set Me.unterlageNrField = Value End Set End Property Public Property AnerkennungKz() As String Get Return Me.anerkennungKzField End Get Set Me.anerkennungKzField = Value End Set End Property Public Property AbschreibungKz() As String Get Return Me.abschreibungKzField End Get Set Me.abschreibungKzField = Value End Set End Property Public Property EinbehaltenKz() As String Get Return Me.einbehaltenKzField End Get Set Me.einbehaltenKzField = Value End Set End Property Public Property PeriodischeVorlageKz() As String Get Return Me.periodischeVorlageKzField End Get Set Me.periodischeVorlageKzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AngemeldeteUnterlageTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AngemeldeteUnterlageTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object ''' '''string workflow markup to deserialize '''Output AngemeldeteUnterlageTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AngemeldeteUnterlageTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class KursAbzugHinzuTAXTyp Private artAbHinzuField As String Private angewandterKursField As Decimal Private angewandterKursFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ArtAbHinzu() As String Get Return Me.artAbHinzuField End Get Set Me.artAbHinzuField = Value End Set End Property Public Property AngewandterKurs() As Decimal Get Return Me.angewandterKursField End Get Set Me.angewandterKursField = Value End Set End Property Public Property AngewandterKursSpecified() As Boolean Get Return Me.angewandterKursFieldSpecified End Get Set Me.angewandterKursFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KursAbzugHinzuTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KursAbzugHinzuTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KursAbzugHinzuTAXTyp object ''' '''string workflow markup to deserialize '''Output KursAbzugHinzuTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KursAbzugHinzuTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KursAbzugHinzuTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class PositionAbgabenbescheidEinfuhrTyp Private positionsNrField As String Private erledigungKzField As String Private warenNummerEZTField As String Private warenNummerZusatzCodeField As List(Of String) Private warenBezeichnungField As String Private beschauMitteilungField As String Private erledigungMitteilungField As String Private ablehnungAenderungField As String Private weitererNachweisField As String Private gewaehrteBeguenstigungField As String Private anordnungKzField As String Private eUStWertField As Decimal Private eUStWertFieldSpecified As Boolean Private kostenFuerEUStField As Decimal Private kostenFuerEUStFieldSpecified As Boolean Private zollWertField As Decimal Private zollWertFieldSpecified As Boolean Private annahmeAenderungField As String Private sicherheitsLeistungBetragField As Decimal Private sicherheitsLeistungBetragFieldSpecified As Boolean Private registrierNrvZAAZField As String Private positionsNrInvZAAZField As String Private annahmeKzField As String Private annahmeDatumField As Date Private annahmeDatumFieldSpecified As Boolean Private ueberlassungDatumField As Date Private ueberlassungDatumFieldSpecified As Boolean Private lagerfristField As Date Private lagerfristFieldSpecified As Boolean Private wiederAusfuhrFristField As Date Private wiederAusfuhrFristFieldSpecified As Boolean Private fristWeitererNachweisField As Date Private fristWeitererNachweisFieldSpecified As Boolean Private befundField As String Private dV1AbweichendFestgesetztKzField As String Private sonderfalleingabeKzField As String Private angewandterKursNettopreisField As Decimal Private angewandterKursNettopreisFieldSpecified As Boolean Private angewandterKursMittelbZahlungenField As Decimal Private angewandterKursMittelbZahlungenFieldSpecified As Boolean Private abzugHinzurechnungenField As List(Of KursAbzugHinzuTAXTyp) Private luftFrachtGesamtProzentsatzField As String Private luftFrachtGesamtAngewandterKursField As Decimal Private luftFrachtGesamtAngewandterKursFieldSpecified As Boolean Private angemeldeteUnterlageField As List(Of AngemeldeteUnterlageTAXTyp) Private eZAAVAngabenPosField As EZAAVAngabenPosTyp Private sonderabgabenGruppeField As List(Of SonderfalleingabeTAXTyp) Private kontNrAngewandtField As List(Of String) Private kontingentAngerechnetField As List(Of KontingentAngerechnetTAXTyp) Private abweichendeFestsetzungField As List(Of AbweichendeFestsetzungTAXTyp) Private pauschalierungField As PauschalierungTAXTyp Private abgabenField As List(Of AbgabengruppeTAXTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.abgabenField = New List(Of AbgabengruppeTAXTyp)() Me.pauschalierungField = New PauschalierungTAXTyp() Me.abweichendeFestsetzungField = New List(Of AbweichendeFestsetzungTAXTyp)() Me.kontingentAngerechnetField = New List(Of KontingentAngerechnetTAXTyp)() Me.kontNrAngewandtField = New List(Of String)() Me.sonderabgabenGruppeField = New List(Of SonderfalleingabeTAXTyp)() Me.eZAAVAngabenPosField = New EZAAVAngabenPosTyp() Me.angemeldeteUnterlageField = New List(Of AngemeldeteUnterlageTAXTyp)() Me.abzugHinzurechnungenField = New List(Of KursAbzugHinzuTAXTyp)() Me.warenNummerZusatzCodeField = New List(Of String)() End Sub Public Property PositionsNr() As String Get Return Me.positionsNrField End Get Set Me.positionsNrField = Value End Set End Property Public Property ErledigungKz() As String Get Return Me.erledigungKzField End Get Set Me.erledigungKzField = Value End Set End Property Public Property WarenNummerEZT() As String Get Return Me.warenNummerEZTField End Get Set Me.warenNummerEZTField = Value End Set End Property Public Property WarenNummerZusatzCode() As List(Of String) Get Return Me.warenNummerZusatzCodeField End Get Set Me.warenNummerZusatzCodeField = Value End Set End Property Public Property WarenBezeichnung() As String Get Return Me.warenBezeichnungField End Get Set Me.warenBezeichnungField = Value End Set End Property Public Property BeschauMitteilung() As String Get Return Me.beschauMitteilungField End Get Set Me.beschauMitteilungField = Value End Set End Property Public Property ErledigungMitteilung() As String Get Return Me.erledigungMitteilungField End Get Set Me.erledigungMitteilungField = Value End Set End Property Public Property AblehnungAenderung() As String Get Return Me.ablehnungAenderungField End Get Set Me.ablehnungAenderungField = Value End Set End Property Public Property WeitererNachweis() As String Get Return Me.weitererNachweisField End Get Set Me.weitererNachweisField = Value End Set End Property Public Property GewaehrteBeguenstigung() As String Get Return Me.gewaehrteBeguenstigungField End Get Set Me.gewaehrteBeguenstigungField = Value End Set End Property Public Property AnordnungKz() As String Get Return Me.anordnungKzField End Get Set Me.anordnungKzField = Value End Set End Property Public Property EUStWert() As Decimal Get Return Me.eUStWertField End Get Set Me.eUStWertField = Value End Set End Property Public Property EUStWertSpecified() As Boolean Get Return Me.eUStWertFieldSpecified End Get Set Me.eUStWertFieldSpecified = Value End Set End Property Public Property KostenFuerEUSt() As Decimal Get Return Me.kostenFuerEUStField End Get Set Me.kostenFuerEUStField = Value End Set End Property Public Property KostenFuerEUStSpecified() As Boolean Get Return Me.kostenFuerEUStFieldSpecified End Get Set Me.kostenFuerEUStFieldSpecified = Value End Set End Property Public Property ZollWert() As Decimal Get Return Me.zollWertField End Get Set Me.zollWertField = Value End Set End Property Public Property ZollWertSpecified() As Boolean Get Return Me.zollWertFieldSpecified End Get Set Me.zollWertFieldSpecified = Value End Set End Property Public Property AnnahmeAenderung() As String Get Return Me.annahmeAenderungField End Get Set Me.annahmeAenderungField = Value End Set End Property Public Property SicherheitsLeistungBetrag() As Decimal Get Return Me.sicherheitsLeistungBetragField End Get Set Me.sicherheitsLeistungBetragField = Value End Set End Property Public Property SicherheitsLeistungBetragSpecified() As Boolean Get Return Me.sicherheitsLeistungBetragFieldSpecified End Get Set Me.sicherheitsLeistungBetragFieldSpecified = Value End Set End Property Public Property RegistrierNrvZAAZ() As String Get Return Me.registrierNrvZAAZField End Get Set Me.registrierNrvZAAZField = Value End Set End Property Public Property PositionsNrInvZAAZ() As String Get Return Me.positionsNrInvZAAZField End Get Set Me.positionsNrInvZAAZField = Value End Set End Property Public Property AnnahmeKz() As String Get Return Me.annahmeKzField End Get Set Me.annahmeKzField = Value End Set End Property Public Property AnnahmeDatum() As Date Get Return Me.annahmeDatumField End Get Set Me.annahmeDatumField = Value End Set End Property Public Property AnnahmeDatumSpecified() As Boolean Get Return Me.annahmeDatumFieldSpecified End Get Set Me.annahmeDatumFieldSpecified = Value End Set End Property Public Property UeberlassungDatum() As Date Get Return Me.ueberlassungDatumField End Get Set Me.ueberlassungDatumField = Value End Set End Property Public Property UeberlassungDatumSpecified() As Boolean Get Return Me.ueberlassungDatumFieldSpecified End Get Set Me.ueberlassungDatumFieldSpecified = Value End Set End Property Public Property Lagerfrist() As Date Get Return Me.lagerfristField End Get Set Me.lagerfristField = Value End Set End Property Public Property LagerfristSpecified() As Boolean Get Return Me.lagerfristFieldSpecified End Get Set Me.lagerfristFieldSpecified = Value End Set End Property Public Property WiederAusfuhrFrist() As Date Get Return Me.wiederAusfuhrFristField End Get Set Me.wiederAusfuhrFristField = Value End Set End Property Public Property WiederAusfuhrFristSpecified() As Boolean Get Return Me.wiederAusfuhrFristFieldSpecified End Get Set Me.wiederAusfuhrFristFieldSpecified = Value End Set End Property Public Property FristWeitererNachweis() As Date Get Return Me.fristWeitererNachweisField End Get Set Me.fristWeitererNachweisField = Value End Set End Property Public Property FristWeitererNachweisSpecified() As Boolean Get Return Me.fristWeitererNachweisFieldSpecified End Get Set Me.fristWeitererNachweisFieldSpecified = Value End Set End Property Public Property Befund() As String Get Return Me.befundField End Get Set Me.befundField = Value End Set End Property Public Property DV1AbweichendFestgesetztKz() As String Get Return Me.dV1AbweichendFestgesetztKzField End Get Set Me.dV1AbweichendFestgesetztKzField = Value End Set End Property Public Property SonderfalleingabeKz() As String Get Return Me.sonderfalleingabeKzField End Get Set Me.sonderfalleingabeKzField = Value End Set End Property Public Property AngewandterKursNettopreis() As Decimal Get Return Me.angewandterKursNettopreisField End Get Set Me.angewandterKursNettopreisField = Value End Set End Property Public Property AngewandterKursNettopreisSpecified() As Boolean Get Return Me.angewandterKursNettopreisFieldSpecified End Get Set Me.angewandterKursNettopreisFieldSpecified = Value End Set End Property Public Property AngewandterKursMittelbZahlungen() As Decimal Get Return Me.angewandterKursMittelbZahlungenField End Get Set Me.angewandterKursMittelbZahlungenField = Value End Set End Property Public Property AngewandterKursMittelbZahlungenSpecified() As Boolean Get Return Me.angewandterKursMittelbZahlungenFieldSpecified End Get Set Me.angewandterKursMittelbZahlungenFieldSpecified = Value End Set End Property Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) Get Return Me.abzugHinzurechnungenField End Get Set Me.abzugHinzurechnungenField = Value End Set End Property Public Property LuftFrachtGesamtProzentsatz() As String Get Return Me.luftFrachtGesamtProzentsatzField End Get Set Me.luftFrachtGesamtProzentsatzField = Value End Set End Property Public Property LuftFrachtGesamtAngewandterKurs() As Decimal Get Return Me.luftFrachtGesamtAngewandterKursField End Get Set Me.luftFrachtGesamtAngewandterKursField = Value End Set End Property Public Property LuftFrachtGesamtAngewandterKursSpecified() As Boolean Get Return Me.luftFrachtGesamtAngewandterKursFieldSpecified End Get Set Me.luftFrachtGesamtAngewandterKursFieldSpecified = Value End Set End Property Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) Get Return Me.angemeldeteUnterlageField End Get Set Me.angemeldeteUnterlageField = Value End Set End Property Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp Get Return Me.eZAAVAngabenPosField End Get Set Me.eZAAVAngabenPosField = Value End Set End Property Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) Get Return Me.sonderabgabenGruppeField End Get Set Me.sonderabgabenGruppeField = Value End Set End Property Public Property KontNrAngewandt() As List(Of String) Get Return Me.kontNrAngewandtField End Get Set Me.kontNrAngewandtField = Value End Set End Property Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) Get Return Me.kontingentAngerechnetField End Get Set Me.kontingentAngerechnetField = Value End Set End Property Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) Get Return Me.abweichendeFestsetzungField End Get Set Me.abweichendeFestsetzungField = Value End Set End Property Public Property Pauschalierung() As PauschalierungTAXTyp Get Return Me.pauschalierungField End Get Set Me.pauschalierungField = Value End Set End Property Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) Get Return Me.abgabenField End Get Set Me.abgabenField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object ''' '''string workflow markup to deserialize '''Output PositionAbgabenbescheidEinfuhrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbgabenbescheidEinfuhrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp Private strasseField As String Private landField As String Private pLZField As String Private ortField As String Private ortsteilField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Strasse() As String Get Return Me.strasseField End Get Set Me.strasseField = Value End Set End Property Public Property Land() As String Get Return Me.landField End Get Set Me.landField = Value End Set End Property Public Property PLZ() As String Get Return Me.pLZField End Get Set Me.pLZField = Value End Set End Property Public Property Ort() As String Get Return Me.ortField End Get Set Me.ortField = Value End Set End Property Public Property Ortsteil() As String Get Return Me.ortsteilField End Get Set Me.ortsteilField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object ''' '''string workflow markup to deserialize '''Output EZAAVAngabenKopfWeitererVeredelungsortTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class EZAAVAngabenKopfTyp Private kzBemessungEinfuhrabgabenbetragField As String Private kzAbrechnungField As String Private kzVereinfBefoerderungField As String Private zusaetzlicheAngabenField As String Private kzVerzichtSicherheitField As String Private erlaeuterungenZurSicherheitField As String Private betragDerSicherheitField As Decimal Private betragDerSicherheitFieldSpecified As Boolean Private deutschesUeHZAField As String Private einzelheitenGeplantVeredelungsvorgangField As String Private hauptbuchhaltungStrasseField As String Private hauptbuchhaltungLandField As String Private hauptbuchhaltungPLZField As String Private hauptbuchhaltungOrtField As String Private hauptbuchhaltungOrtsteilField As String Private veredelungStrasseField As String Private veredelungLandField As String Private veredelungPLZField As String Private veredelungOrtField As String Private veredelungOrtsteilField As String Private weitererVeredelungsortField As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) Private zollstelleErledigungField As List(Of String) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.zollstelleErledigungField = New List(Of String)() Me.weitererVeredelungsortField = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() End Sub Public Property KzBemessungEinfuhrabgabenbetrag() As String Get Return Me.kzBemessungEinfuhrabgabenbetragField End Get Set Me.kzBemessungEinfuhrabgabenbetragField = Value End Set End Property Public Property KzAbrechnung() As String Get Return Me.kzAbrechnungField End Get Set Me.kzAbrechnungField = Value End Set End Property Public Property KzVereinfBefoerderung() As String Get Return Me.kzVereinfBefoerderungField End Get Set Me.kzVereinfBefoerderungField = Value End Set End Property Public Property ZusaetzlicheAngaben() As String Get Return Me.zusaetzlicheAngabenField End Get Set Me.zusaetzlicheAngabenField = Value End Set End Property Public Property KzVerzichtSicherheit() As String Get Return Me.kzVerzichtSicherheitField End Get Set Me.kzVerzichtSicherheitField = Value End Set End Property Public Property ErlaeuterungenZurSicherheit() As String Get Return Me.erlaeuterungenZurSicherheitField End Get Set Me.erlaeuterungenZurSicherheitField = Value End Set End Property Public Property BetragDerSicherheit() As Decimal Get Return Me.betragDerSicherheitField End Get Set Me.betragDerSicherheitField = Value End Set End Property Public Property BetragDerSicherheitSpecified() As Boolean Get Return Me.betragDerSicherheitFieldSpecified End Get Set Me.betragDerSicherheitFieldSpecified = Value End Set End Property Public Property DeutschesUeHZA() As String Get Return Me.deutschesUeHZAField End Get Set Me.deutschesUeHZAField = Value End Set End Property Public Property EinzelheitenGeplantVeredelungsvorgang() As String Get Return Me.einzelheitenGeplantVeredelungsvorgangField End Get Set Me.einzelheitenGeplantVeredelungsvorgangField = Value End Set End Property Public Property HauptbuchhaltungStrasse() As String Get Return Me.hauptbuchhaltungStrasseField End Get Set Me.hauptbuchhaltungStrasseField = Value End Set End Property Public Property HauptbuchhaltungLand() As String Get Return Me.hauptbuchhaltungLandField End Get Set Me.hauptbuchhaltungLandField = Value End Set End Property Public Property HauptbuchhaltungPLZ() As String Get Return Me.hauptbuchhaltungPLZField End Get Set Me.hauptbuchhaltungPLZField = Value End Set End Property Public Property HauptbuchhaltungOrt() As String Get Return Me.hauptbuchhaltungOrtField End Get Set Me.hauptbuchhaltungOrtField = Value End Set End Property Public Property HauptbuchhaltungOrtsteil() As String Get Return Me.hauptbuchhaltungOrtsteilField End Get Set Me.hauptbuchhaltungOrtsteilField = Value End Set End Property Public Property VeredelungStrasse() As String Get Return Me.veredelungStrasseField End Get Set Me.veredelungStrasseField = Value End Set End Property Public Property VeredelungLand() As String Get Return Me.veredelungLandField End Get Set Me.veredelungLandField = Value End Set End Property Public Property VeredelungPLZ() As String Get Return Me.veredelungPLZField End Get Set Me.veredelungPLZField = Value End Set End Property Public Property VeredelungOrt() As String Get Return Me.veredelungOrtField End Get Set Me.veredelungOrtField = Value End Set End Property Public Property VeredelungOrtsteil() As String Get Return Me.veredelungOrtsteilField End Get Set Me.veredelungOrtsteilField = Value End Set End Property Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) Get Return Me.weitererVeredelungsortField End Get Set Me.weitererVeredelungsortField = Value End Set End Property Public Property ZollstelleErledigung() As List(Of String) Get Return Me.zollstelleErledigungField End Get Set Me.zollstelleErledigungField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenKopfTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EZAAVAngabenKopfTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EZAAVAngabenKopfTyp object ''' '''string workflow markup to deserialize '''Output EZAAVAngabenKopfTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class SicherheitTAXTyp Private einzelbetragUnbareSicherheitField As Decimal Private einzelbetragUnbareSicherheitFieldSpecified As Boolean Private artUnbareSicherheitsleistungField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property EinzelbetragUnbareSicherheit() As Decimal Get Return Me.einzelbetragUnbareSicherheitField End Get Set Me.einzelbetragUnbareSicherheitField = Value End Set End Property Public Property EinzelbetragUnbareSicherheitSpecified() As Boolean Get Return Me.einzelbetragUnbareSicherheitFieldSpecified End Get Set Me.einzelbetragUnbareSicherheitFieldSpecified = Value End Set End Property Public Property ArtUnbareSicherheitsleistung() As String Get Return Me.artUnbareSicherheitsleistungField End Get Set Me.artUnbareSicherheitsleistungField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SicherheitTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current SicherheitTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an SicherheitTAXTyp object ''' '''string workflow markup to deserialize '''Output SicherheitTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As SicherheitTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SicherheitTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class AbgabenNachArtKopfTAXTyp Private abgabeArtField As String Private abgabenbetragField As Decimal Private abgabenbetragFieldSpecified As Boolean Private zahlungsartField As String Private aufschubnehmerNameField As String Private aufschubnehmerTINField As String Private artAufschubAntragField As String Private kennBuchstabenAufschubField As String Private aufschubkontoNrField As String Private faelligkeitField As Date Private faelligkeitFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property AbgabeArt() As String Get Return Me.abgabeArtField End Get Set Me.abgabeArtField = Value End Set End Property Public Property Abgabenbetrag() As Decimal Get Return Me.abgabenbetragField End Get Set Me.abgabenbetragField = Value End Set End Property Public Property AbgabenbetragSpecified() As Boolean Get Return Me.abgabenbetragFieldSpecified End Get Set Me.abgabenbetragFieldSpecified = Value End Set End Property Public Property Zahlungsart() As String Get Return Me.zahlungsartField End Get Set Me.zahlungsartField = Value End Set End Property Public Property AufschubnehmerName() As String Get Return Me.aufschubnehmerNameField End Get Set Me.aufschubnehmerNameField = Value End Set End Property Public Property AufschubnehmerTIN() As String Get Return Me.aufschubnehmerTINField End Get Set Me.aufschubnehmerTINField = Value End Set End Property Public Property ArtAufschubAntrag() As String Get Return Me.artAufschubAntragField End Get Set Me.artAufschubAntragField = Value End Set End Property Public Property KennBuchstabenAufschub() As String Get Return Me.kennBuchstabenAufschubField End Get Set Me.kennBuchstabenAufschubField = Value End Set End Property Public Property AufschubkontoNr() As String Get Return Me.aufschubkontoNrField End Get Set Me.aufschubkontoNrField = Value End Set End Property Public Property Faelligkeit() As Date Get Return Me.faelligkeitField End Get Set Me.faelligkeitField = Value End Set End Property Public Property FaelligkeitSpecified() As Boolean Get Return Me.faelligkeitFieldSpecified End Get Set Me.faelligkeitFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenNachArtKopfTAXTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbgabenNachArtKopfTAXTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object ''' '''string workflow markup to deserialize '''Output AbgabenNachArtKopfTAXTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenNachArtKopfTAXTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class KopfDatenEinfuhrbescheidTyp Private artAnmeldungField As String Private erledigungKopfKzField As String Private waehrungField As String Private gesamtabgabenBetragField As Decimal Private gesamtabgabenBetragFieldSpecified As Boolean Private abgabenbetragZuZahlenField As Decimal Private abgabenbetragZuZahlenFieldSpecified As Boolean Private abgabenbetragZuErstattenField As Decimal Private abgabenbetragZuErstattenFieldSpecified As Boolean Private vertretungsverhaeltnisField As String Private zahlungsaufforderungArtAufschubField As String Private zahlungsaufforderungArtAbgabenField As String Private zahlungsaufforderungArtSicherheitField As String Private kleinbetragKzField As String Private kleinbetragRechtsbehelfField As String Private gesamtschuldnerschaftKzField As String Private eingangszollstelleGeaendertKzField As String Private aVbewilligtKzField As String Private benutzererstelltKzField As String Private eUStKzField As String Private registriernummerField As String Private registrierdatumField As Date Private registrierdatumFieldSpecified As Boolean Private nizzaRegistrierKzField As String Private nizzaRegistrierKzSicherheitField As String Private abgabenNachArtField As List(Of AbgabenNachArtKopfTAXTyp) Private gesamtsicherheitssummeField As Decimal Private gesamtsicherheitssummeFieldSpecified As Boolean Private errechneteSicherheitsSummeField As Decimal Private errechneteSicherheitsSummeFieldSpecified As Boolean Private unbarSicherheitsbetraegeField As Decimal Private unbarSicherheitsbetraegeFieldSpecified As Boolean Private barSicherheitsbetraegeField As Decimal Private barSicherheitsbetraegeFieldSpecified As Boolean Private freizugebenSicherheitField As Decimal Private freizugebenSicherheitFieldSpecified As Boolean Private auszuzahlenSicherheitField As Decimal Private auszuzahlenSicherheitFieldSpecified As Boolean Private einbehaltenSicherheitField As Decimal Private einbehaltenSicherheitFieldSpecified As Boolean Private sicherheitsleistungFormField As String Private sicherheitsleistungsVerzichtField As String Private auszahlungsArtField As String Private unbareSicherheitenField As List(Of SicherheitTAXTyp) Private bescheidendeDienststelleNrField As String Private bescheidendeDienststelleNameField As String Private bescheidendeDienststelleStrasseHausNrField As String Private bescheidendeDienststelleOrtSField As String Private bescheidendeDienststellePLZSField As String Private bearbeiterField As String Private bescheidendeDienststelleTelefonNrField As String Private rechtsbehelfHauptzollamtField As String Private rechtsbehelfHZAEmailAdresseField As String Private rechtsbehelfHZADEmailAdresseField As String Private rechtsbehelfHauptzollamtStrHausNrField As String Private rechtsbehelfHauptzollamtPLZSField As String Private rechtsbehelfHauptzollamtOrtSField As String Private rechtsbehelfHauptzollamtOrtsteilField As String Private rechtsbehelfHauptzollamtPostfachField As String Private rechtsbehelfHauptzollamtPLZPField As String Private rechtsbehelfHauptzollamtOrtPField As String Private zollzahlstelleField As String Private zollzahlstelleKreditinstitutField As String Private zollzahlstelleStrasseHausNrField As String Private zollzahlstellePLZSField As String Private zollzahlstelleOrtSField As String Private zollzahlstellePostfachField As String Private zollzahlstellePLZPField As String Private zollzahlstelleOrtPField As String Private zollzahlstelleIBANField As String Private zollzahlstelleBICField As String Private anmelderEORIField As String Private anmelderNLNRField As String Private vorsteuerabzugKzField As String Private anmelderNameField As String Private anmelderNationalitaetField As String Private anmelderStrasseHausNrField As String Private anmelderPLZSField As String Private anmelderOrtSField As String Private anmelderOrtsteilField As String Private vertreterEORIField As String Private vertreterNLNRField As String Private vertreterNameField As String Private vertreterNationalitaetField As String Private vertreterStrasseHausNrField As String Private vertreterPLZSField As String Private vertreterOrtSField As String Private vertreterOrtsteilField As String Private fRechnungEORIField As String Private fRechnungNLNRField As String Private fRechnungNationalitaetField As String Private fRechnungNameField As String Private fRechnungStrasseHausNrField As String Private fRechnungPLZSField As String Private fRechnungOrtSField As String Private fRechnungOrtsteilField As String Private empfaengerEORIField As String Private empfaengerNLNRField As String Private empfaengerNationalitaetField As String Private empfaengerNameField As String Private empfaengerStrasseHausNrField As String Private empfaengerPLZSField As String Private empfaengerOrtSField As String Private empfaengerOrtsteilField As String Private zahlungsEmpfaengerEORIField As String Private zahlungsEmpfaengerNLNRField As String Private zahlungsEmpfaengerKreditinstitutField As String Private zahlungsEmpfaengerNameField As String Private zahlungsEmpfaengerNationalitaetField As String Private zahlungsEmpfaengerStrasseHausNrField As String Private zahlungsEmpfaengerPLZSField As String Private zahlungsEmpfaengerOrtSField As String Private zahlungsEmpfaengerOrtsteilField As String Private zahlungsEmpfaengerIBANField As String Private zahlungsEmpfaengerBICField As String Private erstellungsDatumBefundField As Date Private erstellungsDatumBefundFieldSpecified As Boolean Private erfassungsdatumField As Date Private erfassungsdatumFieldSpecified As Boolean Private barzahlungFaelligkeitField As Date Private barzahlungFaelligkeitFieldSpecified As Boolean Private sicherheitsleistungFaelligkeitField As Date Private sicherheitsleistungFaelligkeitFieldSpecified As Boolean Private abrechnungszeitraumBeginnField As Date Private abrechnungszeitraumBeginnFieldSpecified As Boolean Private abrechnungszeitraumEndeField As Date Private abrechnungszeitraumEndeFieldSpecified As Boolean Private zollbefundField As String Private eZAAVAngabenKopfField As EZAAVAngabenKopfTyp Private lieferbedingungCodeField As String Private lieferbedingungTextField As String Private lieferbedingungOrtField As String Private lieferbedingungSchluesselField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.eZAAVAngabenKopfField = New EZAAVAngabenKopfTyp() Me.unbareSicherheitenField = New List(Of SicherheitTAXTyp)() Me.abgabenNachArtField = New List(Of AbgabenNachArtKopfTAXTyp)() End Sub Public Property ArtAnmeldung() As String Get Return Me.artAnmeldungField End Get Set Me.artAnmeldungField = Value End Set End Property Public Property ErledigungKopfKz() As String Get Return Me.erledigungKopfKzField End Get Set Me.erledigungKopfKzField = Value End Set End Property Public Property Waehrung() As String Get Return Me.waehrungField End Get Set Me.waehrungField = Value End Set End Property Public Property GesamtabgabenBetrag() As Decimal Get Return Me.gesamtabgabenBetragField End Get Set Me.gesamtabgabenBetragField = Value End Set End Property Public Property GesamtabgabenBetragSpecified() As Boolean Get Return Me.gesamtabgabenBetragFieldSpecified End Get Set Me.gesamtabgabenBetragFieldSpecified = Value End Set End Property Public Property AbgabenbetragZuZahlen() As Decimal Get Return Me.abgabenbetragZuZahlenField End Get Set Me.abgabenbetragZuZahlenField = Value End Set End Property Public Property AbgabenbetragZuZahlenSpecified() As Boolean Get Return Me.abgabenbetragZuZahlenFieldSpecified End Get Set Me.abgabenbetragZuZahlenFieldSpecified = Value End Set End Property Public Property AbgabenbetragZuErstatten() As Decimal Get Return Me.abgabenbetragZuErstattenField End Get Set Me.abgabenbetragZuErstattenField = Value End Set End Property Public Property AbgabenbetragZuErstattenSpecified() As Boolean Get Return Me.abgabenbetragZuErstattenFieldSpecified End Get Set Me.abgabenbetragZuErstattenFieldSpecified = Value End Set End Property Public Property Vertretungsverhaeltnis() As String Get Return Me.vertretungsverhaeltnisField End Get Set Me.vertretungsverhaeltnisField = Value End Set End Property Public Property ZahlungsaufforderungArtAufschub() As String Get Return Me.zahlungsaufforderungArtAufschubField End Get Set Me.zahlungsaufforderungArtAufschubField = Value End Set End Property Public Property ZahlungsaufforderungArtAbgaben() As String Get Return Me.zahlungsaufforderungArtAbgabenField End Get Set Me.zahlungsaufforderungArtAbgabenField = Value End Set End Property Public Property ZahlungsaufforderungArtSicherheit() As String Get Return Me.zahlungsaufforderungArtSicherheitField End Get Set Me.zahlungsaufforderungArtSicherheitField = Value End Set End Property Public Property KleinbetragKz() As String Get Return Me.kleinbetragKzField End Get Set Me.kleinbetragKzField = Value End Set End Property Public Property KleinbetragRechtsbehelf() As String Get Return Me.kleinbetragRechtsbehelfField End Get Set Me.kleinbetragRechtsbehelfField = Value End Set End Property Public Property GesamtschuldnerschaftKz() As String Get Return Me.gesamtschuldnerschaftKzField End Get Set Me.gesamtschuldnerschaftKzField = Value End Set End Property Public Property EingangszollstelleGeaendertKz() As String Get Return Me.eingangszollstelleGeaendertKzField End Get Set Me.eingangszollstelleGeaendertKzField = Value End Set End Property Public Property AVbewilligtKz() As String Get Return Me.aVbewilligtKzField End Get Set Me.aVbewilligtKzField = Value End Set End Property Public Property BenutzererstelltKz() As String Get Return Me.benutzererstelltKzField End Get Set Me.benutzererstelltKzField = Value End Set End Property Public Property EUStKz() As String Get Return Me.eUStKzField End Get Set Me.eUStKzField = Value End Set End Property Public Property Registriernummer() As String Get Return Me.registriernummerField End Get Set Me.registriernummerField = Value End Set End Property Public Property Registrierdatum() As Date Get Return Me.registrierdatumField End Get Set Me.registrierdatumField = Value End Set End Property Public Property RegistrierdatumSpecified() As Boolean Get Return Me.registrierdatumFieldSpecified End Get Set Me.registrierdatumFieldSpecified = Value End Set End Property Public Property NizzaRegistrierKz() As String Get Return Me.nizzaRegistrierKzField End Get Set Me.nizzaRegistrierKzField = Value End Set End Property Public Property NizzaRegistrierKzSicherheit() As String Get Return Me.nizzaRegistrierKzSicherheitField End Get Set Me.nizzaRegistrierKzSicherheitField = Value End Set End Property Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) Get Return Me.abgabenNachArtField End Get Set Me.abgabenNachArtField = Value End Set End Property Public Property Gesamtsicherheitssumme() As Decimal Get Return Me.gesamtsicherheitssummeField End Get Set Me.gesamtsicherheitssummeField = Value End Set End Property Public Property GesamtsicherheitssummeSpecified() As Boolean Get Return Me.gesamtsicherheitssummeFieldSpecified End Get Set Me.gesamtsicherheitssummeFieldSpecified = Value End Set End Property Public Property ErrechneteSicherheitsSumme() As Decimal Get Return Me.errechneteSicherheitsSummeField End Get Set Me.errechneteSicherheitsSummeField = Value End Set End Property Public Property ErrechneteSicherheitsSummeSpecified() As Boolean Get Return Me.errechneteSicherheitsSummeFieldSpecified End Get Set Me.errechneteSicherheitsSummeFieldSpecified = Value End Set End Property Public Property UnbarSicherheitsbetraege() As Decimal Get Return Me.unbarSicherheitsbetraegeField End Get Set Me.unbarSicherheitsbetraegeField = Value End Set End Property Public Property UnbarSicherheitsbetraegeSpecified() As Boolean Get Return Me.unbarSicherheitsbetraegeFieldSpecified End Get Set Me.unbarSicherheitsbetraegeFieldSpecified = Value End Set End Property Public Property BarSicherheitsbetraege() As Decimal Get Return Me.barSicherheitsbetraegeField End Get Set Me.barSicherheitsbetraegeField = Value End Set End Property Public Property BarSicherheitsbetraegeSpecified() As Boolean Get Return Me.barSicherheitsbetraegeFieldSpecified End Get Set Me.barSicherheitsbetraegeFieldSpecified = Value End Set End Property Public Property FreizugebenSicherheit() As Decimal Get Return Me.freizugebenSicherheitField End Get Set Me.freizugebenSicherheitField = Value End Set End Property Public Property FreizugebenSicherheitSpecified() As Boolean Get Return Me.freizugebenSicherheitFieldSpecified End Get Set Me.freizugebenSicherheitFieldSpecified = Value End Set End Property Public Property AuszuzahlenSicherheit() As Decimal Get Return Me.auszuzahlenSicherheitField End Get Set Me.auszuzahlenSicherheitField = Value End Set End Property Public Property AuszuzahlenSicherheitSpecified() As Boolean Get Return Me.auszuzahlenSicherheitFieldSpecified End Get Set Me.auszuzahlenSicherheitFieldSpecified = Value End Set End Property Public Property EinbehaltenSicherheit() As Decimal Get Return Me.einbehaltenSicherheitField End Get Set Me.einbehaltenSicherheitField = Value End Set End Property Public Property EinbehaltenSicherheitSpecified() As Boolean Get Return Me.einbehaltenSicherheitFieldSpecified End Get Set Me.einbehaltenSicherheitFieldSpecified = Value End Set End Property Public Property SicherheitsleistungForm() As String Get Return Me.sicherheitsleistungFormField End Get Set Me.sicherheitsleistungFormField = Value End Set End Property Public Property SicherheitsleistungsVerzicht() As String Get Return Me.sicherheitsleistungsVerzichtField End Get Set Me.sicherheitsleistungsVerzichtField = Value End Set End Property Public Property AuszahlungsArt() As String Get Return Me.auszahlungsArtField End Get Set Me.auszahlungsArtField = Value End Set End Property Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) Get Return Me.unbareSicherheitenField End Get Set Me.unbareSicherheitenField = Value End Set End Property Public Property BescheidendeDienststelleNr() As String Get Return Me.bescheidendeDienststelleNrField End Get Set Me.bescheidendeDienststelleNrField = Value End Set End Property Public Property BescheidendeDienststelleName() As String Get Return Me.bescheidendeDienststelleNameField End Get Set Me.bescheidendeDienststelleNameField = Value End Set End Property Public Property BescheidendeDienststelleStrasseHausNr() As String Get Return Me.bescheidendeDienststelleStrasseHausNrField End Get Set Me.bescheidendeDienststelleStrasseHausNrField = Value End Set End Property Public Property BescheidendeDienststelleOrtS() As String Get Return Me.bescheidendeDienststelleOrtSField End Get Set Me.bescheidendeDienststelleOrtSField = Value End Set End Property Public Property BescheidendeDienststellePLZS() As String Get Return Me.bescheidendeDienststellePLZSField End Get Set Me.bescheidendeDienststellePLZSField = Value End Set End Property Public Property Bearbeiter() As String Get Return Me.bearbeiterField End Get Set Me.bearbeiterField = Value End Set End Property Public Property BescheidendeDienststelleTelefonNr() As String Get Return Me.bescheidendeDienststelleTelefonNrField End Get Set Me.bescheidendeDienststelleTelefonNrField = Value End Set End Property Public Property RechtsbehelfHauptzollamt() As String Get Return Me.rechtsbehelfHauptzollamtField End Get Set Me.rechtsbehelfHauptzollamtField = Value End Set End Property Public Property RechtsbehelfHZAEmailAdresse() As String Get Return Me.rechtsbehelfHZAEmailAdresseField End Get Set Me.rechtsbehelfHZAEmailAdresseField = Value End Set End Property Public Property RechtsbehelfHZADEmailAdresse() As String Get Return Me.rechtsbehelfHZADEmailAdresseField End Get Set Me.rechtsbehelfHZADEmailAdresseField = Value End Set End Property Public Property RechtsbehelfHauptzollamtStrHausNr() As String Get Return Me.rechtsbehelfHauptzollamtStrHausNrField End Get Set Me.rechtsbehelfHauptzollamtStrHausNrField = Value End Set End Property Public Property RechtsbehelfHauptzollamtPLZS() As String Get Return Me.rechtsbehelfHauptzollamtPLZSField End Get Set Me.rechtsbehelfHauptzollamtPLZSField = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtS() As String Get Return Me.rechtsbehelfHauptzollamtOrtSField End Get Set Me.rechtsbehelfHauptzollamtOrtSField = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtsteil() As String Get Return Me.rechtsbehelfHauptzollamtOrtsteilField End Get Set Me.rechtsbehelfHauptzollamtOrtsteilField = Value End Set End Property Public Property RechtsbehelfHauptzollamtPostfach() As String Get Return Me.rechtsbehelfHauptzollamtPostfachField End Get Set Me.rechtsbehelfHauptzollamtPostfachField = Value End Set End Property Public Property RechtsbehelfHauptzollamtPLZP() As String Get Return Me.rechtsbehelfHauptzollamtPLZPField End Get Set Me.rechtsbehelfHauptzollamtPLZPField = Value End Set End Property Public Property RechtsbehelfHauptzollamtOrtP() As String Get Return Me.rechtsbehelfHauptzollamtOrtPField End Get Set Me.rechtsbehelfHauptzollamtOrtPField = Value End Set End Property Public Property Zollzahlstelle() As String Get Return Me.zollzahlstelleField End Get Set Me.zollzahlstelleField = Value End Set End Property Public Property ZollzahlstelleKreditinstitut() As String Get Return Me.zollzahlstelleKreditinstitutField End Get Set Me.zollzahlstelleKreditinstitutField = Value End Set End Property Public Property ZollzahlstelleStrasseHausNr() As String Get Return Me.zollzahlstelleStrasseHausNrField End Get Set Me.zollzahlstelleStrasseHausNrField = Value End Set End Property Public Property ZollzahlstellePLZS() As String Get Return Me.zollzahlstellePLZSField End Get Set Me.zollzahlstellePLZSField = Value End Set End Property Public Property ZollzahlstelleOrtS() As String Get Return Me.zollzahlstelleOrtSField End Get Set Me.zollzahlstelleOrtSField = Value End Set End Property Public Property ZollzahlstellePostfach() As String Get Return Me.zollzahlstellePostfachField End Get Set Me.zollzahlstellePostfachField = Value End Set End Property Public Property ZollzahlstellePLZP() As String Get Return Me.zollzahlstellePLZPField End Get Set Me.zollzahlstellePLZPField = Value End Set End Property Public Property ZollzahlstelleOrtP() As String Get Return Me.zollzahlstelleOrtPField End Get Set Me.zollzahlstelleOrtPField = Value End Set End Property Public Property ZollzahlstelleIBAN() As String Get Return Me.zollzahlstelleIBANField End Get Set Me.zollzahlstelleIBANField = Value End Set End Property Public Property ZollzahlstelleBIC() As String Get Return Me.zollzahlstelleBICField End Get Set Me.zollzahlstelleBICField = Value End Set End Property Public Property AnmelderEORI() As String Get Return Me.anmelderEORIField End Get Set Me.anmelderEORIField = Value End Set End Property Public Property AnmelderNLNR() As String Get Return Me.anmelderNLNRField End Get Set Me.anmelderNLNRField = Value End Set End Property Public Property VorsteuerabzugKz() As String Get Return Me.vorsteuerabzugKzField End Get Set Me.vorsteuerabzugKzField = Value End Set End Property Public Property AnmelderName() As String Get Return Me.anmelderNameField End Get Set Me.anmelderNameField = Value End Set End Property Public Property AnmelderNationalitaet() As String Get Return Me.anmelderNationalitaetField End Get Set Me.anmelderNationalitaetField = Value End Set End Property Public Property AnmelderStrasseHausNr() As String Get Return Me.anmelderStrasseHausNrField End Get Set Me.anmelderStrasseHausNrField = Value End Set End Property Public Property AnmelderPLZS() As String Get Return Me.anmelderPLZSField End Get Set Me.anmelderPLZSField = Value End Set End Property Public Property AnmelderOrtS() As String Get Return Me.anmelderOrtSField End Get Set Me.anmelderOrtSField = Value End Set End Property Public Property AnmelderOrtsteil() As String Get Return Me.anmelderOrtsteilField End Get Set Me.anmelderOrtsteilField = Value End Set End Property Public Property VertreterEORI() As String Get Return Me.vertreterEORIField End Get Set Me.vertreterEORIField = Value End Set End Property Public Property VertreterNLNR() As String Get Return Me.vertreterNLNRField End Get Set Me.vertreterNLNRField = Value End Set End Property Public Property VertreterName() As String Get Return Me.vertreterNameField End Get Set Me.vertreterNameField = Value End Set End Property Public Property VertreterNationalitaet() As String Get Return Me.vertreterNationalitaetField End Get Set Me.vertreterNationalitaetField = Value End Set End Property Public Property VertreterStrasseHausNr() As String Get Return Me.vertreterStrasseHausNrField End Get Set Me.vertreterStrasseHausNrField = Value End Set End Property Public Property VertreterPLZS() As String Get Return Me.vertreterPLZSField End Get Set Me.vertreterPLZSField = Value End Set End Property Public Property VertreterOrtS() As String Get Return Me.vertreterOrtSField End Get Set Me.vertreterOrtSField = Value End Set End Property Public Property VertreterOrtsteil() As String Get Return Me.vertreterOrtsteilField End Get Set Me.vertreterOrtsteilField = Value End Set End Property Public Property FRechnungEORI() As String Get Return Me.fRechnungEORIField End Get Set Me.fRechnungEORIField = Value End Set End Property Public Property FRechnungNLNR() As String Get Return Me.fRechnungNLNRField End Get Set Me.fRechnungNLNRField = Value End Set End Property Public Property FRechnungNationalitaet() As String Get Return Me.fRechnungNationalitaetField End Get Set Me.fRechnungNationalitaetField = Value End Set End Property Public Property FRechnungName() As String Get Return Me.fRechnungNameField End Get Set Me.fRechnungNameField = Value End Set End Property Public Property FRechnungStrasseHausNr() As String Get Return Me.fRechnungStrasseHausNrField End Get Set Me.fRechnungStrasseHausNrField = Value End Set End Property Public Property FRechnungPLZS() As String Get Return Me.fRechnungPLZSField End Get Set Me.fRechnungPLZSField = Value End Set End Property Public Property FRechnungOrtS() As String Get Return Me.fRechnungOrtSField End Get Set Me.fRechnungOrtSField = Value End Set End Property Public Property FRechnungOrtsteil() As String Get Return Me.fRechnungOrtsteilField End Get Set Me.fRechnungOrtsteilField = Value End Set End Property Public Property EmpfaengerEORI() As String Get Return Me.empfaengerEORIField End Get Set Me.empfaengerEORIField = Value End Set End Property Public Property EmpfaengerNLNR() As String Get Return Me.empfaengerNLNRField End Get Set Me.empfaengerNLNRField = Value End Set End Property Public Property EmpfaengerNationalitaet() As String Get Return Me.empfaengerNationalitaetField End Get Set Me.empfaengerNationalitaetField = Value End Set End Property Public Property EmpfaengerName() As String Get Return Me.empfaengerNameField End Get Set Me.empfaengerNameField = Value End Set End Property Public Property EmpfaengerStrasseHausNr() As String Get Return Me.empfaengerStrasseHausNrField End Get Set Me.empfaengerStrasseHausNrField = Value End Set End Property Public Property EmpfaengerPLZS() As String Get Return Me.empfaengerPLZSField End Get Set Me.empfaengerPLZSField = Value End Set End Property Public Property EmpfaengerOrtS() As String Get Return Me.empfaengerOrtSField End Get Set Me.empfaengerOrtSField = Value End Set End Property Public Property EmpfaengerOrtsteil() As String Get Return Me.empfaengerOrtsteilField End Get Set Me.empfaengerOrtsteilField = Value End Set End Property Public Property ZahlungsEmpfaengerEORI() As String Get Return Me.zahlungsEmpfaengerEORIField End Get Set Me.zahlungsEmpfaengerEORIField = Value End Set End Property Public Property ZahlungsEmpfaengerNLNR() As String Get Return Me.zahlungsEmpfaengerNLNRField End Get Set Me.zahlungsEmpfaengerNLNRField = Value End Set End Property Public Property ZahlungsEmpfaengerKreditinstitut() As String Get Return Me.zahlungsEmpfaengerKreditinstitutField End Get Set Me.zahlungsEmpfaengerKreditinstitutField = Value End Set End Property Public Property ZahlungsEmpfaengerName() As String Get Return Me.zahlungsEmpfaengerNameField End Get Set Me.zahlungsEmpfaengerNameField = Value End Set End Property Public Property ZahlungsEmpfaengerNationalitaet() As String Get Return Me.zahlungsEmpfaengerNationalitaetField End Get Set Me.zahlungsEmpfaengerNationalitaetField = Value End Set End Property Public Property ZahlungsEmpfaengerStrasseHausNr() As String Get Return Me.zahlungsEmpfaengerStrasseHausNrField End Get Set Me.zahlungsEmpfaengerStrasseHausNrField = Value End Set End Property Public Property ZahlungsEmpfaengerPLZS() As String Get Return Me.zahlungsEmpfaengerPLZSField End Get Set Me.zahlungsEmpfaengerPLZSField = Value End Set End Property Public Property ZahlungsEmpfaengerOrtS() As String Get Return Me.zahlungsEmpfaengerOrtSField End Get Set Me.zahlungsEmpfaengerOrtSField = Value End Set End Property Public Property ZahlungsEmpfaengerOrtsteil() As String Get Return Me.zahlungsEmpfaengerOrtsteilField End Get Set Me.zahlungsEmpfaengerOrtsteilField = Value End Set End Property Public Property ZahlungsEmpfaengerIBAN() As String Get Return Me.zahlungsEmpfaengerIBANField End Get Set Me.zahlungsEmpfaengerIBANField = Value End Set End Property Public Property ZahlungsEmpfaengerBIC() As String Get Return Me.zahlungsEmpfaengerBICField End Get Set Me.zahlungsEmpfaengerBICField = Value End Set End Property Public Property ErstellungsDatumBefund() As Date Get Return Me.erstellungsDatumBefundField End Get Set Me.erstellungsDatumBefundField = Value End Set End Property Public Property ErstellungsDatumBefundSpecified() As Boolean Get Return Me.erstellungsDatumBefundFieldSpecified End Get Set Me.erstellungsDatumBefundFieldSpecified = Value End Set End Property Public Property Erfassungsdatum() As Date Get Return Me.erfassungsdatumField End Get Set Me.erfassungsdatumField = Value End Set End Property Public Property ErfassungsdatumSpecified() As Boolean Get Return Me.erfassungsdatumFieldSpecified End Get Set Me.erfassungsdatumFieldSpecified = Value End Set End Property Public Property BarzahlungFaelligkeit() As Date Get Return Me.barzahlungFaelligkeitField End Get Set Me.barzahlungFaelligkeitField = Value End Set End Property Public Property BarzahlungFaelligkeitSpecified() As Boolean Get Return Me.barzahlungFaelligkeitFieldSpecified End Get Set Me.barzahlungFaelligkeitFieldSpecified = Value End Set End Property Public Property SicherheitsleistungFaelligkeit() As Date Get Return Me.sicherheitsleistungFaelligkeitField End Get Set Me.sicherheitsleistungFaelligkeitField = Value End Set End Property Public Property SicherheitsleistungFaelligkeitSpecified() As Boolean Get Return Me.sicherheitsleistungFaelligkeitFieldSpecified End Get Set Me.sicherheitsleistungFaelligkeitFieldSpecified = Value End Set End Property Public Property AbrechnungszeitraumBeginn() As Date Get Return Me.abrechnungszeitraumBeginnField End Get Set Me.abrechnungszeitraumBeginnField = Value End Set End Property Public Property AbrechnungszeitraumBeginnSpecified() As Boolean Get Return Me.abrechnungszeitraumBeginnFieldSpecified End Get Set Me.abrechnungszeitraumBeginnFieldSpecified = Value End Set End Property Public Property AbrechnungszeitraumEnde() As Date Get Return Me.abrechnungszeitraumEndeField End Get Set Me.abrechnungszeitraumEndeField = Value End Set End Property Public Property AbrechnungszeitraumEndeSpecified() As Boolean Get Return Me.abrechnungszeitraumEndeFieldSpecified End Get Set Me.abrechnungszeitraumEndeFieldSpecified = Value End Set End Property Public Property Zollbefund() As String Get Return Me.zollbefundField End Get Set Me.zollbefundField = Value End Set End Property Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp Get Return Me.eZAAVAngabenKopfField End Get Set Me.eZAAVAngabenKopfField = Value End Set End Property Public Property LieferbedingungCode() As String Get Return Me.lieferbedingungCodeField End Get Set Me.lieferbedingungCodeField = Value End Set End Property Public Property LieferbedingungText() As String Get Return Me.lieferbedingungTextField End Get Set Me.lieferbedingungTextField = Value End Set End Property Public Property LieferbedingungOrt() As String Get Return Me.lieferbedingungOrtField End Get Set Me.lieferbedingungOrtField = Value End Set End Property Public Property LieferbedingungSchluessel() As String Get Return Me.lieferbedingungSchluesselField End Get Set Me.lieferbedingungSchluesselField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KopfDatenEinfuhrbescheidTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KopfDatenEinfuhrbescheidTyp object ''' '''string workflow markup to deserialize '''Output KopfDatenEinfuhrbescheidTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenEinfuhrbescheidTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''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 XmlSerializer 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 Region End Class Partial Public Class TransaktionFreierVerkehrTyp Private iOPartnerField As String Private iODivision1Field As String Private iODivision2Field As String Private iODivision3Field As String Private iOReferenzField As String Private iODatumZeitField As Date Private versionField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property IOPartner() As String Get Return Me.iOPartnerField End Get Set Me.iOPartnerField = Value End Set End Property Public Property IODivision1() As String Get Return Me.iODivision1Field End Get Set Me.iODivision1Field = Value End Set End Property Public Property IODivision2() As String Get Return Me.iODivision2Field End Get Set Me.iODivision2Field = Value End Set End Property Public Property IODivision3() As String Get Return Me.iODivision3Field End Get Set Me.iODivision3Field = Value End Set End Property Public Property IOReferenz() As String Get Return Me.iOReferenzField End Get Set Me.iOReferenzField = Value End Set End Property Public Property IODatumZeit() As Date Get Return Me.iODatumZeitField End Get Set Me.iODatumZeitField = Value End Set End Property Public Property Version() As String Get Return Me.versionField End Get Set Me.versionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TransaktionFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TransaktionFreierVerkehrTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class DatenaustauschFreierVerkehrTyp Private transaktionField As TransaktionFreierVerkehrTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.transaktionField = New TransaktionFreierVerkehrTyp() End Sub Public Property Transaktion() As TransaktionFreierVerkehrTyp Get Return Me.transaktionField End Get Set Me.transaktionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current DatenaustauschFreierVerkehrTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class End Namespace