'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) '' NichtAbschliessendeFestsetzung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue '' '' ------------------------------------------------------------------------------ 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 NichtAbschliessendeFestsetzung_004 Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp Inherits DatenaustauschFreierVerkehrTyp Private einzelNichtAbschliessendeFestsetzungField As EinzelNichtAbschliessendeFestsetzungTyp Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.einzelNichtAbschliessendeFestsetzungField = New EinzelNichtAbschliessendeFestsetzungTyp() End Sub Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp Get Return Me.einzelNichtAbschliessendeFestsetzungField End Get Set Me.einzelNichtAbschliessendeFestsetzungField = 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(NichtAbschliessendeFestsetzungTAXNTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current NichtAbschliessendeFestsetzungTAXNTyp 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 NichtAbschliessendeFestsetzungTAXNTyp object ''' '''string workflow markup to deserialize '''Output NichtAbschliessendeFestsetzungTAXNTyp 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 NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current NichtAbschliessendeFestsetzungTAXNTyp 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 NichtAbschliessendeFestsetzungTAXNTyp object ''' '''string xml file to load and deserialize '''Output NichtAbschliessendeFestsetzungTAXNTyp 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 NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp 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 EinzelNichtAbschliessendeFestsetzungTyp Private objektIdentifizierungField As ObjektIdentifizierungTAXNyp Private kopfDatenField As KopfDatenNichtAbschliessendeFestsetzungTyp Private positionField As List(Of PositionNichtAbschliessendeFestsetzungTyp) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.positionField = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() Me.kopfDatenField = New KopfDatenNichtAbschliessendeFestsetzungTyp() Me.objektIdentifizierungField = New ObjektIdentifizierungTAXNyp() End Sub Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp Get Return Me.objektIdentifizierungField End Get Set Me.objektIdentifizierungField = Value End Set End Property Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp Get Return Me.kopfDatenField End Get Set Me.kopfDatenField = Value End Set End Property Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) 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(EinzelNichtAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current EinzelNichtAbschliessendeFestsetzungTyp 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 EinzelNichtAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output EinzelNichtAbschliessendeFestsetzungTyp 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 EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current EinzelNichtAbschliessendeFestsetzungTyp 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 EinzelNichtAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output EinzelNichtAbschliessendeFestsetzungTyp 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 EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp 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 ObjektIdentifizierungTAXNyp Private objektNameField As String Private objektAliasField As String Private eDIFACTNachrichtenNrField As String Private zeitpunktEingangField As Date Private shipmentReferenzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property ObjektName() As String Get Return Me.objektNameField End Get Set Me.objektNameField = Value End Set End Property Public Property ObjektAlias() As String Get Return Me.objektAliasField End Get Set Me.objektAliasField = Value End Set End Property Public Property EDIFACTNachrichtenNr() As String Get Return Me.eDIFACTNachrichtenNrField End Get Set Me.eDIFACTNachrichtenNrField = Value End Set End Property Public Property ZeitpunktEingang() As Date Get Return Me.zeitpunktEingangField End Get Set Me.zeitpunktEingangField = Value End Set End Property Public Property ShipmentReferenz() As String Get Return Me.shipmentReferenzField End Get Set Me.shipmentReferenzField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXNyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ObjektIdentifizierungTAXNyp 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 ObjektIdentifizierungTAXNyp object ''' '''string workflow markup to deserialize '''Output ObjektIdentifizierungTAXNyp 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 ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current ObjektIdentifizierungTAXNyp 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 ObjektIdentifizierungTAXNyp object ''' '''string xml file to load and deserialize '''Output ObjektIdentifizierungTAXNyp 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 ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp 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 UnterlageTAXNTyp Private unterlageArtField As String Private vorlagefristDatumField As Date Private vorlagefristDatumFieldSpecified As Boolean Private nachzureichenKzField As String Private vorzulegenKzField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property UnterlageArt() As String Get Return Me.unterlageArtField End Get Set Me.unterlageArtField = Value End Set End Property Public Property VorlagefristDatum() As Date Get Return Me.vorlagefristDatumField End Get Set Me.vorlagefristDatumField = Value End Set End Property Public Property VorlagefristDatumSpecified() As Boolean Get Return Me.vorlagefristDatumFieldSpecified End Get Set Me.vorlagefristDatumFieldSpecified = Value End Set End Property Public Property NachzureichenKz() As String Get Return Me.nachzureichenKzField End Get Set Me.nachzureichenKzField = Value End Set End Property Public Property VorzulegenKz() As String Get Return Me.vorzulegenKzField End Get Set Me.vorzulegenKzField = 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(UnterlageTAXNTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current UnterlageTAXNTyp 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 UnterlageTAXNTyp object ''' '''string workflow markup to deserialize '''Output UnterlageTAXNTyp 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 UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageTAXNTyp) 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 UnterlageTAXNTyp) 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 UnterlageTAXNTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageTAXNTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current UnterlageTAXNTyp 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 UnterlageTAXNTyp object ''' '''string xml file to load and deserialize '''Output UnterlageTAXNTyp 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 UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageTAXNTyp) 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 UnterlageTAXNTyp) 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 UnterlageTAXNTyp 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 PositionNichtAbschliessendeFestsetzungTyp Private positionsNrField As String Private unterlageField As List(Of UnterlageTAXNTyp) Private ermittlungenEinfuhrfaehigkeitKzField As String Private ermittlungenZollwertKzField As String Private ermittlungenWarenbeschaffenheitKzField As String Private ermittlungenAbgabensatzKzField As String Private pruefungVorbehaltenField As String Private ermittlungenSonstigeKzField As String Private kontingentsmeldungKzField As String Private vorlaeufigerAntidumpingzollKzField As String Private positionVollstaendigKzField As String Private berichtigungspflichtigKzField As String Private begruendungField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.unterlageField = New List(Of UnterlageTAXNTyp)() End Sub Public Property PositionsNr() As String Get Return Me.positionsNrField End Get Set Me.positionsNrField = Value End Set End Property Public Property Unterlage() As List(Of UnterlageTAXNTyp) Get Return Me.unterlageField End Get Set Me.unterlageField = Value End Set End Property Public Property ErmittlungenEinfuhrfaehigkeitKz() As String Get Return Me.ermittlungenEinfuhrfaehigkeitKzField End Get Set Me.ermittlungenEinfuhrfaehigkeitKzField = Value End Set End Property Public Property ErmittlungenZollwertKz() As String Get Return Me.ermittlungenZollwertKzField End Get Set Me.ermittlungenZollwertKzField = Value End Set End Property Public Property ErmittlungenWarenbeschaffenheitKz() As String Get Return Me.ermittlungenWarenbeschaffenheitKzField End Get Set Me.ermittlungenWarenbeschaffenheitKzField = Value End Set End Property Public Property ErmittlungenAbgabensatzKz() As String Get Return Me.ermittlungenAbgabensatzKzField End Get Set Me.ermittlungenAbgabensatzKzField = Value End Set End Property Public Property PruefungVorbehalten() As String Get Return Me.pruefungVorbehaltenField End Get Set Me.pruefungVorbehaltenField = Value End Set End Property Public Property ErmittlungenSonstigeKz() As String Get Return Me.ermittlungenSonstigeKzField End Get Set Me.ermittlungenSonstigeKzField = Value End Set End Property Public Property KontingentsmeldungKz() As String Get Return Me.kontingentsmeldungKzField End Get Set Me.kontingentsmeldungKzField = Value End Set End Property Public Property VorlaeufigerAntidumpingzollKz() As String Get Return Me.vorlaeufigerAntidumpingzollKzField End Get Set Me.vorlaeufigerAntidumpingzollKzField = Value End Set End Property Public Property PositionVollstaendigKz() As String Get Return Me.positionVollstaendigKzField End Get Set Me.positionVollstaendigKzField = Value End Set End Property Public Property BerichtigungspflichtigKz() As String Get Return Me.berichtigungspflichtigKzField End Get Set Me.berichtigungspflichtigKzField = Value End Set End Property Public Property Begruendung() As String Get Return Me.begruendungField End Get Set Me.begruendungField = 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(PositionNichtAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current PositionNichtAbschliessendeFestsetzungTyp 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 PositionNichtAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output PositionNichtAbschliessendeFestsetzungTyp 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 PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current PositionNichtAbschliessendeFestsetzungTyp 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 PositionNichtAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output PositionNichtAbschliessendeFestsetzungTyp 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 PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp Private registrierNrField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property RegistrierNr() As String Get Return Me.registrierNrField End Get Set Me.registrierNrField = 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(KopfDatenNichtAbschliessendeFestsetzungTyp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp object ''' '''string workflow markup to deserialize '''Output KopfDatenNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp object ''' '''string xml file to load and deserialize '''Output KopfDatenNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp 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