'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com '' {"TargetFramework":"Net47","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"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 FreierVerkehrAktVeredelUmwandlung_004 Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp Inherits DatenaustauschFreierVerkehrTyp #Region "Private fields" Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() End Sub Public Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) Get Return Me._einzelAnmeldung End Get Set Me._einzelAnmeldung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize FreierVerkehrAktVeredelUmwandlungAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp object ''' ''' string to deserialize ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp Return CType(SerializerXml.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp) End Function #End Region ''' ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp object ''' ''' File to load and deserialize ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp Get Return Me._objektIdentifizierung End Get Set Me._objektIdentifizierung = Value End Set End Property Public Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp Get Return Me._kopfDaten End Get Set Me._kopfDaten = Value End Set End Property Public Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) Get Return Me._warenPosition End Get Set Me._warenPosition = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' string to deserialize ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp Return CType(SerializerXml.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) End Function #End Region ''' ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' File to load and deserialize ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 ObjektIdentifizierungAVUVTyp #Region "Private fields" Private _objektName As String Private _objektAlias As String Private _anmeldungArt As String Private _objektQuittung As String Private _bezugsnummerVorblendung As String Private _userVorblendung As String Private _kopieVon As String Private _objektAktion As List(Of String) Private _compliancePruefung As String Private _bearbeiter As String Private _anfBemerkungStatusanzeige As String Private _absenderSystemName As String Private _shipmentReferenz As String Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._objektAktion = New List(Of String)() End Sub Public Property ObjektName() As String Get Return Me._objektName End Get Set Me._objektName = Value End Set End Property Public Property ObjektAlias() As String Get Return Me._objektAlias End Get Set Me._objektAlias = Value End Set End Property Public Property AnmeldungArt() As String Get Return Me._anmeldungArt End Get Set Me._anmeldungArt = Value End Set End Property Public Property ObjektQuittung() As String Get Return Me._objektQuittung End Get Set Me._objektQuittung = Value End Set End Property Public Property BezugsnummerVorblendung() As String Get Return Me._bezugsnummerVorblendung End Get Set Me._bezugsnummerVorblendung = Value End Set End Property Public Property UserVorblendung() As String Get Return Me._userVorblendung End Get Set Me._userVorblendung = Value End Set End Property Public Property KopieVon() As String Get Return Me._kopieVon End Get Set Me._kopieVon = Value End Set End Property Public Property ObjektAktion() As List(Of String) Get Return Me._objektAktion End Get Set Me._objektAktion = Value End Set End Property Public Property CompliancePruefung() As String Get Return Me._compliancePruefung End Get Set Me._compliancePruefung = 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 AnfBemerkungStatusanzeige() As String Get Return Me._anfBemerkungStatusanzeige End Get Set Me._anfBemerkungStatusanzeige = Value End Set End Property Public Property AbsenderSystemName() As String Get Return Me._absenderSystemName End Get Set Me._absenderSystemName = 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(ObjektIdentifizierungAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 ObjektIdentifizierungAVUVTyp object ''' ''' string to deserialize ''' Output ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAVUVTyp) End Function #End Region ''' ''' Serializes current ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp object ''' ''' File to load and deserialize ''' Output ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp 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 AussenhandelsstatistikAVUVTyp #Region "Private fields" Private _verkehrszweigInland As String Private _verkehrszweigGrenze As String Private _versendungsland As String Private _bestimmungsbundesland As String Private _bestimmungsland As String Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String Private _befoerderungsmittelGrenzeArt As String Private _befoerderungsmittelBeschreibung As String Private _artGeschaeft As String Private _statistikstatus As String Private Shared _serializerXml As XmlSerializer #End Region Public Property VerkehrszweigInland() As String Get Return Me._verkehrszweigInland End Get Set Me._verkehrszweigInland = Value End Set End Property Public Property VerkehrszweigGrenze() As String Get Return Me._verkehrszweigGrenze End Get Set Me._verkehrszweigGrenze = Value End Set End Property Public Property Versendungsland() As String Get Return Me._versendungsland End Get Set Me._versendungsland = 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 Bestimmungsland() As String Get Return Me._bestimmungsland End Get Set Me._bestimmungsland = Value End Set End Property Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String Get Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode End Get Set Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value End Set End Property Public Property BefoerderungsmittelGrenzeArt() As String Get Return Me._befoerderungsmittelGrenzeArt End Get Set Me._befoerderungsmittelGrenzeArt = Value End Set End Property Public Property BefoerderungsmittelBeschreibung() As String Get Return Me._befoerderungsmittelBeschreibung End Get Set Me._befoerderungsmittelBeschreibung = Value End Set End Property Public Property ArtGeschaeft() As String Get Return Me._artGeschaeft End Get Set Me._artGeschaeft = Value End Set End Property Public Property Statistikstatus() As String Get Return Me._statistikstatus End Get Set Me._statistikstatus = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AussenhandelsstatistikAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AussenhandelsstatistikAVUVTyp object ''' ''' string to deserialize ''' Output AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp Return CType(SerializerXml.Deserialize(s), AussenhandelsstatistikAVUVTyp) End Function #End Region ''' ''' Serializes current AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp object ''' ''' File to load and deserialize ''' Output AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp 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 AbzugHinzurechnungAVUVTyp #Region "Private fields" Private _artCode As String Private _beschreibungAndereZahlungen As String Private _betrag As String Private _waehrung As String Private _kursVereinbartKz As String Private _kursDatum As Date Private _prozentsatz As String Private _betragInEUR As String Private _iATAKursKz As String Private _frachtkostenBerechnungsgrundlage As String Private _kursAuslandswaehrung As String 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 BeschreibungAndereZahlungen() As String Get Return Me._beschreibungAndereZahlungen End Get Set Me._beschreibungAndereZahlungen = Value End Set End Property Public Property Betrag() As String Get Return Me._betrag End Get Set Me._betrag = 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 KursDatum() As Date Get Return Me._kursDatum End Get Set Me._kursDatum = Value End Set End Property Public Property Prozentsatz() As String Get Return Me._prozentsatz End Get Set Me._prozentsatz = Value End Set End Property Public Property BetragInEUR() As String Get Return Me._betragInEUR End Get Set Me._betragInEUR = 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 FrachtkostenBerechnungsgrundlage() As String Get Return Me._frachtkostenBerechnungsgrundlage End Get Set Me._frachtkostenBerechnungsgrundlage = Value End Set End Property Public Property KursAuslandswaehrung() As String Get Return Me._kursAuslandswaehrung End Get Set Me._kursAuslandswaehrung = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AbzugHinzurechnungAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AbzugHinzurechnungAVUVTyp object ''' ''' string to deserialize ''' Output AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungAVUVTyp) End Function #End Region ''' ''' Serializes current AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp object ''' ''' File to load and deserialize ''' Output AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp 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 BesondereWertangabeAVUVTyp #Region "Private fields" Private _wert As String Private _preisartCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Wert() As String Get Return Me._wert End Get Set Me._wert = Value End Set End Property Public Property PreisartCode() As String Get Return Me._preisartCode End Get Set Me._preisartCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize BesondereWertangabeAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 BesondereWertangabeAVUVTyp object ''' ''' string to deserialize ''' Output BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp Return CType(SerializerXml.Deserialize(s), BesondereWertangabeAVUVTyp) End Function #End Region ''' ''' Serializes current BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp object ''' ''' File to load and deserialize ''' Output BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp 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 UnterlageVZPositionAVUVTyp #Region "Private fields" Private _bereich As String Private _art As String Private _nummer As String Private _datumAusstellung As Date Private _vorlageKz As String Private _abschreibungsMenge As String Private _abschreibungsMengeMasseinheit As String Private _abschreibungsMengeMasseinheitQualifier As String 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 Public Property VorlageKz() As String Get Return Me._vorlageKz End Get Set Me._vorlageKz = Value End Set End Property Public Property AbschreibungsMenge() As String 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 Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize UnterlageVZPositionAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 UnterlageVZPositionAVUVTyp object ''' ''' string to deserialize ''' Output UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp Return CType(SerializerXml.Deserialize(s), UnterlageVZPositionAVUVTyp) End Function #End Region ''' ''' Serializes current UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp object ''' ''' File to load and deserialize ''' Output UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp 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 SonderfalldatenAVUVTyp #Region "Private fields" Private _sonderabgabenGruppeCode As String Private _anwendungArt As String Private _satzBetragFaktor As String Private Shared _serializerXml As XmlSerializer #End Region Public Property SonderabgabenGruppeCode() As String Get Return Me._sonderabgabenGruppeCode End Get Set Me._sonderabgabenGruppeCode = Value End Set End Property Public Property AnwendungArt() As String Get Return Me._anwendungArt End Get Set Me._anwendungArt = Value End Set End Property Public Property SatzBetragFaktor() As String 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(SonderfalldatenAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SonderfalldatenAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 SonderfalldatenAVUVTyp object ''' ''' string to deserialize ''' Output SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp Return CType(SerializerXml.Deserialize(s), SonderfalldatenAVUVTyp) End Function #End Region ''' ''' Serializes current SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp object ''' ''' File to load and deserialize ''' Output SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp 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 AbgabenminderungAVUVTyp #Region "Private fields" Private _abgabengruppeCode As String Private _minderungsbetrag As String Private Shared _serializerXml As XmlSerializer #End Region Public Property AbgabengruppeCode() As String Get Return Me._abgabengruppeCode End Get Set Me._abgabengruppeCode = Value End Set End Property Public Property Minderungsbetrag() As String 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(AbgabenminderungAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AbgabenminderungAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AbgabenminderungAVUVTyp object ''' ''' string to deserialize ''' Output AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp Return CType(SerializerXml.Deserialize(s), AbgabenminderungAVUVTyp) End Function #End Region ''' ''' Serializes current AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp object ''' ''' File to load and deserialize ''' Output AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp 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 VerbrauchssteuerAVUVTyp #Region "Private fields" Private _verbrauchsteuerCode As String Private _verbrauchssteuerMenge As String Private _verbrauchssteuerMasseinheitCode As String Private _verbrauchssteuerMasseinheitQualifier As String Private _gradProzent As String Private _verbrauchssteuerWertBasis As String 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 String 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 String Get Return Me._gradProzent End Get Set Me._gradProzent = Value End Set End Property Public Property VerbrauchssteuerWertBasis() As String 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(VerbrauchssteuerAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VerbrauchssteuerAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 VerbrauchssteuerAVUVTyp object ''' ''' string to deserialize ''' Output VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp Return CType(SerializerXml.Deserialize(s), VerbrauchssteuerAVUVTyp) End Function #End Region ''' ''' Serializes current VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp object ''' ''' File to load and deserialize ''' Output VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp 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 BeguenstigungsMengeAVUVTyp #Region "Private fields" Private _menge As String Private _masseinheitCode As String Private _masseinheitQualifier 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 MasseinheitCode() As String Get Return Me._masseinheitCode End Get Set Me._masseinheitCode = Value End Set End Property Public Property MasseinheitQualifier() As String Get Return Me._masseinheitQualifier End Get Set Me._masseinheitQualifier = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize BeguenstigungsMengeAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 BeguenstigungsMengeAVUVTyp object ''' ''' string to deserialize ''' Output BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp Return CType(SerializerXml.Deserialize(s), BeguenstigungsMengeAVUVTyp) End Function #End Region ''' ''' Serializes current BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp object ''' ''' File to load and deserialize ''' Output BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp 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 GehaltsangabenAVUVTyp #Region "Private fields" Private _artCode As String Private _gradProzent As String 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 String 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(GehaltsangabenAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize GehaltsangabenAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 GehaltsangabenAVUVTyp object ''' ''' string to deserialize ''' Output GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp Return CType(SerializerXml.Deserialize(s), GehaltsangabenAVUVTyp) End Function #End Region ''' ''' Serializes current GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp object ''' ''' File to load and deserialize ''' Output GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp 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 AVVeredelungserzeugnisTyp #Region "Private fields" Private _warenbezeichnung As String Private _ausbeuteart As String Private _ausbeutesatz As String Private _kNCode As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Warenbezeichnung() As String Get Return Me._warenbezeichnung End Get Set Me._warenbezeichnung = Value End Set End Property Public Property Ausbeuteart() As String Get Return Me._ausbeuteart End Get Set Me._ausbeuteart = Value End Set End Property Public Property Ausbeutesatz() As String Get Return Me._ausbeutesatz End Get Set Me._ausbeutesatz = Value End Set End Property Public Property KNCode() As String Get Return Me._kNCode End Get Set Me._kNCode = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AVVeredelungserzeugnisTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AVVeredelungserzeugnisTyp object ''' ''' string to deserialize ''' Output AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp Return CType(SerializerXml.Deserialize(s), AVVeredelungserzeugnisTyp) End Function #End Region ''' ''' Serializes current AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp object ''' ''' File to load and deserialize ''' Output AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp 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 WarenMengeAVUVTyp #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(WarenMengeAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize WarenMengeAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 WarenMengeAVUVTyp object ''' ''' string to deserialize ''' Output WarenMengeAVUVTyp 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 WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp Return CType(SerializerXml.Deserialize(s), WarenMengeAVUVTyp) End Function #End Region ''' ''' Serializes current WarenMengeAVUVTyp 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 WarenMengeAVUVTyp object ''' ''' File to load and deserialize ''' Output WarenMengeAVUVTyp 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 WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp #Region "Private fields" Private _positionsnummer As String Private _artikelNummer As String Private _warenNummerEZT As String Private _warenNummerZusatzCode As List(Of String) Private _warenNummerZusatz1 As String Private _warenNummerZusatz2 As String Private _warenBezeichnung As String Private _verfahrenscodeVorangegangenesVerfahren As String Private _abgabensteuerungKz As String Private _eUCode As List(Of String) Private _ursprungslandCode As String Private _praeferenzursprungsland As String Private _rohmasse As String Private _eigenmasse As String Private _aHStatMenge As String Private _aHStatMengeMasseinheit As String Private _aHStatMengeQualifier As String Private _kostenEUSt As String Private _aHStatWert As String Private _packstueckAnzahl As String Private _packstueckArt As String Private _packstueckZeichen As String Private _warenMenge As List(Of WarenMengeAVUVTyp) Private _warenMengeZoll As String Private _warenMengeZollMasseinheit As String Private _warenMengeZollMasseinheitQualifier As String Private _beguenstigungBeantragtCode As String Private _kontingentnummer As List(Of String) Private _positionsZusatz As String Private _aHStatWertManuellKZ As String Private _artikelpreis As String Private _ortVerbringens As String Private _abflughafenIATACode As String Private _warenmengeAVUVZugang As String Private _warenmengeAVUVZugangMasseinheit As String Private _warenmengeAVUVZugangMasseinheitQualifier As String Private _warenmengeAgrarzoll As String Private _warenmengeAgrarzollMasseinheit As String Private _warenmengeAgrarzollMasseinheitQualifier As String Private _sachbereich As String Private _bedingungCode As String Private _veredelungWertsteigerung As String Private _tabakSteuerzeichenID As String Private _aVWirtschaftlicheVoraussetzungen As String Private _aVNaemlichkeitsmittel As String Private _aVErlaeuterungNaemlichkeit As String Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) Private _vZAStatus As String Private _eGZStatus As String Private _dV1Status As String Private _anmeldeArt As String Private _befundDatum As Date Private _anmelderAdressCodeEORI As String Private _anmelderAdressCodeZollnummer As String Private _zollverfahren As String Private _abrechnungszollstelleCode As String Private _sachbereichCode As String Private _registriernummervZA As String Private _anmeldeVerfahren As String Private _bewilligungsnummer As String Private _bewilligungsnummerEndverwenderEGZDurchDritte As String Private _zollwert As String Private _luftfrachtkostenGesamt As String Private _iATAKursKz As String Private _luftfrachtkostenGesamtWaehrung As String Private _kursVereinbartKz As String Private _kursBetragVereinbart As String Private _kursDatum As Date Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() Me._kontingentnummer = New List(Of String)() Me._warenMenge = New List(Of WarenMengeAVUVTyp)() Me._eUCode = New List(Of String)() Me._warenNummerZusatzCode = New List(Of String)() End Sub Public Property Positionsnummer() As String Get Return Me._positionsnummer End Get Set Me._positionsnummer = 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 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 WarenNummerZusatz1() As String Get Return Me._warenNummerZusatz1 End Get Set Me._warenNummerZusatz1 = Value End Set End Property Public Property WarenNummerZusatz2() As String Get Return Me._warenNummerZusatz2 End Get Set Me._warenNummerZusatz2 = Value End Set End Property Public Property WarenBezeichnung() As String Get Return Me._warenBezeichnung End Get Set Me._warenBezeichnung = Value End Set End Property Public Property VerfahrenscodeVorangegangenesVerfahren() As String Get Return Me._verfahrenscodeVorangegangenesVerfahren End Get Set Me._verfahrenscodeVorangegangenesVerfahren = 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 UrsprungslandCode() As String Get Return Me._ursprungslandCode End Get Set Me._ursprungslandCode = Value End Set End Property Public Property Praeferenzursprungsland() As String Get Return Me._praeferenzursprungsland End Get Set Me._praeferenzursprungsland = Value End Set End Property Public Property Rohmasse() As String Get Return Me._rohmasse End Get Set Me._rohmasse = Value End Set End Property Public Property Eigenmasse() As String Get Return Me._eigenmasse End Get Set Me._eigenmasse = Value End Set End Property Public Property AHStatMenge() As String 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 KostenEUSt() As String Get Return Me._kostenEUSt End Get Set Me._kostenEUSt = 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 PackstueckAnzahl() As String Get Return Me._packstueckAnzahl End Get Set Me._packstueckAnzahl = Value End Set End Property Public Property PackstueckArt() As String Get Return Me._packstueckArt End Get Set Me._packstueckArt = Value End Set End Property Public Property PackstueckZeichen() As String Get Return Me._packstueckZeichen End Get Set Me._packstueckZeichen = Value End Set End Property Public Property WarenMenge() As List(Of WarenMengeAVUVTyp) Get Return Me._warenMenge End Get Set Me._warenMenge = Value End Set End Property Public Property WarenMengeZoll() As String Get Return Me._warenMengeZoll End Get Set Me._warenMengeZoll = Value End Set End Property Public Property WarenMengeZollMasseinheit() As String Get Return Me._warenMengeZollMasseinheit End Get Set Me._warenMengeZollMasseinheit = Value End Set End Property Public Property WarenMengeZollMasseinheitQualifier() As String Get Return Me._warenMengeZollMasseinheitQualifier End Get Set Me._warenMengeZollMasseinheitQualifier = 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 Kontingentnummer() As List(Of String) Get Return Me._kontingentnummer End Get Set Me._kontingentnummer = 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 AHStatWertManuellKZ() As String Get Return Me._aHStatWertManuellKZ End Get Set Me._aHStatWertManuellKZ = Value End Set End Property Public Property Artikelpreis() As String Get Return Me._artikelpreis End Get Set Me._artikelpreis = 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 WarenmengeAVUVZugang() As String Get Return Me._warenmengeAVUVZugang End Get Set Me._warenmengeAVUVZugang = Value End Set End Property Public Property WarenmengeAVUVZugangMasseinheit() As String Get Return Me._warenmengeAVUVZugangMasseinheit End Get Set Me._warenmengeAVUVZugangMasseinheit = Value End Set End Property Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String Get Return Me._warenmengeAVUVZugangMasseinheitQualifier End Get Set Me._warenmengeAVUVZugangMasseinheitQualifier = Value End Set End Property Public Property WarenmengeAgrarzoll() As String Get Return Me._warenmengeAgrarzoll End Get Set Me._warenmengeAgrarzoll = Value End Set End Property Public Property WarenmengeAgrarzollMasseinheit() As String Get Return Me._warenmengeAgrarzollMasseinheit End Get Set Me._warenmengeAgrarzollMasseinheit = Value End Set End Property Public Property WarenmengeAgrarzollMasseinheitQualifier() As String Get Return Me._warenmengeAgrarzollMasseinheitQualifier End Get Set Me._warenmengeAgrarzollMasseinheitQualifier = 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 BedingungCode() As String Get Return Me._bedingungCode End Get Set Me._bedingungCode = Value End Set End Property Public Property VeredelungWertsteigerung() As String Get Return Me._veredelungWertsteigerung End Get Set Me._veredelungWertsteigerung = 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 AVWirtschaftlicheVoraussetzungen() As String Get Return Me._aVWirtschaftlicheVoraussetzungen End Get Set Me._aVWirtschaftlicheVoraussetzungen = Value End Set End Property Public Property AVNaemlichkeitsmittel() As String Get Return Me._aVNaemlichkeitsmittel End Get Set Me._aVNaemlichkeitsmittel = Value End Set End Property Public Property AVErlaeuterungNaemlichkeit() As String Get Return Me._aVErlaeuterungNaemlichkeit End Get Set Me._aVErlaeuterungNaemlichkeit = Value End Set End Property Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) Get Return Me._aVVeredelungserzeugnis End Get Set Me._aVVeredelungserzeugnis = Value End Set End Property Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) Get Return Me._gehaltsangaben End Get Set Me._gehaltsangaben = Value End Set End Property Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp Get Return Me._beguenstigungsmenge End Get Set Me._beguenstigungsmenge = Value End Set End Property Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) Get Return Me._verbrauchssteuer End Get Set Me._verbrauchssteuer = Value End Set End Property Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) Get Return Me._abgabenminderung End Get Set Me._abgabenminderung = Value End Set End Property Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) Get Return Me._sonderfalldaten End Get Set Me._sonderfalldaten = Value End Set End Property Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) Get Return Me._unterlage End Get Set Me._unterlage = Value End Set End Property Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) Get Return Me._besondereWertangabe End Get Set Me._besondereWertangabe = Value End Set End Property Public Property VZAStatus() As String Get Return Me._vZAStatus End Get Set Me._vZAStatus = Value End Set End Property Public Property EGZStatus() As String Get Return Me._eGZStatus End Get Set Me._eGZStatus = Value End Set End Property Public Property DV1Status() As String Get Return Me._dV1Status End Get Set Me._dV1Status = Value End Set End Property Public Property AnmeldeArt() As String Get Return Me._anmeldeArt End Get Set Me._anmeldeArt = Value End Set End Property Public Property BefundDatum() As Date Get Return Me._befundDatum End Get Set Me._befundDatum = Value End Set End Property Public Property AnmelderAdressCodeEORI() As String Get Return Me._anmelderAdressCodeEORI End Get Set Me._anmelderAdressCodeEORI = Value End Set End Property Public Property AnmelderAdressCodeZollnummer() As String Get Return Me._anmelderAdressCodeZollnummer End Get Set Me._anmelderAdressCodeZollnummer = Value End Set End Property Public Property Zollverfahren() As String Get Return Me._zollverfahren End Get Set Me._zollverfahren = Value End Set End Property Public Property AbrechnungszollstelleCode() As String Get Return Me._abrechnungszollstelleCode End Get Set Me._abrechnungszollstelleCode = Value End Set End Property Public Property SachbereichCode() As String Get Return Me._sachbereichCode End Get Set Me._sachbereichCode = Value End Set End Property Public Property RegistriernummervZA() As String Get Return Me._registriernummervZA End Get Set Me._registriernummervZA = Value End Set End Property Public Property AnmeldeVerfahren() As String Get Return Me._anmeldeVerfahren End Get Set Me._anmeldeVerfahren = 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 BewilligungsnummerEndverwenderEGZDurchDritte() As String Get Return Me._bewilligungsnummerEndverwenderEGZDurchDritte End Get Set Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value End Set End Property Public Property Zollwert() As String Get Return Me._zollwert End Get Set Me._zollwert = Value End Set End Property Public Property LuftfrachtkostenGesamt() As String 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 String 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 AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) Get Return Me._abzugHinzurechnung End Get Set Me._abzugHinzurechnung = Value End Set End Property Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp Get Return Me._aussenhandelsstatistik End Get Set Me._aussenhandelsstatistik = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' string to deserialize ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp Return CType(SerializerXml.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp) End Function #End Region ''' ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' File to load and deserialize ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 AdressenVzImportAVUVTyp #Region "Private fields" Private _adressTyp As String Private _adressCode As String Private _teilnehmerEORI As String Private _teilnehmerNLNR As String Private _zollNr As String Private _nameFirma As String Private _strasseHausNr As String Private _ortsteil As String Private _landCode As String Private _pLZS As String Private _ortS As String Private _uStIDAnmelder As String Private _finanzamtIDAnmelder As String Private _sitzEinfuehrer As String Private _bewilligungsnummer As String Private _bewilligungFachVerfahren As String Private _bewilligungsnummerEndverwender As String Private Shared _serializerXml As XmlSerializer #End Region Public Property AdressTyp() As String Get Return Me._adressTyp End Get Set Me._adressTyp = Value End Set End Property Public Property AdressCode() As String Get Return Me._adressCode End Get Set Me._adressCode = Value End Set End Property Public Property TeilnehmerEORI() As String Get Return Me._teilnehmerEORI End Get Set Me._teilnehmerEORI = Value End Set End Property Public Property TeilnehmerNLNR() As String Get Return Me._teilnehmerNLNR End Get Set Me._teilnehmerNLNR = Value End Set End Property Public Property ZollNr() As String Get Return Me._zollNr End Get Set Me._zollNr = Value End Set End Property Public Property NameFirma() As String Get Return Me._nameFirma End Get Set Me._nameFirma = Value End Set End Property Public Property StrasseHausNr() As String Get Return Me._strasseHausNr End Get Set Me._strasseHausNr = Value End Set End Property Public Property Ortsteil() As String Get Return Me._ortsteil End Get Set Me._ortsteil = Value End Set End Property Public Property LandCode() As String Get Return Me._landCode End Get Set Me._landCode = Value End Set End Property Public Property PLZS() As String Get Return Me._pLZS End Get Set Me._pLZS = Value End Set End Property Public Property OrtS() As String Get Return Me._ortS End Get Set Me._ortS = Value End Set End Property Public Property UStIDAnmelder() As String Get Return Me._uStIDAnmelder End Get Set Me._uStIDAnmelder = Value End Set End Property Public Property FinanzamtIDAnmelder() As String Get Return Me._finanzamtIDAnmelder End Get Set Me._finanzamtIDAnmelder = Value End Set End Property Public Property SitzEinfuehrer() As String Get Return Me._sitzEinfuehrer End Get Set Me._sitzEinfuehrer = 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 BewilligungFachVerfahren() As String Get Return Me._bewilligungFachVerfahren End Get Set Me._bewilligungFachVerfahren = Value End Set End Property Public Property BewilligungsnummerEndverwender() As String Get Return Me._bewilligungsnummerEndverwender End Get Set Me._bewilligungsnummerEndverwender = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AdressenVzImportAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AdressenVzImportAVUVTyp object ''' ''' string to deserialize ''' Output AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp Return CType(SerializerXml.Deserialize(s), AdressenVzImportAVUVTyp) End Function #End Region ''' ''' Serializes current AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp object ''' ''' File to load and deserialize ''' Output AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp #Region "Private fields" Private _kennnummer As String Private _steuerbeteiligterTIN As String Private _name As String Private _strasseUndHausnummer As String Private _land As String Private _pLZ As String Private _ort As String Private _ortsteil As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Kennnummer() As String Get Return Me._kennnummer End Get Set Me._kennnummer = Value End Set End Property Public Property SteuerbeteiligterTIN() As String Get Return Me._steuerbeteiligterTIN End Get Set Me._steuerbeteiligterTIN = Value End Set End Property Public Property Name() As String Get Return Me._name End Get Set Me._name = Value End Set End Property Public Property StrasseUndHausnummer() As String Get Return Me._strasseUndHausnummer End Get Set Me._strasseUndHausnummer = Value End Set End Property Public Property Land() As String Get Return Me._land End Get Set Me._land = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property Ortsteil() As String Get Return Me._ortsteil End Get Set Me._ortsteil = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ZusaetzlicheSteuerlicheVerweiseTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 ZusaetzlicheSteuerlicheVerweiseTyp object ''' ''' string to deserialize ''' Output ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp Return CType(SerializerXml.Deserialize(s), ZusaetzlicheSteuerlicheVerweiseTyp) End Function #End Region ''' ''' Serializes current ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp object ''' ''' File to load and deserialize ''' Output ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp 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 AVBuchhaltVeredelungTyp #Region "Private fields" Private _strasse As String Private _land As String Private _pLZ As String Private _ort As String Private _ortsteil As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Strasse() As String Get Return Me._strasse End Get Set Me._strasse = Value End Set End Property Public Property Land() As String Get Return Me._land End Get Set Me._land = Value End Set End Property Public Property PLZ() As String Get Return Me._pLZ End Get Set Me._pLZ = Value End Set End Property Public Property Ort() As String Get Return Me._ort End Get Set Me._ort = Value End Set End Property Public Property Ortsteil() As String Get Return Me._ortsteil End Get Set Me._ortsteil = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AVBuchhaltVeredelungTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AVBuchhaltVeredelungTyp object ''' ''' string to deserialize ''' Output AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp Return CType(SerializerXml.Deserialize(s), AVBuchhaltVeredelungTyp) End Function #End Region ''' ''' Serializes current AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp object ''' ''' File to load and deserialize ''' Output AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp 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 BEAnteilZLAVUVPositionAVUVTyp #Region "Private fields" Private _registriernummerZugang As String Private _positionZugang As String Private _artikelcodeATZL As String Private _eigentuemerATZL As String Private _chargennummerATZL As String Private _ursprungslandATZL As String Private _atlasKz As String Private _warennummer As String Private _ueblicheBehandlungKz As String Private _handelsmenge As String Private _masseinheitHandelsmenge As String Private _qualifikatorHandelsmenge As String Private _abgangsmenge As String Private _masseinheitAbgangsmenge As String Private _qualifikatorAbgangsmenge As String Private _positionszusatz As String Private _warenbezogeneAngaben As String Private Shared _serializerXml As XmlSerializer #End Region Public Property RegistriernummerZugang() As String Get Return Me._registriernummerZugang End Get Set Me._registriernummerZugang = Value End Set End Property Public Property PositionZugang() As String Get Return Me._positionZugang End Get Set Me._positionZugang = Value End Set End Property Public Property ArtikelcodeATZL() As String Get Return Me._artikelcodeATZL End Get Set Me._artikelcodeATZL = Value End Set End Property Public Property EigentuemerATZL() As String Get Return Me._eigentuemerATZL End Get Set Me._eigentuemerATZL = Value End Set End Property Public Property ChargennummerATZL() As String Get Return Me._chargennummerATZL End Get Set Me._chargennummerATZL = Value End Set End Property Public Property UrsprungslandATZL() As String Get Return Me._ursprungslandATZL End Get Set Me._ursprungslandATZL = Value End Set End Property Public Property AtlasKz() As String Get Return Me._atlasKz End Get Set Me._atlasKz = Value End Set End Property Public Property Warennummer() As String Get Return Me._warennummer End Get Set Me._warennummer = Value End Set End Property Public Property UeblicheBehandlungKz() As String Get Return Me._ueblicheBehandlungKz End Get Set Me._ueblicheBehandlungKz = Value End Set End Property Public Property Handelsmenge() As String Get Return Me._handelsmenge End Get Set Me._handelsmenge = Value End Set End Property Public Property MasseinheitHandelsmenge() As String Get Return Me._masseinheitHandelsmenge End Get Set Me._masseinheitHandelsmenge = Value End Set End Property Public Property QualifikatorHandelsmenge() As String Get Return Me._qualifikatorHandelsmenge End Get Set Me._qualifikatorHandelsmenge = Value End Set End Property Public Property Abgangsmenge() As String Get Return Me._abgangsmenge End Get Set Me._abgangsmenge = Value End Set End Property Public Property MasseinheitAbgangsmenge() As String Get Return Me._masseinheitAbgangsmenge End Get Set Me._masseinheitAbgangsmenge = Value End Set End Property Public Property QualifikatorAbgangsmenge() As String Get Return Me._qualifikatorAbgangsmenge End Get Set Me._qualifikatorAbgangsmenge = 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 WarenbezogeneAngaben() As String Get Return Me._warenbezogeneAngaben End Get Set Me._warenbezogeneAngaben = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize BEAnteilZLAVUVPositionAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 BEAnteilZLAVUVPositionAVUVTyp object ''' ''' string to deserialize ''' Output BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp) End Function #End Region ''' ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp object ''' ''' File to load and deserialize ''' Output BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp 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 SumABeendigungsAnteilAVUVTyp #Region "Private fields" Private _sumARegistriernummer As String Private _sumAPosNr As String Private _beendigungsPackstueckzahl As String Private _artIdentifikation As String Private _verwahrerEORI As String Private _zollNummerVerwahrer As String Private _spezifOrdnungsbegriffArt As String Private _spezifOrdnungsbegriff As String Private Shared _serializerXml As XmlSerializer #End Region Public Property SumARegistriernummer() As String Get Return Me._sumARegistriernummer End Get Set Me._sumARegistriernummer = Value End Set End Property Public Property SumAPosNr() As String Get Return Me._sumAPosNr End Get Set Me._sumAPosNr = Value End Set End Property Public Property BeendigungsPackstueckzahl() As String Get Return Me._beendigungsPackstueckzahl End Get Set Me._beendigungsPackstueckzahl = Value End Set End Property Public Property ArtIdentifikation() As String Get Return Me._artIdentifikation End Get Set Me._artIdentifikation = Value End Set End Property Public Property VerwahrerEORI() As String Get Return Me._verwahrerEORI End Get Set Me._verwahrerEORI = Value End Set End Property Public Property ZollNummerVerwahrer() As String Get Return Me._zollNummerVerwahrer End Get Set Me._zollNummerVerwahrer = Value End Set End Property Public Property SpezifOrdnungsbegriffArt() As String Get Return Me._spezifOrdnungsbegriffArt End Get Set Me._spezifOrdnungsbegriffArt = Value End Set End Property Public Property SpezifOrdnungsbegriff() As String Get Return Me._spezifOrdnungsbegriff End Get Set Me._spezifOrdnungsbegriff = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SumABeendigungsAnteilAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 SumABeendigungsAnteilAVUVTyp object ''' ''' string to deserialize ''' Output SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp Return CType(SerializerXml.Deserialize(s), SumABeendigungsAnteilAVUVTyp) End Function #End Region ''' ''' Serializes current SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp object ''' ''' File to load and deserialize ''' Output SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp 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 AufschubAVUVTyp #Region "Private fields" Private _aufschubart As String Private _artAufschubantrag As String Private _aufschubnehmerEORI As String Private _kennbuchstabenAufschub As String Private _zollnummerAufschubnehmer As String Private _kontoBewHZA As String Private _kontoNr As String Private _aufschubBIN As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Aufschubart() As String Get Return Me._aufschubart End Get Set Me._aufschubart = Value End Set End Property Public Property ArtAufschubantrag() As String Get Return Me._artAufschubantrag End Get Set Me._artAufschubantrag = Value End Set End Property Public Property AufschubnehmerEORI() As String Get Return Me._aufschubnehmerEORI End Get Set Me._aufschubnehmerEORI = Value End Set End Property Public Property KennbuchstabenAufschub() As String Get Return Me._kennbuchstabenAufschub End Get Set Me._kennbuchstabenAufschub = Value End Set End Property Public Property ZollnummerAufschubnehmer() As String Get Return Me._zollnummerAufschubnehmer End Get Set Me._zollnummerAufschubnehmer = Value End Set End Property Public Property KontoBewHZA() As String Get Return Me._kontoBewHZA End Get Set Me._kontoBewHZA = Value End Set End Property Public Property KontoNr() As String Get Return Me._kontoNr End Get Set Me._kontoNr = Value End Set End Property Public Property AufschubBIN() As String Get Return Me._aufschubBIN End Get Set Me._aufschubBIN = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize AufschubAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 AufschubAVUVTyp object ''' ''' string to deserialize ''' Output AufschubAVUVTyp 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 AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AufschubAVUVTyp) 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 AufschubAVUVTyp) 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 AufschubAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp) 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 AufschubAVUVTyp Return CType(SerializerXml.Deserialize(s), AufschubAVUVTyp) End Function #End Region ''' ''' Serializes current AufschubAVUVTyp 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 AufschubAVUVTyp object ''' ''' File to load and deserialize ''' Output AufschubAVUVTyp 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 AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AufschubAVUVTyp) 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 AufschubAVUVTyp) 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 AufschubAVUVTyp 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 UnterlageVzKopfAVUVTyp #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(UnterlageVzKopfAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize UnterlageVzKopfAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 UnterlageVzKopfAVUVTyp object ''' ''' string to deserialize ''' Output UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp Return CType(SerializerXml.Deserialize(s), UnterlageVzKopfAVUVTyp) End Function #End Region ''' ''' Serializes current UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp object ''' ''' File to load and deserialize ''' Output UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp 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 DV1KostenverteilungAVUVTyp #Region "Private fields" Private _kostenart As String Private _kosten As String Private _kostenWaehrung As String Private _wechselkursArt As String Private _wechselkurs As String Private _wechselkursDatum As Date Private _verteilungsart As String Private _minimalbetrag As String Private _rabattProzent As String Private _skontoProzent As String Private _bemerkungen As String Private _versicherungBerechnenKz As String Private _prozentualerAnteil As String Private _imaginaererProfit As String Private _andereZahlung As String Private _summeRechnungManuell As String Private _summeFrachtManuell As String Private Shared _serializerXml As XmlSerializer #End Region Public Property Kostenart() As String Get Return Me._kostenart End Get Set Me._kostenart = Value End Set End Property Public Property Kosten() As String Get Return Me._kosten End Get Set Me._kosten = Value End Set End Property Public Property KostenWaehrung() As String Get Return Me._kostenWaehrung End Get Set Me._kostenWaehrung = Value End Set End Property Public Property WechselkursArt() As String Get Return Me._wechselkursArt End Get Set Me._wechselkursArt = Value End Set End Property Public Property Wechselkurs() As String Get Return Me._wechselkurs End Get Set Me._wechselkurs = Value End Set End Property Public Property WechselkursDatum() As Date Get Return Me._wechselkursDatum End Get Set Me._wechselkursDatum = Value End Set End Property Public Property Verteilungsart() As String Get Return Me._verteilungsart End Get Set Me._verteilungsart = Value End Set End Property Public Property Minimalbetrag() As String Get Return Me._minimalbetrag End Get Set Me._minimalbetrag = Value End Set End Property Public Property RabattProzent() As String Get Return Me._rabattProzent End Get Set Me._rabattProzent = Value End Set End Property Public Property SkontoProzent() As String Get Return Me._skontoProzent End Get Set Me._skontoProzent = Value End Set End Property Public Property Bemerkungen() As String Get Return Me._bemerkungen End Get Set Me._bemerkungen = Value End Set End Property Public Property VersicherungBerechnenKz() As String Get Return Me._versicherungBerechnenKz End Get Set Me._versicherungBerechnenKz = Value End Set End Property Public Property ProzentualerAnteil() As String Get Return Me._prozentualerAnteil End Get Set Me._prozentualerAnteil = Value End Set End Property Public Property ImaginaererProfit() As String Get Return Me._imaginaererProfit End Get Set Me._imaginaererProfit = Value End Set End Property Public Property AndereZahlung() As String Get Return Me._andereZahlung End Get Set Me._andereZahlung = Value End Set End Property Public Property SummeRechnungManuell() As String Get Return Me._summeRechnungManuell End Get Set Me._summeRechnungManuell = Value End Set End Property Public Property SummeFrachtManuell() As String Get Return Me._summeFrachtManuell End Get Set Me._summeFrachtManuell = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1KostenverteilungAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize DV1KostenverteilungAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 DV1KostenverteilungAVUVTyp object ''' ''' string to deserialize ''' Output DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp Return CType(SerializerXml.Deserialize(s), DV1KostenverteilungAVUVTyp) End Function #End Region ''' ''' Serializes current DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp object ''' ''' File to load and deserialize ''' Output DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp 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 DV1AngabenAVUVTyp #Region "Private fields" Private _dV1Kz 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 _iATAAbflughafen As String Private Shared _serializerXml As XmlSerializer #End Region Public Property DV1Kz() As String Get Return Me._dV1Kz End Get Set Me._dV1Kz = 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 IATAAbflughafen() As String Get Return Me._iATAAbflughafen End Get Set Me._iATAAbflughafen = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize DV1AngabenAVUVTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 DV1AngabenAVUVTyp object ''' ''' string to deserialize ''' Output DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp Return CType(SerializerXml.Deserialize(s), DV1AngabenAVUVTyp) End Function #End Region ''' ''' Serializes current DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp object ''' ''' File to load and deserialize ''' Output DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp #Region "Private fields" Private _adressierteZollstelle As String Private _anmelderIstEmpfaenger As String Private _vertretungsverhaeltnisCode As String Private _vorsteuerabzug As String Private _nameAnmeldenderBearbeiter As String Private _telefonnummerAnmeldenderBearbeiter As String Private _stellungAnmeldenderBearbeiter As String Private _emailAdresseAnmeldenderBearbeiter As String Private _fiskalvertretungKz As String Private _zusammenfassendeMeldungKzStdKto As String Private _zusammenfassendeMeldungMelderkto As String Private _intrastatKzStdKto As String Private _intrastatMelderkto As String Private _ausstellungsort As String Private _zollrechtlicherStatus As String Private _gesamtRohMasse As String Private _verfahrenBeantragtCode As String Private _verkehrszweigInland As String Private _verkehrszweigGrenze As String Private _versendungslandCode As String Private _bestimmungsbundesland As String Private _bestimmungsland As String Private _kennzeichenNameBefoerderungsmittelAnkunft As String Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String Private _befoerderungsmittelGrenzeArt As String Private _befoerderungsmittelGrenze As String Private _lieferbedingungCode As String Private _lieferbedingungText As String Private _lieferbedingungSchluessel As String Private _lieferbedingungOrt As String Private _vorpapierArtCode As String Private _vorpapierNr As String Private _artGeschaeftCode As String Private _statistikStatus As String Private _warenort As String Private _rechnungspreis As String Private _rechnungswaehrung As String Private _dV1Angaben As DV1AngabenAVUVTyp Private _dV1Kostenverteilung As List(Of DV1KostenverteilungAVUVTyp) Private _unterlage As List(Of UnterlageVzKopfAVUVTyp) Private _zusatzAngabenAnmeldung As String Private _kzAutoBestaetigung As String Private _anschreibungDatum As Date Private _vereinfachterBewilligungsantragKzAV As String Private _eingangszollstelle As String Private _zahlungsart As String Private _aufschub As List(Of AufschubAVUVTyp) Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp) Private _containerNr As List(Of String) Private _beendigungsAnteilArtCode As String Private _bewilligungsIDZLAVUV As String Private _bezugsnummerBEAnteilZL As String Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp) Private _kzVereinfBewillAntrgBEAnteilAV As String Private _deutschesUeHZAbeiAV As String Private _erledigungsfristAV As String Private _bemEinfuhrabgKz As String Private _zusatzAngabenAV As String Private _einzelheitenVeredelung As String Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp) Private _aVErledZollstelle As List(Of String) Private _zusaetzlicheSteuerlicheVerweise As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) Private _adressen As List(Of AdressenVzImportAVUVTyp) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._adressen = New List(Of AdressenVzImportAVUVTyp)() Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)() Me._aVErledZollstelle = New List(Of String)() Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)() Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() Me._containerNr = New List(Of String)() Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)() Me._aufschub = New List(Of AufschubAVUVTyp)() Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)() Me._dV1Kostenverteilung = New List(Of DV1KostenverteilungAVUVTyp)() Me._dV1Angaben = New DV1AngabenAVUVTyp() End Sub Public Property AdressierteZollstelle() As String Get Return Me._adressierteZollstelle End Get Set Me._adressierteZollstelle = Value End Set End Property Public Property AnmelderIstEmpfaenger() As String Get Return Me._anmelderIstEmpfaenger End Get Set Me._anmelderIstEmpfaenger = Value End Set End Property Public Property VertretungsverhaeltnisCode() As String Get Return Me._vertretungsverhaeltnisCode End Get Set Me._vertretungsverhaeltnisCode = Value End Set End Property Public Property Vorsteuerabzug() As String Get Return Me._vorsteuerabzug End Get Set Me._vorsteuerabzug = Value End Set End Property Public Property NameAnmeldenderBearbeiter() As String Get Return Me._nameAnmeldenderBearbeiter End Get Set Me._nameAnmeldenderBearbeiter = Value End Set End Property Public Property TelefonnummerAnmeldenderBearbeiter() As String Get Return Me._telefonnummerAnmeldenderBearbeiter End Get Set Me._telefonnummerAnmeldenderBearbeiter = Value End Set End Property Public Property StellungAnmeldenderBearbeiter() As String Get Return Me._stellungAnmeldenderBearbeiter End Get Set Me._stellungAnmeldenderBearbeiter = Value End Set End Property Public Property EmailAdresseAnmeldenderBearbeiter() As String Get Return Me._emailAdresseAnmeldenderBearbeiter End Get Set Me._emailAdresseAnmeldenderBearbeiter = Value End Set End Property Public Property FiskalvertretungKz() As String Get Return Me._fiskalvertretungKz End Get Set Me._fiskalvertretungKz = Value End Set End Property Public Property ZusammenfassendeMeldungKzStdKto() As String Get Return Me._zusammenfassendeMeldungKzStdKto End Get Set Me._zusammenfassendeMeldungKzStdKto = Value End Set End Property Public Property ZusammenfassendeMeldungMelderkto() As String Get Return Me._zusammenfassendeMeldungMelderkto End Get Set Me._zusammenfassendeMeldungMelderkto = Value End Set End Property Public Property IntrastatKzStdKto() As String Get Return Me._intrastatKzStdKto End Get Set Me._intrastatKzStdKto = Value End Set End Property Public Property IntrastatMelderkto() As String Get Return Me._intrastatMelderkto End Get Set Me._intrastatMelderkto = Value End Set End Property Public Property Ausstellungsort() As String Get Return Me._ausstellungsort End Get Set Me._ausstellungsort = Value End Set End Property Public Property ZollrechtlicherStatus() As String Get Return Me._zollrechtlicherStatus End Get Set Me._zollrechtlicherStatus = Value End Set End Property Public Property GesamtRohMasse() As String Get Return Me._gesamtRohMasse End Get Set Me._gesamtRohMasse = Value End Set End Property Public Property VerfahrenBeantragtCode() As String Get Return Me._verfahrenBeantragtCode End Get Set Me._verfahrenBeantragtCode = Value End Set End Property Public Property VerkehrszweigInland() As String Get Return Me._verkehrszweigInland End Get Set Me._verkehrszweigInland = Value End Set End Property Public Property VerkehrszweigGrenze() As String Get Return Me._verkehrszweigGrenze End Get Set Me._verkehrszweigGrenze = 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 Bestimmungsbundesland() As String Get Return Me._bestimmungsbundesland End Get Set Me._bestimmungsbundesland = Value End Set End Property Public Property Bestimmungsland() As String Get Return Me._bestimmungsland End Get Set Me._bestimmungsland = Value End Set End Property Public Property KennzeichenNameBefoerderungsmittelAnkunft() As String Get Return Me._kennzeichenNameBefoerderungsmittelAnkunft End Get Set Me._kennzeichenNameBefoerderungsmittelAnkunft = Value End Set End Property Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String Get Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode End Get Set Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value End Set End Property Public Property BefoerderungsmittelGrenzeArt() As String Get Return Me._befoerderungsmittelGrenzeArt End Get Set Me._befoerderungsmittelGrenzeArt = Value End Set End Property Public Property BefoerderungsmittelGrenze() As String Get Return Me._befoerderungsmittelGrenze End Get Set Me._befoerderungsmittelGrenze = Value End Set End Property Public Property LieferbedingungCode() As String Get Return Me._lieferbedingungCode End Get Set Me._lieferbedingungCode = Value End Set End Property Public Property LieferbedingungText() As String Get Return Me._lieferbedingungText End Get Set Me._lieferbedingungText = Value End Set End Property Public Property LieferbedingungSchluessel() As String Get Return Me._lieferbedingungSchluessel End Get Set Me._lieferbedingungSchluessel = 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 VorpapierArtCode() As String Get Return Me._vorpapierArtCode End Get Set Me._vorpapierArtCode = Value End Set End Property Public Property VorpapierNr() As String Get Return Me._vorpapierNr End Get Set Me._vorpapierNr = 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 StatistikStatus() As String Get Return Me._statistikStatus End Get Set Me._statistikStatus = Value End Set End Property Public Property Warenort() As String Get Return Me._warenort End Get Set Me._warenort = Value End Set End Property Public Property Rechnungspreis() As String 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 DV1Angaben() As DV1AngabenAVUVTyp Get Return Me._dV1Angaben End Get Set Me._dV1Angaben = Value End Set End Property Public Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp) Get Return Me._dV1Kostenverteilung End Get Set Me._dV1Kostenverteilung = Value End Set End Property Public Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) Get Return Me._unterlage End Get Set Me._unterlage = Value End Set End Property Public Property ZusatzAngabenAnmeldung() As String Get Return Me._zusatzAngabenAnmeldung End Get Set Me._zusatzAngabenAnmeldung = Value End Set End Property Public Property KzAutoBestaetigung() As String Get Return Me._kzAutoBestaetigung End Get Set Me._kzAutoBestaetigung = Value End Set End Property Public Property AnschreibungDatum() As Date Get Return Me._anschreibungDatum End Get Set Me._anschreibungDatum = Value End Set End Property Public Property VereinfachterBewilligungsantragKzAV() As String Get Return Me._vereinfachterBewilligungsantragKzAV End Get Set Me._vereinfachterBewilligungsantragKzAV = 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 Zahlungsart() As String Get Return Me._zahlungsart End Get Set Me._zahlungsart = Value End Set End Property Public Property Aufschub() As List(Of AufschubAVUVTyp) Get Return Me._aufschub End Get Set Me._aufschub = Value End Set End Property Public Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) Get Return Me._sumABeendigungsAnteil End Get Set Me._sumABeendigungsAnteil = Value End Set End Property Public Property ContainerNr() As List(Of String) Get Return Me._containerNr End Get Set Me._containerNr = Value End Set End Property Public Property BeendigungsAnteilArtCode() As String Get Return Me._beendigungsAnteilArtCode End Get Set Me._beendigungsAnteilArtCode = Value End Set End Property Public Property BewilligungsIDZLAVUV() As String Get Return Me._bewilligungsIDZLAVUV End Get Set Me._bewilligungsIDZLAVUV = Value End Set End Property Public Property BezugsnummerBEAnteilZL() As String Get Return Me._bezugsnummerBEAnteilZL End Get Set Me._bezugsnummerBEAnteilZL = Value End Set End Property Public Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) Get Return Me._bEAnteilZLAVUV End Get Set Me._bEAnteilZLAVUV = Value End Set End Property Public Property KzVereinfBewillAntrgBEAnteilAV() As String Get Return Me._kzVereinfBewillAntrgBEAnteilAV End Get Set Me._kzVereinfBewillAntrgBEAnteilAV = Value End Set End Property Public Property DeutschesUeHZAbeiAV() As String Get Return Me._deutschesUeHZAbeiAV End Get Set Me._deutschesUeHZAbeiAV = Value End Set End Property Public Property ErledigungsfristAV() As String Get Return Me._erledigungsfristAV End Get Set Me._erledigungsfristAV = Value End Set End Property Public Property BemEinfuhrabgKz() As String Get Return Me._bemEinfuhrabgKz End Get Set Me._bemEinfuhrabgKz = Value End Set End Property Public Property ZusatzAngabenAV() As String Get Return Me._zusatzAngabenAV End Get Set Me._zusatzAngabenAV = Value End Set End Property Public Property EinzelheitenVeredelung() As String Get Return Me._einzelheitenVeredelung End Get Set Me._einzelheitenVeredelung = Value End Set End Property Public Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) Get Return Me._aVBuchhaltVeredelung End Get Set Me._aVBuchhaltVeredelung = Value End Set End Property Public Property AVErledZollstelle() As List(Of String) Get Return Me._aVErledZollstelle End Get Set Me._aVErledZollstelle = Value End Set End Property Public Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) Get Return Me._zusaetzlicheSteuerlicheVerweise End Get Set Me._zusaetzlicheSteuerlicheVerweise = Value End Set End Property Public Property Adressen() As List(Of AdressenVzImportAVUVTyp) Get Return Me._adressen End Get Set Me._adressen = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' string to deserialize ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) End Function #End Region ''' ''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object ''' ''' File to load and deserialize ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " 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