'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 4.4.0.7 '' BefundVereinfachteZollanmeldungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Xml Imports System.Collections.Generic Namespace BefundVereinfachteZollanmeldung _ Partial Public Class BefundVereinfachteZollanmeldungVBTyp Inherits DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() End Sub _ Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp Get Return Me._einzelBefundVereinfachteZollanmeldung End Get Set(value As EinzelBefundVereinfachteZollanmeldungTyp) Me._einzelBefundVereinfachteZollanmeldung = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML string '''

''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function '''

''' Deserializes workflow markup into an BefundVereinfachteZollanmeldungVBTyp object '''

''' string workflow markup to deserialize ''' Output BefundVereinfachteZollanmeldungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As BefundVereinfachteZollanmeldungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefundVereinfachteZollanmeldungVBTyp Return CType(Serializer.Deserialize(s), BefundVereinfachteZollanmeldungVBTyp) End Function #End Region '''

''' Serializes current BefundVereinfachteZollanmeldungVBTyp 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 BefundVereinfachteZollanmeldungVBTyp object '''

''' string xml file to load and deserialize ''' Output BefundVereinfachteZollanmeldungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) 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 BefundVereinfachteZollanmeldungVBTyp) 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 BefundVereinfachteZollanmeldungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungVBTyp Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() End Sub _ Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp Get Return Me._objektIdentifizierung End Get Set(value As ObjektIdentifizierungVBTyp) Me._objektIdentifizierung = Value End Set End Property _ Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp Get Return Me._kopfDaten End Get Set(value As KopfdatenBefundVereinfachteZollanmeldungTyp) Me._kopfDaten = Value End Set End Property _ Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) Get Return Me._position End Get Set(value As List(Of PositionBefundVereinfachteZollanmeldungTyp)) Me._position = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML string '''

''' Deserializes workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object '''

''' string workflow markup to deserialize ''' Output EinzelBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelBefundVereinfachteZollanmeldungTyp Return CType(Serializer.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) End Function #End Region '''

''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file '''

''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object '''

''' string xml file to load and deserialize ''' Output EinzelBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) 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 EinzelBefundVereinfachteZollanmeldungTyp) 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 EinzelBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class ObjektIdentifizierungVBTyp #Region "Private fields" Private _objektName As String Private _eDIFACTNachrichtenNr As String Private _zeitpunktEingang As Date Private _shipmentReferenz As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property ObjektName() As String Get Return Me._objektName End Get Set(value As String) Me._objektName = Value End Set End Property _ Public Property EDIFACTNachrichtenNr() As String Get Return Me._eDIFACTNachrichtenNr End Get Set(value As String) Me._eDIFACTNachrichtenNr = Value End Set End Property _ Public Property ZeitpunktEingang() As Date Get Return Me._zeitpunktEingang End Get Set(value As Date) Me._zeitpunktEingang = Value End Set End Property _ Public Property ShipmentReferenz() As String Get Return Me._shipmentReferenz End Get Set(value As String) Me._shipmentReferenz = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current ObjektIdentifizierungVBTyp object into an XML string '''

''' Deserializes workflow markup into an ObjektIdentifizierungVBTyp object '''

''' string workflow markup to deserialize ''' Output ObjektIdentifizierungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungVBTyp Return CType(Serializer.Deserialize(s), ObjektIdentifizierungVBTyp) End Function #End Region '''

''' Serializes current ObjektIdentifizierungVBTyp object into file '''

''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object '''

''' string xml file to load and deserialize ''' Output ObjektIdentifizierungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) 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 ObjektIdentifizierungVBTyp) 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 ObjektIdentifizierungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class SonderabgabenVBTyp #Region "Private fields" Private _sonderfalleingabeSonderabgabengruppe As String Private _anwendungsart As String Private _satzBetragFaktor As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property SonderfalleingabeSonderabgabengruppe() As String Get Return Me._sonderfalleingabeSonderabgabengruppe End Get Set(value As String) Me._sonderfalleingabeSonderabgabengruppe = Value End Set End Property _ Public Property Anwendungsart() As String Get Return Me._anwendungsart End Get Set(value As String) Me._anwendungsart = Value End Set End Property _ Public Property SatzBetragFaktor() As Decimal Get Return Me._satzBetragFaktor End Get Set(value As Decimal) Me._satzBetragFaktor = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current SonderabgabenVBTyp object into an XML string '''

''' Deserializes workflow markup into an SonderabgabenVBTyp object '''

''' string workflow markup to deserialize ''' Output SonderabgabenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As SonderabgabenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderabgabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderabgabenVBTyp Return CType(Serializer.Deserialize(s), SonderabgabenVBTyp) End Function #End Region '''

''' Serializes current SonderabgabenVBTyp object into file '''

''' Deserializes xml markup from file into an SonderabgabenVBTyp object '''

''' string xml file to load and deserialize ''' Output SonderabgabenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) 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 SonderabgabenVBTyp) 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 SonderabgabenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MinderungVBTyp #Region "Private fields" Private _minderndeAbgabengruppe As String Private _minderungsbetrag As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property MinderndeAbgabengruppe() As String Get Return Me._minderndeAbgabengruppe End Get Set(value As String) Me._minderndeAbgabengruppe = Value End Set End Property _ Public Property Minderungsbetrag() As Decimal Get Return Me._minderungsbetrag End Get Set(value As Decimal) Me._minderungsbetrag = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current MinderungVBTyp object into an XML string '''

''' Deserializes workflow markup into an MinderungVBTyp object '''

''' string workflow markup to deserialize ''' Output MinderungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As MinderungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MinderungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MinderungVBTyp Return CType(Serializer.Deserialize(s), MinderungVBTyp) End Function #End Region '''

''' Serializes current MinderungVBTyp object into file '''

''' Deserializes xml markup from file into an MinderungVBTyp object '''

''' string xml file to load and deserialize ''' Output MinderungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) 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 MinderungVBTyp) 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 MinderungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class VerbrauchsteuerVBTyp #Region "Private fields" Private _verbrauchsteuerCode As String Private _verbrauchssteuerMenge As Decimal Private _verbrauchssteuerMasseinheitCode As String Private _verbrauchssteuerMasseinheitQualifier As String Private _gradProzent As Decimal Private _verbrauchssteuerWertBasis As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property VerbrauchsteuerCode() As String Get Return Me._verbrauchsteuerCode End Get Set(value As String) Me._verbrauchsteuerCode = Value End Set End Property _ Public Property VerbrauchssteuerMenge() As Decimal Get Return Me._verbrauchssteuerMenge End Get Set(value As Decimal) Me._verbrauchssteuerMenge = Value End Set End Property _ Public Property VerbrauchssteuerMasseinheitCode() As String Get Return Me._verbrauchssteuerMasseinheitCode End Get Set(value As String) Me._verbrauchssteuerMasseinheitCode = Value End Set End Property _ Public Property VerbrauchssteuerMasseinheitQualifier() As String Get Return Me._verbrauchssteuerMasseinheitQualifier End Get Set(value As String) Me._verbrauchssteuerMasseinheitQualifier = Value End Set End Property _ Public Property GradProzent() As Decimal Get Return Me._gradProzent End Get Set(value As Decimal) Me._gradProzent = Value End Set End Property _ Public Property VerbrauchssteuerWertBasis() As Decimal Get Return Me._verbrauchssteuerWertBasis End Get Set(value As Decimal) Me._verbrauchssteuerWertBasis = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current VerbrauchsteuerVBTyp object into an XML string '''

''' Deserializes workflow markup into an VerbrauchsteuerVBTyp object '''

''' string workflow markup to deserialize ''' Output VerbrauchsteuerVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchsteuerVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchsteuerVBTyp Return CType(Serializer.Deserialize(s), VerbrauchsteuerVBTyp) End Function #End Region '''

''' Serializes current VerbrauchsteuerVBTyp object into file '''

''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object '''

''' string xml file to load and deserialize ''' Output VerbrauchsteuerVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) 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 VerbrauchsteuerVBTyp) 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 VerbrauchsteuerVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class GehaltsangabenVBTyp #Region "Private fields" Private _artCode As String Private _gradProzent As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property ArtCode() As String Get Return Me._artCode End Get Set(value As String) Me._artCode = Value End Set End Property _ Public Property GradProzent() As Decimal Get Return Me._gradProzent End Get Set(value As Decimal) Me._gradProzent = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current GehaltsangabenVBTyp object into an XML string '''

''' Deserializes workflow markup into an GehaltsangabenVBTyp object '''

''' string workflow markup to deserialize ''' Output GehaltsangabenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenVBTyp Return CType(Serializer.Deserialize(s), GehaltsangabenVBTyp) End Function #End Region '''

''' Serializes current GehaltsangabenVBTyp object into file '''

''' Deserializes xml markup from file into an GehaltsangabenVBTyp object '''

''' string xml file to load and deserialize ''' Output GehaltsangabenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) 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 GehaltsangabenVBTyp) 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 GehaltsangabenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class PreisWertangabeVBTyp #Region "Private fields" Private _preisartCode As String Private _wert As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property PreisartCode() As String Get Return Me._preisartCode End Get Set(value As String) Me._preisartCode = Value End Set End Property _ Public Property Wert() As Decimal Get Return Me._wert End Get Set(value As Decimal) Me._wert = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current PreisWertangabeVBTyp object into an XML string '''

''' Deserializes workflow markup into an PreisWertangabeVBTyp object '''

''' string workflow markup to deserialize ''' Output PreisWertangabeVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As PreisWertangabeVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PreisWertangabeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PreisWertangabeVBTyp Return CType(Serializer.Deserialize(s), PreisWertangabeVBTyp) End Function #End Region '''

''' Serializes current PreisWertangabeVBTyp object into file '''

''' Deserializes xml markup from file into an PreisWertangabeVBTyp object '''

''' string xml file to load and deserialize ''' Output PreisWertangabeVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) 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 PreisWertangabeVBTyp) 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 PreisWertangabeVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class WarenMengeVBTyp #Region "Private fields" Private _menge As String Private _masseinheit As String Private _qualifier As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property Menge() As String Get Return Me._menge End Get Set(value As String) Me._menge = Value End Set End Property _ Public Property Masseinheit() As String Get Return Me._masseinheit End Get Set(value As String) Me._masseinheit = Value End Set End Property _ Public Property Qualifier() As String Get Return Me._qualifier End Get Set(value As String) Me._qualifier = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current WarenMengeVBTyp object into an XML string '''

''' Deserializes workflow markup into an WarenMengeVBTyp object '''

''' string workflow markup to deserialize ''' Output WarenMengeVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenMengeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeVBTyp Return CType(Serializer.Deserialize(s), WarenMengeVBTyp) End Function #End Region '''

''' Serializes current WarenMengeVBTyp object into file '''

''' Deserializes xml markup from file into an WarenMengeVBTyp object '''

''' string xml file to load and deserialize ''' Output WarenMengeVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) 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 WarenMengeVBTyp) 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 WarenMengeVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class AbzugHinzurechnungenVBTyp #Region "Private fields" Private _artCode As String Private _artText As String Private _betrag As Decimal Private _iATAKursKz As String Private _waehrung As String Private _kursVereinbartKz As String Private _kursAuslandswaehrung As Decimal Private _kursDatum As Date Private _prozentsatz As Decimal Private Shared sSerializer As XmlSerializer #End Region _ Public Property ArtCode() As String Get Return Me._artCode End Get Set(value As String) Me._artCode = Value End Set End Property _ Public Property ArtText() As String Get Return Me._artText End Get Set(value As String) Me._artText = Value End Set End Property _ Public Property Betrag() As Decimal Get Return Me._betrag End Get Set(value As Decimal) Me._betrag = Value End Set End Property _ Public Property IATAKursKz() As String Get Return Me._iATAKursKz End Get Set(value As String) Me._iATAKursKz = Value End Set End Property _ Public Property Waehrung() As String Get Return Me._waehrung End Get Set(value As String) Me._waehrung = Value End Set End Property _ Public Property KursVereinbartKz() As String Get Return Me._kursVereinbartKz End Get Set(value As String) Me._kursVereinbartKz = Value End Set End Property _ Public Property KursAuslandswaehrung() As Decimal Get Return Me._kursAuslandswaehrung End Get Set(value As Decimal) Me._kursAuslandswaehrung = Value End Set End Property _ Public Property KursDatum() As Date Get Return Me._kursDatum End Get Set(value As Date) Me._kursDatum = Value End Set End Property _ Public Property Prozentsatz() As Decimal Get Return Me._prozentsatz End Get Set(value As Decimal) Me._prozentsatz = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current AbzugHinzurechnungenVBTyp object into an XML string '''

''' Deserializes workflow markup into an AbzugHinzurechnungenVBTyp object '''

''' string workflow markup to deserialize ''' Output AbzugHinzurechnungenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungenVBTyp Return CType(Serializer.Deserialize(s), AbzugHinzurechnungenVBTyp) End Function #End Region '''

''' Serializes current AbzugHinzurechnungenVBTyp object into file '''

''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object '''

''' string xml file to load and deserialize ''' Output AbzugHinzurechnungenVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) 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 AbzugHinzurechnungenVBTyp) 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 AbzugHinzurechnungenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class AbweichungVBTyp #Region "Private fields" Private _abweichendFestgesetztesFeld As String Private _abweichendFestgesetztesFeldQualifikator As String Private _qualifikatorInhalt As String Private _abweichendeFestsetzungArt As String Private _abweichendFestgesetztVon As String Private _abweichendFestgesetztAuf As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property AbweichendFestgesetztesFeld() As String Get Return Me._abweichendFestgesetztesFeld End Get Set(value As String) Me._abweichendFestgesetztesFeld = Value End Set End Property _ Public Property AbweichendFestgesetztesFeldQualifikator() As String Get Return Me._abweichendFestgesetztesFeldQualifikator End Get Set(value As String) Me._abweichendFestgesetztesFeldQualifikator = Value End Set End Property _ Public Property QualifikatorInhalt() As String Get Return Me._qualifikatorInhalt End Get Set(value As String) Me._qualifikatorInhalt = Value End Set End Property _ Public Property AbweichendeFestsetzungArt() As String Get Return Me._abweichendeFestsetzungArt End Get Set(value As String) Me._abweichendeFestsetzungArt = Value End Set End Property _ Public Property AbweichendFestgesetztVon() As String Get Return Me._abweichendFestgesetztVon End Get Set(value As String) Me._abweichendFestgesetztVon = Value End Set End Property _ Public Property AbweichendFestgesetztAuf() As String Get Return Me._abweichendFestgesetztAuf End Get Set(value As String) Me._abweichendFestgesetztAuf = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current AbweichungVBTyp object into an XML string '''

''' Deserializes workflow markup into an AbweichungVBTyp object '''

''' string workflow markup to deserialize ''' Output AbweichungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichungVBTyp Return CType(Serializer.Deserialize(s), AbweichungVBTyp) End Function #End Region '''

''' Serializes current AbweichungVBTyp object into file '''

''' Deserializes xml markup from file into an AbweichungVBTyp object '''

''' string xml file to load and deserialize ''' Output AbweichungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) 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 AbweichungVBTyp) 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 AbweichungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class UnterlageVBTyp #Region "Private fields" Private _art As String Private _bereich As String Private _nummer As String Private _datumAusstellung As Date Private _vorlageKz As String Private _abschreibungsMenge As Decimal Private _abschreibungsMengeMasseinheit As String Private _abschreibungsMengeMasseinheitQualifier As String Private _kzAnerkennung As String Private _kzAbschreibung As String Private _kzEinbehalten As String Private _kzPeriodischeVorlage As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property Art() As String Get Return Me._art End Get Set(value As String) Me._art = Value End Set End Property _ Public Property Bereich() As String Get Return Me._bereich End Get Set(value As String) Me._bereich = Value End Set End Property _ Public Property Nummer() As String Get Return Me._nummer End Get Set(value As String) Me._nummer = Value End Set End Property _ Public Property DatumAusstellung() As Date Get Return Me._datumAusstellung End Get Set(value As Date) Me._datumAusstellung = Value End Set End Property _ Public Property VorlageKz() As String Get Return Me._vorlageKz End Get Set(value As String) Me._vorlageKz = Value End Set End Property _ Public Property AbschreibungsMenge() As Decimal Get Return Me._abschreibungsMenge End Get Set(value As Decimal) Me._abschreibungsMenge = Value End Set End Property _ Public Property AbschreibungsMengeMasseinheit() As String Get Return Me._abschreibungsMengeMasseinheit End Get Set(value As String) Me._abschreibungsMengeMasseinheit = Value End Set End Property _ Public Property AbschreibungsMengeMasseinheitQualifier() As String Get Return Me._abschreibungsMengeMasseinheitQualifier End Get Set(value As String) Me._abschreibungsMengeMasseinheitQualifier = Value End Set End Property _ Public Property KzAnerkennung() As String Get Return Me._kzAnerkennung End Get Set(value As String) Me._kzAnerkennung = Value End Set End Property _ Public Property KzAbschreibung() As String Get Return Me._kzAbschreibung End Get Set(value As String) Me._kzAbschreibung = Value End Set End Property _ Public Property KzEinbehalten() As String Get Return Me._kzEinbehalten End Get Set(value As String) Me._kzEinbehalten = Value End Set End Property _ Public Property KzPeriodischeVorlage() As String Get Return Me._kzPeriodischeVorlage End Get Set(value As String) Me._kzPeriodischeVorlage = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current UnterlageVBTyp object into an XML string '''

''' Deserializes workflow markup into an UnterlageVBTyp object '''

''' string workflow markup to deserialize ''' Output UnterlageVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVBTyp Return CType(Serializer.Deserialize(s), UnterlageVBTyp) End Function #End Region '''

''' Serializes current UnterlageVBTyp object into file '''

''' Deserializes xml markup from file into an UnterlageVBTyp object '''

''' string xml file to load and deserialize ''' Output UnterlageVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) 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 UnterlageVBTyp) 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 UnterlageVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class PositionBefundVereinfachteZollanmeldungTyp #Region "Private fields" Private _positionsNrvZAAZ As String Private _mitteilungAnTeilnehmerBeschau As String Private _weitererNachweis As String Private _mitteilungAnTeilnehmerErledigung As String Private _positionsbefund As String Private _unterlage As List(Of UnterlageVBTyp) Private _ueberlassungDatum As Date Private _weitererNachweisFrist As Date Private _positionKzErledigung As String Private _abweichung As List(Of AbweichungVBTyp) Private _warenNummerEZT As String Private _warenNummerZusatzCode As List(Of String) Private _abgabensteuerungKz As String Private _eUCode As String Private _sachbereich As String Private _artikelNummer As String Private _artikelpreis As Decimal Private _positionsZusatz As String Private _eigenmasse As Decimal Private _ursprungslandCode As String Private _tabakSteuerzeichenID As String Private _statistikStatus As String Private _artGeschaeftCode As String Private _bestimmungsbundesland As String Private _aHStatWert As String Private _aHStatMenge As Decimal Private _aHStatMengeMasseinheit As String Private _aHStatMengeQualifier As String Private _rohmasse As Decimal Private _dV1Nettopreis As Decimal Private _dV1Waehrung As String Private _dV1KzKursNettoVereinbart As String Private _dV1Kurs As Decimal Private _dV1MittelbareZahlungen As Decimal Private _dV1MittelbareZahlungenWaehrung As String Private _dV1MittelbareZahlungenKursKz As String Private _dV1MittelbareZahlungenKurs As Decimal Private _ortVerbringens As String Private _abflughafenIATACode As String Private _luftfrachtkostenGesamt As Decimal Private _iATAKursKz As String Private _luftfrachtkostenGesamtWaehrung As String Private _kursVereinbartKz As String Private _kursBetragVereinbart As Decimal Private _kursDatum As Date Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) Private _zollwert As Decimal Private _warenMenge As List(Of WarenMengeVBTyp) Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) Private _veredelungWertsteigerung As Decimal Private _kostenEUSt As Decimal Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) Private _beguenstigungBeantragtCode As String Private _beguenstigungMenge As String Private _beguenstigungMengeMasseinheit As String Private _beguenstigungMengeQualifikator As String Private _minderung As List(Of MinderungVBTyp) Private _sonderabgaben As List(Of SonderabgabenVBTyp) Private _kontingentNrAngewandt As List(Of String) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._kontingentNrAngewandt = New List(Of String)() Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() Me._minderung = New List(Of MinderungVBTyp)() Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() Me._warenMenge = New List(Of WarenMengeVBTyp)() Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() Me._warenNummerZusatzCode = New List(Of String)() Me._abweichung = New List(Of AbweichungVBTyp)() Me._unterlage = New List(Of UnterlageVBTyp)() End Sub _ Public Property PositionsNrvZAAZ() As String Get Return Me._positionsNrvZAAZ End Get Set(value As String) Me._positionsNrvZAAZ = Value End Set End Property _ Public Property MitteilungAnTeilnehmerBeschau() As String Get Return Me._mitteilungAnTeilnehmerBeschau End Get Set(value As String) Me._mitteilungAnTeilnehmerBeschau = Value End Set End Property _ Public Property WeitererNachweis() As String Get Return Me._weitererNachweis End Get Set(value As String) Me._weitererNachweis = Value End Set End Property _ Public Property MitteilungAnTeilnehmerErledigung() As String Get Return Me._mitteilungAnTeilnehmerErledigung End Get Set(value As String) Me._mitteilungAnTeilnehmerErledigung = Value End Set End Property _ Public Property Positionsbefund() As String Get Return Me._positionsbefund End Get Set(value As String) Me._positionsbefund = Value End Set End Property _ Public Property Unterlage() As List(Of UnterlageVBTyp) Get Return Me._unterlage End Get Set(value As List(Of UnterlageVBTyp)) Me._unterlage = Value End Set End Property _ Public Property UeberlassungDatum() As Date Get Return Me._ueberlassungDatum End Get Set(value As Date) Me._ueberlassungDatum = Value End Set End Property _ Public Property WeitererNachweisFrist() As Date Get Return Me._weitererNachweisFrist End Get Set(value As Date) Me._weitererNachweisFrist = Value End Set End Property _ Public Property PositionKzErledigung() As String Get Return Me._positionKzErledigung End Get Set(value As String) Me._positionKzErledigung = Value End Set End Property _ Public Property Abweichung() As List(Of AbweichungVBTyp) Get Return Me._abweichung End Get Set(value As List(Of AbweichungVBTyp)) Me._abweichung = Value End Set End Property _ Public Property WarenNummerEZT() As String Get Return Me._warenNummerEZT End Get Set(value As String) Me._warenNummerEZT = Value End Set End Property _ Public Property WarenNummerZusatzCode() As List(Of String) Get Return Me._warenNummerZusatzCode End Get Set(value As List(Of String)) Me._warenNummerZusatzCode = Value End Set End Property _ Public Property AbgabensteuerungKz() As String Get Return Me._abgabensteuerungKz End Get Set(value As String) Me._abgabensteuerungKz = Value End Set End Property _ Public Property EUCode() As String Get Return Me._eUCode End Get Set(value As String) Me._eUCode = Value End Set End Property _ Public Property Sachbereich() As String Get Return Me._sachbereich End Get Set(value As String) Me._sachbereich = Value End Set End Property _ Public Property ArtikelNummer() As String Get Return Me._artikelNummer End Get Set(value As String) Me._artikelNummer = Value End Set End Property _ Public Property Artikelpreis() As Decimal Get Return Me._artikelpreis End Get Set(value As Decimal) Me._artikelpreis = Value End Set End Property _ Public Property PositionsZusatz() As String Get Return Me._positionsZusatz End Get Set(value As String) Me._positionsZusatz = Value End Set End Property _ Public Property Eigenmasse() As Decimal Get Return Me._eigenmasse End Get Set(value As Decimal) Me._eigenmasse = Value End Set End Property _ Public Property UrsprungslandCode() As String Get Return Me._ursprungslandCode End Get Set(value As String) Me._ursprungslandCode = Value End Set End Property _ Public Property TabakSteuerzeichenID() As String Get Return Me._tabakSteuerzeichenID End Get Set(value As String) Me._tabakSteuerzeichenID = Value End Set End Property _ Public Property StatistikStatus() As String Get Return Me._statistikStatus End Get Set(value As String) Me._statistikStatus = Value End Set End Property _ Public Property ArtGeschaeftCode() As String Get Return Me._artGeschaeftCode End Get Set(value As String) Me._artGeschaeftCode = Value End Set End Property _ Public Property Bestimmungsbundesland() As String Get Return Me._bestimmungsbundesland End Get Set(value As String) Me._bestimmungsbundesland = Value End Set End Property _ Public Property AHStatWert() As String Get Return Me._aHStatWert End Get Set(value As String) Me._aHStatWert = Value End Set End Property _ Public Property AHStatMenge() As Decimal Get Return Me._aHStatMenge End Get Set(value As Decimal) Me._aHStatMenge = Value End Set End Property _ Public Property AHStatMengeMasseinheit() As String Get Return Me._aHStatMengeMasseinheit End Get Set(value As String) Me._aHStatMengeMasseinheit = Value End Set End Property _ Public Property AHStatMengeQualifier() As String Get Return Me._aHStatMengeQualifier End Get Set(value As String) Me._aHStatMengeQualifier = Value End Set End Property _ Public Property Rohmasse() As Decimal Get Return Me._rohmasse End Get Set(value As Decimal) Me._rohmasse = Value End Set End Property _ Public Property DV1Nettopreis() As Decimal Get Return Me._dV1Nettopreis End Get Set(value As Decimal) Me._dV1Nettopreis = Value End Set End Property _ Public Property DV1Waehrung() As String Get Return Me._dV1Waehrung End Get Set(value As String) Me._dV1Waehrung = Value End Set End Property _ Public Property DV1KzKursNettoVereinbart() As String Get Return Me._dV1KzKursNettoVereinbart End Get Set(value As String) Me._dV1KzKursNettoVereinbart = Value End Set End Property _ Public Property DV1Kurs() As Decimal Get Return Me._dV1Kurs End Get Set(value As Decimal) Me._dV1Kurs = Value End Set End Property _ Public Property DV1MittelbareZahlungen() As Decimal Get Return Me._dV1MittelbareZahlungen End Get Set(value As Decimal) Me._dV1MittelbareZahlungen = Value End Set End Property _ Public Property DV1MittelbareZahlungenWaehrung() As String Get Return Me._dV1MittelbareZahlungenWaehrung End Get Set(value As String) Me._dV1MittelbareZahlungenWaehrung = Value End Set End Property _ Public Property DV1MittelbareZahlungenKursKz() As String Get Return Me._dV1MittelbareZahlungenKursKz End Get Set(value As String) Me._dV1MittelbareZahlungenKursKz = Value End Set End Property _ Public Property DV1MittelbareZahlungenKurs() As Decimal Get Return Me._dV1MittelbareZahlungenKurs End Get Set(value As Decimal) Me._dV1MittelbareZahlungenKurs = Value End Set End Property _ Public Property OrtVerbringens() As String Get Return Me._ortVerbringens End Get Set(value As String) Me._ortVerbringens = Value End Set End Property _ Public Property AbflughafenIATACode() As String Get Return Me._abflughafenIATACode End Get Set(value As String) Me._abflughafenIATACode = Value End Set End Property _ Public Property LuftfrachtkostenGesamt() As Decimal Get Return Me._luftfrachtkostenGesamt End Get Set(value As Decimal) Me._luftfrachtkostenGesamt = Value End Set End Property _ Public Property IATAKursKz() As String Get Return Me._iATAKursKz End Get Set(value As String) Me._iATAKursKz = Value End Set End Property _ Public Property LuftfrachtkostenGesamtWaehrung() As String Get Return Me._luftfrachtkostenGesamtWaehrung End Get Set(value As String) Me._luftfrachtkostenGesamtWaehrung = Value End Set End Property _ Public Property KursVereinbartKz() As String Get Return Me._kursVereinbartKz End Get Set(value As String) Me._kursVereinbartKz = Value End Set End Property _ Public Property KursBetragVereinbart() As Decimal Get Return Me._kursBetragVereinbart End Get Set(value As Decimal) Me._kursBetragVereinbart = Value End Set End Property _ Public Property KursDatum() As Date Get Return Me._kursDatum End Get Set(value As Date) Me._kursDatum = Value End Set End Property _ Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) Get Return Me._abzugHinzurechnungen End Get Set(value As List(Of AbzugHinzurechnungenVBTyp)) Me._abzugHinzurechnungen = Value End Set End Property _ Public Property Zollwert() As Decimal Get Return Me._zollwert End Get Set(value As Decimal) Me._zollwert = Value End Set End Property _ Public Property WarenMenge() As List(Of WarenMengeVBTyp) Get Return Me._warenMenge End Get Set(value As List(Of WarenMengeVBTyp)) Me._warenMenge = Value End Set End Property _ Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) Get Return Me._besondereWertangabe End Get Set(value As List(Of PreisWertangabeVBTyp)) Me._besondereWertangabe = Value End Set End Property _ Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) Get Return Me._gehaltsangaben End Get Set(value As List(Of GehaltsangabenVBTyp)) Me._gehaltsangaben = Value End Set End Property _ Public Property VeredelungWertsteigerung() As Decimal Get Return Me._veredelungWertsteigerung End Get Set(value As Decimal) Me._veredelungWertsteigerung = Value End Set End Property _ Public Property KostenEUSt() As Decimal Get Return Me._kostenEUSt End Get Set(value As Decimal) Me._kostenEUSt = Value End Set End Property _ Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) Get Return Me._verbrauchsteuer End Get Set(value As List(Of VerbrauchsteuerVBTyp)) Me._verbrauchsteuer = Value End Set End Property _ Public Property BeguenstigungBeantragtCode() As String Get Return Me._beguenstigungBeantragtCode End Get Set(value As String) Me._beguenstigungBeantragtCode = Value End Set End Property _ Public Property BeguenstigungMenge() As String Get Return Me._beguenstigungMenge End Get Set(value As String) Me._beguenstigungMenge = Value End Set End Property _ Public Property BeguenstigungMengeMasseinheit() As String Get Return Me._beguenstigungMengeMasseinheit End Get Set(value As String) Me._beguenstigungMengeMasseinheit = Value End Set End Property _ Public Property BeguenstigungMengeQualifikator() As String Get Return Me._beguenstigungMengeQualifikator End Get Set(value As String) Me._beguenstigungMengeQualifikator = Value End Set End Property _ Public Property Minderung() As List(Of MinderungVBTyp) Get Return Me._minderung End Get Set(value As List(Of MinderungVBTyp)) Me._minderung = Value End Set End Property _ Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) Get Return Me._sonderabgaben End Get Set(value As List(Of SonderabgabenVBTyp)) Me._sonderabgaben = Value End Set End Property _ Public Property KontingentNrAngewandt() As List(Of String) Get Return Me._kontingentNrAngewandt End Get Set(value As List(Of String)) Me._kontingentNrAngewandt = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML string '''

''' Deserializes workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object '''

''' string workflow markup to deserialize ''' Output PositionBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionBefundVereinfachteZollanmeldungTyp Return CType(Serializer.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) End Function #End Region '''

''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file '''

''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object '''

''' string xml file to load and deserialize ''' Output PositionBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) 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 PositionBefundVereinfachteZollanmeldungTyp) 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 PositionBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class AnmeldungVBTyp #Region "Private fields" Private _bereich As String Private _art As String Private _nummer As String Private _datumAusstellung As Date Private Shared sSerializer As XmlSerializer #End Region _ Public Property Bereich() As String Get Return Me._bereich End Get Set(value As String) Me._bereich = Value End Set End Property _ Public Property Art() As String Get Return Me._art End Get Set(value As String) Me._art = Value End Set End Property _ Public Property Nummer() As String Get Return Me._nummer End Get Set(value As String) Me._nummer = Value End Set End Property _ Public Property DatumAusstellung() As Date Get Return Me._datumAusstellung End Get Set(value As Date) Me._datumAusstellung = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnmeldungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current AnmeldungVBTyp object into an XML string '''

''' Deserializes workflow markup into an AnmeldungVBTyp object '''

''' string workflow markup to deserialize ''' Output AnmeldungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As AnmeldungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmeldungVBTyp Return CType(Serializer.Deserialize(s), AnmeldungVBTyp) End Function #End Region '''

''' Serializes current AnmeldungVBTyp object into file '''

''' Deserializes xml markup from file into an AnmeldungVBTyp object '''

''' string xml file to load and deserialize ''' Output AnmeldungVBTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) 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 AnmeldungVBTyp) 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 AnmeldungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp #Region "Private fields" Private _sachbearbeiter As String Private _telefonnummerBearbeiter As String Private _kopfKzErledigung As String Private _registriernummer As String Private _registrierdatum As Date Private _artAnmeldung As String Private _datumErstellungBefund As Date Private _befund As String Private _kzVertretungsverhaeltnis As String Private _wKZ As String Private _kzRechtsbehelf As String Private _kzGesamtschuldnerschaft As String Private _eingangszollstelleGeaendertKz As String Private _anmelderEORI As String Private _anmelderNLNR As String Private _anmelderFirmenbezeichung As String Private _anmelderStrasseHausNr As String Private _anmelderOrtsteil As String Private _anmelderOrtS As String Private _anmelderPLZS As String Private _anmelderNationalitaet As String Private _dienststellenschluessel As String Private _dienststelleBezeichung As String Private _dienststelleStrasseHausNr As String Private _dienststelleOrtS As String Private _dienststellePLZS As String Private _bearbeiter As String Private _dienststelleVorwahlTelefonNr As String Private _vertreterEORI As String Private _vertreterNLNR As String Private _vertreterFirmenbezeichnung As String Private _vertreterStrasseHausNr As String Private _vertreterOrtsteil As String Private _vertreterOrtS As String Private _vertreterPLZS As String Private _vertreterNationalitaet As String Private _hZABezeichnung As String Private _hZAEmailAdresse As String Private _hZAPostfach As String Private _hZAOrtP As String Private _hZAPLZP As String Private _hZAStrasseHausNr As String Private _hZAOrtsteil As String Private _hZAOrtS As String Private _hZAPLZS As String Private _fRechnungEORI As String Private _fRechnungNLNR As String Private _fRechnungNationalitaet As String Private _fRechnungName As String Private _fRechnungStrasseHausNr As String Private _fRechnungPLZS As String Private _fRechnungOrtS As String Private _fRechnungOrtsteil As String Private _anmelderEmpfaengerKz As String Private _bewilligungsnummer As String Private _versendungslandCode As String Private _lieferbedingung As String Private _lieferbedingungText As String Private _lieferbedingungOrt As String Private _lieferbedingungSchluessel As String Private _rechnungspreis As Decimal Private _rechnungswaehrung As String Private _sitzEinfuehrer As String Private _ustIdNummer As String Private _finanzamt As String Private _eingangszollstelle As String Private _dV1Kz As String Private _verkaeuferEORI As String Private _verkaeuferFirmenbezeichnung As String Private _verkaeuferNationalitaet As String Private _verkaeuferStrasseHausNr As String Private _verkaeuferPLZS As String Private _verkaeuferOrtS As String Private _verkaeuferOrtsteil As String Private _kaeuferEORI As String Private _kaeuferFirmenbezeichnung As String Private _kaeuferNationalitaet As String Private _kaeuferStrasseHausNr As String Private _kaeuferPLZS As String Private _kaeuferOrtS As String Private _kaeuferOrtsteil As String Private _zollwertanmelderEORI As String Private _zollwertanmelderFirmenbezeichnung As String Private _zollwertanmelderNationalitaet As String Private _zollwertanmelderStrasseHausNr As String Private _zollwertanmelderPLZS As String Private _zollwertanmelderOrtS As String Private _zollwertanmelderOrtsteil As String Private _vertreterZollwertanmelderEORI As String Private _vertreterZollwertanmelderFirmenbezeichnung As String Private _vertreterZollwertanmelderNationalitaet As String Private _vertreterZollwertanmelderStrasseHausNr As String Private _vertreterZollwertanmelderPLZS As String Private _vertreterZollwertanmelderOrtS As String Private _vertreterZollwertanmelderOrtsteil As String Private _vertretungsverhaeltnis As String Private _fruehereEntscheidungen As String Private _verbundenheit As String Private _verbundenheitEinzelheiten As String Private _einschraenkungenKz As String Private _bedingungenLeistungenKz As String Private _bedingungenLeistungenArt As String Private _lizenzgebuehrenKz As String Private _lizenzgebuehrenUmstand As String Private _spezielleVereinbarungKz As String Private _spezielleVereinbarungUmstand As String Private _empfaengerEORI As String Private _empfaengerNLNR As String Private _empfaengerFirmenbezeichnung As String Private _empfaengerNationalitaet As String Private _empfaengerStrasseHausNr As String Private _empfaengerPLZS As String Private _empfaengerOrtS As String Private _empfaengerOrtsteil As String Private _datenuebermittlungEORI As String Private _erwerberAndererMitgliedstaatEORI As String Private _erwerberAndererMitgliedstaatNLNR As String Private _erwerberFirmenbezeichnung As String Private _erwerberNationalitaet As String Private _erwerberStrasseHausNr As String Private _erwerberPLZS As String Private _erwerberOrtS As String Private _erwerberOrtsteil As String Private _erwerberUStIdNrAndererMitgliedstaat As String Private _versenderAusfuehrerEORI As String Private _versenderAusfuehrerFirmenbezeichnung As String Private _versenderAusfuehrerNationalitaet As String Private _versenderAusfuehrerStrasseHausNr As String Private _versenderAusfuehrerPLZS As String Private _versenderAusfuehrerOrtS As String Private _versenderAusfuehrerOrtsteil As String Private _unterlage As List(Of AnmeldungVBTyp) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._unterlage = New List(Of AnmeldungVBTyp)() End Sub _ Public Property Sachbearbeiter() As String Get Return Me._sachbearbeiter End Get Set(value As String) Me._sachbearbeiter = Value End Set End Property _ Public Property TelefonnummerBearbeiter() As String Get Return Me._telefonnummerBearbeiter End Get Set(value As String) Me._telefonnummerBearbeiter = Value End Set End Property _ Public Property KopfKzErledigung() As String Get Return Me._kopfKzErledigung End Get Set(value As String) Me._kopfKzErledigung = Value End Set End Property _ Public Property Registriernummer() As String Get Return Me._registriernummer End Get Set(value As String) Me._registriernummer = Value End Set End Property _ Public Property Registrierdatum() As Date Get Return Me._registrierdatum End Get Set(value As Date) Me._registrierdatum = Value End Set End Property _ Public Property ArtAnmeldung() As String Get Return Me._artAnmeldung End Get Set(value As String) Me._artAnmeldung = Value End Set End Property _ Public Property DatumErstellungBefund() As Date Get Return Me._datumErstellungBefund End Get Set(value As Date) Me._datumErstellungBefund = Value End Set End Property _ Public Property Befund() As String Get Return Me._befund End Get Set(value As String) Me._befund = Value End Set End Property _ Public Property KzVertretungsverhaeltnis() As String Get Return Me._kzVertretungsverhaeltnis End Get Set(value As String) Me._kzVertretungsverhaeltnis = Value End Set End Property _ Public Property WKZ() As String Get Return Me._wKZ End Get Set(value As String) Me._wKZ = Value End Set End Property _ Public Property KzRechtsbehelf() As String Get Return Me._kzRechtsbehelf End Get Set(value As String) Me._kzRechtsbehelf = Value End Set End Property _ Public Property KzGesamtschuldnerschaft() As String Get Return Me._kzGesamtschuldnerschaft End Get Set(value As String) Me._kzGesamtschuldnerschaft = Value End Set End Property _ Public Property EingangszollstelleGeaendertKz() As String Get Return Me._eingangszollstelleGeaendertKz End Get Set(value As String) Me._eingangszollstelleGeaendertKz = Value End Set End Property _ Public Property AnmelderEORI() As String Get Return Me._anmelderEORI End Get Set(value As String) Me._anmelderEORI = Value End Set End Property _ Public Property AnmelderNLNR() As String Get Return Me._anmelderNLNR End Get Set(value As String) Me._anmelderNLNR = Value End Set End Property _ Public Property AnmelderFirmenbezeichung() As String Get Return Me._anmelderFirmenbezeichung End Get Set(value As String) Me._anmelderFirmenbezeichung = Value End Set End Property _ Public Property AnmelderStrasseHausNr() As String Get Return Me._anmelderStrasseHausNr End Get Set(value As String) Me._anmelderStrasseHausNr = Value End Set End Property _ Public Property AnmelderOrtsteil() As String Get Return Me._anmelderOrtsteil End Get Set(value As String) Me._anmelderOrtsteil = Value End Set End Property _ Public Property AnmelderOrtS() As String Get Return Me._anmelderOrtS End Get Set(value As String) Me._anmelderOrtS = Value End Set End Property _ Public Property AnmelderPLZS() As String Get Return Me._anmelderPLZS End Get Set(value As String) Me._anmelderPLZS = Value End Set End Property _ Public Property AnmelderNationalitaet() As String Get Return Me._anmelderNationalitaet End Get Set(value As String) Me._anmelderNationalitaet = Value End Set End Property _ Public Property Dienststellenschluessel() As String Get Return Me._dienststellenschluessel End Get Set(value As String) Me._dienststellenschluessel = Value End Set End Property _ Public Property DienststelleBezeichung() As String Get Return Me._dienststelleBezeichung End Get Set(value As String) Me._dienststelleBezeichung = Value End Set End Property _ Public Property DienststelleStrasseHausNr() As String Get Return Me._dienststelleStrasseHausNr End Get Set(value As String) Me._dienststelleStrasseHausNr = Value End Set End Property _ Public Property DienststelleOrtS() As String Get Return Me._dienststelleOrtS End Get Set(value As String) Me._dienststelleOrtS = Value End Set End Property _ Public Property DienststellePLZS() As String Get Return Me._dienststellePLZS End Get Set(value As String) Me._dienststellePLZS = Value End Set End Property _ Public Property Bearbeiter() As String Get Return Me._bearbeiter End Get Set(value As String) Me._bearbeiter = Value End Set End Property _ Public Property DienststelleVorwahlTelefonNr() As String Get Return Me._dienststelleVorwahlTelefonNr End Get Set(value As String) Me._dienststelleVorwahlTelefonNr = Value End Set End Property _ Public Property VertreterEORI() As String Get Return Me._vertreterEORI End Get Set(value As String) Me._vertreterEORI = Value End Set End Property _ Public Property VertreterNLNR() As String Get Return Me._vertreterNLNR End Get Set(value As String) Me._vertreterNLNR = Value End Set End Property _ Public Property VertreterFirmenbezeichnung() As String Get Return Me._vertreterFirmenbezeichnung End Get Set(value As String) Me._vertreterFirmenbezeichnung = Value End Set End Property _ Public Property VertreterStrasseHausNr() As String Get Return Me._vertreterStrasseHausNr End Get Set(value As String) Me._vertreterStrasseHausNr = Value End Set End Property _ Public Property VertreterOrtsteil() As String Get Return Me._vertreterOrtsteil End Get Set(value As String) Me._vertreterOrtsteil = Value End Set End Property _ Public Property VertreterOrtS() As String Get Return Me._vertreterOrtS End Get Set(value As String) Me._vertreterOrtS = Value End Set End Property _ Public Property VertreterPLZS() As String Get Return Me._vertreterPLZS End Get Set(value As String) Me._vertreterPLZS = Value End Set End Property _ Public Property VertreterNationalitaet() As String Get Return Me._vertreterNationalitaet End Get Set(value As String) Me._vertreterNationalitaet = Value End Set End Property _ Public Property HZABezeichnung() As String Get Return Me._hZABezeichnung End Get Set(value As String) Me._hZABezeichnung = Value End Set End Property _ Public Property HZAEmailAdresse() As String Get Return Me._hZAEmailAdresse End Get Set(value As String) Me._hZAEmailAdresse = Value End Set End Property _ Public Property HZAPostfach() As String Get Return Me._hZAPostfach End Get Set(value As String) Me._hZAPostfach = Value End Set End Property _ Public Property HZAOrtP() As String Get Return Me._hZAOrtP End Get Set(value As String) Me._hZAOrtP = Value End Set End Property _ Public Property HZAPLZP() As String Get Return Me._hZAPLZP End Get Set(value As String) Me._hZAPLZP = Value End Set End Property _ Public Property HZAStrasseHausNr() As String Get Return Me._hZAStrasseHausNr End Get Set(value As String) Me._hZAStrasseHausNr = Value End Set End Property _ Public Property HZAOrtsteil() As String Get Return Me._hZAOrtsteil End Get Set(value As String) Me._hZAOrtsteil = Value End Set End Property _ Public Property HZAOrtS() As String Get Return Me._hZAOrtS End Get Set(value As String) Me._hZAOrtS = Value End Set End Property _ Public Property HZAPLZS() As String Get Return Me._hZAPLZS End Get Set(value As String) Me._hZAPLZS = Value End Set End Property _ Public Property FRechnungEORI() As String Get Return Me._fRechnungEORI End Get Set(value As String) Me._fRechnungEORI = Value End Set End Property _ Public Property FRechnungNLNR() As String Get Return Me._fRechnungNLNR End Get Set(value As String) Me._fRechnungNLNR = Value End Set End Property _ Public Property FRechnungNationalitaet() As String Get Return Me._fRechnungNationalitaet End Get Set(value As String) Me._fRechnungNationalitaet = Value End Set End Property _ Public Property FRechnungName() As String Get Return Me._fRechnungName End Get Set(value As String) Me._fRechnungName = Value End Set End Property _ Public Property FRechnungStrasseHausNr() As String Get Return Me._fRechnungStrasseHausNr End Get Set(value As String) Me._fRechnungStrasseHausNr = Value End Set End Property _ Public Property FRechnungPLZS() As String Get Return Me._fRechnungPLZS End Get Set(value As String) Me._fRechnungPLZS = Value End Set End Property _ Public Property FRechnungOrtS() As String Get Return Me._fRechnungOrtS End Get Set(value As String) Me._fRechnungOrtS = Value End Set End Property _ Public Property FRechnungOrtsteil() As String Get Return Me._fRechnungOrtsteil End Get Set(value As String) Me._fRechnungOrtsteil = Value End Set End Property _ Public Property AnmelderEmpfaengerKz() As String Get Return Me._anmelderEmpfaengerKz End Get Set(value As String) Me._anmelderEmpfaengerKz = Value End Set End Property _ Public Property Bewilligungsnummer() As String Get Return Me._bewilligungsnummer End Get Set(value As String) Me._bewilligungsnummer = Value End Set End Property _ Public Property VersendungslandCode() As String Get Return Me._versendungslandCode End Get Set(value As String) Me._versendungslandCode = Value End Set End Property _ Public Property Lieferbedingung() As String Get Return Me._lieferbedingung End Get Set(value As String) Me._lieferbedingung = Value End Set End Property _ Public Property LieferbedingungText() As String Get Return Me._lieferbedingungText End Get Set(value As String) Me._lieferbedingungText = Value End Set End Property _ Public Property LieferbedingungOrt() As String Get Return Me._lieferbedingungOrt End Get Set(value As String) Me._lieferbedingungOrt = Value End Set End Property _ Public Property LieferbedingungSchluessel() As String Get Return Me._lieferbedingungSchluessel End Get Set(value As String) Me._lieferbedingungSchluessel = Value End Set End Property _ Public Property Rechnungspreis() As Decimal Get Return Me._rechnungspreis End Get Set(value As Decimal) Me._rechnungspreis = Value End Set End Property _ Public Property Rechnungswaehrung() As String Get Return Me._rechnungswaehrung End Get Set(value As String) Me._rechnungswaehrung = Value End Set End Property _ Public Property SitzEinfuehrer() As String Get Return Me._sitzEinfuehrer End Get Set(value As String) Me._sitzEinfuehrer = Value End Set End Property _ Public Property UstIdNummer() As String Get Return Me._ustIdNummer End Get Set(value As String) Me._ustIdNummer = Value End Set End Property _ Public Property Finanzamt() As String Get Return Me._finanzamt End Get Set(value As String) Me._finanzamt = Value End Set End Property _ Public Property Eingangszollstelle() As String Get Return Me._eingangszollstelle End Get Set(value As String) Me._eingangszollstelle = Value End Set End Property _ Public Property DV1Kz() As String Get Return Me._dV1Kz End Get Set(value As String) Me._dV1Kz = Value End Set End Property _ Public Property VerkaeuferEORI() As String Get Return Me._verkaeuferEORI End Get Set(value As String) Me._verkaeuferEORI = Value End Set End Property _ Public Property VerkaeuferFirmenbezeichnung() As String Get Return Me._verkaeuferFirmenbezeichnung End Get Set(value As String) Me._verkaeuferFirmenbezeichnung = Value End Set End Property _ Public Property VerkaeuferNationalitaet() As String Get Return Me._verkaeuferNationalitaet End Get Set(value As String) Me._verkaeuferNationalitaet = Value End Set End Property _ Public Property VerkaeuferStrasseHausNr() As String Get Return Me._verkaeuferStrasseHausNr End Get Set(value As String) Me._verkaeuferStrasseHausNr = Value End Set End Property _ Public Property VerkaeuferPLZS() As String Get Return Me._verkaeuferPLZS End Get Set(value As String) Me._verkaeuferPLZS = Value End Set End Property _ Public Property VerkaeuferOrtS() As String Get Return Me._verkaeuferOrtS End Get Set(value As String) Me._verkaeuferOrtS = Value End Set End Property _ Public Property VerkaeuferOrtsteil() As String Get Return Me._verkaeuferOrtsteil End Get Set(value As String) Me._verkaeuferOrtsteil = Value End Set End Property _ Public Property KaeuferEORI() As String Get Return Me._kaeuferEORI End Get Set(value As String) Me._kaeuferEORI = Value End Set End Property _ Public Property KaeuferFirmenbezeichnung() As String Get Return Me._kaeuferFirmenbezeichnung End Get Set(value As String) Me._kaeuferFirmenbezeichnung = Value End Set End Property _ Public Property KaeuferNationalitaet() As String Get Return Me._kaeuferNationalitaet End Get Set(value As String) Me._kaeuferNationalitaet = Value End Set End Property _ Public Property KaeuferStrasseHausNr() As String Get Return Me._kaeuferStrasseHausNr End Get Set(value As String) Me._kaeuferStrasseHausNr = Value End Set End Property _ Public Property KaeuferPLZS() As String Get Return Me._kaeuferPLZS End Get Set(value As String) Me._kaeuferPLZS = Value End Set End Property _ Public Property KaeuferOrtS() As String Get Return Me._kaeuferOrtS End Get Set(value As String) Me._kaeuferOrtS = Value End Set End Property _ Public Property KaeuferOrtsteil() As String Get Return Me._kaeuferOrtsteil End Get Set(value As String) Me._kaeuferOrtsteil = Value End Set End Property _ Public Property ZollwertanmelderEORI() As String Get Return Me._zollwertanmelderEORI End Get Set(value As String) Me._zollwertanmelderEORI = Value End Set End Property _ Public Property ZollwertanmelderFirmenbezeichnung() As String Get Return Me._zollwertanmelderFirmenbezeichnung End Get Set(value As String) Me._zollwertanmelderFirmenbezeichnung = Value End Set End Property _ Public Property ZollwertanmelderNationalitaet() As String Get Return Me._zollwertanmelderNationalitaet End Get Set(value As String) Me._zollwertanmelderNationalitaet = Value End Set End Property _ Public Property ZollwertanmelderStrasseHausNr() As String Get Return Me._zollwertanmelderStrasseHausNr End Get Set(value As String) Me._zollwertanmelderStrasseHausNr = Value End Set End Property _ Public Property ZollwertanmelderPLZS() As String Get Return Me._zollwertanmelderPLZS End Get Set(value As String) Me._zollwertanmelderPLZS = Value End Set End Property _ Public Property ZollwertanmelderOrtS() As String Get Return Me._zollwertanmelderOrtS End Get Set(value As String) Me._zollwertanmelderOrtS = Value End Set End Property _ Public Property ZollwertanmelderOrtsteil() As String Get Return Me._zollwertanmelderOrtsteil End Get Set(value As String) Me._zollwertanmelderOrtsteil = Value End Set End Property _ Public Property VertreterZollwertanmelderEORI() As String Get Return Me._vertreterZollwertanmelderEORI End Get Set(value As String) Me._vertreterZollwertanmelderEORI = Value End Set End Property _ Public Property VertreterZollwertanmelderFirmenbezeichnung() As String Get Return Me._vertreterZollwertanmelderFirmenbezeichnung End Get Set(value As String) Me._vertreterZollwertanmelderFirmenbezeichnung = Value End Set End Property _ Public Property VertreterZollwertanmelderNationalitaet() As String Get Return Me._vertreterZollwertanmelderNationalitaet End Get Set(value As String) Me._vertreterZollwertanmelderNationalitaet = Value End Set End Property _ Public Property VertreterZollwertanmelderStrasseHausNr() As String Get Return Me._vertreterZollwertanmelderStrasseHausNr End Get Set(value As String) Me._vertreterZollwertanmelderStrasseHausNr = Value End Set End Property _ Public Property VertreterZollwertanmelderPLZS() As String Get Return Me._vertreterZollwertanmelderPLZS End Get Set(value As String) Me._vertreterZollwertanmelderPLZS = Value End Set End Property _ Public Property VertreterZollwertanmelderOrtS() As String Get Return Me._vertreterZollwertanmelderOrtS End Get Set(value As String) Me._vertreterZollwertanmelderOrtS = Value End Set End Property _ Public Property VertreterZollwertanmelderOrtsteil() As String Get Return Me._vertreterZollwertanmelderOrtsteil End Get Set(value As String) Me._vertreterZollwertanmelderOrtsteil = Value End Set End Property _ Public Property Vertretungsverhaeltnis() As String Get Return Me._vertretungsverhaeltnis End Get Set(value As String) Me._vertretungsverhaeltnis = Value End Set End Property _ Public Property FruehereEntscheidungen() As String Get Return Me._fruehereEntscheidungen End Get Set(value As String) Me._fruehereEntscheidungen = Value End Set End Property _ Public Property Verbundenheit() As String Get Return Me._verbundenheit End Get Set(value As String) Me._verbundenheit = Value End Set End Property _ Public Property VerbundenheitEinzelheiten() As String Get Return Me._verbundenheitEinzelheiten End Get Set(value As String) Me._verbundenheitEinzelheiten = Value End Set End Property _ Public Property EinschraenkungenKz() As String Get Return Me._einschraenkungenKz End Get Set(value As String) Me._einschraenkungenKz = Value End Set End Property _ Public Property BedingungenLeistungenKz() As String Get Return Me._bedingungenLeistungenKz End Get Set(value As String) Me._bedingungenLeistungenKz = Value End Set End Property _ Public Property BedingungenLeistungenArt() As String Get Return Me._bedingungenLeistungenArt End Get Set(value As String) Me._bedingungenLeistungenArt = Value End Set End Property _ Public Property LizenzgebuehrenKz() As String Get Return Me._lizenzgebuehrenKz End Get Set(value As String) Me._lizenzgebuehrenKz = Value End Set End Property _ Public Property LizenzgebuehrenUmstand() As String Get Return Me._lizenzgebuehrenUmstand End Get Set(value As String) Me._lizenzgebuehrenUmstand = Value End Set End Property _ Public Property SpezielleVereinbarungKz() As String Get Return Me._spezielleVereinbarungKz End Get Set(value As String) Me._spezielleVereinbarungKz = Value End Set End Property _ Public Property SpezielleVereinbarungUmstand() As String Get Return Me._spezielleVereinbarungUmstand End Get Set(value As String) Me._spezielleVereinbarungUmstand = Value End Set End Property _ Public Property EmpfaengerEORI() As String Get Return Me._empfaengerEORI End Get Set(value As String) Me._empfaengerEORI = Value End Set End Property _ Public Property EmpfaengerNLNR() As String Get Return Me._empfaengerNLNR End Get Set(value As String) Me._empfaengerNLNR = Value End Set End Property _ Public Property EmpfaengerFirmenbezeichnung() As String Get Return Me._empfaengerFirmenbezeichnung End Get Set(value As String) Me._empfaengerFirmenbezeichnung = Value End Set End Property _ Public Property EmpfaengerNationalitaet() As String Get Return Me._empfaengerNationalitaet End Get Set(value As String) Me._empfaengerNationalitaet = Value End Set End Property _ Public Property EmpfaengerStrasseHausNr() As String Get Return Me._empfaengerStrasseHausNr End Get Set(value As String) Me._empfaengerStrasseHausNr = Value End Set End Property _ Public Property EmpfaengerPLZS() As String Get Return Me._empfaengerPLZS End Get Set(value As String) Me._empfaengerPLZS = Value End Set End Property _ Public Property EmpfaengerOrtS() As String Get Return Me._empfaengerOrtS End Get Set(value As String) Me._empfaengerOrtS = Value End Set End Property _ Public Property EmpfaengerOrtsteil() As String Get Return Me._empfaengerOrtsteil End Get Set(value As String) Me._empfaengerOrtsteil = Value End Set End Property _ Public Property DatenuebermittlungEORI() As String Get Return Me._datenuebermittlungEORI End Get Set(value As String) Me._datenuebermittlungEORI = Value End Set End Property _ Public Property ErwerberAndererMitgliedstaatEORI() As String Get Return Me._erwerberAndererMitgliedstaatEORI End Get Set(value As String) Me._erwerberAndererMitgliedstaatEORI = Value End Set End Property _ Public Property ErwerberAndererMitgliedstaatNLNR() As String Get Return Me._erwerberAndererMitgliedstaatNLNR End Get Set(value As String) Me._erwerberAndererMitgliedstaatNLNR = Value End Set End Property _ Public Property ErwerberFirmenbezeichnung() As String Get Return Me._erwerberFirmenbezeichnung End Get Set(value As String) Me._erwerberFirmenbezeichnung = Value End Set End Property _ Public Property ErwerberNationalitaet() As String Get Return Me._erwerberNationalitaet End Get Set(value As String) Me._erwerberNationalitaet = Value End Set End Property _ Public Property ErwerberStrasseHausNr() As String Get Return Me._erwerberStrasseHausNr End Get Set(value As String) Me._erwerberStrasseHausNr = Value End Set End Property _ Public Property ErwerberPLZS() As String Get Return Me._erwerberPLZS End Get Set(value As String) Me._erwerberPLZS = Value End Set End Property _ Public Property ErwerberOrtS() As String Get Return Me._erwerberOrtS End Get Set(value As String) Me._erwerberOrtS = Value End Set End Property _ Public Property ErwerberOrtsteil() As String Get Return Me._erwerberOrtsteil End Get Set(value As String) Me._erwerberOrtsteil = Value End Set End Property _ Public Property ErwerberUStIdNrAndererMitgliedstaat() As String Get Return Me._erwerberUStIdNrAndererMitgliedstaat End Get Set(value As String) Me._erwerberUStIdNrAndererMitgliedstaat = Value End Set End Property _ Public Property VersenderAusfuehrerEORI() As String Get Return Me._versenderAusfuehrerEORI End Get Set(value As String) Me._versenderAusfuehrerEORI = Value End Set End Property _ Public Property VersenderAusfuehrerFirmenbezeichnung() As String Get Return Me._versenderAusfuehrerFirmenbezeichnung End Get Set(value As String) Me._versenderAusfuehrerFirmenbezeichnung = Value End Set End Property _ Public Property VersenderAusfuehrerNationalitaet() As String Get Return Me._versenderAusfuehrerNationalitaet End Get Set(value As String) Me._versenderAusfuehrerNationalitaet = Value End Set End Property _ Public Property VersenderAusfuehrerStrasseHausNr() As String Get Return Me._versenderAusfuehrerStrasseHausNr End Get Set(value As String) Me._versenderAusfuehrerStrasseHausNr = Value End Set End Property _ Public Property VersenderAusfuehrerPLZS() As String Get Return Me._versenderAusfuehrerPLZS End Get Set(value As String) Me._versenderAusfuehrerPLZS = Value End Set End Property _ Public Property VersenderAusfuehrerOrtS() As String Get Return Me._versenderAusfuehrerOrtS End Get Set(value As String) Me._versenderAusfuehrerOrtS = Value End Set End Property _ Public Property VersenderAusfuehrerOrtsteil() As String Get Return Me._versenderAusfuehrerOrtsteil End Get Set(value As String) Me._versenderAusfuehrerOrtsteil = Value End Set End Property _ Public Property Unterlage() As List(Of AnmeldungVBTyp) Get Return Me._unterlage End Get Set(value As List(Of AnmeldungVBTyp)) Me._unterlage = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML string '''

''' Deserializes workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object '''

''' string workflow markup to deserialize ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As KopfdatenBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp Return CType(Serializer.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) End Function #End Region '''

''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file '''

''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object '''

''' string xml file to load and deserialize ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) 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 KopfdatenBefundVereinfachteZollanmeldungTyp) 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 KopfdatenBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class TransaktionFreierVerkehrTyp #Region "Private fields" Private _iOPartner As String Private _iODivision1 As String Private _iODivision2 As String Private _iODivision3 As String Private _iOReferenz As String Private _iODatumZeit As Date Private _version As String Private Shared sSerializer As XmlSerializer #End Region _ Public Property IOPartner() As String Get Return Me._iOPartner End Get Set(value As String) Me._iOPartner = Value End Set End Property _ Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set(value As String) Me._iODivision1 = Value End Set End Property _ Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set(value As String) Me._iODivision2 = Value End Set End Property _ Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set(value As String) Me._iODivision3 = Value End Set End Property _ Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set(value As String) Me._iOReferenz = Value End Set End Property _ Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set(value As Date) Me._iODatumZeit = Value End Set End Property _ Public Property Version() As String Get Return Me._version End Get Set(value As String) Me._version = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current TransaktionFreierVerkehrTyp object into an XML string '''

''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object '''

''' string workflow markup to deserialize ''' Output TransaktionFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) End Function #End Region '''

''' Serializes current TransaktionFreierVerkehrTyp object into file '''

''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object '''

''' string xml file to load and deserialize ''' Output TransaktionFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _transaktion As TransaktionFreierVerkehrTyp Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub _ Public Property Transaktion() As TransaktionFreierVerkehrTyp Get Return Me._transaktion End Get Set(value As TransaktionFreierVerkehrTyp) Me._transaktion = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" '''

''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string '''

''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object '''

''' string workflow markup to deserialize ''' Output DatenaustauschFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) End Function #End Region '''

''' Serializes current DatenaustauschFreierVerkehrTyp object into file '''

''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object '''

''' string xml file to load and deserialize ''' Output DatenaustauschFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class End Namespace