'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) '' BefundVereinfachteZollanmeldung_008ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace BefundVereinfachteZollanmeldung_008 Partial Public Class BefundVereinfachteZollanmeldungVBTyp Inherits DatenaustauschFreierVerkehrTyp Private einzelBefundVereinfachteZollanmeldungField As EinzelBefundVereinfachteZollanmeldungTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.einzelBefundVereinfachteZollanmeldungField = New EinzelBefundVereinfachteZollanmeldungTyp() End Sub Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp Get Return Me.einzelBefundVereinfachteZollanmeldungField End Get Set Me.einzelBefundVereinfachteZollanmeldungField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an BefundVereinfachteZollanmeldungVBTyp object ''' '''string workflow markup to deserialize '''Output BefundVereinfachteZollanmeldungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As BefundVereinfachteZollanmeldungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current BefundVereinfachteZollanmeldungVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object ''' '''string xml file to load and deserialize '''Output BefundVereinfachteZollanmeldungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefundVereinfachteZollanmeldungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp Private objektIdentifizierungField As ObjektIdentifizierungVBTyp Private kopfDatenField As KopfdatenBefundVereinfachteZollanmeldungTyp Private positionField As List(Of PositionBefundVereinfachteZollanmeldungTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.positionField = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() Me.kopfDatenField = New KopfdatenBefundVereinfachteZollanmeldungTyp() Me.objektIdentifizierungField = New ObjektIdentifizierungVBTyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp Get Return Me.objektIdentifizierungField End Get Set Me.objektIdentifizierungField = Value End Set End Property Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp Get Return Me.kopfDatenField End Get Set Me.kopfDatenField = Value End Set End Property Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) Get Return Me.positionField End Get Set Me.positionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object ''' '''string workflow markup to deserialize '''Output EinzelBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object ''' '''string xml file to load and deserialize '''Output EinzelBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class ObjektIdentifizierungVBTyp Private objektNameField As String Private eDIFACTNachrichtenNrField As String Private zeitpunktEingangField As Date Private zeitpunktEingangFieldSpecified As Boolean Private shipmentReferenzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ObjektName() As String Get Return Me.objektNameField End Get Set Me.objektNameField = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me.eDIFACTNachrichtenNrField End Get Set Me.eDIFACTNachrichtenNrField = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me.zeitpunktEingangField End Get Set Me.zeitpunktEingangField = Value End Set End Property Public Property ZeitpunktEingangSpecified() As Boolean Get Return Me.zeitpunktEingangFieldSpecified End Get Set Me.zeitpunktEingangFieldSpecified = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me.shipmentReferenzField End Get Set Me.shipmentReferenzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ObjektIdentifizierungVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an ObjektIdentifizierungVBTyp object ''' '''string workflow markup to deserialize '''Output ObjektIdentifizierungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current ObjektIdentifizierungVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object ''' '''string xml file to load and deserialize '''Output ObjektIdentifizierungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class SonderabgabenVBTyp Private sonderfalleingabeSonderabgabengruppeField As String Private anwendungsartField As String Private satzBetragFaktorField As Decimal Private satzBetragFaktorFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property SonderfalleingabeSonderabgabengruppe() As String Get Return Me.sonderfalleingabeSonderabgabengruppeField End Get Set Me.sonderfalleingabeSonderabgabengruppeField = Value End Set End Property Public Property Anwendungsart() As String Get Return Me.anwendungsartField End Get Set Me.anwendungsartField = Value End Set End Property Public Property SatzBetragFaktor() As Decimal Get Return Me.satzBetragFaktorField End Get Set Me.satzBetragFaktorField = Value End Set End Property Public Property SatzBetragFaktorSpecified() As Boolean Get Return Me.satzBetragFaktorFieldSpecified End Get Set Me.satzBetragFaktorFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderabgabenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current SonderabgabenVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an SonderabgabenVBTyp object ''' '''string workflow markup to deserialize '''Output SonderabgabenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderabgabenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderabgabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current SonderabgabenVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an SonderabgabenVBTyp object ''' '''string xml file to load and deserialize '''Output SonderabgabenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderabgabenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class MinderungVBTyp Private minderndeAbgabengruppeField As String Private minderungsbetragField As Decimal Private minderungsbetragFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property MinderndeAbgabengruppe() As String Get Return Me.minderndeAbgabengruppeField End Get Set Me.minderndeAbgabengruppeField = Value End Set End Property Public Property Minderungsbetrag() As Decimal Get Return Me.minderungsbetragField End Get Set Me.minderungsbetragField = Value End Set End Property Public Property MinderungsbetragSpecified() As Boolean Get Return Me.minderungsbetragFieldSpecified End Get Set Me.minderungsbetragFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(MinderungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current MinderungVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an MinderungVBTyp object ''' '''string workflow markup to deserialize '''Output MinderungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As MinderungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), MinderungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current MinderungVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an MinderungVBTyp object ''' '''string xml file to load and deserialize '''Output MinderungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MinderungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class VerbrauchsteuerVBTyp Private verbrauchsteuerCodeField As String Private verbrauchssteuerMengeField As Decimal Private verbrauchssteuerMengeFieldSpecified As Boolean Private verbrauchssteuerMasseinheitCodeField As String Private verbrauchssteuerMasseinheitQualifierField As String Private gradProzentField As Decimal Private gradProzentFieldSpecified As Boolean Private verbrauchssteuerWertBasisField As Decimal Private verbrauchssteuerWertBasisFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property VerbrauchsteuerCode() As String Get Return Me.verbrauchsteuerCodeField End Get Set Me.verbrauchsteuerCodeField = Value End Set End Property Public Property VerbrauchssteuerMenge() As Decimal Get Return Me.verbrauchssteuerMengeField End Get Set Me.verbrauchssteuerMengeField = Value End Set End Property Public Property VerbrauchssteuerMengeSpecified() As Boolean Get Return Me.verbrauchssteuerMengeFieldSpecified End Get Set Me.verbrauchssteuerMengeFieldSpecified = Value End Set End Property Public Property VerbrauchssteuerMasseinheitCode() As String Get Return Me.verbrauchssteuerMasseinheitCodeField End Get Set Me.verbrauchssteuerMasseinheitCodeField = Value End Set End Property Public Property VerbrauchssteuerMasseinheitQualifier() As String Get Return Me.verbrauchssteuerMasseinheitQualifierField End Get Set Me.verbrauchssteuerMasseinheitQualifierField = Value End Set End Property Public Property GradProzent() As Decimal Get Return Me.gradProzentField End Get Set Me.gradProzentField = Value End Set End Property Public Property GradProzentSpecified() As Boolean Get Return Me.gradProzentFieldSpecified End Get Set Me.gradProzentFieldSpecified = Value End Set End Property Public Property VerbrauchssteuerWertBasis() As Decimal Get Return Me.verbrauchssteuerWertBasisField End Get Set Me.verbrauchssteuerWertBasisField = Value End Set End Property Public Property VerbrauchssteuerWertBasisSpecified() As Boolean Get Return Me.verbrauchssteuerWertBasisFieldSpecified End Get Set Me.verbrauchssteuerWertBasisFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(VerbrauchsteuerVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current VerbrauchsteuerVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an VerbrauchsteuerVBTyp object ''' '''string workflow markup to deserialize '''Output VerbrauchsteuerVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As VerbrauchsteuerVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current VerbrauchsteuerVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an VerbrauchsteuerVBTyp object ''' '''string xml file to load and deserialize '''Output VerbrauchsteuerVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchsteuerVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class GehaltsangabenVBTyp Private artCodeField As String Private gradProzentField As Decimal Private gradProzentFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ArtCode() As String Get Return Me.artCodeField End Get Set Me.artCodeField = Value End Set End Property Public Property GradProzent() As Decimal Get Return Me.gradProzentField End Get Set Me.gradProzentField = Value End Set End Property Public Property GradProzentSpecified() As Boolean Get Return Me.gradProzentFieldSpecified End Get Set Me.gradProzentFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(GehaltsangabenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current GehaltsangabenVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an GehaltsangabenVBTyp object ''' '''string workflow markup to deserialize '''Output GehaltsangabenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As GehaltsangabenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), GehaltsangabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current GehaltsangabenVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an GehaltsangabenVBTyp object ''' '''string xml file to load and deserialize '''Output GehaltsangabenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class PreisWertangabeVBTyp Private preisartCodeField As String Private wertField As Decimal Private wertFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property PreisartCode() As String Get Return Me.preisartCodeField End Get Set Me.preisartCodeField = Value End Set End Property Public Property Wert() As Decimal Get Return Me.wertField End Get Set Me.wertField = Value End Set End Property Public Property WertSpecified() As Boolean Get Return Me.wertFieldSpecified End Get Set Me.wertFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PreisWertangabeVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PreisWertangabeVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an PreisWertangabeVBTyp object ''' '''string workflow markup to deserialize '''Output PreisWertangabeVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As PreisWertangabeVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PreisWertangabeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current PreisWertangabeVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an PreisWertangabeVBTyp object ''' '''string xml file to load and deserialize '''Output PreisWertangabeVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreisWertangabeVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class WarenMengeVBTyp Private mengeField As String Private masseinheitField As String Private qualifierField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Menge() As String Get Return Me.mengeField End Get Set Me.mengeField = Value End Set End Property Public Property Masseinheit() As String Get Return Me.masseinheitField End Get Set Me.masseinheitField = Value End Set End Property Public Property Qualifier() As String Get Return Me.qualifierField End Get Set Me.qualifierField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarenMengeVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current WarenMengeVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an WarenMengeVBTyp object ''' '''string workflow markup to deserialize '''Output WarenMengeVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As WarenMengeVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WarenMengeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current WarenMengeVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an WarenMengeVBTyp object ''' '''string xml file to load and deserialize '''Output WarenMengeVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class AbzugHinzurechnungenVBTyp Private artCodeField As String Private artTextField As String Private betragField As Decimal Private betragFieldSpecified As Boolean Private iATAKursKzField As String Private waehrungField As String Private kursVereinbartKzField As String Private kursAuslandswaehrungField As Decimal Private kursAuslandswaehrungFieldSpecified As Boolean Private kursDatumField As Date Private kursDatumFieldSpecified As Boolean Private prozentsatzField As Decimal Private prozentsatzFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ArtCode() As String Get Return Me.artCodeField End Get Set Me.artCodeField = Value End Set End Property Public Property ArtText() As String Get Return Me.artTextField End Get Set Me.artTextField = Value End Set End Property Public Property Betrag() As Decimal Get Return Me.betragField End Get Set Me.betragField = Value End Set End Property Public Property BetragSpecified() As Boolean Get Return Me.betragFieldSpecified End Get Set Me.betragFieldSpecified = Value End Set End Property Public Property IATAKursKz() As String Get Return Me.iATAKursKzField End Get Set Me.iATAKursKzField = Value End Set End Property Public Property Waehrung() As String Get Return Me.waehrungField End Get Set Me.waehrungField = Value End Set End Property Public Property KursVereinbartKz() As String Get Return Me.kursVereinbartKzField End Get Set Me.kursVereinbartKzField = Value End Set End Property Public Property KursAuslandswaehrung() As Decimal Get Return Me.kursAuslandswaehrungField End Get Set Me.kursAuslandswaehrungField = Value End Set End Property Public Property KursAuslandswaehrungSpecified() As Boolean Get Return Me.kursAuslandswaehrungFieldSpecified End Get Set Me.kursAuslandswaehrungFieldSpecified = Value End Set End Property Public Property KursDatum() As Date Get Return Me.kursDatumField End Get Set Me.kursDatumField = Value End Set End Property Public Property KursDatumSpecified() As Boolean Get Return Me.kursDatumFieldSpecified End Get Set Me.kursDatumFieldSpecified = Value End Set End Property Public Property Prozentsatz() As Decimal Get Return Me.prozentsatzField End Get Set Me.prozentsatzField = Value End Set End Property Public Property ProzentsatzSpecified() As Boolean Get Return Me.prozentsatzFieldSpecified End Get Set Me.prozentsatzFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbzugHinzurechnungenVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbzugHinzurechnungenVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbzugHinzurechnungenVBTyp object ''' '''string workflow markup to deserialize '''Output AbzugHinzurechnungenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbzugHinzurechnungenVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current AbzugHinzurechnungenVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object ''' '''string xml file to load and deserialize '''Output AbzugHinzurechnungenVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungenVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class AbweichungVBTyp Private abweichendFestgesetztesFeldField As String Private abweichendFestgesetztesFeldQualifikatorField As String Private qualifikatorInhaltField As String Private abweichendeFestsetzungArtField As String Private abweichendFestgesetztVonField As String Private abweichendFestgesetztAufField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property AbweichendFestgesetztesFeld() As String Get Return Me.abweichendFestgesetztesFeldField End Get Set Me.abweichendFestgesetztesFeldField = Value End Set End Property Public Property AbweichendFestgesetztesFeldQualifikator() As String Get Return Me.abweichendFestgesetztesFeldQualifikatorField End Get Set Me.abweichendFestgesetztesFeldQualifikatorField = Value End Set End Property Public Property QualifikatorInhalt() As String Get Return Me.qualifikatorInhaltField End Get Set Me.qualifikatorInhaltField = Value End Set End Property Public Property AbweichendeFestsetzungArt() As String Get Return Me.abweichendeFestsetzungArtField End Get Set Me.abweichendeFestsetzungArtField = Value End Set End Property Public Property AbweichendFestgesetztVon() As String Get Return Me.abweichendFestgesetztVonField End Get Set Me.abweichendFestgesetztVonField = Value End Set End Property Public Property AbweichendFestgesetztAuf() As String Get Return Me.abweichendFestgesetztAufField End Get Set Me.abweichendFestgesetztAufField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AbweichungVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AbweichungVBTyp object ''' '''string workflow markup to deserialize '''Output AbweichungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current AbweichungVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an AbweichungVBTyp object ''' '''string xml file to load and deserialize '''Output AbweichungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbweichungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class UnterlageVBTyp Private artField As String Private bereichField As String Private nummerField As String Private datumAusstellungField As Date Private datumAusstellungFieldSpecified As Boolean Private vorlageKzField As String Private abschreibungsMengeField As Decimal Private abschreibungsMengeFieldSpecified As Boolean Private abschreibungsMengeMasseinheitField As String Private abschreibungsMengeMasseinheitQualifierField As String Private kzAnerkennungField As String Private kzAbschreibungField As String Private kzEinbehaltenField As String Private kzPeriodischeVorlageField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Art() As String Get Return Me.artField End Get Set Me.artField = Value End Set End Property Public Property Bereich() As String Get Return Me.bereichField End Get Set Me.bereichField = Value End Set End Property Public Property Nummer() As String Get Return Me.nummerField End Get Set Me.nummerField = Value End Set End Property Public Property DatumAusstellung() As Date Get Return Me.datumAusstellungField End Get Set Me.datumAusstellungField = Value End Set End Property Public Property DatumAusstellungSpecified() As Boolean Get Return Me.datumAusstellungFieldSpecified End Get Set Me.datumAusstellungFieldSpecified = Value End Set End Property Public Property VorlageKz() As String Get Return Me.vorlageKzField End Get Set Me.vorlageKzField = Value End Set End Property Public Property AbschreibungsMenge() As Decimal Get Return Me.abschreibungsMengeField End Get Set Me.abschreibungsMengeField = Value End Set End Property Public Property AbschreibungsMengeSpecified() As Boolean Get Return Me.abschreibungsMengeFieldSpecified End Get Set Me.abschreibungsMengeFieldSpecified = Value End Set End Property Public Property AbschreibungsMengeMasseinheit() As String Get Return Me.abschreibungsMengeMasseinheitField End Get Set Me.abschreibungsMengeMasseinheitField = Value End Set End Property Public Property AbschreibungsMengeMasseinheitQualifier() As String Get Return Me.abschreibungsMengeMasseinheitQualifierField End Get Set Me.abschreibungsMengeMasseinheitQualifierField = Value End Set End Property Public Property KzAnerkennung() As String Get Return Me.kzAnerkennungField End Get Set Me.kzAnerkennungField = Value End Set End Property Public Property KzAbschreibung() As String Get Return Me.kzAbschreibungField End Get Set Me.kzAbschreibungField = Value End Set End Property Public Property KzEinbehalten() As String Get Return Me.kzEinbehaltenField End Get Set Me.kzEinbehaltenField = Value End Set End Property Public Property KzPeriodischeVorlage() As String Get Return Me.kzPeriodischeVorlageField End Get Set Me.kzPeriodischeVorlageField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current UnterlageVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an UnterlageVBTyp object ''' '''string workflow markup to deserialize '''Output UnterlageVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current UnterlageVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an UnterlageVBTyp object ''' '''string xml file to load and deserialize '''Output UnterlageVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class PositionBefundVereinfachteZollanmeldungTyp Private positionsNrvZAAZField As String Private mitteilungAnTeilnehmerBeschauField As String Private weitererNachweisField As String Private mitteilungAnTeilnehmerErledigungField As String Private positionsbefundField As String Private unterlageField As List(Of UnterlageVBTyp) Private ueberlassungDatumField As Date Private ueberlassungDatumFieldSpecified As Boolean Private weitererNachweisFristField As Date Private weitererNachweisFristFieldSpecified As Boolean Private positionKzErledigungField As String Private abweichungField As List(Of AbweichungVBTyp) Private warenNummerEZTField As String Private warenNummerZusatzCodeField As List(Of String) Private abgabensteuerungKzField As String Private eUCodeField As List(Of String) Private sachbereichField As String Private artikelNummerField As String Private artikelpreisField As Decimal Private artikelpreisFieldSpecified As Boolean Private positionsZusatzField As String Private eigenmasseField As Decimal Private eigenmasseFieldSpecified As Boolean Private ursprungslandCodeField As String Private tabakSteuerzeichenIDField As String Private statistikStatusField As String Private artGeschaeftCodeField As String Private bestimmungsbundeslandField As String Private aHStatWertField As String Private aHStatMengeField As Decimal Private aHStatMengeFieldSpecified As Boolean Private aHStatMengeMasseinheitField As String Private aHStatMengeQualifierField As String Private rohmasseField As Decimal Private rohmasseFieldSpecified As Boolean Private dV1NettopreisField As Decimal Private dV1NettopreisFieldSpecified As Boolean Private dV1WaehrungField As String Private dV1KzKursNettoVereinbartField As String Private dV1KursField As Decimal Private dV1KursFieldSpecified As Boolean Private dV1MittelbareZahlungenField As Decimal Private dV1MittelbareZahlungenFieldSpecified As Boolean Private dV1MittelbareZahlungenWaehrungField As String Private dV1MittelbareZahlungenKursKzField As String Private dV1MittelbareZahlungenKursField As Decimal Private dV1MittelbareZahlungenKursFieldSpecified As Boolean Private ortVerbringensField As String Private abflughafenIATACodeField As String Private luftfrachtkostenGesamtField As Decimal Private luftfrachtkostenGesamtFieldSpecified As Boolean Private iATAKursKzField As String Private luftfrachtkostenGesamtWaehrungField As String Private kursVereinbartKzField As String Private kursBetragVereinbartField As Decimal Private kursBetragVereinbartFieldSpecified As Boolean Private kursDatumField As Date Private kursDatumFieldSpecified As Boolean Private abzugHinzurechnungenField As List(Of AbzugHinzurechnungenVBTyp) Private zollwertField As Decimal Private zollwertFieldSpecified As Boolean Private warenMengeField As List(Of WarenMengeVBTyp) Private besondereWertangabeField As List(Of PreisWertangabeVBTyp) Private gehaltsangabenField As List(Of GehaltsangabenVBTyp) Private veredelungWertsteigerungField As Decimal Private veredelungWertsteigerungFieldSpecified As Boolean Private kostenEUStField As Decimal Private kostenEUStFieldSpecified As Boolean Private verbrauchsteuerField As List(Of VerbrauchsteuerVBTyp) Private beguenstigungBeantragtCodeField As String Private beguenstigungMengeField As String Private beguenstigungMengeMasseinheitField As String Private beguenstigungMengeQualifikatorField As String Private minderungField As List(Of MinderungVBTyp) Private sonderabgabenField As List(Of SonderabgabenVBTyp) Private kontingentNrAngewandtField As List(Of String) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.kontingentNrAngewandtField = New List(Of String)() Me.sonderabgabenField = New List(Of SonderabgabenVBTyp)() Me.minderungField = New List(Of MinderungVBTyp)() Me.verbrauchsteuerField = New List(Of VerbrauchsteuerVBTyp)() Me.gehaltsangabenField = New List(Of GehaltsangabenVBTyp)() Me.besondereWertangabeField = New List(Of PreisWertangabeVBTyp)() Me.warenMengeField = New List(Of WarenMengeVBTyp)() Me.abzugHinzurechnungenField = New List(Of AbzugHinzurechnungenVBTyp)() Me.eUCodeField = New List(Of String)() Me.warenNummerZusatzCodeField = New List(Of String)() Me.abweichungField = New List(Of AbweichungVBTyp)() Me.unterlageField = New List(Of UnterlageVBTyp)() End Sub Public Property PositionsNrvZAAZ() As String Get Return Me.positionsNrvZAAZField End Get Set Me.positionsNrvZAAZField = Value End Set End Property Public Property MitteilungAnTeilnehmerBeschau() As String Get Return Me.mitteilungAnTeilnehmerBeschauField End Get Set Me.mitteilungAnTeilnehmerBeschauField = Value End Set End Property Public Property WeitererNachweis() As String Get Return Me.weitererNachweisField End Get Set Me.weitererNachweisField = Value End Set End Property Public Property MitteilungAnTeilnehmerErledigung() As String Get Return Me.mitteilungAnTeilnehmerErledigungField End Get Set Me.mitteilungAnTeilnehmerErledigungField = Value End Set End Property Public Property Positionsbefund() As String Get Return Me.positionsbefundField End Get Set Me.positionsbefundField = Value End Set End Property Public Property Unterlage() As List(Of UnterlageVBTyp) Get Return Me.unterlageField End Get Set Me.unterlageField = Value End Set End Property Public Property UeberlassungDatum() As Date Get Return Me.ueberlassungDatumField End Get Set Me.ueberlassungDatumField = Value End Set End Property Public Property UeberlassungDatumSpecified() As Boolean Get Return Me.ueberlassungDatumFieldSpecified End Get Set Me.ueberlassungDatumFieldSpecified = Value End Set End Property Public Property WeitererNachweisFrist() As Date Get Return Me.weitererNachweisFristField End Get Set Me.weitererNachweisFristField = Value End Set End Property Public Property WeitererNachweisFristSpecified() As Boolean Get Return Me.weitererNachweisFristFieldSpecified End Get Set Me.weitererNachweisFristFieldSpecified = Value End Set End Property Public Property PositionKzErledigung() As String Get Return Me.positionKzErledigungField End Get Set Me.positionKzErledigungField = Value End Set End Property Public Property Abweichung() As List(Of AbweichungVBTyp) Get Return Me.abweichungField End Get Set Me.abweichungField = Value End Set End Property Public Property WarenNummerEZT() As String Get Return Me.warenNummerEZTField End Get Set Me.warenNummerEZTField = Value End Set End Property Public Property WarenNummerZusatzCode() As List(Of String) Get Return Me.warenNummerZusatzCodeField End Get Set Me.warenNummerZusatzCodeField = Value End Set End Property Public Property AbgabensteuerungKz() As String Get Return Me.abgabensteuerungKzField End Get Set Me.abgabensteuerungKzField = Value End Set End Property Public Property EUCode() As List(Of String) Get Return Me.eUCodeField End Get Set Me.eUCodeField = Value End Set End Property Public Property Sachbereich() As String Get Return Me.sachbereichField End Get Set Me.sachbereichField = Value End Set End Property Public Property ArtikelNummer() As String Get Return Me.artikelNummerField End Get Set Me.artikelNummerField = Value End Set End Property Public Property Artikelpreis() As Decimal Get Return Me.artikelpreisField End Get Set Me.artikelpreisField = Value End Set End Property Public Property ArtikelpreisSpecified() As Boolean Get Return Me.artikelpreisFieldSpecified End Get Set Me.artikelpreisFieldSpecified = Value End Set End Property Public Property PositionsZusatz() As String Get Return Me.positionsZusatzField End Get Set Me.positionsZusatzField = Value End Set End Property Public Property Eigenmasse() As Decimal Get Return Me.eigenmasseField End Get Set Me.eigenmasseField = Value End Set End Property Public Property EigenmasseSpecified() As Boolean Get Return Me.eigenmasseFieldSpecified End Get Set Me.eigenmasseFieldSpecified = Value End Set End Property Public Property UrsprungslandCode() As String Get Return Me.ursprungslandCodeField End Get Set Me.ursprungslandCodeField = Value End Set End Property Public Property TabakSteuerzeichenID() As String Get Return Me.tabakSteuerzeichenIDField End Get Set Me.tabakSteuerzeichenIDField = Value End Set End Property Public Property StatistikStatus() As String Get Return Me.statistikStatusField End Get Set Me.statistikStatusField = Value End Set End Property Public Property ArtGeschaeftCode() As String Get Return Me.artGeschaeftCodeField End Get Set Me.artGeschaeftCodeField = Value End Set End Property Public Property Bestimmungsbundesland() As String Get Return Me.bestimmungsbundeslandField End Get Set Me.bestimmungsbundeslandField = Value End Set End Property Public Property AHStatWert() As String Get Return Me.aHStatWertField End Get Set Me.aHStatWertField = Value End Set End Property Public Property AHStatMenge() As Decimal Get Return Me.aHStatMengeField End Get Set Me.aHStatMengeField = Value End Set End Property Public Property AHStatMengeSpecified() As Boolean Get Return Me.aHStatMengeFieldSpecified End Get Set Me.aHStatMengeFieldSpecified = Value End Set End Property Public Property AHStatMengeMasseinheit() As String Get Return Me.aHStatMengeMasseinheitField End Get Set Me.aHStatMengeMasseinheitField = Value End Set End Property Public Property AHStatMengeQualifier() As String Get Return Me.aHStatMengeQualifierField End Get Set Me.aHStatMengeQualifierField = Value End Set End Property Public Property Rohmasse() As Decimal Get Return Me.rohmasseField End Get Set Me.rohmasseField = Value End Set End Property Public Property RohmasseSpecified() As Boolean Get Return Me.rohmasseFieldSpecified End Get Set Me.rohmasseFieldSpecified = Value End Set End Property Public Property DV1Nettopreis() As Decimal Get Return Me.dV1NettopreisField End Get Set Me.dV1NettopreisField = Value End Set End Property Public Property DV1NettopreisSpecified() As Boolean Get Return Me.dV1NettopreisFieldSpecified End Get Set Me.dV1NettopreisFieldSpecified = Value End Set End Property Public Property DV1Waehrung() As String Get Return Me.dV1WaehrungField End Get Set Me.dV1WaehrungField = Value End Set End Property Public Property DV1KzKursNettoVereinbart() As String Get Return Me.dV1KzKursNettoVereinbartField End Get Set Me.dV1KzKursNettoVereinbartField = Value End Set End Property Public Property DV1Kurs() As Decimal Get Return Me.dV1KursField End Get Set Me.dV1KursField = Value End Set End Property Public Property DV1KursSpecified() As Boolean Get Return Me.dV1KursFieldSpecified End Get Set Me.dV1KursFieldSpecified = Value End Set End Property Public Property DV1MittelbareZahlungen() As Decimal Get Return Me.dV1MittelbareZahlungenField End Get Set Me.dV1MittelbareZahlungenField = Value End Set End Property Public Property DV1MittelbareZahlungenSpecified() As Boolean Get Return Me.dV1MittelbareZahlungenFieldSpecified End Get Set Me.dV1MittelbareZahlungenFieldSpecified = Value End Set End Property Public Property DV1MittelbareZahlungenWaehrung() As String Get Return Me.dV1MittelbareZahlungenWaehrungField End Get Set Me.dV1MittelbareZahlungenWaehrungField = Value End Set End Property Public Property DV1MittelbareZahlungenKursKz() As String Get Return Me.dV1MittelbareZahlungenKursKzField End Get Set Me.dV1MittelbareZahlungenKursKzField = Value End Set End Property Public Property DV1MittelbareZahlungenKurs() As Decimal Get Return Me.dV1MittelbareZahlungenKursField End Get Set Me.dV1MittelbareZahlungenKursField = Value End Set End Property Public Property DV1MittelbareZahlungenKursSpecified() As Boolean Get Return Me.dV1MittelbareZahlungenKursFieldSpecified End Get Set Me.dV1MittelbareZahlungenKursFieldSpecified = Value End Set End Property Public Property OrtVerbringens() As String Get Return Me.ortVerbringensField End Get Set Me.ortVerbringensField = Value End Set End Property Public Property AbflughafenIATACode() As String Get Return Me.abflughafenIATACodeField End Get Set Me.abflughafenIATACodeField = Value End Set End Property Public Property LuftfrachtkostenGesamt() As Decimal Get Return Me.luftfrachtkostenGesamtField End Get Set Me.luftfrachtkostenGesamtField = Value End Set End Property Public Property LuftfrachtkostenGesamtSpecified() As Boolean Get Return Me.luftfrachtkostenGesamtFieldSpecified End Get Set Me.luftfrachtkostenGesamtFieldSpecified = Value End Set End Property Public Property IATAKursKz() As String Get Return Me.iATAKursKzField End Get Set Me.iATAKursKzField = Value End Set End Property Public Property LuftfrachtkostenGesamtWaehrung() As String Get Return Me.luftfrachtkostenGesamtWaehrungField End Get Set Me.luftfrachtkostenGesamtWaehrungField = Value End Set End Property Public Property KursVereinbartKz() As String Get Return Me.kursVereinbartKzField End Get Set Me.kursVereinbartKzField = Value End Set End Property Public Property KursBetragVereinbart() As Decimal Get Return Me.kursBetragVereinbartField End Get Set Me.kursBetragVereinbartField = Value End Set End Property Public Property KursBetragVereinbartSpecified() As Boolean Get Return Me.kursBetragVereinbartFieldSpecified End Get Set Me.kursBetragVereinbartFieldSpecified = Value End Set End Property Public Property KursDatum() As Date Get Return Me.kursDatumField End Get Set Me.kursDatumField = Value End Set End Property Public Property KursDatumSpecified() As Boolean Get Return Me.kursDatumFieldSpecified End Get Set Me.kursDatumFieldSpecified = Value End Set End Property Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) Get Return Me.abzugHinzurechnungenField End Get Set Me.abzugHinzurechnungenField = Value End Set End Property Public Property Zollwert() As Decimal Get Return Me.zollwertField End Get Set Me.zollwertField = Value End Set End Property Public Property ZollwertSpecified() As Boolean Get Return Me.zollwertFieldSpecified End Get Set Me.zollwertFieldSpecified = Value End Set End Property Public Property WarenMenge() As List(Of WarenMengeVBTyp) Get Return Me.warenMengeField End Get Set Me.warenMengeField = Value End Set End Property Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) Get Return Me.besondereWertangabeField End Get Set Me.besondereWertangabeField = Value End Set End Property Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) Get Return Me.gehaltsangabenField End Get Set Me.gehaltsangabenField = Value End Set End Property Public Property VeredelungWertsteigerung() As Decimal Get Return Me.veredelungWertsteigerungField End Get Set Me.veredelungWertsteigerungField = Value End Set End Property Public Property VeredelungWertsteigerungSpecified() As Boolean Get Return Me.veredelungWertsteigerungFieldSpecified End Get Set Me.veredelungWertsteigerungFieldSpecified = Value End Set End Property Public Property KostenEUSt() As Decimal Get Return Me.kostenEUStField End Get Set Me.kostenEUStField = Value End Set End Property Public Property KostenEUStSpecified() As Boolean Get Return Me.kostenEUStFieldSpecified End Get Set Me.kostenEUStFieldSpecified = Value End Set End Property Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) Get Return Me.verbrauchsteuerField End Get Set Me.verbrauchsteuerField = Value End Set End Property Public Property BeguenstigungBeantragtCode() As String Get Return Me.beguenstigungBeantragtCodeField End Get Set Me.beguenstigungBeantragtCodeField = Value End Set End Property Public Property BeguenstigungMenge() As String Get Return Me.beguenstigungMengeField End Get Set Me.beguenstigungMengeField = Value End Set End Property Public Property BeguenstigungMengeMasseinheit() As String Get Return Me.beguenstigungMengeMasseinheitField End Get Set Me.beguenstigungMengeMasseinheitField = Value End Set End Property Public Property BeguenstigungMengeQualifikator() As String Get Return Me.beguenstigungMengeQualifikatorField End Get Set Me.beguenstigungMengeQualifikatorField = Value End Set End Property Public Property Minderung() As List(Of MinderungVBTyp) Get Return Me.minderungField End Get Set Me.minderungField = Value End Set End Property Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) Get Return Me.sonderabgabenField End Get Set Me.sonderabgabenField = Value End Set End Property Public Property KontingentNrAngewandt() As List(Of String) Get Return Me.kontingentNrAngewandtField End Get Set Me.kontingentNrAngewandtField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object ''' '''string workflow markup to deserialize '''Output PositionBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object ''' '''string xml file to load and deserialize '''Output PositionBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class AnmeldungVBTyp Private bereichField As String Private artField As String Private nummerField As String Private datumAusstellungField As Date Private datumAusstellungFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property Bereich() As String Get Return Me.bereichField End Get Set Me.bereichField = Value End Set End Property Public Property Art() As String Get Return Me.artField End Get Set Me.artField = Value End Set End Property Public Property Nummer() As String Get Return Me.nummerField End Get Set Me.nummerField = Value End Set End Property Public Property DatumAusstellung() As Date Get Return Me.datumAusstellungField End Get Set Me.datumAusstellungField = Value End Set End Property Public Property DatumAusstellungSpecified() As Boolean Get Return Me.datumAusstellungFieldSpecified End Get Set Me.datumAusstellungFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AnmeldungVBTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current AnmeldungVBTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an AnmeldungVBTyp object ''' '''string workflow markup to deserialize '''Output AnmeldungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As AnmeldungVBTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AnmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current AnmeldungVBTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an AnmeldungVBTyp object ''' '''string xml file to load and deserialize '''Output AnmeldungVBTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmeldungVBTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp Private sachbearbeiterField As String Private telefonnummerBearbeiterField As String Private kopfKzErledigungField As String Private registriernummerField As String Private registrierdatumField As Date Private registrierdatumFieldSpecified As Boolean Private artAnmeldungField As String Private datumErstellungBefundField As Date Private datumErstellungBefundFieldSpecified As Boolean Private befundField As String Private kzVertretungsverhaeltnisField As String Private wKZField As String Private kzRechtsbehelfField As String Private kzGesamtschuldnerschaftField As String Private eingangszollstelleGeaendertKzField As String Private anmelderEORIField As String Private anmelderNLNRField As String Private anmelderFirmenbezeichungField As String Private anmelderStrasseHausNrField As String Private anmelderOrtsteilField As String Private anmelderOrtSField As String Private anmelderPLZSField As String Private anmelderNationalitaetField As String Private dienststellenschluesselField As String Private dienststelleBezeichungField As String Private dienststelleStrasseHausNrField As String Private dienststelleOrtSField As String Private dienststellePLZSField As String Private bearbeiterField As String Private dienststelleVorwahlTelefonNrField As String Private vertreterEORIField As String Private vertreterNLNRField As String Private vertreterFirmenbezeichnungField As String Private vertreterStrasseHausNrField As String Private vertreterOrtsteilField As String Private vertreterOrtSField As String Private vertreterPLZSField As String Private vertreterNationalitaetField As String Private hZABezeichnungField As String Private hZAEmailAdresseField As String Private hZADEmailAdresseField As String Private hZAPostfachField As String Private hZAOrtPField As String Private hZAPLZPField As String Private hZAStrasseHausNrField As String Private hZAOrtsteilField As String Private hZAOrtSField As String Private hZAPLZSField As String Private fRechnungEORIField As String Private fRechnungNLNRField As String Private fRechnungNationalitaetField As String Private fRechnungNameField As String Private fRechnungStrasseHausNrField As String Private fRechnungPLZSField As String Private fRechnungOrtSField As String Private fRechnungOrtsteilField As String Private anmelderEmpfaengerKzField As String Private bewilligungsnummerField As String Private versendungslandCodeField As String Private lieferbedingungField As String Private lieferbedingungTextField As String Private lieferbedingungOrtField As String Private lieferbedingungSchluesselField As String Private rechnungspreisField As Decimal Private rechnungspreisFieldSpecified As Boolean Private rechnungswaehrungField As String Private finanzamtField As String Private eingangszollstelleField As String Private dV1KzField As String Private verkaeuferEORIField As String Private verkaeuferFirmenbezeichnungField As String Private verkaeuferNationalitaetField As String Private verkaeuferStrasseHausNrField As String Private verkaeuferPLZSField As String Private verkaeuferOrtSField As String Private verkaeuferOrtsteilField As String Private kaeuferEORIField As String Private kaeuferFirmenbezeichnungField As String Private kaeuferNationalitaetField As String Private kaeuferStrasseHausNrField As String Private kaeuferPLZSField As String Private kaeuferOrtSField As String Private kaeuferOrtsteilField As String Private zollwertanmelderEORIField As String Private zollwertanmelderFirmenbezeichnungField As String Private zollwertanmelderNationalitaetField As String Private zollwertanmelderStrasseHausNrField As String Private zollwertanmelderPLZSField As String Private zollwertanmelderOrtSField As String Private zollwertanmelderOrtsteilField As String Private vertreterZollwertanmelderEORIField As String Private vertreterZollwertanmelderFirmenbezeichnungField As String Private vertreterZollwertanmelderNationalitaetField As String Private vertreterZollwertanmelderStrasseHausNrField As String Private vertreterZollwertanmelderPLZSField As String Private vertreterZollwertanmelderOrtSField As String Private vertreterZollwertanmelderOrtsteilField As String Private vertretungsverhaeltnisField As String Private fruehereEntscheidungenField As String Private verbundenheitField As String Private verbundenheitEinzelheitenField As String Private einschraenkungenKzField As String Private bedingungenLeistungenKzField As String Private bedingungenLeistungenArtField As String Private lizenzgebuehrenKzField As String Private lizenzgebuehrenUmstandField As String Private spezielleVereinbarungKzField As String Private spezielleVereinbarungUmstandField As String Private empfaengerEORIField As String Private empfaengerNLNRField As String Private empfaengerFirmenbezeichnungField As String Private empfaengerNationalitaetField As String Private empfaengerStrasseHausNrField As String Private empfaengerPLZSField As String Private empfaengerOrtSField As String Private empfaengerOrtsteilField As String Private datenuebermittlungEORIField As String Private erwerberAndererMitgliedstaatEORIField As String Private erwerberAndererMitgliedstaatNLNRField As String Private erwerberFirmenbezeichnungField As String Private erwerberNationalitaetField As String Private erwerberStrasseHausNrField As String Private erwerberPLZSField As String Private erwerberOrtSField As String Private erwerberOrtsteilField As String Private erwerberUStIdNrAndererMitgliedstaatField As String Private versenderAusfuehrerEORIField As String Private versenderAusfuehrerFirmenbezeichnungField As String Private versenderAusfuehrerNationalitaetField As String Private versenderAusfuehrerStrasseHausNrField As String Private versenderAusfuehrerPLZSField As String Private versenderAusfuehrerOrtSField As String Private versenderAusfuehrerOrtsteilField As String Private unterlageField As List(Of AnmeldungVBTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.unterlageField = New List(Of AnmeldungVBTyp)() End Sub Public Property Sachbearbeiter() As String Get Return Me.sachbearbeiterField End Get Set Me.sachbearbeiterField = Value End Set End Property Public Property TelefonnummerBearbeiter() As String Get Return Me.telefonnummerBearbeiterField End Get Set Me.telefonnummerBearbeiterField = Value End Set End Property Public Property KopfKzErledigung() As String Get Return Me.kopfKzErledigungField End Get Set Me.kopfKzErledigungField = Value End Set End Property Public Property Registriernummer() As String Get Return Me.registriernummerField End Get Set Me.registriernummerField = Value End Set End Property Public Property Registrierdatum() As Date Get Return Me.registrierdatumField End Get Set Me.registrierdatumField = Value End Set End Property Public Property RegistrierdatumSpecified() As Boolean Get Return Me.registrierdatumFieldSpecified End Get Set Me.registrierdatumFieldSpecified = Value End Set End Property Public Property ArtAnmeldung() As String Get Return Me.artAnmeldungField End Get Set Me.artAnmeldungField = Value End Set End Property Public Property DatumErstellungBefund() As Date Get Return Me.datumErstellungBefundField End Get Set Me.datumErstellungBefundField = Value End Set End Property Public Property DatumErstellungBefundSpecified() As Boolean Get Return Me.datumErstellungBefundFieldSpecified End Get Set Me.datumErstellungBefundFieldSpecified = Value End Set End Property Public Property Befund() As String Get Return Me.befundField End Get Set Me.befundField = Value End Set End Property Public Property KzVertretungsverhaeltnis() As String Get Return Me.kzVertretungsverhaeltnisField End Get Set Me.kzVertretungsverhaeltnisField = Value End Set End Property Public Property WKZ() As String Get Return Me.wKZField End Get Set Me.wKZField = Value End Set End Property Public Property KzRechtsbehelf() As String Get Return Me.kzRechtsbehelfField End Get Set Me.kzRechtsbehelfField = Value End Set End Property Public Property KzGesamtschuldnerschaft() As String Get Return Me.kzGesamtschuldnerschaftField End Get Set Me.kzGesamtschuldnerschaftField = Value End Set End Property Public Property EingangszollstelleGeaendertKz() As String Get Return Me.eingangszollstelleGeaendertKzField End Get Set Me.eingangszollstelleGeaendertKzField = Value End Set End Property Public Property AnmelderEORI() As String Get Return Me.anmelderEORIField End Get Set Me.anmelderEORIField = Value End Set End Property Public Property AnmelderNLNR() As String Get Return Me.anmelderNLNRField End Get Set Me.anmelderNLNRField = Value End Set End Property Public Property AnmelderFirmenbezeichung() As String Get Return Me.anmelderFirmenbezeichungField End Get Set Me.anmelderFirmenbezeichungField = Value End Set End Property Public Property AnmelderStrasseHausNr() As String Get Return Me.anmelderStrasseHausNrField End Get Set Me.anmelderStrasseHausNrField = Value End Set End Property Public Property AnmelderOrtsteil() As String Get Return Me.anmelderOrtsteilField End Get Set Me.anmelderOrtsteilField = Value End Set End Property Public Property AnmelderOrtS() As String Get Return Me.anmelderOrtSField End Get Set Me.anmelderOrtSField = Value End Set End Property Public Property AnmelderPLZS() As String Get Return Me.anmelderPLZSField End Get Set Me.anmelderPLZSField = Value End Set End Property Public Property AnmelderNationalitaet() As String Get Return Me.anmelderNationalitaetField End Get Set Me.anmelderNationalitaetField = Value End Set End Property Public Property Dienststellenschluessel() As String Get Return Me.dienststellenschluesselField End Get Set Me.dienststellenschluesselField = Value End Set End Property Public Property DienststelleBezeichung() As String Get Return Me.dienststelleBezeichungField End Get Set Me.dienststelleBezeichungField = Value End Set End Property Public Property DienststelleStrasseHausNr() As String Get Return Me.dienststelleStrasseHausNrField End Get Set Me.dienststelleStrasseHausNrField = Value End Set End Property Public Property DienststelleOrtS() As String Get Return Me.dienststelleOrtSField End Get Set Me.dienststelleOrtSField = Value End Set End Property Public Property DienststellePLZS() As String Get Return Me.dienststellePLZSField End Get Set Me.dienststellePLZSField = Value End Set End Property Public Property Bearbeiter() As String Get Return Me.bearbeiterField End Get Set Me.bearbeiterField = Value End Set End Property Public Property DienststelleVorwahlTelefonNr() As String Get Return Me.dienststelleVorwahlTelefonNrField End Get Set Me.dienststelleVorwahlTelefonNrField = Value End Set End Property Public Property VertreterEORI() As String Get Return Me.vertreterEORIField End Get Set Me.vertreterEORIField = Value End Set End Property Public Property VertreterNLNR() As String Get Return Me.vertreterNLNRField End Get Set Me.vertreterNLNRField = Value End Set End Property Public Property VertreterFirmenbezeichnung() As String Get Return Me.vertreterFirmenbezeichnungField End Get Set Me.vertreterFirmenbezeichnungField = Value End Set End Property Public Property VertreterStrasseHausNr() As String Get Return Me.vertreterStrasseHausNrField End Get Set Me.vertreterStrasseHausNrField = Value End Set End Property Public Property VertreterOrtsteil() As String Get Return Me.vertreterOrtsteilField End Get Set Me.vertreterOrtsteilField = Value End Set End Property Public Property VertreterOrtS() As String Get Return Me.vertreterOrtSField End Get Set Me.vertreterOrtSField = Value End Set End Property Public Property VertreterPLZS() As String Get Return Me.vertreterPLZSField End Get Set Me.vertreterPLZSField = Value End Set End Property Public Property VertreterNationalitaet() As String Get Return Me.vertreterNationalitaetField End Get Set Me.vertreterNationalitaetField = Value End Set End Property Public Property HZABezeichnung() As String Get Return Me.hZABezeichnungField End Get Set Me.hZABezeichnungField = Value End Set End Property Public Property HZAEmailAdresse() As String Get Return Me.hZAEmailAdresseField End Get Set Me.hZAEmailAdresseField = Value End Set End Property Public Property HZADEmailAdresse() As String Get Return Me.hZADEmailAdresseField End Get Set Me.hZADEmailAdresseField = Value End Set End Property Public Property HZAPostfach() As String Get Return Me.hZAPostfachField End Get Set Me.hZAPostfachField = Value End Set End Property Public Property HZAOrtP() As String Get Return Me.hZAOrtPField End Get Set Me.hZAOrtPField = Value End Set End Property Public Property HZAPLZP() As String Get Return Me.hZAPLZPField End Get Set Me.hZAPLZPField = Value End Set End Property Public Property HZAStrasseHausNr() As String Get Return Me.hZAStrasseHausNrField End Get Set Me.hZAStrasseHausNrField = Value End Set End Property Public Property HZAOrtsteil() As String Get Return Me.hZAOrtsteilField End Get Set Me.hZAOrtsteilField = Value End Set End Property Public Property HZAOrtS() As String Get Return Me.hZAOrtSField End Get Set Me.hZAOrtSField = Value End Set End Property Public Property HZAPLZS() As String Get Return Me.hZAPLZSField End Get Set Me.hZAPLZSField = Value End Set End Property Public Property FRechnungEORI() As String Get Return Me.fRechnungEORIField End Get Set Me.fRechnungEORIField = Value End Set End Property Public Property FRechnungNLNR() As String Get Return Me.fRechnungNLNRField End Get Set Me.fRechnungNLNRField = Value End Set End Property Public Property FRechnungNationalitaet() As String Get Return Me.fRechnungNationalitaetField End Get Set Me.fRechnungNationalitaetField = Value End Set End Property Public Property FRechnungName() As String Get Return Me.fRechnungNameField End Get Set Me.fRechnungNameField = Value End Set End Property Public Property FRechnungStrasseHausNr() As String Get Return Me.fRechnungStrasseHausNrField End Get Set Me.fRechnungStrasseHausNrField = Value End Set End Property Public Property FRechnungPLZS() As String Get Return Me.fRechnungPLZSField End Get Set Me.fRechnungPLZSField = Value End Set End Property Public Property FRechnungOrtS() As String Get Return Me.fRechnungOrtSField End Get Set Me.fRechnungOrtSField = Value End Set End Property Public Property FRechnungOrtsteil() As String Get Return Me.fRechnungOrtsteilField End Get Set Me.fRechnungOrtsteilField = Value End Set End Property Public Property AnmelderEmpfaengerKz() As String Get Return Me.anmelderEmpfaengerKzField End Get Set Me.anmelderEmpfaengerKzField = Value End Set End Property Public Property Bewilligungsnummer() As String Get Return Me.bewilligungsnummerField End Get Set Me.bewilligungsnummerField = Value End Set End Property Public Property VersendungslandCode() As String Get Return Me.versendungslandCodeField End Get Set Me.versendungslandCodeField = Value End Set End Property Public Property Lieferbedingung() As String Get Return Me.lieferbedingungField End Get Set Me.lieferbedingungField = Value End Set End Property Public Property LieferbedingungText() As String Get Return Me.lieferbedingungTextField End Get Set Me.lieferbedingungTextField = Value End Set End Property Public Property LieferbedingungOrt() As String Get Return Me.lieferbedingungOrtField End Get Set Me.lieferbedingungOrtField = Value End Set End Property Public Property LieferbedingungSchluessel() As String Get Return Me.lieferbedingungSchluesselField End Get Set Me.lieferbedingungSchluesselField = Value End Set End Property Public Property Rechnungspreis() As Decimal Get Return Me.rechnungspreisField End Get Set Me.rechnungspreisField = Value End Set End Property Public Property RechnungspreisSpecified() As Boolean Get Return Me.rechnungspreisFieldSpecified End Get Set Me.rechnungspreisFieldSpecified = Value End Set End Property Public Property Rechnungswaehrung() As String Get Return Me.rechnungswaehrungField End Get Set Me.rechnungswaehrungField = Value End Set End Property Public Property Finanzamt() As String Get Return Me.finanzamtField End Get Set Me.finanzamtField = Value End Set End Property Public Property Eingangszollstelle() As String Get Return Me.eingangszollstelleField End Get Set Me.eingangszollstelleField = Value End Set End Property Public Property DV1Kz() As String Get Return Me.dV1KzField End Get Set Me.dV1KzField = Value End Set End Property Public Property VerkaeuferEORI() As String Get Return Me.verkaeuferEORIField End Get Set Me.verkaeuferEORIField = Value End Set End Property Public Property VerkaeuferFirmenbezeichnung() As String Get Return Me.verkaeuferFirmenbezeichnungField End Get Set Me.verkaeuferFirmenbezeichnungField = Value End Set End Property Public Property VerkaeuferNationalitaet() As String Get Return Me.verkaeuferNationalitaetField End Get Set Me.verkaeuferNationalitaetField = Value End Set End Property Public Property VerkaeuferStrasseHausNr() As String Get Return Me.verkaeuferStrasseHausNrField End Get Set Me.verkaeuferStrasseHausNrField = Value End Set End Property Public Property VerkaeuferPLZS() As String Get Return Me.verkaeuferPLZSField End Get Set Me.verkaeuferPLZSField = Value End Set End Property Public Property VerkaeuferOrtS() As String Get Return Me.verkaeuferOrtSField End Get Set Me.verkaeuferOrtSField = Value End Set End Property Public Property VerkaeuferOrtsteil() As String Get Return Me.verkaeuferOrtsteilField End Get Set Me.verkaeuferOrtsteilField = Value End Set End Property Public Property KaeuferEORI() As String Get Return Me.kaeuferEORIField End Get Set Me.kaeuferEORIField = Value End Set End Property Public Property KaeuferFirmenbezeichnung() As String Get Return Me.kaeuferFirmenbezeichnungField End Get Set Me.kaeuferFirmenbezeichnungField = Value End Set End Property Public Property KaeuferNationalitaet() As String Get Return Me.kaeuferNationalitaetField End Get Set Me.kaeuferNationalitaetField = Value End Set End Property Public Property KaeuferStrasseHausNr() As String Get Return Me.kaeuferStrasseHausNrField End Get Set Me.kaeuferStrasseHausNrField = Value End Set End Property Public Property KaeuferPLZS() As String Get Return Me.kaeuferPLZSField End Get Set Me.kaeuferPLZSField = Value End Set End Property Public Property KaeuferOrtS() As String Get Return Me.kaeuferOrtSField End Get Set Me.kaeuferOrtSField = Value End Set End Property Public Property KaeuferOrtsteil() As String Get Return Me.kaeuferOrtsteilField End Get Set Me.kaeuferOrtsteilField = Value End Set End Property Public Property ZollwertanmelderEORI() As String Get Return Me.zollwertanmelderEORIField End Get Set Me.zollwertanmelderEORIField = Value End Set End Property Public Property ZollwertanmelderFirmenbezeichnung() As String Get Return Me.zollwertanmelderFirmenbezeichnungField End Get Set Me.zollwertanmelderFirmenbezeichnungField = Value End Set End Property Public Property ZollwertanmelderNationalitaet() As String Get Return Me.zollwertanmelderNationalitaetField End Get Set Me.zollwertanmelderNationalitaetField = Value End Set End Property Public Property ZollwertanmelderStrasseHausNr() As String Get Return Me.zollwertanmelderStrasseHausNrField End Get Set Me.zollwertanmelderStrasseHausNrField = Value End Set End Property Public Property ZollwertanmelderPLZS() As String Get Return Me.zollwertanmelderPLZSField End Get Set Me.zollwertanmelderPLZSField = Value End Set End Property Public Property ZollwertanmelderOrtS() As String Get Return Me.zollwertanmelderOrtSField End Get Set Me.zollwertanmelderOrtSField = Value End Set End Property Public Property ZollwertanmelderOrtsteil() As String Get Return Me.zollwertanmelderOrtsteilField End Get Set Me.zollwertanmelderOrtsteilField = Value End Set End Property Public Property VertreterZollwertanmelderEORI() As String Get Return Me.vertreterZollwertanmelderEORIField End Get Set Me.vertreterZollwertanmelderEORIField = Value End Set End Property Public Property VertreterZollwertanmelderFirmenbezeichnung() As String Get Return Me.vertreterZollwertanmelderFirmenbezeichnungField End Get Set Me.vertreterZollwertanmelderFirmenbezeichnungField = Value End Set End Property Public Property VertreterZollwertanmelderNationalitaet() As String Get Return Me.vertreterZollwertanmelderNationalitaetField End Get Set Me.vertreterZollwertanmelderNationalitaetField = Value End Set End Property Public Property VertreterZollwertanmelderStrasseHausNr() As String Get Return Me.vertreterZollwertanmelderStrasseHausNrField End Get Set Me.vertreterZollwertanmelderStrasseHausNrField = Value End Set End Property Public Property VertreterZollwertanmelderPLZS() As String Get Return Me.vertreterZollwertanmelderPLZSField End Get Set Me.vertreterZollwertanmelderPLZSField = Value End Set End Property Public Property VertreterZollwertanmelderOrtS() As String Get Return Me.vertreterZollwertanmelderOrtSField End Get Set Me.vertreterZollwertanmelderOrtSField = Value End Set End Property Public Property VertreterZollwertanmelderOrtsteil() As String Get Return Me.vertreterZollwertanmelderOrtsteilField End Get Set Me.vertreterZollwertanmelderOrtsteilField = Value End Set End Property Public Property Vertretungsverhaeltnis() As String Get Return Me.vertretungsverhaeltnisField End Get Set Me.vertretungsverhaeltnisField = Value End Set End Property Public Property FruehereEntscheidungen() As String Get Return Me.fruehereEntscheidungenField End Get Set Me.fruehereEntscheidungenField = Value End Set End Property Public Property Verbundenheit() As String Get Return Me.verbundenheitField End Get Set Me.verbundenheitField = Value End Set End Property Public Property VerbundenheitEinzelheiten() As String Get Return Me.verbundenheitEinzelheitenField End Get Set Me.verbundenheitEinzelheitenField = Value End Set End Property Public Property EinschraenkungenKz() As String Get Return Me.einschraenkungenKzField End Get Set Me.einschraenkungenKzField = Value End Set End Property Public Property BedingungenLeistungenKz() As String Get Return Me.bedingungenLeistungenKzField End Get Set Me.bedingungenLeistungenKzField = Value End Set End Property Public Property BedingungenLeistungenArt() As String Get Return Me.bedingungenLeistungenArtField End Get Set Me.bedingungenLeistungenArtField = Value End Set End Property Public Property LizenzgebuehrenKz() As String Get Return Me.lizenzgebuehrenKzField End Get Set Me.lizenzgebuehrenKzField = Value End Set End Property Public Property LizenzgebuehrenUmstand() As String Get Return Me.lizenzgebuehrenUmstandField End Get Set Me.lizenzgebuehrenUmstandField = Value End Set End Property Public Property SpezielleVereinbarungKz() As String Get Return Me.spezielleVereinbarungKzField End Get Set Me.spezielleVereinbarungKzField = Value End Set End Property Public Property SpezielleVereinbarungUmstand() As String Get Return Me.spezielleVereinbarungUmstandField End Get Set Me.spezielleVereinbarungUmstandField = Value End Set End Property Public Property EmpfaengerEORI() As String Get Return Me.empfaengerEORIField End Get Set Me.empfaengerEORIField = Value End Set End Property Public Property EmpfaengerNLNR() As String Get Return Me.empfaengerNLNRField End Get Set Me.empfaengerNLNRField = Value End Set End Property Public Property EmpfaengerFirmenbezeichnung() As String Get Return Me.empfaengerFirmenbezeichnungField End Get Set Me.empfaengerFirmenbezeichnungField = Value End Set End Property Public Property EmpfaengerNationalitaet() As String Get Return Me.empfaengerNationalitaetField End Get Set Me.empfaengerNationalitaetField = Value End Set End Property Public Property EmpfaengerStrasseHausNr() As String Get Return Me.empfaengerStrasseHausNrField End Get Set Me.empfaengerStrasseHausNrField = Value End Set End Property Public Property EmpfaengerPLZS() As String Get Return Me.empfaengerPLZSField End Get Set Me.empfaengerPLZSField = Value End Set End Property Public Property EmpfaengerOrtS() As String Get Return Me.empfaengerOrtSField End Get Set Me.empfaengerOrtSField = Value End Set End Property Public Property EmpfaengerOrtsteil() As String Get Return Me.empfaengerOrtsteilField End Get Set Me.empfaengerOrtsteilField = Value End Set End Property Public Property DatenuebermittlungEORI() As String Get Return Me.datenuebermittlungEORIField End Get Set Me.datenuebermittlungEORIField = Value End Set End Property Public Property ErwerberAndererMitgliedstaatEORI() As String Get Return Me.erwerberAndererMitgliedstaatEORIField End Get Set Me.erwerberAndererMitgliedstaatEORIField = Value End Set End Property Public Property ErwerberAndererMitgliedstaatNLNR() As String Get Return Me.erwerberAndererMitgliedstaatNLNRField End Get Set Me.erwerberAndererMitgliedstaatNLNRField = Value End Set End Property Public Property ErwerberFirmenbezeichnung() As String Get Return Me.erwerberFirmenbezeichnungField End Get Set Me.erwerberFirmenbezeichnungField = Value End Set End Property Public Property ErwerberNationalitaet() As String Get Return Me.erwerberNationalitaetField End Get Set Me.erwerberNationalitaetField = Value End Set End Property Public Property ErwerberStrasseHausNr() As String Get Return Me.erwerberStrasseHausNrField End Get Set Me.erwerberStrasseHausNrField = Value End Set End Property Public Property ErwerberPLZS() As String Get Return Me.erwerberPLZSField End Get Set Me.erwerberPLZSField = Value End Set End Property Public Property ErwerberOrtS() As String Get Return Me.erwerberOrtSField End Get Set Me.erwerberOrtSField = Value End Set End Property Public Property ErwerberOrtsteil() As String Get Return Me.erwerberOrtsteilField End Get Set Me.erwerberOrtsteilField = Value End Set End Property Public Property ErwerberUStIdNrAndererMitgliedstaat() As String Get Return Me.erwerberUStIdNrAndererMitgliedstaatField End Get Set Me.erwerberUStIdNrAndererMitgliedstaatField = Value End Set End Property Public Property VersenderAusfuehrerEORI() As String Get Return Me.versenderAusfuehrerEORIField End Get Set Me.versenderAusfuehrerEORIField = Value End Set End Property Public Property VersenderAusfuehrerFirmenbezeichnung() As String Get Return Me.versenderAusfuehrerFirmenbezeichnungField End Get Set Me.versenderAusfuehrerFirmenbezeichnungField = Value End Set End Property Public Property VersenderAusfuehrerNationalitaet() As String Get Return Me.versenderAusfuehrerNationalitaetField End Get Set Me.versenderAusfuehrerNationalitaetField = Value End Set End Property Public Property VersenderAusfuehrerStrasseHausNr() As String Get Return Me.versenderAusfuehrerStrasseHausNrField End Get Set Me.versenderAusfuehrerStrasseHausNrField = Value End Set End Property Public Property VersenderAusfuehrerPLZS() As String Get Return Me.versenderAusfuehrerPLZSField End Get Set Me.versenderAusfuehrerPLZSField = Value End Set End Property Public Property VersenderAusfuehrerOrtS() As String Get Return Me.versenderAusfuehrerOrtSField End Get Set Me.versenderAusfuehrerOrtSField = Value End Set End Property Public Property VersenderAusfuehrerOrtsteil() As String Get Return Me.versenderAusfuehrerOrtsteilField End Get Set Me.versenderAusfuehrerOrtsteilField = Value End Set End Property Public Property Unterlage() As List(Of AnmeldungVBTyp) Get Return Me.unterlageField End Get Set Me.unterlageField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object ''' '''string workflow markup to deserialize '''Output KopfdatenBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfdatenBefundVereinfachteZollanmeldungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object ''' '''string xml file to load and deserialize '''Output KopfdatenBefundVereinfachteZollanmeldungTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfdatenBefundVereinfachteZollanmeldungTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class TransaktionFreierVerkehrTyp Private iOPartnerField As String Private iODivision1Field As String Private iODivision2Field As String Private iODivision3Field As String Private iOReferenzField As String Private iODatumZeitField As Date Private versionField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property IOPartner() As String Get Return Me.iOPartnerField End Get Set Me.iOPartnerField = Value End Set End Property Public Property IODivision1() As String Get Return Me.iODivision1Field End Get Set Me.iODivision1Field = Value End Set End Property Public Property IODivision2() As String Get Return Me.iODivision2Field End Get Set Me.iODivision2Field = Value End Set End Property Public Property IODivision3() As String Get Return Me.iODivision3Field End Get Set Me.iODivision3Field = Value End Set End Property Public Property IOReferenz() As String Get Return Me.iOReferenzField End Get Set Me.iOReferenzField = Value End Set End Property Public Property IODatumZeit() As Date Get Return Me.iODatumZeitField End Get Set Me.iODatumZeitField = Value End Set End Property Public Property Version() As String Get Return Me.versionField End Get Set Me.versionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TransaktionFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TransaktionFreierVerkehrTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output TransaktionFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class Partial Public Class DatenaustauschFreierVerkehrTyp Private transaktionField As TransaktionFreierVerkehrTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.transaktionField = New TransaktionFreierVerkehrTyp() End Sub Public Property Transaktion() As TransaktionFreierVerkehrTyp Get Return Me.transaktionField End Get Set Me.transaktionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object ''' '''string workflow markup to deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current DatenaustauschFreierVerkehrTyp object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object ''' '''string xml file to load and deserialize '''Output DatenaustauschFreierVerkehrTyp object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try obj = LoadFromFile(fileName) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #End Region End Class End Namespace