'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com '' {"TargetFramework":"Net48","NameSpace":"BefundVereinfachteZollanmeldung_009","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace BefundVereinfachteZollanmeldung_009 Partial Public Class BefundVereinfachteZollanmeldungVBTyp Inherits DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp Private Shared _serializerXml 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 Me._einzelBefundVereinfachteZollanmeldung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize BefundVereinfachteZollanmeldungVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes BefundVereinfachteZollanmeldungVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As BefundVereinfachteZollanmeldungVBTyp Return CType(SerializerXml.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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungVBTyp Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) Private Shared _serializerXml 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 Me._objektIdentifizierung = Value End Set End Property Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp Get Return Me._kopfDaten End Get Set Me._kopfDaten = Value End Set End Property Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) Get Return Me._position End Get Set Me._position = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EinzelBefundVereinfachteZollanmeldungTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes EinzelBefundVereinfachteZollanmeldungTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As EinzelBefundVereinfachteZollanmeldungTyp Return CType(SerializerXml.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) End Function #End Region ''' ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ObjektIdentifizierungVBTyp #Region "Private fields" Private _objektName As String Private _eDIFACTNachrichtenNr As String Private _zeitpunktEingang As Date Private _shipmentReferenz As String Private Shared _serializerXml As XmlSerializer #End Region Public Property ObjektName() As String Get Return Me._objektName End Get Set Me._objektName = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me._eDIFACTNachrichtenNr End Get Set Me._eDIFACTNachrichtenNr = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me._zeitpunktEingang End Get Set Me._zeitpunktEingang = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me._shipmentReferenz End Get Set Me._shipmentReferenz = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ObjektIdentifizierungVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As ObjektIdentifizierungVBTyp Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungVBTyp) End Function #End Region ''' ''' Serializes current ObjektIdentifizierungVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class SonderabgabenVBTyp #Region "Private fields" Private _sonderfalleingabeSonderabgabengruppe As String Private _anwendungsart As String Private _satzBetragFaktor As Decimal Private Shared _serializerXml As XmlSerializer #End Region Public Property SonderfalleingabeSonderabgabengruppe() As String Get Return Me._sonderfalleingabeSonderabgabengruppe End Get Set Me._sonderfalleingabeSonderabgabengruppe = Value End Set End Property Public Property Anwendungsart() As String Get Return Me._anwendungsart End Get Set Me._anwendungsart = Value End Set End Property Public Property SatzBetragFaktor() As Decimal Get Return Me._satzBetragFaktor End Get Set Me._satzBetragFaktor = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SonderabgabenVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes SonderabgabenVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As SonderabgabenVBTyp Return CType(SerializerXml.Deserialize(s), SonderabgabenVBTyp) End Function #End Region ''' ''' Serializes current SonderabgabenVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SonderabgabenVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class MinderungVBTyp #Region "Private fields" Private _minderndeAbgabengruppe As String Private _minderungsbetrag As Decimal Private Shared _serializerXml As XmlSerializer #End Region Public Property MinderndeAbgabengruppe() As String Get Return Me._minderndeAbgabengruppe End Get Set Me._minderndeAbgabengruppe = Value End Set End Property Public Property Minderungsbetrag() As Decimal Get Return Me._minderungsbetrag End Get Set Me._minderungsbetrag = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize MinderungVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes MinderungVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As MinderungVBTyp Return CType(SerializerXml.Deserialize(s), MinderungVBTyp) End Function #End Region ''' ''' Serializes current MinderungVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an MinderungVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 _serializerXml As XmlSerializer #End Region Public Property VerbrauchsteuerCode() As String Get Return Me._verbrauchsteuerCode End Get Set Me._verbrauchsteuerCode = Value End Set End Property Public Property VerbrauchssteuerMenge() As Decimal Get Return Me._verbrauchssteuerMenge End Get Set Me._verbrauchssteuerMenge = Value End Set End Property Public Property VerbrauchssteuerMasseinheitCode() As String Get Return Me._verbrauchssteuerMasseinheitCode End Get Set Me._verbrauchssteuerMasseinheitCode = Value End Set End Property Public Property VerbrauchssteuerMasseinheitQualifier() As String Get Return Me._verbrauchssteuerMasseinheitQualifier End Get Set Me._verbrauchssteuerMasseinheitQualifier = Value End Set End Property Public Property GradProzent() As Decimal Get Return Me._gradProzent End Get Set Me._gradProzent = Value End Set End Property Public Property VerbrauchssteuerWertBasis() As Decimal Get Return Me._verbrauchssteuerWertBasis End Get Set Me._verbrauchssteuerWertBasis = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VerbrauchsteuerVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes VerbrauchsteuerVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As VerbrauchsteuerVBTyp Return CType(SerializerXml.Deserialize(s), VerbrauchsteuerVBTyp) End Function #End Region ''' ''' Serializes current VerbrauchsteuerVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class GehaltsangabenVBTyp #Region "Private fields" Private _artCode As String Private _gradProzent As Decimal Private Shared _serializerXml As XmlSerializer #End Region Public Property ArtCode() As String Get Return Me._artCode End Get Set Me._artCode = Value End Set End Property Public Property GradProzent() As Decimal Get Return Me._gradProzent End Get Set Me._gradProzent = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize GehaltsangabenVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes GehaltsangabenVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As GehaltsangabenVBTyp Return CType(SerializerXml.Deserialize(s), GehaltsangabenVBTyp) End Function #End Region ''' ''' Serializes current GehaltsangabenVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an GehaltsangabenVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class PreisWertangabeVBTyp #Region "Private fields" Private _preisartCode As String Private _wert As Decimal Private Shared _serializerXml As XmlSerializer #End Region Public Property PreisartCode() As String Get Return Me._preisartCode End Get Set Me._preisartCode = Value End Set End Property Public Property Wert() As Decimal Get Return Me._wert End Get Set Me._wert = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PreisWertangabeVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes PreisWertangabeVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As PreisWertangabeVBTyp Return CType(SerializerXml.Deserialize(s), PreisWertangabeVBTyp) End Function #End Region ''' ''' Serializes current PreisWertangabeVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PreisWertangabeVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class WarenMengeVBTyp #Region "Private fields" Private _menge As String Private _masseinheit As String Private _qualifier As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Menge() As String Get Return Me._menge End Get Set Me._menge = Value End Set End Property Public Property Masseinheit() As String Get Return Me._masseinheit End Get Set Me._masseinheit = Value End Set End Property Public Property Qualifier() As String Get Return Me._qualifier End Get Set Me._qualifier = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize WarenMengeVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes WarenMengeVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As WarenMengeVBTyp Return CType(SerializerXml.Deserialize(s), WarenMengeVBTyp) End Function #End Region ''' ''' Serializes current WarenMengeVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an WarenMengeVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 _serializerXml As XmlSerializer #End Region Public Property ArtCode() As String Get Return Me._artCode End Get Set Me._artCode = Value End Set End Property Public Property ArtText() As String Get Return Me._artText End Get Set Me._artText = Value End Set End Property Public Property Betrag() As Decimal Get Return Me._betrag End Get Set Me._betrag = Value End Set End Property Public Property IATAKursKz() As String Get Return Me._iATAKursKz End Get Set Me._iATAKursKz = Value End Set End Property Public Property Waehrung() As String Get Return Me._waehrung End Get Set Me._waehrung = Value End Set End Property Public Property KursVereinbartKz() As String Get Return Me._kursVereinbartKz End Get Set Me._kursVereinbartKz = Value End Set End Property Public Property KursAuslandswaehrung() As Decimal Get Return Me._kursAuslandswaehrung End Get Set Me._kursAuslandswaehrung = Value End Set End Property Public Property KursDatum() As Date Get Return Me._kursDatum End Get Set Me._kursDatum = Value End Set End Property Public Property Prozentsatz() As Decimal Get Return Me._prozentsatz End Get Set Me._prozentsatz = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AbzugHinzurechnungenVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes AbzugHinzurechnungenVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As AbzugHinzurechnungenVBTyp Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungenVBTyp) End Function #End Region ''' ''' Serializes current AbzugHinzurechnungenVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 _serializerXml As XmlSerializer #End Region Public Property AbweichendFestgesetztesFeld() As String Get Return Me._abweichendFestgesetztesFeld End Get Set Me._abweichendFestgesetztesFeld = Value End Set End Property Public Property AbweichendFestgesetztesFeldQualifikator() As String Get Return Me._abweichendFestgesetztesFeldQualifikator End Get Set Me._abweichendFestgesetztesFeldQualifikator = Value End Set End Property Public Property QualifikatorInhalt() As String Get Return Me._qualifikatorInhalt End Get Set Me._qualifikatorInhalt = Value End Set End Property Public Property AbweichendeFestsetzungArt() As String Get Return Me._abweichendeFestsetzungArt End Get Set Me._abweichendeFestsetzungArt = Value End Set End Property Public Property AbweichendFestgesetztVon() As String Get Return Me._abweichendFestgesetztVon End Get Set Me._abweichendFestgesetztVon = Value End Set End Property Public Property AbweichendFestgesetztAuf() As String Get Return Me._abweichendFestgesetztAuf End Get Set Me._abweichendFestgesetztAuf = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AbweichungVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes AbweichungVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As AbweichungVBTyp Return CType(SerializerXml.Deserialize(s), AbweichungVBTyp) End Function #End Region ''' ''' Serializes current AbweichungVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an AbweichungVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 _serializerXml As XmlSerializer #End Region Public Property Art() As String Get Return Me._art End Get Set Me._art = Value End Set End Property Public Property Bereich() As String Get Return Me._bereich End Get Set Me._bereich = Value End Set End Property Public Property Nummer() As String Get Return Me._nummer End Get Set Me._nummer = Value End Set End Property Public Property DatumAusstellung() As Date Get Return Me._datumAusstellung End Get Set Me._datumAusstellung = Value End Set End Property Public Property VorlageKz() As String Get Return Me._vorlageKz End Get Set Me._vorlageKz = Value End Set End Property Public Property AbschreibungsMenge() As Decimal Get Return Me._abschreibungsMenge End Get Set Me._abschreibungsMenge = Value End Set End Property Public Property AbschreibungsMengeMasseinheit() As String Get Return Me._abschreibungsMengeMasseinheit End Get Set Me._abschreibungsMengeMasseinheit = Value End Set End Property Public Property AbschreibungsMengeMasseinheitQualifier() As String Get Return Me._abschreibungsMengeMasseinheitQualifier End Get Set Me._abschreibungsMengeMasseinheitQualifier = Value End Set End Property Public Property KzAnerkennung() As String Get Return Me._kzAnerkennung End Get Set Me._kzAnerkennung = Value End Set End Property Public Property KzAbschreibung() As String Get Return Me._kzAbschreibung End Get Set Me._kzAbschreibung = Value End Set End Property Public Property KzEinbehalten() As String Get Return Me._kzEinbehalten End Get Set Me._kzEinbehalten = Value End Set End Property Public Property KzPeriodischeVorlage() As String Get Return Me._kzPeriodischeVorlage End Get Set Me._kzPeriodischeVorlage = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize UnterlageVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes UnterlageVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As UnterlageVBTyp Return CType(SerializerXml.Deserialize(s), UnterlageVBTyp) End Function #End Region ''' ''' Serializes current UnterlageVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an UnterlageVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class 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 List(Of 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 _applicationInternalData As ApplicationInternalDataType Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() 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._eUCode = New List(Of String)() 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 Me._positionsNrvZAAZ = Value End Set End Property Public Property MitteilungAnTeilnehmerBeschau() As String Get Return Me._mitteilungAnTeilnehmerBeschau End Get Set Me._mitteilungAnTeilnehmerBeschau = Value End Set End Property Public Property WeitererNachweis() As String Get Return Me._weitererNachweis End Get Set Me._weitererNachweis = Value End Set End Property Public Property MitteilungAnTeilnehmerErledigung() As String Get Return Me._mitteilungAnTeilnehmerErledigung End Get Set Me._mitteilungAnTeilnehmerErledigung = Value End Set End Property Public Property Positionsbefund() As String Get Return Me._positionsbefund End Get Set Me._positionsbefund = Value End Set End Property Public Property Unterlage() As List(Of UnterlageVBTyp) Get Return Me._unterlage End Get Set Me._unterlage = Value End Set End Property Public Property UeberlassungDatum() As Date Get Return Me._ueberlassungDatum End Get Set Me._ueberlassungDatum = Value End Set End Property Public Property WeitererNachweisFrist() As Date Get Return Me._weitererNachweisFrist End Get Set Me._weitererNachweisFrist = Value End Set End Property Public Property PositionKzErledigung() As String Get Return Me._positionKzErledigung End Get Set Me._positionKzErledigung = Value End Set End Property Public Property Abweichung() As List(Of AbweichungVBTyp) Get Return Me._abweichung End Get Set Me._abweichung = Value End Set End Property Public Property WarenNummerEZT() As String Get Return Me._warenNummerEZT End Get Set Me._warenNummerEZT = Value End Set End Property Public Property WarenNummerZusatzCode() As List(Of String) Get Return Me._warenNummerZusatzCode End Get Set Me._warenNummerZusatzCode = Value End Set End Property Public Property AbgabensteuerungKz() As String Get Return Me._abgabensteuerungKz End Get Set Me._abgabensteuerungKz = Value End Set End Property Public Property EUCode() As List(Of String) Get Return Me._eUCode End Get Set Me._eUCode = Value End Set End Property Public Property Sachbereich() As String Get Return Me._sachbereich End Get Set Me._sachbereich = Value End Set End Property Public Property ArtikelNummer() As String Get Return Me._artikelNummer End Get Set Me._artikelNummer = Value End Set End Property Public Property Artikelpreis() As Decimal Get Return Me._artikelpreis End Get Set Me._artikelpreis = Value End Set End Property Public Property PositionsZusatz() As String Get Return Me._positionsZusatz End Get Set Me._positionsZusatz = Value End Set End Property Public Property Eigenmasse() As Decimal Get Return Me._eigenmasse End Get Set Me._eigenmasse = Value End Set End Property Public Property UrsprungslandCode() As String Get Return Me._ursprungslandCode End Get Set Me._ursprungslandCode = Value End Set End Property Public Property TabakSteuerzeichenID() As String Get Return Me._tabakSteuerzeichenID End Get Set Me._tabakSteuerzeichenID = Value End Set End Property Public Property StatistikStatus() As String Get Return Me._statistikStatus End Get Set Me._statistikStatus = Value End Set End Property Public Property ArtGeschaeftCode() As String Get Return Me._artGeschaeftCode End Get Set Me._artGeschaeftCode = Value End Set End Property Public Property Bestimmungsbundesland() As String Get Return Me._bestimmungsbundesland End Get Set Me._bestimmungsbundesland = Value End Set End Property Public Property AHStatWert() As String Get Return Me._aHStatWert End Get Set Me._aHStatWert = Value End Set End Property Public Property AHStatMenge() As Decimal Get Return Me._aHStatMenge End Get Set Me._aHStatMenge = Value End Set End Property Public Property AHStatMengeMasseinheit() As String Get Return Me._aHStatMengeMasseinheit End Get Set Me._aHStatMengeMasseinheit = Value End Set End Property Public Property AHStatMengeQualifier() As String Get Return Me._aHStatMengeQualifier End Get Set Me._aHStatMengeQualifier = Value End Set End Property Public Property Rohmasse() As Decimal Get Return Me._rohmasse End Get Set Me._rohmasse = Value End Set End Property Public Property DV1Nettopreis() As Decimal Get Return Me._dV1Nettopreis End Get Set Me._dV1Nettopreis = Value End Set End Property Public Property DV1Waehrung() As String Get Return Me._dV1Waehrung End Get Set Me._dV1Waehrung = Value End Set End Property Public Property DV1KzKursNettoVereinbart() As String Get Return Me._dV1KzKursNettoVereinbart End Get Set Me._dV1KzKursNettoVereinbart = Value End Set End Property Public Property DV1Kurs() As Decimal Get Return Me._dV1Kurs End Get Set Me._dV1Kurs = Value End Set End Property Public Property DV1MittelbareZahlungen() As Decimal Get Return Me._dV1MittelbareZahlungen End Get Set Me._dV1MittelbareZahlungen = Value End Set End Property Public Property DV1MittelbareZahlungenWaehrung() As String Get Return Me._dV1MittelbareZahlungenWaehrung End Get Set Me._dV1MittelbareZahlungenWaehrung = Value End Set End Property Public Property DV1MittelbareZahlungenKursKz() As String Get Return Me._dV1MittelbareZahlungenKursKz End Get Set Me._dV1MittelbareZahlungenKursKz = Value End Set End Property Public Property DV1MittelbareZahlungenKurs() As Decimal Get Return Me._dV1MittelbareZahlungenKurs End Get Set Me._dV1MittelbareZahlungenKurs = Value End Set End Property Public Property OrtVerbringens() As String Get Return Me._ortVerbringens End Get Set Me._ortVerbringens = Value End Set End Property Public Property AbflughafenIATACode() As String Get Return Me._abflughafenIATACode End Get Set Me._abflughafenIATACode = Value End Set End Property Public Property LuftfrachtkostenGesamt() As Decimal Get Return Me._luftfrachtkostenGesamt End Get Set Me._luftfrachtkostenGesamt = Value End Set End Property Public Property IATAKursKz() As String Get Return Me._iATAKursKz End Get Set Me._iATAKursKz = Value End Set End Property Public Property LuftfrachtkostenGesamtWaehrung() As String Get Return Me._luftfrachtkostenGesamtWaehrung End Get Set Me._luftfrachtkostenGesamtWaehrung = Value End Set End Property Public Property KursVereinbartKz() As String Get Return Me._kursVereinbartKz End Get Set Me._kursVereinbartKz = Value End Set End Property Public Property KursBetragVereinbart() As Decimal Get Return Me._kursBetragVereinbart End Get Set Me._kursBetragVereinbart = Value End Set End Property Public Property KursDatum() As Date Get Return Me._kursDatum End Get Set Me._kursDatum = Value End Set End Property Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) Get Return Me._abzugHinzurechnungen End Get Set Me._abzugHinzurechnungen = Value End Set End Property Public Property Zollwert() As Decimal Get Return Me._zollwert End Get Set Me._zollwert = Value End Set End Property Public Property WarenMenge() As List(Of WarenMengeVBTyp) Get Return Me._warenMenge End Get Set Me._warenMenge = Value End Set End Property Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) Get Return Me._besondereWertangabe End Get Set Me._besondereWertangabe = Value End Set End Property Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) Get Return Me._gehaltsangaben End Get Set Me._gehaltsangaben = Value End Set End Property Public Property VeredelungWertsteigerung() As Decimal Get Return Me._veredelungWertsteigerung End Get Set Me._veredelungWertsteigerung = Value End Set End Property Public Property KostenEUSt() As Decimal Get Return Me._kostenEUSt End Get Set Me._kostenEUSt = Value End Set End Property Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) Get Return Me._verbrauchsteuer End Get Set Me._verbrauchsteuer = Value End Set End Property Public Property BeguenstigungBeantragtCode() As String Get Return Me._beguenstigungBeantragtCode End Get Set Me._beguenstigungBeantragtCode = Value End Set End Property Public Property BeguenstigungMenge() As String Get Return Me._beguenstigungMenge End Get Set Me._beguenstigungMenge = Value End Set End Property Public Property BeguenstigungMengeMasseinheit() As String Get Return Me._beguenstigungMengeMasseinheit End Get Set Me._beguenstigungMengeMasseinheit = Value End Set End Property Public Property BeguenstigungMengeQualifikator() As String Get Return Me._beguenstigungMengeQualifikator End Get Set Me._beguenstigungMengeQualifikator = Value End Set End Property Public Property Minderung() As List(Of MinderungVBTyp) Get Return Me._minderung End Get Set Me._minderung = Value End Set End Property Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) Get Return Me._sonderabgaben End Get Set Me._sonderabgaben = Value End Set End Property Public Property KontingentNrAngewandt() As List(Of String) Get Return Me._kontingentNrAngewandt End Get Set Me._kontingentNrAngewandt = Value End Set End Property Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set Me._applicationInternalData = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PositionBefundVereinfachteZollanmeldungTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes PositionBefundVereinfachteZollanmeldungTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As PositionBefundVereinfachteZollanmeldungTyp Return CType(SerializerXml.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) End Function #End Region ''' ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ApplicationInternalDataType #Region "Private fields" Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() End Sub Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) Get Return Me._additionalDetails End Get Set Me._additionalDetails = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ApplicationInternalDataType object ''' ''' string to deserialize ''' Output ApplicationInternalDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) End Function #End Region ''' ''' Serializes current ApplicationInternalDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ApplicationInternalDataType object ''' ''' File to load and deserialize ''' Output ApplicationInternalDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class ApplicationInternalDataAdditionalDetailsDataType #Region "Private fields" Private _key As String Private _value As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Key() As String Get Return Me._key End Get Set Me._key = Value End Set End Property Public Property Value() As String Get Return Me._value End Get Set Me._value = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object ''' ''' string to deserialize ''' Output ApplicationInternalDataAdditionalDetailsDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) End Function #End Region ''' ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object ''' ''' File to load and deserialize ''' Output ApplicationInternalDataAdditionalDetailsDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class AnmeldungVBTyp #Region "Private fields" Private _bereich As String Private _art As String Private _nummer As String Private _datumAusstellung As Date Private Shared _serializerXml As XmlSerializer #End Region Public Property Bereich() As String Get Return Me._bereich End Get Set Me._bereich = Value End Set End Property Public Property Art() As String Get Return Me._art End Get Set Me._art = Value End Set End Property Public Property Nummer() As String Get Return Me._nummer End Get Set Me._nummer = Value End Set End Property Public Property DatumAusstellung() As Date Get Return Me._datumAusstellung End Get Set Me._datumAusstellung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmeldungVBTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AnmeldungVBTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes AnmeldungVBTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As AnmeldungVBTyp Return CType(SerializerXml.Deserialize(s), AnmeldungVBTyp) End Function #End Region ''' ''' Serializes current AnmeldungVBTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an AnmeldungVBTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp #Region "Private fields" Private _sachbearbeiter As String Private _telefonnummerBearbeiter As String Private _kopfKzErledigung As String Private _registriernummer As String Private _veralteteWeitereRegistriernummer 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 _hZADEmailAdresse 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 _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 _applicationInternalData As ApplicationInternalDataType Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() Me._unterlage = New List(Of AnmeldungVBTyp)() End Sub Public Property Sachbearbeiter() As String Get Return Me._sachbearbeiter End Get Set Me._sachbearbeiter = Value End Set End Property Public Property TelefonnummerBearbeiter() As String Get Return Me._telefonnummerBearbeiter End Get Set Me._telefonnummerBearbeiter = Value End Set End Property Public Property KopfKzErledigung() As String Get Return Me._kopfKzErledigung End Get Set Me._kopfKzErledigung = Value End Set End Property Public Property Registriernummer() As String Get Return Me._registriernummer End Get Set Me._registriernummer = Value End Set End Property Public Property VeralteteWeitereRegistriernummer() As String Get Return Me._veralteteWeitereRegistriernummer End Get Set Me._veralteteWeitereRegistriernummer = Value End Set End Property Public Property Registrierdatum() As Date Get Return Me._registrierdatum End Get Set Me._registrierdatum = Value End Set End Property Public Property ArtAnmeldung() As String Get Return Me._artAnmeldung End Get Set Me._artAnmeldung = Value End Set End Property Public Property DatumErstellungBefund() As Date Get Return Me._datumErstellungBefund End Get Set Me._datumErstellungBefund = Value End Set End Property Public Property Befund() As String Get Return Me._befund End Get Set Me._befund = Value End Set End Property Public Property KzVertretungsverhaeltnis() As String Get Return Me._kzVertretungsverhaeltnis End Get Set Me._kzVertretungsverhaeltnis = Value End Set End Property Public Property WKZ() As String Get Return Me._wKZ End Get Set Me._wKZ = Value End Set End Property Public Property KzRechtsbehelf() As String Get Return Me._kzRechtsbehelf End Get Set Me._kzRechtsbehelf = Value End Set End Property Public Property KzGesamtschuldnerschaft() As String Get Return Me._kzGesamtschuldnerschaft End Get Set Me._kzGesamtschuldnerschaft = Value End Set End Property Public Property EingangszollstelleGeaendertKz() As String Get Return Me._eingangszollstelleGeaendertKz End Get Set Me._eingangszollstelleGeaendertKz = Value End Set End Property Public Property AnmelderEORI() As String Get Return Me._anmelderEORI End Get Set Me._anmelderEORI = Value End Set End Property Public Property AnmelderNLNR() As String Get Return Me._anmelderNLNR End Get Set Me._anmelderNLNR = Value End Set End Property Public Property AnmelderFirmenbezeichung() As String Get Return Me._anmelderFirmenbezeichung End Get Set Me._anmelderFirmenbezeichung = Value End Set End Property Public Property AnmelderStrasseHausNr() As String Get Return Me._anmelderStrasseHausNr End Get Set Me._anmelderStrasseHausNr = Value End Set End Property Public Property AnmelderOrtsteil() As String Get Return Me._anmelderOrtsteil End Get Set Me._anmelderOrtsteil = Value End Set End Property Public Property AnmelderOrtS() As String Get Return Me._anmelderOrtS End Get Set Me._anmelderOrtS = Value End Set End Property Public Property AnmelderPLZS() As String Get Return Me._anmelderPLZS End Get Set Me._anmelderPLZS = Value End Set End Property Public Property AnmelderNationalitaet() As String Get Return Me._anmelderNationalitaet End Get Set Me._anmelderNationalitaet = Value End Set End Property Public Property Dienststellenschluessel() As String Get Return Me._dienststellenschluessel End Get Set Me._dienststellenschluessel = Value End Set End Property Public Property DienststelleBezeichung() As String Get Return Me._dienststelleBezeichung End Get Set Me._dienststelleBezeichung = Value End Set End Property Public Property DienststelleStrasseHausNr() As String Get Return Me._dienststelleStrasseHausNr End Get Set Me._dienststelleStrasseHausNr = Value End Set End Property Public Property DienststelleOrtS() As String Get Return Me._dienststelleOrtS End Get Set Me._dienststelleOrtS = Value End Set End Property Public Property DienststellePLZS() As String Get Return Me._dienststellePLZS End Get Set Me._dienststellePLZS = Value End Set End Property Public Property Bearbeiter() As String Get Return Me._bearbeiter End Get Set Me._bearbeiter = Value End Set End Property Public Property DienststelleVorwahlTelefonNr() As String Get Return Me._dienststelleVorwahlTelefonNr End Get Set Me._dienststelleVorwahlTelefonNr = Value End Set End Property Public Property VertreterEORI() As String Get Return Me._vertreterEORI End Get Set Me._vertreterEORI = Value End Set End Property Public Property VertreterNLNR() As String Get Return Me._vertreterNLNR End Get Set Me._vertreterNLNR = Value End Set End Property Public Property VertreterFirmenbezeichnung() As String Get Return Me._vertreterFirmenbezeichnung End Get Set Me._vertreterFirmenbezeichnung = Value End Set End Property Public Property VertreterStrasseHausNr() As String Get Return Me._vertreterStrasseHausNr End Get Set Me._vertreterStrasseHausNr = Value End Set End Property Public Property VertreterOrtsteil() As String Get Return Me._vertreterOrtsteil End Get Set Me._vertreterOrtsteil = Value End Set End Property Public Property VertreterOrtS() As String Get Return Me._vertreterOrtS End Get Set Me._vertreterOrtS = Value End Set End Property Public Property VertreterPLZS() As String Get Return Me._vertreterPLZS End Get Set Me._vertreterPLZS = Value End Set End Property Public Property VertreterNationalitaet() As String Get Return Me._vertreterNationalitaet End Get Set Me._vertreterNationalitaet = Value End Set End Property Public Property HZABezeichnung() As String Get Return Me._hZABezeichnung End Get Set Me._hZABezeichnung = Value End Set End Property Public Property HZAEmailAdresse() As String Get Return Me._hZAEmailAdresse End Get Set Me._hZAEmailAdresse = Value End Set End Property Public Property HZADEmailAdresse() As String Get Return Me._hZADEmailAdresse End Get Set Me._hZADEmailAdresse = Value End Set End Property Public Property HZAPostfach() As String Get Return Me._hZAPostfach End Get Set Me._hZAPostfach = Value End Set End Property Public Property HZAOrtP() As String Get Return Me._hZAOrtP End Get Set Me._hZAOrtP = Value End Set End Property Public Property HZAPLZP() As String Get Return Me._hZAPLZP End Get Set Me._hZAPLZP = Value End Set End Property Public Property HZAStrasseHausNr() As String Get Return Me._hZAStrasseHausNr End Get Set Me._hZAStrasseHausNr = Value End Set End Property Public Property HZAOrtsteil() As String Get Return Me._hZAOrtsteil End Get Set Me._hZAOrtsteil = Value End Set End Property Public Property HZAOrtS() As String Get Return Me._hZAOrtS End Get Set Me._hZAOrtS = Value End Set End Property Public Property HZAPLZS() As String Get Return Me._hZAPLZS End Get Set Me._hZAPLZS = Value End Set End Property Public Property FRechnungEORI() As String Get Return Me._fRechnungEORI End Get Set Me._fRechnungEORI = Value End Set End Property Public Property FRechnungNLNR() As String Get Return Me._fRechnungNLNR End Get Set Me._fRechnungNLNR = Value End Set End Property Public Property FRechnungNationalitaet() As String Get Return Me._fRechnungNationalitaet End Get Set Me._fRechnungNationalitaet = Value End Set End Property Public Property FRechnungName() As String Get Return Me._fRechnungName End Get Set Me._fRechnungName = Value End Set End Property Public Property FRechnungStrasseHausNr() As String Get Return Me._fRechnungStrasseHausNr End Get Set Me._fRechnungStrasseHausNr = Value End Set End Property Public Property FRechnungPLZS() As String Get Return Me._fRechnungPLZS End Get Set Me._fRechnungPLZS = Value End Set End Property Public Property FRechnungOrtS() As String Get Return Me._fRechnungOrtS End Get Set Me._fRechnungOrtS = Value End Set End Property Public Property FRechnungOrtsteil() As String Get Return Me._fRechnungOrtsteil End Get Set Me._fRechnungOrtsteil = Value End Set End Property Public Property AnmelderEmpfaengerKz() As String Get Return Me._anmelderEmpfaengerKz End Get Set Me._anmelderEmpfaengerKz = Value End Set End Property Public Property Bewilligungsnummer() As String Get Return Me._bewilligungsnummer End Get Set Me._bewilligungsnummer = Value End Set End Property Public Property VersendungslandCode() As String Get Return Me._versendungslandCode End Get Set Me._versendungslandCode = Value End Set End Property Public Property Lieferbedingung() As String Get Return Me._lieferbedingung End Get Set Me._lieferbedingung = Value End Set End Property Public Property LieferbedingungText() As String Get Return Me._lieferbedingungText End Get Set Me._lieferbedingungText = Value End Set End Property Public Property LieferbedingungOrt() As String Get Return Me._lieferbedingungOrt End Get Set Me._lieferbedingungOrt = Value End Set End Property Public Property LieferbedingungSchluessel() As String Get Return Me._lieferbedingungSchluessel End Get Set Me._lieferbedingungSchluessel = Value End Set End Property Public Property Rechnungspreis() As Decimal Get Return Me._rechnungspreis End Get Set Me._rechnungspreis = Value End Set End Property Public Property Rechnungswaehrung() As String Get Return Me._rechnungswaehrung End Get Set Me._rechnungswaehrung = Value End Set End Property Public Property Finanzamt() As String Get Return Me._finanzamt End Get Set Me._finanzamt = Value End Set End Property Public Property Eingangszollstelle() As String Get Return Me._eingangszollstelle End Get Set Me._eingangszollstelle = Value End Set End Property Public Property DV1Kz() As String Get Return Me._dV1Kz End Get Set Me._dV1Kz = Value End Set End Property Public Property VerkaeuferEORI() As String Get Return Me._verkaeuferEORI End Get Set Me._verkaeuferEORI = Value End Set End Property Public Property VerkaeuferFirmenbezeichnung() As String Get Return Me._verkaeuferFirmenbezeichnung End Get Set Me._verkaeuferFirmenbezeichnung = Value End Set End Property Public Property VerkaeuferNationalitaet() As String Get Return Me._verkaeuferNationalitaet End Get Set Me._verkaeuferNationalitaet = Value End Set End Property Public Property VerkaeuferStrasseHausNr() As String Get Return Me._verkaeuferStrasseHausNr End Get Set Me._verkaeuferStrasseHausNr = Value End Set End Property Public Property VerkaeuferPLZS() As String Get Return Me._verkaeuferPLZS End Get Set Me._verkaeuferPLZS = Value End Set End Property Public Property VerkaeuferOrtS() As String Get Return Me._verkaeuferOrtS End Get Set Me._verkaeuferOrtS = Value End Set End Property Public Property VerkaeuferOrtsteil() As String Get Return Me._verkaeuferOrtsteil End Get Set Me._verkaeuferOrtsteil = Value End Set End Property Public Property KaeuferEORI() As String Get Return Me._kaeuferEORI End Get Set Me._kaeuferEORI = Value End Set End Property Public Property KaeuferFirmenbezeichnung() As String Get Return Me._kaeuferFirmenbezeichnung End Get Set Me._kaeuferFirmenbezeichnung = Value End Set End Property Public Property KaeuferNationalitaet() As String Get Return Me._kaeuferNationalitaet End Get Set Me._kaeuferNationalitaet = Value End Set End Property Public Property KaeuferStrasseHausNr() As String Get Return Me._kaeuferStrasseHausNr End Get Set Me._kaeuferStrasseHausNr = Value End Set End Property Public Property KaeuferPLZS() As String Get Return Me._kaeuferPLZS End Get Set Me._kaeuferPLZS = Value End Set End Property Public Property KaeuferOrtS() As String Get Return Me._kaeuferOrtS End Get Set Me._kaeuferOrtS = Value End Set End Property Public Property KaeuferOrtsteil() As String Get Return Me._kaeuferOrtsteil End Get Set Me._kaeuferOrtsteil = Value End Set End Property Public Property ZollwertanmelderEORI() As String Get Return Me._zollwertanmelderEORI End Get Set Me._zollwertanmelderEORI = Value End Set End Property Public Property ZollwertanmelderFirmenbezeichnung() As String Get Return Me._zollwertanmelderFirmenbezeichnung End Get Set Me._zollwertanmelderFirmenbezeichnung = Value End Set End Property Public Property ZollwertanmelderNationalitaet() As String Get Return Me._zollwertanmelderNationalitaet End Get Set Me._zollwertanmelderNationalitaet = Value End Set End Property Public Property ZollwertanmelderStrasseHausNr() As String Get Return Me._zollwertanmelderStrasseHausNr End Get Set Me._zollwertanmelderStrasseHausNr = Value End Set End Property Public Property ZollwertanmelderPLZS() As String Get Return Me._zollwertanmelderPLZS End Get Set Me._zollwertanmelderPLZS = Value End Set End Property Public Property ZollwertanmelderOrtS() As String Get Return Me._zollwertanmelderOrtS End Get Set Me._zollwertanmelderOrtS = Value End Set End Property Public Property ZollwertanmelderOrtsteil() As String Get Return Me._zollwertanmelderOrtsteil End Get Set Me._zollwertanmelderOrtsteil = Value End Set End Property Public Property VertreterZollwertanmelderEORI() As String Get Return Me._vertreterZollwertanmelderEORI End Get Set Me._vertreterZollwertanmelderEORI = Value End Set End Property Public Property VertreterZollwertanmelderFirmenbezeichnung() As String Get Return Me._vertreterZollwertanmelderFirmenbezeichnung End Get Set Me._vertreterZollwertanmelderFirmenbezeichnung = Value End Set End Property Public Property VertreterZollwertanmelderNationalitaet() As String Get Return Me._vertreterZollwertanmelderNationalitaet End Get Set Me._vertreterZollwertanmelderNationalitaet = Value End Set End Property Public Property VertreterZollwertanmelderStrasseHausNr() As String Get Return Me._vertreterZollwertanmelderStrasseHausNr End Get Set Me._vertreterZollwertanmelderStrasseHausNr = Value End Set End Property Public Property VertreterZollwertanmelderPLZS() As String Get Return Me._vertreterZollwertanmelderPLZS End Get Set Me._vertreterZollwertanmelderPLZS = Value End Set End Property Public Property VertreterZollwertanmelderOrtS() As String Get Return Me._vertreterZollwertanmelderOrtS End Get Set Me._vertreterZollwertanmelderOrtS = Value End Set End Property Public Property VertreterZollwertanmelderOrtsteil() As String Get Return Me._vertreterZollwertanmelderOrtsteil End Get Set Me._vertreterZollwertanmelderOrtsteil = Value End Set End Property Public Property Vertretungsverhaeltnis() As String Get Return Me._vertretungsverhaeltnis End Get Set Me._vertretungsverhaeltnis = Value End Set End Property Public Property FruehereEntscheidungen() As String Get Return Me._fruehereEntscheidungen End Get Set Me._fruehereEntscheidungen = Value End Set End Property Public Property Verbundenheit() As String Get Return Me._verbundenheit End Get Set Me._verbundenheit = Value End Set End Property Public Property VerbundenheitEinzelheiten() As String Get Return Me._verbundenheitEinzelheiten End Get Set Me._verbundenheitEinzelheiten = Value End Set End Property Public Property EinschraenkungenKz() As String Get Return Me._einschraenkungenKz End Get Set Me._einschraenkungenKz = Value End Set End Property Public Property BedingungenLeistungenKz() As String Get Return Me._bedingungenLeistungenKz End Get Set Me._bedingungenLeistungenKz = Value End Set End Property Public Property BedingungenLeistungenArt() As String Get Return Me._bedingungenLeistungenArt End Get Set Me._bedingungenLeistungenArt = Value End Set End Property Public Property LizenzgebuehrenKz() As String Get Return Me._lizenzgebuehrenKz End Get Set Me._lizenzgebuehrenKz = Value End Set End Property Public Property LizenzgebuehrenUmstand() As String Get Return Me._lizenzgebuehrenUmstand End Get Set Me._lizenzgebuehrenUmstand = Value End Set End Property Public Property SpezielleVereinbarungKz() As String Get Return Me._spezielleVereinbarungKz End Get Set Me._spezielleVereinbarungKz = Value End Set End Property Public Property SpezielleVereinbarungUmstand() As String Get Return Me._spezielleVereinbarungUmstand End Get Set Me._spezielleVereinbarungUmstand = Value End Set End Property Public Property EmpfaengerEORI() As String Get Return Me._empfaengerEORI End Get Set Me._empfaengerEORI = Value End Set End Property Public Property EmpfaengerNLNR() As String Get Return Me._empfaengerNLNR End Get Set Me._empfaengerNLNR = Value End Set End Property Public Property EmpfaengerFirmenbezeichnung() As String Get Return Me._empfaengerFirmenbezeichnung End Get Set Me._empfaengerFirmenbezeichnung = Value End Set End Property Public Property EmpfaengerNationalitaet() As String Get Return Me._empfaengerNationalitaet End Get Set Me._empfaengerNationalitaet = Value End Set End Property Public Property EmpfaengerStrasseHausNr() As String Get Return Me._empfaengerStrasseHausNr End Get Set Me._empfaengerStrasseHausNr = Value End Set End Property Public Property EmpfaengerPLZS() As String Get Return Me._empfaengerPLZS End Get Set Me._empfaengerPLZS = Value End Set End Property Public Property EmpfaengerOrtS() As String Get Return Me._empfaengerOrtS End Get Set Me._empfaengerOrtS = Value End Set End Property Public Property EmpfaengerOrtsteil() As String Get Return Me._empfaengerOrtsteil End Get Set Me._empfaengerOrtsteil = Value End Set End Property Public Property DatenuebermittlungEORI() As String Get Return Me._datenuebermittlungEORI End Get Set Me._datenuebermittlungEORI = Value End Set End Property Public Property ErwerberAndererMitgliedstaatEORI() As String Get Return Me._erwerberAndererMitgliedstaatEORI End Get Set Me._erwerberAndererMitgliedstaatEORI = Value End Set End Property Public Property ErwerberAndererMitgliedstaatNLNR() As String Get Return Me._erwerberAndererMitgliedstaatNLNR End Get Set Me._erwerberAndererMitgliedstaatNLNR = Value End Set End Property Public Property ErwerberFirmenbezeichnung() As String Get Return Me._erwerberFirmenbezeichnung End Get Set Me._erwerberFirmenbezeichnung = Value End Set End Property Public Property ErwerberNationalitaet() As String Get Return Me._erwerberNationalitaet End Get Set Me._erwerberNationalitaet = Value End Set End Property Public Property ErwerberStrasseHausNr() As String Get Return Me._erwerberStrasseHausNr End Get Set Me._erwerberStrasseHausNr = Value End Set End Property Public Property ErwerberPLZS() As String Get Return Me._erwerberPLZS End Get Set Me._erwerberPLZS = Value End Set End Property Public Property ErwerberOrtS() As String Get Return Me._erwerberOrtS End Get Set Me._erwerberOrtS = Value End Set End Property Public Property ErwerberOrtsteil() As String Get Return Me._erwerberOrtsteil End Get Set Me._erwerberOrtsteil = Value End Set End Property Public Property ErwerberUStIdNrAndererMitgliedstaat() As String Get Return Me._erwerberUStIdNrAndererMitgliedstaat End Get Set Me._erwerberUStIdNrAndererMitgliedstaat = Value End Set End Property Public Property VersenderAusfuehrerEORI() As String Get Return Me._versenderAusfuehrerEORI End Get Set Me._versenderAusfuehrerEORI = Value End Set End Property Public Property VersenderAusfuehrerFirmenbezeichnung() As String Get Return Me._versenderAusfuehrerFirmenbezeichnung End Get Set Me._versenderAusfuehrerFirmenbezeichnung = Value End Set End Property Public Property VersenderAusfuehrerNationalitaet() As String Get Return Me._versenderAusfuehrerNationalitaet End Get Set Me._versenderAusfuehrerNationalitaet = Value End Set End Property Public Property VersenderAusfuehrerStrasseHausNr() As String Get Return Me._versenderAusfuehrerStrasseHausNr End Get Set Me._versenderAusfuehrerStrasseHausNr = Value End Set End Property Public Property VersenderAusfuehrerPLZS() As String Get Return Me._versenderAusfuehrerPLZS End Get Set Me._versenderAusfuehrerPLZS = Value End Set End Property Public Property VersenderAusfuehrerOrtS() As String Get Return Me._versenderAusfuehrerOrtS End Get Set Me._versenderAusfuehrerOrtS = Value End Set End Property Public Property VersenderAusfuehrerOrtsteil() As String Get Return Me._versenderAusfuehrerOrtsteil End Get Set Me._versenderAusfuehrerOrtsteil = Value End Set End Property Public Property Unterlage() As List(Of AnmeldungVBTyp) Get Return Me._unterlage End Get Set Me._unterlage = Value End Set End Property Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set Me._applicationInternalData = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize KopfdatenBefundVereinfachteZollanmeldungTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes KopfdatenBefundVereinfachteZollanmeldungTyp object ''' ''' string 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 StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.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 Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp Return CType(SerializerXml.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) End Function #End Region ''' ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object ''' ''' 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 FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class TransaktionFreierVerkehrTyp #Region "Private fields" Private _iOPartner As String Private _iODivision1 As String Private _iODivision2 As String Private _iODivision3 As String Private _iOReferenz As String Private _iODatumZeit As Date Private _version As String Private Shared _serializerXml As XmlSerializer #End Region Public Property IOPartner() As String Get Return Me._iOPartner End Get Set Me._iOPartner = Value End Set End Property Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set Me._iODivision1 = Value End Set End Property Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set Me._iODivision2 = Value End Set End Property Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set Me._iODivision3 = Value End Set End Property Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set Me._iOReferenz = Value End Set End Property Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set Me._iODatumZeit = Value End Set End Property Public Property Version() As String Get Return Me._version End Get Set Me._version = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TransaktionFreierVerkehrTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes TransaktionFreierVerkehrTyp object ''' ''' string to deserialize ''' Output TransaktionFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) End Function #End Region ''' ''' Serializes current TransaktionFreierVerkehrTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object ''' ''' File to load and deserialize ''' Output TransaktionFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class Partial Public Class DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _transaktion As TransaktionFreierVerkehrTyp Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub Public Property Transaktion() As TransaktionFreierVerkehrTyp Get Return Me._transaktion End Get Set Me._transaktion = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschFreierVerkehrTyp object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes DatenaustauschFreierVerkehrTyp object ''' ''' string to deserialize ''' Output DatenaustauschFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) End Function #End Region ''' ''' Serializes current DatenaustauschFreierVerkehrTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object ''' ''' File to load and deserialize ''' Output DatenaustauschFreierVerkehrTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class End Namespace #Enable Warning