diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.Designer.vb new file mode 100644 index 0000000..a5cea4a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.Designer.vb @@ -0,0 +1,7376 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"Abgabenbescheid_012","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace Abgabenbescheid_012 + + + Partial Public Class AbgabenbescheidEinfuhrTAXTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() + End Sub + + + Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + Get + Return Me._einzelAbgabenbescheid + End Get + Set + Me._einzelAbgabenbescheid = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenbescheidEinfuhrTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelAbgabenbescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp + + Private _kopfDaten As KopfDatenEinfuhrbescheidTyp + + Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelAbgabenbescheidTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelAbgabenbescheidTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbgabenbescheidTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbgabenbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungTAXTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTAXTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelAbgabenSatzTAXTyp + +#Region "Private fields" + Private _abgabensatz As Decimal + + Private _bemessungsmassstab As String + + Private _gehaltsangabenArt As String + + Private _gehaltsangabenGradProzent As Decimal + + Private _bemessungsgrundlageKz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Abgabensatz() As Decimal + Get + Return Me._abgabensatz + End Get + Set + Me._abgabensatz = Value + End Set + End Property + + + Public Property Bemessungsmassstab() As String + Get + Return Me._bemessungsmassstab + End Get + Set + Me._bemessungsmassstab = Value + End Set + End Property + + + Public Property GehaltsangabenArt() As String + Get + Return Me._gehaltsangabenArt + End Get + Set + Me._gehaltsangabenArt = Value + End Set + End Property + + + Public Property GehaltsangabenGradProzent() As Decimal + Get + Return Me._gehaltsangabenGradProzent + End Get + Set + Me._gehaltsangabenGradProzent = Value + End Set + End Property + + + Public Property BemessungsgrundlageKz() As String + Get + Return Me._bemessungsgrundlageKz + End Get + Set + Me._bemessungsgrundlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelAbgabenSatzTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelAbgabenSatzTAXTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbgabenSatzTAXTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbgabenSatzTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgabengruppeTAXTyp + +#Region "Private fields" + Private _abgabengruppe As String + + Private _abgabeArt As String + + Private _berechnungshinweis As String + + Private _errechneterAbgabenbetrag As Decimal + + Private _abgabenbetrag As Decimal + + Private _abgabensatzKontNr As String + + Private _verbrauchssteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheit As String + + Private _verbrauchssteuerQualifikator As String + + Private _verbrauchssteuerGradProzent As Decimal + + Private _verbrauchssteuerWert As Decimal + + Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() + End Sub + + + Public Property Abgabengruppe() As String + Get + Return Me._abgabengruppe + End Get + Set + Me._abgabengruppe = Value + End Set + End Property + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Berechnungshinweis() As String + Get + Return Me._berechnungshinweis + End Get + Set + Me._berechnungshinweis = Value + End Set + End Property + + + Public Property ErrechneterAbgabenbetrag() As Decimal + Get + Return Me._errechneterAbgabenbetrag + End Get + Set + Me._errechneterAbgabenbetrag = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property AbgabensatzKontNr() As String + Get + Return Me._abgabensatzKontNr + End Get + Set + Me._abgabensatzKontNr = Value + End Set + End Property + + + Public Property VerbrauchssteuerCode() As String + Get + Return Me._verbrauchssteuerCode + End Get + Set + Me._verbrauchssteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheit() As String + Get + Return Me._verbrauchssteuerMasseinheit + End Get + Set + Me._verbrauchssteuerMasseinheit = Value + End Set + End Property + + + Public Property VerbrauchssteuerQualifikator() As String + Get + Return Me._verbrauchssteuerQualifikator + End Get + Set + Me._verbrauchssteuerQualifikator = Value + End Set + End Property + + + Public Property VerbrauchssteuerGradProzent() As Decimal + Get + Return Me._verbrauchssteuerGradProzent + End Get + Set + Me._verbrauchssteuerGradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWert() As Decimal + Get + Return Me._verbrauchssteuerWert + End Get + Set + Me._verbrauchssteuerWert = Value + End Set + End Property + + + Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) + Get + Return Me._einzelAbgabenSatz + End Get + Set + Me._einzelAbgabenSatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgabengruppeTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgabengruppeTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabengruppeTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabengruppeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabengruppeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PauschalierungTAXTyp + +#Region "Private fields" + Private _warenkategorie As String + + Private _kzPauschalierterAbgabensatz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Warenkategorie() As String + Get + Return Me._warenkategorie + End Get + Set + Me._warenkategorie = Value + End Set + End Property + + + Public Property KzPauschalierterAbgabensatz() As String + Get + Return Me._kzPauschalierterAbgabensatz + End Get + Set + Me._kzPauschalierterAbgabensatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PauschalierungTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PauschalierungTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PauschalierungTAXTyp object + ''' + ''' string to deserialize + ''' Output PauschalierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PauschalierungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PauschalierungTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PauschalierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PauschalierungTAXTyp + Return CType(SerializerXml.Deserialize(s), PauschalierungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current PauschalierungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PauschalierungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output PauschalierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PauschalierungTAXTyp) + 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 PauschalierungTAXTyp) 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 PauschalierungTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbweichendeFestsetzungTAXTyp + +#Region "Private fields" + Private _feldname As String + + Private _qualifikator As String + + Private _qualifikatorInhalt As String + + Private _artAbweichendeFestsetzung As String + + Private _festgesetztVon As String + + Private _festgesetztAuf As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Feldname() As String + Get + Return Me._feldname + End Get + Set + Me._feldname = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property ArtAbweichendeFestsetzung() As String + Get + Return Me._artAbweichendeFestsetzung + End Get + Set + Me._artAbweichendeFestsetzung = Value + End Set + End Property + + + Public Property FestgesetztVon() As String + Get + Return Me._festgesetztVon + End Get + Set + Me._festgesetztVon = Value + End Set + End Property + + + Public Property FestgesetztAuf() As String + Get + Return Me._festgesetztAuf + End Get + Set + Me._festgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbweichendeFestsetzungTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbweichendeFestsetzungTAXTyp object + ''' + ''' string to deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbweichendeFestsetzungTAXTyp + Return CType(SerializerXml.Deserialize(s), AbweichendeFestsetzungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KontingentAngerechnetWarenMengeTAXTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string to deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KontingentAngerechnetWarenMengeTAXTyp + Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KontingentAngerechnetTAXTyp + +#Region "Private fields" + Private _kontNrAngerechnet As String + + Private _zollwertAngerechnet As Decimal + + Private _eUStKostenAngerechnet As Decimal + + Private _beguenstMengeAngerechnet As Decimal + + Private _masseinhBegMengeAng As String + + Private _qualifBegMengeAng As String + + Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + End Sub + + + Public Property KontNrAngerechnet() As String + Get + Return Me._kontNrAngerechnet + End Get + Set + Me._kontNrAngerechnet = Value + End Set + End Property + + + Public Property ZollwertAngerechnet() As Decimal + Get + Return Me._zollwertAngerechnet + End Get + Set + Me._zollwertAngerechnet = Value + End Set + End Property + + + Public Property EUStKostenAngerechnet() As Decimal + Get + Return Me._eUStKostenAngerechnet + End Get + Set + Me._eUStKostenAngerechnet = Value + End Set + End Property + + + Public Property BeguenstMengeAngerechnet() As Decimal + Get + Return Me._beguenstMengeAngerechnet + End Get + Set + Me._beguenstMengeAngerechnet = Value + End Set + End Property + + + Public Property MasseinhBegMengeAng() As String + Get + Return Me._masseinhBegMengeAng + End Get + Set + Me._masseinhBegMengeAng = Value + End Set + End Property + + + Public Property QualifBegMengeAng() As String + Get + Return Me._qualifBegMengeAng + End Get + Set + Me._qualifBegMengeAng = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KontingentAngerechnetTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KontingentAngerechnetTAXTyp object + ''' + ''' string to deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KontingentAngerechnetTAXTyp + Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SonderfalleingabeTAXTyp + +#Region "Private fields" + Private _sonderabgabenGruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SonderabgabenGruppe() As String + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SonderfalleingabeTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SonderfalleingabeTAXTyp object + ''' + ''' string to deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SonderfalleingabeTAXTyp + Return CType(SerializerXml.Deserialize(s), SonderfalleingabeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EZAAVVeredelungserzeugnisTyp + +#Region "Private fields" + Private _warenbezeichnung As String + + Private _ausbeuteart As String + + Private _ausbeutesatz As String + + Private _kNCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Ausbeuteart() As String + Get + Return Me._ausbeuteart + End Get + Set + Me._ausbeuteart = Value + End Set + End Property + + + Public Property Ausbeutesatz() As String + Get + Return Me._ausbeutesatz + End Get + Set + Me._ausbeutesatz = Value + End Set + End Property + + + Public Property KNCode() As String + Get + Return Me._kNCode + End Get + Set + Me._kNCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EZAAVVeredelungserzeugnisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EZAAVVeredelungserzeugnisTyp object + ''' + ''' string to deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVVeredelungserzeugnisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVVeredelungserzeugnisTyp + Return CType(SerializerXml.Deserialize(s), EZAAVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EZAAVAngabenPosTyp + +#Region "Private fields" + Private _aVWirtschaftlicheVoraussetzungen As String + + Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp) + + Private _aVNaemlichkeitsmittel As String + + Private _aVErlaeuterungNaemlichkeit As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)() + End Sub + + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me._aVWirtschaftlicheVoraussetzungen + End Get + Set + Me._aVWirtschaftlicheVoraussetzungen = Value + End Set + End Property + + + Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) + Get + Return Me._aVVeredelungserzeugnis + End Get + Set + Me._aVVeredelungserzeugnis = Value + End Set + End Property + + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me._aVNaemlichkeitsmittel + End Get + Set + Me._aVNaemlichkeitsmittel = Value + End Set + End Property + + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me._aVErlaeuterungNaemlichkeit + End Get + Set + Me._aVErlaeuterungNaemlichkeit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EZAAVAngabenPosTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EZAAVAngabenPosTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenPosTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenPosTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenPosTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenPosTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenPosTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AngemeldeteUnterlageTAXTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _unterlageBereich As String + + Private _unterlageNr As String + + Private _anerkennungKz As String + + Private _abschreibungKz As String + + Private _einbehaltenKz As String + + Private _periodischeVorlageKz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property UnterlageBereich() As String + Get + Return Me._unterlageBereich + End Get + Set + Me._unterlageBereich = Value + End Set + End Property + + + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set + Me._unterlageNr = Value + End Set + End Property + + + Public Property AnerkennungKz() As String + Get + Return Me._anerkennungKz + End Get + Set + Me._anerkennungKz = Value + End Set + End Property + + + Public Property AbschreibungKz() As String + Get + Return Me._abschreibungKz + End Get + Set + Me._abschreibungKz = Value + End Set + End Property + + + Public Property EinbehaltenKz() As String + Get + Return Me._einbehaltenKz + End Get + Set + Me._einbehaltenKz = Value + End Set + End Property + + + Public Property PeriodischeVorlageKz() As String + Get + Return Me._periodischeVorlageKz + End Get + Set + Me._periodischeVorlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AngemeldeteUnterlageTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AngemeldeteUnterlageTAXTyp object + ''' + ''' string to deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AngemeldeteUnterlageTAXTyp + Return CType(SerializerXml.Deserialize(s), AngemeldeteUnterlageTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KursAbzugHinzuTAXTyp + +#Region "Private fields" + Private _artAbHinzu As String + + Private _angewandterKurs As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtAbHinzu() As String + Get + Return Me._artAbHinzu + End Get + Set + Me._artAbHinzu = Value + End Set + End Property + + + Public Property AngewandterKurs() As Decimal + Get + Return Me._angewandterKurs + End Get + Set + Me._angewandterKurs = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KursAbzugHinzuTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KursAbzugHinzuTAXTyp object + ''' + ''' string to deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KursAbzugHinzuTAXTyp + Return CType(SerializerXml.Deserialize(s), KursAbzugHinzuTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionAbgabenbescheidEinfuhrTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _erledigungKz As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenBezeichnung As String + + Private _beschauMitteilung As String + + Private _erledigungMitteilung As String + + Private _ablehnungAenderung As String + + Private _weitererNachweis As String + + Private _gewaehrteBeguenstigung As String + + Private _anordnungKz As String + + Private _eUStWert As Decimal + + Private _kostenFuerEUSt As Decimal + + Private _zollWert As Decimal + + Private _annahmeAenderung As String + + Private _sicherheitsLeistungBetrag As Decimal + + Private _registrierNrvZAAZ As String + + Private _veralteteWeitereRegistrierNrvZAAZ As String + + Private _positionsNrInvZAAZ As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungDatum As Date + + Private _lagerfrist As Date + + Private _wiederAusfuhrFrist As Date + + Private _fristWeitererNachweis As Date + + Private _befund As String + + Private _dV1AbweichendFestgesetztKz As String + + Private _sonderfalleingabeKz As String + + Private _angewandterKursNettopreis As Decimal + + Private _angewandterKursMittelbZahlungen As Decimal + + Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) + + Private _luftFrachtGesamtProzentsatz As String + + Private _luftFrachtGesamtAngewandterKurs As Decimal + + Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) + + Private _eZAAVAngabenPos As EZAAVAngabenPosTyp + + Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) + + Private _kontNrAngewandt As List(Of String) + + Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) + + Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) + + Private _pauschalierung As PauschalierungTAXTyp + + Private _abgaben As List(Of AbgabengruppeTAXTyp) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._abgaben = New List(Of AbgabengruppeTAXTyp)() + Me._pauschalierung = New PauschalierungTAXTyp() + Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() + Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() + Me._kontNrAngewandt = New List(Of String)() + Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() + Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp() + Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() + Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property ErledigungKz() As String + Get + Return Me._erledigungKz + End Get + Set + Me._erledigungKz = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set + Me._warenBezeichnung = Value + End Set + End Property + + + Public Property BeschauMitteilung() As String + Get + Return Me._beschauMitteilung + End Get + Set + Me._beschauMitteilung = Value + End Set + End Property + + + Public Property ErledigungMitteilung() As String + Get + Return Me._erledigungMitteilung + End Get + Set + Me._erledigungMitteilung = Value + End Set + End Property + + + Public Property AblehnungAenderung() As String + Get + Return Me._ablehnungAenderung + End Get + Set + Me._ablehnungAenderung = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property GewaehrteBeguenstigung() As String + Get + Return Me._gewaehrteBeguenstigung + End Get + Set + Me._gewaehrteBeguenstigung = Value + End Set + End Property + + + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set + Me._anordnungKz = Value + End Set + End Property + + + Public Property EUStWert() As Decimal + Get + Return Me._eUStWert + End Get + Set + Me._eUStWert = Value + End Set + End Property + + + Public Property KostenFuerEUSt() As Decimal + Get + Return Me._kostenFuerEUSt + End Get + Set + Me._kostenFuerEUSt = Value + End Set + End Property + + + Public Property ZollWert() As Decimal + Get + Return Me._zollWert + End Get + Set + Me._zollWert = Value + End Set + End Property + + + Public Property AnnahmeAenderung() As String + Get + Return Me._annahmeAenderung + End Get + Set + Me._annahmeAenderung = Value + End Set + End Property + + + Public Property SicherheitsLeistungBetrag() As Decimal + Get + Return Me._sicherheitsLeistungBetrag + End Get + Set + Me._sicherheitsLeistungBetrag = Value + End Set + End Property + + + Public Property RegistrierNrvZAAZ() As String + Get + Return Me._registrierNrvZAAZ + End Get + Set + Me._registrierNrvZAAZ = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistrierNrvZAAZ() As String + Get + Return Me._veralteteWeitereRegistrierNrvZAAZ + End Get + Set + Me._veralteteWeitereRegistrierNrvZAAZ = Value + End Set + End Property + + + Public Property PositionsNrInvZAAZ() As String + Get + Return Me._positionsNrInvZAAZ + End Get + Set + Me._positionsNrInvZAAZ = Value + End Set + End Property + + + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set + Me._annahmeKz = Value + End Set + End Property + + + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set + Me._annahmeDatum = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property Lagerfrist() As Date + Get + Return Me._lagerfrist + End Get + Set + Me._lagerfrist = Value + End Set + End Property + + + Public Property WiederAusfuhrFrist() As Date + Get + Return Me._wiederAusfuhrFrist + End Get + Set + Me._wiederAusfuhrFrist = Value + End Set + End Property + + + Public Property FristWeitererNachweis() As Date + Get + Return Me._fristWeitererNachweis + End Get + Set + Me._fristWeitererNachweis = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property DV1AbweichendFestgesetztKz() As String + Get + Return Me._dV1AbweichendFestgesetztKz + End Get + Set + Me._dV1AbweichendFestgesetztKz = Value + End Set + End Property + + + Public Property SonderfalleingabeKz() As String + Get + Return Me._sonderfalleingabeKz + End Get + Set + Me._sonderfalleingabeKz = Value + End Set + End Property + + + Public Property AngewandterKursNettopreis() As Decimal + Get + Return Me._angewandterKursNettopreis + End Get + Set + Me._angewandterKursNettopreis = Value + End Set + End Property + + + Public Property AngewandterKursMittelbZahlungen() As Decimal + Get + Return Me._angewandterKursMittelbZahlungen + End Get + Set + Me._angewandterKursMittelbZahlungen = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property LuftFrachtGesamtProzentsatz() As String + Get + Return Me._luftFrachtGesamtProzentsatz + End Get + Set + Me._luftFrachtGesamtProzentsatz = Value + End Set + End Property + + + Public Property LuftFrachtGesamtAngewandterKurs() As Decimal + Get + Return Me._luftFrachtGesamtAngewandterKurs + End Get + Set + Me._luftFrachtGesamtAngewandterKurs = Value + End Set + End Property + + + Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) + Get + Return Me._angemeldeteUnterlage + End Get + Set + Me._angemeldeteUnterlage = Value + End Set + End Property + + + Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp + Get + Return Me._eZAAVAngabenPos + End Get + Set + Me._eZAAVAngabenPos = Value + End Set + End Property + + + Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property KontNrAngewandt() As List(Of String) + Get + Return Me._kontNrAngewandt + End Get + Set + Me._kontNrAngewandt = Value + End Set + End Property + + + Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) + Get + Return Me._kontingentAngerechnet + End Get + Set + Me._kontingentAngerechnet = Value + End Set + End Property + + + Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) + Get + Return Me._abweichendeFestsetzung + End Get + Set + Me._abweichendeFestsetzung = Value + End Set + End Property + + + Public Property Pauschalierung() As PauschalierungTAXTyp + Get + Return Me._pauschalierung + End Get + Set + Me._pauschalierung = Value + End Set + End Property + + + Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) + Get + Return Me._abgaben + End Get + Set + Me._abgaben = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string to deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionAbgabenbescheidEinfuhrTyp + Return CType(SerializerXml.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' File to load and deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp + +#Region "Private fields" + Private _strasse As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EZAAVAngabenKopfTyp + +#Region "Private fields" + Private _kzBemessungEinfuhrabgabenbetrag As String + + Private _kzAbrechnung As String + + Private _kzVereinfBefoerderung As String + + Private _zusaetzlicheAngaben As String + + Private _kzVerzichtSicherheit As String + + Private _erlaeuterungenZurSicherheit As String + + Private _betragDerSicherheit As Decimal + + Private _deutschesUeHZA As String + + Private _einzelheitenGeplantVeredelungsvorgang As String + + Private _hauptbuchhaltungStrasse As String + + Private _hauptbuchhaltungLand As String + + Private _hauptbuchhaltungPLZ As String + + Private _hauptbuchhaltungOrt As String + + Private _hauptbuchhaltungOrtsteil As String + + Private _veredelungStrasse As String + + Private _veredelungLand As String + + Private _veredelungPLZ As String + + Private _veredelungOrt As String + + Private _veredelungOrtsteil As String + + Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + + Private _zollstelleErledigung As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zollstelleErledigung = New List(Of String)() + Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() + End Sub + + + Public Property KzBemessungEinfuhrabgabenbetrag() As String + Get + Return Me._kzBemessungEinfuhrabgabenbetrag + End Get + Set + Me._kzBemessungEinfuhrabgabenbetrag = Value + End Set + End Property + + + Public Property KzAbrechnung() As String + Get + Return Me._kzAbrechnung + End Get + Set + Me._kzAbrechnung = Value + End Set + End Property + + + Public Property KzVereinfBefoerderung() As String + Get + Return Me._kzVereinfBefoerderung + End Get + Set + Me._kzVereinfBefoerderung = Value + End Set + End Property + + + Public Property ZusaetzlicheAngaben() As String + Get + Return Me._zusaetzlicheAngaben + End Get + Set + Me._zusaetzlicheAngaben = Value + End Set + End Property + + + Public Property KzVerzichtSicherheit() As String + Get + Return Me._kzVerzichtSicherheit + End Get + Set + Me._kzVerzichtSicherheit = Value + End Set + End Property + + + Public Property ErlaeuterungenZurSicherheit() As String + Get + Return Me._erlaeuterungenZurSicherheit + End Get + Set + Me._erlaeuterungenZurSicherheit = Value + End Set + End Property + + + Public Property BetragDerSicherheit() As Decimal + Get + Return Me._betragDerSicherheit + End Get + Set + Me._betragDerSicherheit = Value + End Set + End Property + + + Public Property DeutschesUeHZA() As String + Get + Return Me._deutschesUeHZA + End Get + Set + Me._deutschesUeHZA = Value + End Set + End Property + + + Public Property EinzelheitenGeplantVeredelungsvorgang() As String + Get + Return Me._einzelheitenGeplantVeredelungsvorgang + End Get + Set + Me._einzelheitenGeplantVeredelungsvorgang = Value + End Set + End Property + + + Public Property HauptbuchhaltungStrasse() As String + Get + Return Me._hauptbuchhaltungStrasse + End Get + Set + Me._hauptbuchhaltungStrasse = Value + End Set + End Property + + + Public Property HauptbuchhaltungLand() As String + Get + Return Me._hauptbuchhaltungLand + End Get + Set + Me._hauptbuchhaltungLand = Value + End Set + End Property + + + Public Property HauptbuchhaltungPLZ() As String + Get + Return Me._hauptbuchhaltungPLZ + End Get + Set + Me._hauptbuchhaltungPLZ = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrt() As String + Get + Return Me._hauptbuchhaltungOrt + End Get + Set + Me._hauptbuchhaltungOrt = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrtsteil() As String + Get + Return Me._hauptbuchhaltungOrtsteil + End Get + Set + Me._hauptbuchhaltungOrtsteil = Value + End Set + End Property + + + Public Property VeredelungStrasse() As String + Get + Return Me._veredelungStrasse + End Get + Set + Me._veredelungStrasse = Value + End Set + End Property + + + Public Property VeredelungLand() As String + Get + Return Me._veredelungLand + End Get + Set + Me._veredelungLand = Value + End Set + End Property + + + Public Property VeredelungPLZ() As String + Get + Return Me._veredelungPLZ + End Get + Set + Me._veredelungPLZ = Value + End Set + End Property + + + Public Property VeredelungOrt() As String + Get + Return Me._veredelungOrt + End Get + Set + Me._veredelungOrt = Value + End Set + End Property + + + Public Property VeredelungOrtsteil() As String + Get + Return Me._veredelungOrtsteil + End Get + Set + Me._veredelungOrtsteil = Value + End Set + End Property + + + Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + Get + Return Me._weitererVeredelungsort + End Get + Set + Me._weitererVeredelungsort = Value + End Set + End Property + + + Public Property ZollstelleErledigung() As List(Of String) + Get + Return Me._zollstelleErledigung + End Get + Set + Me._zollstelleErledigung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EZAAVAngabenKopfTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EZAAVAngabenKopfTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenKopfTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SicherheitTAXTyp + +#Region "Private fields" + Private _einzelbetragUnbareSicherheit As Decimal + + Private _artUnbareSicherheitsleistung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property EinzelbetragUnbareSicherheit() As Decimal + Get + Return Me._einzelbetragUnbareSicherheit + End Get + Set + Me._einzelbetragUnbareSicherheit = Value + End Set + End Property + + + Public Property ArtUnbareSicherheitsleistung() As String + Get + Return Me._artUnbareSicherheitsleistung + End Get + Set + Me._artUnbareSicherheitsleistung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SicherheitTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SicherheitTAXTyp object + ''' + ''' string to deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SicherheitTAXTyp + Return CType(SerializerXml.Deserialize(s), SicherheitTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SicherheitTAXTyp object + ''' + ''' File to load and deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + 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 SicherheitTAXTyp) 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 SicherheitTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgabenNachArtKopfTAXTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabenbetrag As Decimal + + Private _zahlungsart As String + + Private _aufschubnehmerName As String + + Private _aufschubnehmerTIN As String + + Private _artAufschubAntrag As String + + Private _kennBuchstabenAufschub As String + + Private _aufschubkontoNr As String + + Private _faelligkeit As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set + Me._zahlungsart = Value + End Set + End Property + + + Public Property AufschubnehmerName() As String + Get + Return Me._aufschubnehmerName + End Get + Set + Me._aufschubnehmerName = Value + End Set + End Property + + + Public Property AufschubnehmerTIN() As String + Get + Return Me._aufschubnehmerTIN + End Get + Set + Me._aufschubnehmerTIN = Value + End Set + End Property + + + Public Property ArtAufschubAntrag() As String + Get + Return Me._artAufschubAntrag + End Get + Set + Me._artAufschubAntrag = Value + End Set + End Property + + + Public Property KennBuchstabenAufschub() As String + Get + Return Me._kennBuchstabenAufschub + End Get + Set + Me._kennBuchstabenAufschub = Value + End Set + End Property + + + Public Property AufschubkontoNr() As String + Get + Return Me._aufschubkontoNr + End Get + Set + Me._aufschubkontoNr = Value + End Set + End Property + + + Public Property Faelligkeit() As Date + Get + Return Me._faelligkeit + End Get + Set + Me._faelligkeit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgabenNachArtKopfTAXTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgabenNachArtKopfTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenNachArtKopfTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabenNachArtKopfTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenEinfuhrbescheidTyp + +#Region "Private fields" + Private _artAnmeldung As String + + Private _erledigungKopfKz As String + + Private _waehrung As String + + Private _gesamtabgabenBetrag As Decimal + + Private _abgabenbetragZuZahlen As Decimal + + Private _abgabenbetragZuErstatten As Decimal + + Private _vertretungsverhaeltnis As String + + Private _zahlungsaufforderungArtAufschub As String + + Private _zahlungsaufforderungArtAbgaben As String + + Private _zahlungsaufforderungArtSicherheit As String + + Private _kleinbetragKz As String + + Private _kleinbetragRechtsbehelf As String + + Private _gesamtschuldnerschaftKz As String + + Private _eingangszollstelleGeaendertKz As String + + Private _aVbewilligtKz As String + + Private _benutzererstelltKz As String + + Private _eUStKz As String + + Private _registriernummer As String + + Private _veralteteWeitereRegistriernummer As String + + Private _registrierdatum As Date + + Private _nizzaRegistrierKz As String + + Private _nizzaRegistrierKzSicherheit As String + + Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) + + Private _gesamtsicherheitssumme As Decimal + + Private _errechneteSicherheitsSumme As Decimal + + Private _unbarSicherheitsbetraege As Decimal + + Private _barSicherheitsbetraege As Decimal + + Private _freizugebenSicherheit As Decimal + + Private _auszuzahlenSicherheit As Decimal + + Private _einbehaltenSicherheit As Decimal + + Private _sicherheitsleistungForm As String + + Private _sicherheitsleistungsVerzicht As String + + Private _auszahlungsArt As String + + Private _unbareSicherheiten As List(Of SicherheitTAXTyp) + + Private _bescheidendeDienststelleNr As String + + Private _bescheidendeDienststelleName As String + + Private _bescheidendeDienststelleStrasseHausNr As String + + Private _bescheidendeDienststelleOrtS As String + + Private _bescheidendeDienststellePLZS As String + + Private _bearbeiter As String + + Private _bescheidendeDienststelleTelefonNr As String + + Private _rechtsbehelfHauptzollamt As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHZADEmailAdresse As String + + Private _rechtsbehelfHauptzollamtStrHausNr As String + + Private _rechtsbehelfHauptzollamtPLZS As String + + Private _rechtsbehelfHauptzollamtOrtS As String + + Private _rechtsbehelfHauptzollamtOrtsteil As String + + Private _rechtsbehelfHauptzollamtPostfach As String + + Private _rechtsbehelfHauptzollamtPLZP As String + + Private _rechtsbehelfHauptzollamtOrtP As String + + Private _zollzahlstelle As String + + Private _zollzahlstelleKreditinstitut As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private _zollzahlstelleIBAN As String + + Private _zollzahlstelleBIC As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _vorsteuerabzugKz As String + + Private _anmelderName As String + + Private _anmelderNationalitaet As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderPLZS As String + + Private _anmelderOrtS As String + + Private _anmelderOrtsteil As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterName As String + + Private _vertreterNationalitaet As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterPLZS As String + + Private _vertreterOrtS As String + + Private _vertreterOrtsteil As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _lagerhalterEORI As String + + Private _lagerhalterNLNR As String + + Private _lagerhalterName As String + + Private _lagerhalterStrasseHausNr As String + + Private _lagerhalterNationalitaet As String + + Private _lagerhalterPLZ As String + + Private _lagerhalterOrt As String + + Private _lagerhalterOrtsteil As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerName As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _zahlungsEmpfaengerEORI As String + + Private _zahlungsEmpfaengerNLNR As String + + Private _zahlungsEmpfaengerKreditinstitut As String + + Private _zahlungsEmpfaengerName As String + + Private _zahlungsEmpfaengerNationalitaet As String + + Private _zahlungsEmpfaengerStrasseHausNr As String + + Private _zahlungsEmpfaengerPLZS As String + + Private _zahlungsEmpfaengerOrtS As String + + Private _zahlungsEmpfaengerOrtsteil As String + + Private _zahlungsEmpfaengerIBAN As String + + Private _zahlungsEmpfaengerBIC As String + + Private _erstellungsDatumBefund As Date + + Private _erfassungsdatum As Date + + Private _barzahlungFaelligkeit As Date + + Private _sicherheitsleistungFaelligkeit As Date + + Private _abrechnungszeitraumBeginn As Date + + Private _abrechnungszeitraumEnde As Date + + Private _zollbefund As String + + Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp() + Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() + Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() + End Sub + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property ErledigungKopfKz() As String + Get + Return Me._erledigungKopfKz + End Get + Set + Me._erledigungKopfKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property GesamtabgabenBetrag() As Decimal + Get + Return Me._gesamtabgabenBetrag + End Get + Set + Me._gesamtabgabenBetrag = Value + End Set + End Property + + + Public Property AbgabenbetragZuZahlen() As Decimal + Get + Return Me._abgabenbetragZuZahlen + End Get + Set + Me._abgabenbetragZuZahlen = Value + End Set + End Property + + + Public Property AbgabenbetragZuErstatten() As Decimal + Get + Return Me._abgabenbetragZuErstatten + End Get + Set + Me._abgabenbetragZuErstatten = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAufschub() As String + Get + Return Me._zahlungsaufforderungArtAufschub + End Get + Set + Me._zahlungsaufforderungArtAufschub = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAbgaben() As String + Get + Return Me._zahlungsaufforderungArtAbgaben + End Get + Set + Me._zahlungsaufforderungArtAbgaben = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtSicherheit() As String + Get + Return Me._zahlungsaufforderungArtSicherheit + End Get + Set + Me._zahlungsaufforderungArtSicherheit = Value + End Set + End Property + + + Public Property KleinbetragKz() As String + Get + Return Me._kleinbetragKz + End Get + Set + Me._kleinbetragKz = Value + End Set + End Property + + + Public Property KleinbetragRechtsbehelf() As String + Get + Return Me._kleinbetragRechtsbehelf + End Get + Set + Me._kleinbetragRechtsbehelf = Value + End Set + End Property + + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AVbewilligtKz() As String + Get + Return Me._aVbewilligtKz + End Get + Set + Me._aVbewilligtKz = Value + End Set + End Property + + + Public Property BenutzererstelltKz() As String + Get + Return Me._benutzererstelltKz + End Get + Set + Me._benutzererstelltKz = Value + End Set + End Property + + + Public Property EUStKz() As String + Get + Return Me._eUStKz + End Get + Set + Me._eUStKz = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property NizzaRegistrierKz() As String + Get + Return Me._nizzaRegistrierKz + End Get + Set + Me._nizzaRegistrierKz = Value + End Set + End Property + + + Public Property NizzaRegistrierKzSicherheit() As String + Get + Return Me._nizzaRegistrierKzSicherheit + End Get + Set + Me._nizzaRegistrierKzSicherheit = Value + End Set + End Property + + + Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + Get + Return Me._abgabenNachArt + End Get + Set + Me._abgabenNachArt = Value + End Set + End Property + + + Public Property Gesamtsicherheitssumme() As Decimal + Get + Return Me._gesamtsicherheitssumme + End Get + Set + Me._gesamtsicherheitssumme = Value + End Set + End Property + + + Public Property ErrechneteSicherheitsSumme() As Decimal + Get + Return Me._errechneteSicherheitsSumme + End Get + Set + Me._errechneteSicherheitsSumme = Value + End Set + End Property + + + Public Property UnbarSicherheitsbetraege() As Decimal + Get + Return Me._unbarSicherheitsbetraege + End Get + Set + Me._unbarSicherheitsbetraege = Value + End Set + End Property + + + Public Property BarSicherheitsbetraege() As Decimal + Get + Return Me._barSicherheitsbetraege + End Get + Set + Me._barSicherheitsbetraege = Value + End Set + End Property + + + Public Property FreizugebenSicherheit() As Decimal + Get + Return Me._freizugebenSicherheit + End Get + Set + Me._freizugebenSicherheit = Value + End Set + End Property + + + Public Property AuszuzahlenSicherheit() As Decimal + Get + Return Me._auszuzahlenSicherheit + End Get + Set + Me._auszuzahlenSicherheit = Value + End Set + End Property + + + Public Property EinbehaltenSicherheit() As Decimal + Get + Return Me._einbehaltenSicherheit + End Get + Set + Me._einbehaltenSicherheit = Value + End Set + End Property + + + Public Property SicherheitsleistungForm() As String + Get + Return Me._sicherheitsleistungForm + End Get + Set + Me._sicherheitsleistungForm = Value + End Set + End Property + + + Public Property SicherheitsleistungsVerzicht() As String + Get + Return Me._sicherheitsleistungsVerzicht + End Get + Set + Me._sicherheitsleistungsVerzicht = Value + End Set + End Property + + + Public Property AuszahlungsArt() As String + Get + Return Me._auszahlungsArt + End Get + Set + Me._auszahlungsArt = Value + End Set + End Property + + + Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + Get + Return Me._unbareSicherheiten + End Get + Set + Me._unbareSicherheiten = Value + End Set + End Property + + + Public Property BescheidendeDienststelleNr() As String + Get + Return Me._bescheidendeDienststelleNr + End Get + Set + Me._bescheidendeDienststelleNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleName() As String + Get + Return Me._bescheidendeDienststelleName + End Get + Set + Me._bescheidendeDienststelleName = Value + End Set + End Property + + + Public Property BescheidendeDienststelleStrasseHausNr() As String + Get + Return Me._bescheidendeDienststelleStrasseHausNr + End Get + Set + Me._bescheidendeDienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleOrtS() As String + Get + Return Me._bescheidendeDienststelleOrtS + End Get + Set + Me._bescheidendeDienststelleOrtS = Value + End Set + End Property + + + Public Property BescheidendeDienststellePLZS() As String + Get + Return Me._bescheidendeDienststellePLZS + End Get + Set + Me._bescheidendeDienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property BescheidendeDienststelleTelefonNr() As String + Get + Return Me._bescheidendeDienststelleTelefonNr + End Get + Set + Me._bescheidendeDienststelleTelefonNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamt() As String + Get + Return Me._rechtsbehelfHauptzollamt + End Get + Set + Me._rechtsbehelfHauptzollamt = Value + End Set + End Property + + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me._rechtsbehelfHZADEmailAdresse + End Get + Set + Me._rechtsbehelfHZADEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtStrHausNr() As String + Get + Return Me._rechtsbehelfHauptzollamtStrHausNr + End Get + Set + Me._rechtsbehelfHauptzollamtStrHausNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZS() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZS + End Get + Set + Me._rechtsbehelfHauptzollamtPLZS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtS() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtS + End Get + Set + Me._rechtsbehelfHauptzollamtOrtS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtsteil() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtsteil + End Get + Set + Me._rechtsbehelfHauptzollamtOrtsteil = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPostfach() As String + Get + Return Me._rechtsbehelfHauptzollamtPostfach + End Get + Set + Me._rechtsbehelfHauptzollamtPostfach = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZP() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZP + End Get + Set + Me._rechtsbehelfHauptzollamtPLZP = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtP() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtP + End Get + Set + Me._rechtsbehelfHauptzollamtOrtP = Value + End Set + End Property + + + Public Property Zollzahlstelle() As String + Get + Return Me._zollzahlstelle + End Get + Set + Me._zollzahlstelle = Value + End Set + End Property + + + Public Property ZollzahlstelleKreditinstitut() As String + Get + Return Me._zollzahlstelleKreditinstitut + End Get + Set + Me._zollzahlstelleKreditinstitut = Value + End Set + End Property + + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set + Me._zollzahlstellePLZS = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set + Me._zollzahlstelleOrtS = Value + End Set + End Property + + + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set + Me._zollzahlstellePostfach = Value + End Set + End Property + + + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set + Me._zollzahlstellePLZP = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set + Me._zollzahlstelleOrtP = Value + End Set + End Property + + + Public Property ZollzahlstelleIBAN() As String + Get + Return Me._zollzahlstelleIBAN + End Get + Set + Me._zollzahlstelleIBAN = Value + End Set + End Property + + + Public Property ZollzahlstelleBIC() As String + Get + Return Me._zollzahlstelleBIC + End Get + Set + Me._zollzahlstelleBIC = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property VorsteuerabzugKz() As String + Get + Return Me._vorsteuerabzugKz + End Get + Set + Me._vorsteuerabzugKz = Value + End Set + End Property + + + Public Property AnmelderName() As String + Get + Return Me._anmelderName + End Get + Set + Me._anmelderName = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterName() As String + Get + Return Me._vertreterName + End Get + Set + Me._vertreterName = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property LagerhalterEORI() As String + Get + Return Me._lagerhalterEORI + End Get + Set + Me._lagerhalterEORI = Value + End Set + End Property + + + Public Property LagerhalterNLNR() As String + Get + Return Me._lagerhalterNLNR + End Get + Set + Me._lagerhalterNLNR = Value + End Set + End Property + + + Public Property LagerhalterName() As String + Get + Return Me._lagerhalterName + End Get + Set + Me._lagerhalterName = Value + End Set + End Property + + + Public Property LagerhalterStrasseHausNr() As String + Get + Return Me._lagerhalterStrasseHausNr + End Get + Set + Me._lagerhalterStrasseHausNr = Value + End Set + End Property + + + Public Property LagerhalterNationalitaet() As String + Get + Return Me._lagerhalterNationalitaet + End Get + Set + Me._lagerhalterNationalitaet = Value + End Set + End Property + + + Public Property LagerhalterPLZ() As String + Get + Return Me._lagerhalterPLZ + End Get + Set + Me._lagerhalterPLZ = Value + End Set + End Property + + + Public Property LagerhalterOrt() As String + Get + Return Me._lagerhalterOrt + End Get + Set + Me._lagerhalterOrt = Value + End Set + End Property + + + Public Property LagerhalterOrtsteil() As String + Get + Return Me._lagerhalterOrtsteil + End Get + Set + Me._lagerhalterOrtsteil = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerName() As String + Get + Return Me._empfaengerName + End Get + Set + Me._empfaengerName = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerEORI() As String + Get + Return Me._zahlungsEmpfaengerEORI + End Get + Set + Me._zahlungsEmpfaengerEORI = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNLNR() As String + Get + Return Me._zahlungsEmpfaengerNLNR + End Get + Set + Me._zahlungsEmpfaengerNLNR = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerKreditinstitut() As String + Get + Return Me._zahlungsEmpfaengerKreditinstitut + End Get + Set + Me._zahlungsEmpfaengerKreditinstitut = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerName() As String + Get + Return Me._zahlungsEmpfaengerName + End Get + Set + Me._zahlungsEmpfaengerName = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNationalitaet() As String + Get + Return Me._zahlungsEmpfaengerNationalitaet + End Get + Set + Me._zahlungsEmpfaengerNationalitaet = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerStrasseHausNr() As String + Get + Return Me._zahlungsEmpfaengerStrasseHausNr + End Get + Set + Me._zahlungsEmpfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerPLZS() As String + Get + Return Me._zahlungsEmpfaengerPLZS + End Get + Set + Me._zahlungsEmpfaengerPLZS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtS() As String + Get + Return Me._zahlungsEmpfaengerOrtS + End Get + Set + Me._zahlungsEmpfaengerOrtS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtsteil() As String + Get + Return Me._zahlungsEmpfaengerOrtsteil + End Get + Set + Me._zahlungsEmpfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerIBAN() As String + Get + Return Me._zahlungsEmpfaengerIBAN + End Get + Set + Me._zahlungsEmpfaengerIBAN = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerBIC() As String + Get + Return Me._zahlungsEmpfaengerBIC + End Get + Set + Me._zahlungsEmpfaengerBIC = Value + End Set + End Property + + + Public Property ErstellungsDatumBefund() As Date + Get + Return Me._erstellungsDatumBefund + End Get + Set + Me._erstellungsDatumBefund = Value + End Set + End Property + + + Public Property Erfassungsdatum() As Date + Get + Return Me._erfassungsdatum + End Get + Set + Me._erfassungsdatum = Value + End Set + End Property + + + Public Property BarzahlungFaelligkeit() As Date + Get + Return Me._barzahlungFaelligkeit + End Get + Set + Me._barzahlungFaelligkeit = Value + End Set + End Property + + + Public Property SicherheitsleistungFaelligkeit() As Date + Get + Return Me._sicherheitsleistungFaelligkeit + End Get + Set + Me._sicherheitsleistungFaelligkeit = Value + End Set + End Property + + + Public Property AbrechnungszeitraumBeginn() As Date + Get + Return Me._abrechnungszeitraumBeginn + End Get + Set + Me._abrechnungszeitraumBeginn = Value + End Set + End Property + + + Public Property AbrechnungszeitraumEnde() As Date + Get + Return Me._abrechnungszeitraumEnde + End Get + Set + Me._abrechnungszeitraumEnde = Value + End Set + End Property + + + Public Property Zollbefund() As String + Get + Return Me._zollbefund + End Get + Set + Me._zollbefund = Value + End Set + End Property + + + Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp + Get + Return Me._eZAAVAngabenKopf + End Get + Set + Me._eZAAVAngabenKopf = Value + End Set + End Property + + + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set + Me._lieferbedingungCode = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenEinfuhrbescheidTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenEinfuhrbescheidTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrbescheidTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEinfuhrbescheidTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.xsd new file mode 100644 index 0000000..98f8dd2 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.xsd @@ -0,0 +1,598 @@ + + + + + Version 012 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/xsd2code.config b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/xsd2code.config new file mode 100644 index 0000000..9e50b02 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/xsd2code.config @@ -0,0 +1,16 @@ + + + Net47 + Abgabenbescheid_011 + VisualBasic + + + true + + + + true + AllClasses + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.Designer.vb new file mode 100644 index 0000000..66b5489 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.Designer.vb @@ -0,0 +1,2557 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"AbschliessendeFestsetzung_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace AbschliessendeFestsetzung_006 + + + Partial Public Class AbschliessendeFestsetzungTAXATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp() + End Sub + + + Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp + Get + Return Me._einzelAbschliessendeFestsetzung + End Get + Set + Me._einzelAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbschliessendeFestsetzungTAXATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbschliessendeFestsetzungTAXATyp object + ''' + ''' string to deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbschliessendeFestsetzungTAXATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbschliessendeFestsetzungTAXATyp + Return CType(SerializerXml.Deserialize(s), AbschliessendeFestsetzungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current AbschliessendeFestsetzungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object + ''' + ''' File to load and deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp + + Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionAbschliessendeFestsetzungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungTAXATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungTAXATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTAXATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _freigabeSicherheitenKz As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property FreigabeSicherheitenKz() As String + Get + Return Me._freigabeSicherheitenKz + End Get + Set + Me._freigabeSicherheitenKz = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), PositionAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _waehrungKz As String + + Private _rechtsbehelfKz As String + + Private _gesamtschuldnerschaftKz As String + + Private _umsatzsteuerIDNr As String + + Private _registrierNr As String + + Private _veralteteWeitereRegistriernummer As String + + Private _nIZZARegistrierKz As String + + Private _freizugebeneSicherheitEUR As Decimal + + Private _auszahlungArt As String + + Private _freigegebeneSicherheitGesamt As Decimal + + Private _freigabeSicherheitKz As String + + Private _freigabeSicherheitArt As String + + Private _sonstigeMitteilung As String + + Private _bearbeiter As String + + Private _rechtsbehelfHZABezeichung As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHZADEmailAdresse As String + + Private _rechtsbehelfHZAStrasseHausNr As String + + Private _rechtsbehelfHZAPLZS As String + + Private _rechtsbehelfHZAOrtS As String + + Private _rechtsbehelfHZAOrtsteil As String + + Private _rechtsbehelfHZAPostfach As String + + Private _rechtsbehelfHZAPLZP As String + + Private _rechtsbehelfHZAOrtP As String + + Private _rechnungEORI As String + + Private _rechnungNLNR As String + + Private _rechnungNationalitaet As String + + Private _rechnungNameFirmenbezeichnung As String + + Private _rechnungStrasseHausNr As String + + Private _rechnungPLZS As String + + Private _rechnungOrtS As String + + Private _rechnungOrtsteil As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String + + Private _zahlungsempfaengerKreditinstitut As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenName As String + + Private _zahlungsempfaengerNationalitaet As String + + Private _zahlungsempfaengerStrasseHausNr As String + + Private _zahlungsempfaengerPLZS As String + + Private _zahlungsempfaengerOrtS As String + + Private _zahlungsempfaengerOrtsteil As String + + Private _zahlungsempfaengerIBAN As String + + Private _zahlungsempfaengerBIC As String + + Private _bescheideempfaengerEORI As String + + Private _bescheideempfaengerNLNR As String + + Private _bescheideempfaengerKreditinstitut As String + + Private _bescheideempfaengerName As String + + Private _bescheideempfaengerNationalitaet As String + + Private _bescheideempfaengerStrasseHausNr As String + + Private _bescheideempfaengerPLZS As String + + Private _bescheideempfaengerOrtS As String + + Private _bescheideempfaengerOrtsteil As String + + Private _bescheideempfaengerIBAN As String + + Private _bescheideempfaengerBIC As String + + Private _abgabenschuldnerEORI As String + + Private _abgabenschuldnerNLNR As String + + Private _abgabenschuldnerName As String + + Private _abgabenschuldnerNationalitaet As String + + Private _abgabenschuldnerStrasseHausNr As String + + Private _abgabenschuldnerPLZS As String + + Private _abgabenschuldnerOrtS As String + + Private _abgabenschuldnerOrtsteil As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property WaehrungKz() As String + Get + Return Me._waehrungKz + End Get + Set + Me._waehrungKz = Value + End Set + End Property + + + Public Property RechtsbehelfKz() As String + Get + Return Me._rechtsbehelfKz + End Get + Set + Me._rechtsbehelfKz = Value + End Set + End Property + + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + + Public Property UmsatzsteuerIDNr() As String + Get + Return Me._umsatzsteuerIDNr + End Get + Set + Me._umsatzsteuerIDNr = Value + End Set + End Property + + + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set + Me._registrierNr = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property NIZZARegistrierKz() As String + Get + Return Me._nIZZARegistrierKz + End Get + Set + Me._nIZZARegistrierKz = Value + End Set + End Property + + + Public Property FreizugebeneSicherheitEUR() As Decimal + Get + Return Me._freizugebeneSicherheitEUR + End Get + Set + Me._freizugebeneSicherheitEUR = Value + End Set + End Property + + + Public Property AuszahlungArt() As String + Get + Return Me._auszahlungArt + End Get + Set + Me._auszahlungArt = Value + End Set + End Property + + + Public Property FreigegebeneSicherheitGesamt() As Decimal + Get + Return Me._freigegebeneSicherheitGesamt + End Get + Set + Me._freigegebeneSicherheitGesamt = Value + End Set + End Property + + + Public Property FreigabeSicherheitKz() As String + Get + Return Me._freigabeSicherheitKz + End Get + Set + Me._freigabeSicherheitKz = Value + End Set + End Property + + + Public Property FreigabeSicherheitArt() As String + Get + Return Me._freigabeSicherheitArt + End Get + Set + Me._freigabeSicherheitArt = Value + End Set + End Property + + + Public Property SonstigeMitteilung() As String + Get + Return Me._sonstigeMitteilung + End Get + Set + Me._sonstigeMitteilung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property RechtsbehelfHZABezeichung() As String + Get + Return Me._rechtsbehelfHZABezeichung + End Get + Set + Me._rechtsbehelfHZABezeichung = Value + End Set + End Property + + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me._rechtsbehelfHZADEmailAdresse + End Get + Set + Me._rechtsbehelfHZADEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZAStrasseHausNr() As String + Get + Return Me._rechtsbehelfHZAStrasseHausNr + End Get + Set + Me._rechtsbehelfHZAStrasseHausNr = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPLZS() As String + Get + Return Me._rechtsbehelfHZAPLZS + End Get + Set + Me._rechtsbehelfHZAPLZS = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtS() As String + Get + Return Me._rechtsbehelfHZAOrtS + End Get + Set + Me._rechtsbehelfHZAOrtS = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtsteil() As String + Get + Return Me._rechtsbehelfHZAOrtsteil + End Get + Set + Me._rechtsbehelfHZAOrtsteil = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPostfach() As String + Get + Return Me._rechtsbehelfHZAPostfach + End Get + Set + Me._rechtsbehelfHZAPostfach = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPLZP() As String + Get + Return Me._rechtsbehelfHZAPLZP + End Get + Set + Me._rechtsbehelfHZAPLZP = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtP() As String + Get + Return Me._rechtsbehelfHZAOrtP + End Get + Set + Me._rechtsbehelfHZAOrtP = Value + End Set + End Property + + + Public Property RechnungEORI() As String + Get + Return Me._rechnungEORI + End Get + Set + Me._rechnungEORI = Value + End Set + End Property + + + Public Property RechnungNLNR() As String + Get + Return Me._rechnungNLNR + End Get + Set + Me._rechnungNLNR = Value + End Set + End Property + + + Public Property RechnungNationalitaet() As String + Get + Return Me._rechnungNationalitaet + End Get + Set + Me._rechnungNationalitaet = Value + End Set + End Property + + + Public Property RechnungNameFirmenbezeichnung() As String + Get + Return Me._rechnungNameFirmenbezeichnung + End Get + Set + Me._rechnungNameFirmenbezeichnung = Value + End Set + End Property + + + Public Property RechnungStrasseHausNr() As String + Get + Return Me._rechnungStrasseHausNr + End Get + Set + Me._rechnungStrasseHausNr = Value + End Set + End Property + + + Public Property RechnungPLZS() As String + Get + Return Me._rechnungPLZS + End Get + Set + Me._rechnungPLZS = Value + End Set + End Property + + + Public Property RechnungOrtS() As String + Get + Return Me._rechnungOrtS + End Get + Set + Me._rechnungOrtS = Value + End Set + End Property + + + Public Property RechnungOrtsteil() As String + Get + Return Me._rechnungOrtsteil + End Get + Set + Me._rechnungOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value + End Set + End Property + + + Public Property ZahlungsempfaengerKreditinstitut() As String + Get + Return Me._zahlungsempfaengerKreditinstitut + End Get + Set + Me._zahlungsempfaengerKreditinstitut = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenName + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value + End Set + End Property + + + Public Property ZahlungsempfaengerNationalitaet() As String + Get + Return Me._zahlungsempfaengerNationalitaet + End Get + Set + Me._zahlungsempfaengerNationalitaet = Value + End Set + End Property + + + Public Property ZahlungsempfaengerStrasseHausNr() As String + Get + Return Me._zahlungsempfaengerStrasseHausNr + End Get + Set + Me._zahlungsempfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property ZahlungsempfaengerPLZS() As String + Get + Return Me._zahlungsempfaengerPLZS + End Get + Set + Me._zahlungsempfaengerPLZS = Value + End Set + End Property + + + Public Property ZahlungsempfaengerOrtS() As String + Get + Return Me._zahlungsempfaengerOrtS + End Get + Set + Me._zahlungsempfaengerOrtS = Value + End Set + End Property + + + Public Property ZahlungsempfaengerOrtsteil() As String + Get + Return Me._zahlungsempfaengerOrtsteil + End Get + Set + Me._zahlungsempfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsempfaengerIBAN() As String + Get + Return Me._zahlungsempfaengerIBAN + End Get + Set + Me._zahlungsempfaengerIBAN = Value + End Set + End Property + + + Public Property ZahlungsempfaengerBIC() As String + Get + Return Me._zahlungsempfaengerBIC + End Get + Set + Me._zahlungsempfaengerBIC = Value + End Set + End Property + + + Public Property BescheideempfaengerEORI() As String + Get + Return Me._bescheideempfaengerEORI + End Get + Set + Me._bescheideempfaengerEORI = Value + End Set + End Property + + + Public Property BescheideempfaengerNLNR() As String + Get + Return Me._bescheideempfaengerNLNR + End Get + Set + Me._bescheideempfaengerNLNR = Value + End Set + End Property + + + Public Property BescheideempfaengerKreditinstitut() As String + Get + Return Me._bescheideempfaengerKreditinstitut + End Get + Set + Me._bescheideempfaengerKreditinstitut = Value + End Set + End Property + + + Public Property BescheideempfaengerName() As String + Get + Return Me._bescheideempfaengerName + End Get + Set + Me._bescheideempfaengerName = Value + End Set + End Property + + + Public Property BescheideempfaengerNationalitaet() As String + Get + Return Me._bescheideempfaengerNationalitaet + End Get + Set + Me._bescheideempfaengerNationalitaet = Value + End Set + End Property + + + Public Property BescheideempfaengerStrasseHausNr() As String + Get + Return Me._bescheideempfaengerStrasseHausNr + End Get + Set + Me._bescheideempfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property BescheideempfaengerPLZS() As String + Get + Return Me._bescheideempfaengerPLZS + End Get + Set + Me._bescheideempfaengerPLZS = Value + End Set + End Property + + + Public Property BescheideempfaengerOrtS() As String + Get + Return Me._bescheideempfaengerOrtS + End Get + Set + Me._bescheideempfaengerOrtS = Value + End Set + End Property + + + Public Property BescheideempfaengerOrtsteil() As String + Get + Return Me._bescheideempfaengerOrtsteil + End Get + Set + Me._bescheideempfaengerOrtsteil = Value + End Set + End Property + + + Public Property BescheideempfaengerIBAN() As String + Get + Return Me._bescheideempfaengerIBAN + End Get + Set + Me._bescheideempfaengerIBAN = Value + End Set + End Property + + + Public Property BescheideempfaengerBIC() As String + Get + Return Me._bescheideempfaengerBIC + End Get + Set + Me._bescheideempfaengerBIC = Value + End Set + End Property + + + Public Property AbgabenschuldnerEORI() As String + Get + Return Me._abgabenschuldnerEORI + End Get + Set + Me._abgabenschuldnerEORI = Value + End Set + End Property + + + Public Property AbgabenschuldnerNLNR() As String + Get + Return Me._abgabenschuldnerNLNR + End Get + Set + Me._abgabenschuldnerNLNR = Value + End Set + End Property + + + Public Property AbgabenschuldnerName() As String + Get + Return Me._abgabenschuldnerName + End Get + Set + Me._abgabenschuldnerName = Value + End Set + End Property + + + Public Property AbgabenschuldnerNationalitaet() As String + Get + Return Me._abgabenschuldnerNationalitaet + End Get + Set + Me._abgabenschuldnerNationalitaet = Value + End Set + End Property + + + Public Property AbgabenschuldnerStrasseHausNr() As String + Get + Return Me._abgabenschuldnerStrasseHausNr + End Get + Set + Me._abgabenschuldnerStrasseHausNr = Value + End Set + End Property + + + Public Property AbgabenschuldnerPLZS() As String + Get + Return Me._abgabenschuldnerPLZS + End Get + Set + Me._abgabenschuldnerPLZS = Value + End Set + End Property + + + Public Property AbgabenschuldnerOrtS() As String + Get + Return Me._abgabenschuldnerOrtS + End Get + Set + Me._abgabenschuldnerOrtS = Value + End Set + End Property + + + Public Property AbgabenschuldnerOrtsteil() As String + Get + Return Me._abgabenschuldnerOrtsteil + End Get + Set + Me._abgabenschuldnerOrtsteil = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.xsd new file mode 100644 index 0000000..ce5e942 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_006.xsd @@ -0,0 +1,256 @@ + + + + + Version 006 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.Designer.vb new file mode 100644 index 0000000..b9e3b13 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.Designer.vb @@ -0,0 +1,6312 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"BefundVereinfachteZollanmeldung_009","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace BefundVereinfachteZollanmeldung_009 + + + Partial Public Class BefundVereinfachteZollanmeldungVBTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() + End Sub + + + Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp + Get + Return Me._einzelBefundVereinfachteZollanmeldung + End Get + Set + Me._einzelBefundVereinfachteZollanmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string to deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefundVereinfachteZollanmeldungVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BefundVereinfachteZollanmeldungVBTyp + Return CType(SerializerXml.Deserialize(s), BefundVereinfachteZollanmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current BefundVereinfachteZollanmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' File to load and deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefundVereinfachteZollanmeldungVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVBTyp + + Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp + + Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() + Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBefundVereinfachteZollanmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBefundVereinfachteZollanmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungVBTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungVBTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungVBTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SonderabgabenVBTyp + +#Region "Private fields" + Private _sonderfalleingabeSonderabgabengruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SonderfalleingabeSonderabgabengruppe() As String + Get + Return Me._sonderfalleingabeSonderabgabengruppe + End Get + Set + Me._sonderfalleingabeSonderabgabengruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SonderabgabenVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SonderabgabenVBTyp object + ''' + ''' string to deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderabgabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderabgabenVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderabgabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SonderabgabenVBTyp + Return CType(SerializerXml.Deserialize(s), SonderabgabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderabgabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SonderabgabenVBTyp object + ''' + ''' File to load and deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderabgabenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderabgabenVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class MinderungVBTyp + +#Region "Private fields" + Private _minderndeAbgabengruppe As String + + Private _minderungsbetrag As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property MinderndeAbgabengruppe() As String + Get + Return Me._minderndeAbgabengruppe + End Get + Set + Me._minderndeAbgabengruppe = Value + End Set + End Property + + + Public Property Minderungsbetrag() As Decimal + Get + Return Me._minderungsbetrag + End Get + Set + Me._minderungsbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize MinderungVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes MinderungVBTyp object + ''' + ''' string to deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MinderungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MinderungVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MinderungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As MinderungVBTyp + Return CType(SerializerXml.Deserialize(s), MinderungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current MinderungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an MinderungVBTyp object + ''' + ''' File to load and deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MinderungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MinderungVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerbrauchsteuerVBTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As Decimal + + Private _verbrauchssteuerWertBasis As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property VerbrauchsteuerCode() As String + Get + Return Me._verbrauchsteuerCode + End Get + Set + Me._verbrauchsteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertBasis() As Decimal + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerbrauchsteuerVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerbrauchsteuerVBTyp object + ''' + ''' string to deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchsteuerVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchsteuerVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerbrauchsteuerVBTyp + Return CType(SerializerXml.Deserialize(s), VerbrauchsteuerVBTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchsteuerVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object + ''' + ''' File to load and deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchsteuerVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchsteuerVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GehaltsangabenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GehaltsangabenVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GehaltsangabenVBTyp object + ''' + ''' string to deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GehaltsangabenVBTyp + Return CType(SerializerXml.Deserialize(s), GehaltsangabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GehaltsangabenVBTyp object + ''' + ''' File to load and deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreisWertangabeVBTyp + +#Region "Private fields" + Private _preisartCode As String + + Private _wert As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set + Me._preisartCode = Value + End Set + End Property + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreisWertangabeVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreisWertangabeVBTyp object + ''' + ''' string to deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreisWertangabeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreisWertangabeVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreisWertangabeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreisWertangabeVBTyp + Return CType(SerializerXml.Deserialize(s), PreisWertangabeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current PreisWertangabeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreisWertangabeVBTyp object + ''' + ''' File to load and deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreisWertangabeVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreisWertangabeVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class WarenMengeVBTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize WarenMengeVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes WarenMengeVBTyp object + ''' + ''' string to deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As WarenMengeVBTyp + Return CType(SerializerXml.Deserialize(s), WarenMengeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WarenMengeVBTyp object + ''' + ''' File to load and deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbzugHinzurechnungenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _artText As String + + Private _betrag As Decimal + + Private _iATAKursKz As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursAuslandswaehrung As Decimal + + Private _kursDatum As Date + + Private _prozentsatz As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property ArtText() As String + Get + Return Me._artText + End Get + Set + Me._artText = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursAuslandswaehrung() As Decimal + Get + Return Me._kursAuslandswaehrung + End Get + Set + Me._kursAuslandswaehrung = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property Prozentsatz() As Decimal + Get + Return Me._prozentsatz + End Get + Set + Me._prozentsatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbzugHinzurechnungenVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbzugHinzurechnungenVBTyp object + ''' + ''' string to deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungenVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbzugHinzurechnungenVBTyp + Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object + ''' + ''' File to load and deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungenVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbweichungVBTyp + +#Region "Private fields" + Private _abweichendFestgesetztesFeld As String + + Private _abweichendFestgesetztesFeldQualifikator As String + + Private _qualifikatorInhalt As String + + Private _abweichendeFestsetzungArt As String + + Private _abweichendFestgesetztVon As String + + Private _abweichendFestgesetztAuf As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AbweichendFestgesetztesFeld() As String + Get + Return Me._abweichendFestgesetztesFeld + End Get + Set + Me._abweichendFestgesetztesFeld = Value + End Set + End Property + + + Public Property AbweichendFestgesetztesFeldQualifikator() As String + Get + Return Me._abweichendFestgesetztesFeldQualifikator + End Get + Set + Me._abweichendFestgesetztesFeldQualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property AbweichendeFestsetzungArt() As String + Get + Return Me._abweichendeFestsetzungArt + End Get + Set + Me._abweichendeFestsetzungArt = Value + End Set + End Property + + + Public Property AbweichendFestgesetztVon() As String + Get + Return Me._abweichendFestgesetztVon + End Get + Set + Me._abweichendFestgesetztVon = Value + End Set + End Property + + + Public Property AbweichendFestgesetztAuf() As String + Get + Return Me._abweichendFestgesetztAuf + End Get + Set + Me._abweichendFestgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbweichungVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbweichungVBTyp object + ''' + ''' string to deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichungVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbweichungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbweichungVBTyp + Return CType(SerializerXml.Deserialize(s), AbweichungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbweichungVBTyp object + ''' + ''' File to load and deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbweichungVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class UnterlageVBTyp + +#Region "Private fields" + Private _art As String + + Private _bereich As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As Decimal + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private _kzAnerkennung As String + + Private _kzAbschreibung As String + + Private _kzEinbehalten As String + + Private _kzPeriodischeVorlage As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set + Me._vorlageKz = Value + End Set + End Property + + + Public Property AbschreibungsMenge() As Decimal + Get + Return Me._abschreibungsMenge + End Get + Set + Me._abschreibungsMenge = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + + Public Property KzAnerkennung() As String + Get + Return Me._kzAnerkennung + End Get + Set + Me._kzAnerkennung = Value + End Set + End Property + + + Public Property KzAbschreibung() As String + Get + Return Me._kzAbschreibung + End Get + Set + Me._kzAbschreibung = Value + End Set + End Property + + + Public Property KzEinbehalten() As String + Get + Return Me._kzEinbehalten + End Get + Set + Me._kzEinbehalten = Value + End Set + End Property + + + Public Property KzPeriodischeVorlage() As String + Get + Return Me._kzPeriodischeVorlage + End Get + Set + Me._kzPeriodischeVorlage = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UnterlageVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UnterlageVBTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageVBTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVBTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageVBTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _positionsNrvZAAZ As String + + Private _mitteilungAnTeilnehmerBeschau As String + + Private _weitererNachweis As String + + Private _mitteilungAnTeilnehmerErledigung As String + + Private _positionsbefund As String + + Private _unterlage As List(Of UnterlageVBTyp) + + Private _ueberlassungDatum As Date + + Private _weitererNachweisFrist As Date + + Private _positionKzErledigung As String + + Private _abweichung As List(Of AbweichungVBTyp) + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _abgabensteuerungKz As String + + Private _eUCode As List(Of String) + + Private _sachbereich As String + + Private _artikelNummer As String + + Private _artikelpreis As Decimal + + Private _positionsZusatz As String + + Private _eigenmasse As Decimal + + Private _ursprungslandCode As String + + Private _tabakSteuerzeichenID As String + + Private _statistikStatus As String + + Private _artGeschaeftCode As String + + Private _bestimmungsbundesland As String + + Private _aHStatWert As String + + Private _aHStatMenge As Decimal + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _rohmasse As Decimal + + Private _dV1Nettopreis As Decimal + + Private _dV1Waehrung As String + + Private _dV1KzKursNettoVereinbart As String + + Private _dV1Kurs As Decimal + + Private _dV1MittelbareZahlungen As Decimal + + Private _dV1MittelbareZahlungenWaehrung As String + + Private _dV1MittelbareZahlungenKursKz As String + + Private _dV1MittelbareZahlungenKurs As Decimal + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _luftfrachtkostenGesamt As Decimal + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As Decimal + + Private _kursDatum As Date + + Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) + + Private _zollwert As Decimal + + Private _warenMenge As List(Of WarenMengeVBTyp) + + Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) + + Private _veredelungWertsteigerung As Decimal + + Private _kostenEUSt As Decimal + + Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) + + Private _beguenstigungBeantragtCode As String + + Private _beguenstigungMenge As String + + Private _beguenstigungMengeMasseinheit As String + + Private _beguenstigungMengeQualifikator As String + + Private _minderung As List(Of MinderungVBTyp) + + Private _sonderabgaben As List(Of SonderabgabenVBTyp) + + Private _kontingentNrAngewandt As List(Of String) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._kontingentNrAngewandt = New List(Of String)() + Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() + Me._minderung = New List(Of MinderungVBTyp)() + Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() + Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() + Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() + Me._warenMenge = New List(Of WarenMengeVBTyp)() + Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() + Me._eUCode = New List(Of String)() + Me._warenNummerZusatzCode = New List(Of String)() + Me._abweichung = New List(Of AbweichungVBTyp)() + Me._unterlage = New List(Of UnterlageVBTyp)() + End Sub + + + Public Property PositionsNrvZAAZ() As String + Get + Return Me._positionsNrvZAAZ + End Get + Set + Me._positionsNrvZAAZ = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerBeschau() As String + Get + Return Me._mitteilungAnTeilnehmerBeschau + End Get + Set + Me._mitteilungAnTeilnehmerBeschau = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerErledigung() As String + Get + Return Me._mitteilungAnTeilnehmerErledigung + End Get + Set + Me._mitteilungAnTeilnehmerErledigung = Value + End Set + End Property + + + Public Property Positionsbefund() As String + Get + Return Me._positionsbefund + End Get + Set + Me._positionsbefund = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property WeitererNachweisFrist() As Date + Get + Return Me._weitererNachweisFrist + End Get + Set + Me._weitererNachweisFrist = Value + End Set + End Property + + + Public Property PositionKzErledigung() As String + Get + Return Me._positionKzErledigung + End Get + Set + Me._positionKzErledigung = Value + End Set + End Property + + + Public Property Abweichung() As List(Of AbweichungVBTyp) + Get + Return Me._abweichung + End Get + Set + Me._abweichung = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set + Me._abgabensteuerungKz = Value + End Set + End Property + + + Public Property EUCode() As List(Of String) + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set + Me._sachbereich = Value + End Set + End Property + + + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set + Me._artikelNummer = Value + End Set + End Property + + + Public Property Artikelpreis() As Decimal + Get + Return Me._artikelpreis + End Get + Set + Me._artikelpreis = Value + End Set + End Property + + + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set + Me._positionsZusatz = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = Value + End Set + End Property + + + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set + Me._tabakSteuerzeichenID = Value + End Set + End Property + + + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set + Me._statistikStatus = Value + End Set + End Property + + + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set + Me._artGeschaeftCode = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set + Me._aHStatWert = Value + End Set + End Property + + + Public Property AHStatMenge() As Decimal + Get + Return Me._aHStatMenge + End Get + Set + Me._aHStatMenge = Value + End Set + End Property + + + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set + Me._aHStatMengeQualifier = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property DV1Nettopreis() As Decimal + Get + Return Me._dV1Nettopreis + End Get + Set + Me._dV1Nettopreis = Value + End Set + End Property + + + Public Property DV1Waehrung() As String + Get + Return Me._dV1Waehrung + End Get + Set + Me._dV1Waehrung = Value + End Set + End Property + + + Public Property DV1KzKursNettoVereinbart() As String + Get + Return Me._dV1KzKursNettoVereinbart + End Get + Set + Me._dV1KzKursNettoVereinbart = Value + End Set + End Property + + + Public Property DV1Kurs() As Decimal + Get + Return Me._dV1Kurs + End Get + Set + Me._dV1Kurs = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungen() As Decimal + Get + Return Me._dV1MittelbareZahlungen + End Get + Set + Me._dV1MittelbareZahlungen = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenWaehrung() As String + Get + Return Me._dV1MittelbareZahlungenWaehrung + End Get + Set + Me._dV1MittelbareZahlungenWaehrung = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKursKz() As String + Get + Return Me._dV1MittelbareZahlungenKursKz + End Get + Set + Me._dV1MittelbareZahlungenKursKz = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKurs() As Decimal + Get + Return Me._dV1MittelbareZahlungenKurs + End Get + Set + Me._dV1MittelbareZahlungenKurs = Value + End Set + End Property + + + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set + Me._ortVerbringens = Value + End Set + End Property + + + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set + Me._abflughafenIATACode = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamt() As Decimal + Get + Return Me._luftfrachtkostenGesamt + End Get + Set + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursBetragVereinbart() As Decimal + Get + Return Me._kursBetragVereinbart + End Get + Set + Me._kursBetragVereinbart = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property Zollwert() As Decimal + Get + Return Me._zollwert + End Get + Set + Me._zollwert = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of WarenMengeVBTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + + Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) + Get + Return Me._besondereWertangabe + End Get + Set + Me._besondereWertangabe = Value + End Set + End Property + + + Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) + Get + Return Me._gehaltsangaben + End Get + Set + Me._gehaltsangaben = Value + End Set + End Property + + + Public Property VeredelungWertsteigerung() As Decimal + Get + Return Me._veredelungWertsteigerung + End Get + Set + Me._veredelungWertsteigerung = Value + End Set + End Property + + + Public Property KostenEUSt() As Decimal + Get + Return Me._kostenEUSt + End Get + Set + Me._kostenEUSt = Value + End Set + End Property + + + Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) + Get + Return Me._verbrauchsteuer + End Get + Set + Me._verbrauchsteuer = Value + End Set + End Property + + + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + + Public Property BeguenstigungMenge() As String + Get + Return Me._beguenstigungMenge + End Get + Set + Me._beguenstigungMenge = Value + End Set + End Property + + + Public Property BeguenstigungMengeMasseinheit() As String + Get + Return Me._beguenstigungMengeMasseinheit + End Get + Set + Me._beguenstigungMengeMasseinheit = Value + End Set + End Property + + + Public Property BeguenstigungMengeQualifikator() As String + Get + Return Me._beguenstigungMengeQualifikator + End Get + Set + Me._beguenstigungMengeQualifikator = Value + End Set + End Property + + + Public Property Minderung() As List(Of MinderungVBTyp) + Get + Return Me._minderung + End Get + Set + Me._minderung = Value + End Set + End Property + + + Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) + Get + Return Me._sonderabgaben + End Get + Set + Me._sonderabgaben = Value + End Set + End Property + + + Public Property KontingentNrAngewandt() As List(Of String) + Get + Return Me._kontingentNrAngewandt + End Get + Set + Me._kontingentNrAngewandt = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBefundVereinfachteZollanmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBefundVereinfachteZollanmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AnmeldungVBTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmeldungVBTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AnmeldungVBTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AnmeldungVBTyp object + ''' + ''' string to deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmeldungVBTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnmeldungVBTyp + Return CType(SerializerXml.Deserialize(s), AnmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnmeldungVBTyp object + ''' + ''' File to load and deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmeldungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmeldungVBTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummerBearbeiter As String + + Private _kopfKzErledigung As String + + Private _registriernummer As String + + Private _veralteteWeitereRegistriernummer As String + + Private _registrierdatum As Date + + Private _artAnmeldung As String + + Private _datumErstellungBefund As Date + + Private _befund As String + + Private _kzVertretungsverhaeltnis As String + + Private _wKZ As String + + Private _kzRechtsbehelf As String + + Private _kzGesamtschuldnerschaft As String + + Private _eingangszollstelleGeaendertKz As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _anmelderFirmenbezeichung As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderOrtsteil As String + + Private _anmelderOrtS As String + + Private _anmelderPLZS As String + + Private _anmelderNationalitaet As String + + Private _dienststellenschluessel As String + + Private _dienststelleBezeichung As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststelleOrtS As String + + Private _dienststellePLZS As String + + Private _bearbeiter As String + + Private _dienststelleVorwahlTelefonNr As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterFirmenbezeichnung As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterOrtsteil As String + + Private _vertreterOrtS As String + + Private _vertreterPLZS As String + + Private _vertreterNationalitaet As String + + Private _hZABezeichnung As String + + Private _hZAEmailAdresse As String + + Private _hZADEmailAdresse As String + + Private _hZAPostfach As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtsteil As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _anmelderEmpfaengerKz As String + + Private _bewilligungsnummer As String + + Private _versendungslandCode As String + + Private _lieferbedingung As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _finanzamt As String + + Private _eingangszollstelle As String + + Private _dV1Kz As String + + Private _verkaeuferEORI As String + + Private _verkaeuferFirmenbezeichnung As String + + Private _verkaeuferNationalitaet As String + + Private _verkaeuferStrasseHausNr As String + + Private _verkaeuferPLZS As String + + Private _verkaeuferOrtS As String + + Private _verkaeuferOrtsteil As String + + Private _kaeuferEORI As String + + Private _kaeuferFirmenbezeichnung As String + + Private _kaeuferNationalitaet As String + + Private _kaeuferStrasseHausNr As String + + Private _kaeuferPLZS As String + + Private _kaeuferOrtS As String + + Private _kaeuferOrtsteil As String + + Private _zollwertanmelderEORI As String + + Private _zollwertanmelderFirmenbezeichnung As String + + Private _zollwertanmelderNationalitaet As String + + Private _zollwertanmelderStrasseHausNr As String + + Private _zollwertanmelderPLZS As String + + Private _zollwertanmelderOrtS As String + + Private _zollwertanmelderOrtsteil As String + + Private _vertreterZollwertanmelderEORI As String + + Private _vertreterZollwertanmelderFirmenbezeichnung As String + + Private _vertreterZollwertanmelderNationalitaet As String + + Private _vertreterZollwertanmelderStrasseHausNr As String + + Private _vertreterZollwertanmelderPLZS As String + + Private _vertreterZollwertanmelderOrtS As String + + Private _vertreterZollwertanmelderOrtsteil As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerFirmenbezeichnung As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _datenuebermittlungEORI As String + + Private _erwerberAndererMitgliedstaatEORI As String + + Private _erwerberAndererMitgliedstaatNLNR As String + + Private _erwerberFirmenbezeichnung As String + + Private _erwerberNationalitaet As String + + Private _erwerberStrasseHausNr As String + + Private _erwerberPLZS As String + + Private _erwerberOrtS As String + + Private _erwerberOrtsteil As String + + Private _erwerberUStIdNrAndererMitgliedstaat As String + + Private _versenderAusfuehrerEORI As String + + Private _versenderAusfuehrerFirmenbezeichnung As String + + Private _versenderAusfuehrerNationalitaet As String + + Private _versenderAusfuehrerStrasseHausNr As String + + Private _versenderAusfuehrerPLZS As String + + Private _versenderAusfuehrerOrtS As String + + Private _versenderAusfuehrerOrtsteil As String + + Private _unterlage As List(Of AnmeldungVBTyp) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._unterlage = New List(Of AnmeldungVBTyp)() + End Sub + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerBearbeiter() As String + Get + Return Me._telefonnummerBearbeiter + End Get + Set + Me._telefonnummerBearbeiter = Value + End Set + End Property + + + Public Property KopfKzErledigung() As String + Get + Return Me._kopfKzErledigung + End Get + Set + Me._kopfKzErledigung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property DatumErstellungBefund() As Date + Get + Return Me._datumErstellungBefund + End Get + Set + Me._datumErstellungBefund = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property KzVertretungsverhaeltnis() As String + Get + Return Me._kzVertretungsverhaeltnis + End Get + Set + Me._kzVertretungsverhaeltnis = Value + End Set + End Property + + + Public Property WKZ() As String + Get + Return Me._wKZ + End Get + Set + Me._wKZ = Value + End Set + End Property + + + Public Property KzRechtsbehelf() As String + Get + Return Me._kzRechtsbehelf + End Get + Set + Me._kzRechtsbehelf = Value + End Set + End Property + + + Public Property KzGesamtschuldnerschaft() As String + Get + Return Me._kzGesamtschuldnerschaft + End Get + Set + Me._kzGesamtschuldnerschaft = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property AnmelderFirmenbezeichung() As String + Get + Return Me._anmelderFirmenbezeichung + End Get + Set + Me._anmelderFirmenbezeichung = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set + Me._dienststellenschluessel = Value + End Set + End Property + + + Public Property DienststelleBezeichung() As String + Get + Return Me._dienststelleBezeichung + End Get + Set + Me._dienststelleBezeichung = Value + End Set + End Property + + + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set + Me._dienststelleOrtS = Value + End Set + End Property + + + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set + Me._dienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property DienststelleVorwahlTelefonNr() As String + Get + Return Me._dienststelleVorwahlTelefonNr + End Get + Set + Me._dienststelleVorwahlTelefonNr = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterFirmenbezeichnung() As String + Get + Return Me._vertreterFirmenbezeichnung + End Get + Set + Me._vertreterFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set + Me._hZABezeichnung = Value + End Set + End Property + + + Public Property HZAEmailAdresse() As String + Get + Return Me._hZAEmailAdresse + End Get + Set + Me._hZAEmailAdresse = Value + End Set + End Property + + + Public Property HZADEmailAdresse() As String + Get + Return Me._hZADEmailAdresse + End Get + Set + Me._hZADEmailAdresse = Value + End Set + End Property + + + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set + Me._hZAPostfach = Value + End Set + End Property + + + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set + Me._hZAOrtP = Value + End Set + End Property + + + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set + Me._hZAPLZP = Value + End Set + End Property + + + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set + Me._hZAStrasseHausNr = Value + End Set + End Property + + + Public Property HZAOrtsteil() As String + Get + Return Me._hZAOrtsteil + End Get + Set + Me._hZAOrtsteil = Value + End Set + End Property + + + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set + Me._hZAOrtS = Value + End Set + End Property + + + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set + Me._hZAPLZS = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property AnmelderEmpfaengerKz() As String + Get + Return Me._anmelderEmpfaengerKz + End Get + Set + Me._anmelderEmpfaengerKz = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property Lieferbedingung() As String + Get + Return Me._lieferbedingung + End Get + Set + Me._lieferbedingung = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property Rechnungspreis() As Decimal + Get + Return Me._rechnungspreis + End Get + Set + Me._rechnungspreis = Value + End Set + End Property + + + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set + Me._rechnungswaehrung = Value + End Set + End Property + + + Public Property Finanzamt() As String + Get + Return Me._finanzamt + End Get + Set + Me._finanzamt = Value + End Set + End Property + + + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set + Me._eingangszollstelle = Value + End Set + End Property + + + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set + Me._dV1Kz = Value + End Set + End Property + + + Public Property VerkaeuferEORI() As String + Get + Return Me._verkaeuferEORI + End Get + Set + Me._verkaeuferEORI = Value + End Set + End Property + + + Public Property VerkaeuferFirmenbezeichnung() As String + Get + Return Me._verkaeuferFirmenbezeichnung + End Get + Set + Me._verkaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property VerkaeuferNationalitaet() As String + Get + Return Me._verkaeuferNationalitaet + End Get + Set + Me._verkaeuferNationalitaet = Value + End Set + End Property + + + Public Property VerkaeuferStrasseHausNr() As String + Get + Return Me._verkaeuferStrasseHausNr + End Get + Set + Me._verkaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property VerkaeuferPLZS() As String + Get + Return Me._verkaeuferPLZS + End Get + Set + Me._verkaeuferPLZS = Value + End Set + End Property + + + Public Property VerkaeuferOrtS() As String + Get + Return Me._verkaeuferOrtS + End Get + Set + Me._verkaeuferOrtS = Value + End Set + End Property + + + Public Property VerkaeuferOrtsteil() As String + Get + Return Me._verkaeuferOrtsteil + End Get + Set + Me._verkaeuferOrtsteil = Value + End Set + End Property + + + Public Property KaeuferEORI() As String + Get + Return Me._kaeuferEORI + End Get + Set + Me._kaeuferEORI = Value + End Set + End Property + + + Public Property KaeuferFirmenbezeichnung() As String + Get + Return Me._kaeuferFirmenbezeichnung + End Get + Set + Me._kaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property KaeuferNationalitaet() As String + Get + Return Me._kaeuferNationalitaet + End Get + Set + Me._kaeuferNationalitaet = Value + End Set + End Property + + + Public Property KaeuferStrasseHausNr() As String + Get + Return Me._kaeuferStrasseHausNr + End Get + Set + Me._kaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property KaeuferPLZS() As String + Get + Return Me._kaeuferPLZS + End Get + Set + Me._kaeuferPLZS = Value + End Set + End Property + + + Public Property KaeuferOrtS() As String + Get + Return Me._kaeuferOrtS + End Get + Set + Me._kaeuferOrtS = Value + End Set + End Property + + + Public Property KaeuferOrtsteil() As String + Get + Return Me._kaeuferOrtsteil + End Get + Set + Me._kaeuferOrtsteil = Value + End Set + End Property + + + Public Property ZollwertanmelderEORI() As String + Get + Return Me._zollwertanmelderEORI + End Get + Set + Me._zollwertanmelderEORI = Value + End Set + End Property + + + Public Property ZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._zollwertanmelderFirmenbezeichnung + End Get + Set + Me._zollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property ZollwertanmelderNationalitaet() As String + Get + Return Me._zollwertanmelderNationalitaet + End Get + Set + Me._zollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property ZollwertanmelderStrasseHausNr() As String + Get + Return Me._zollwertanmelderStrasseHausNr + End Get + Set + Me._zollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property ZollwertanmelderPLZS() As String + Get + Return Me._zollwertanmelderPLZS + End Get + Set + Me._zollwertanmelderPLZS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtS() As String + Get + Return Me._zollwertanmelderOrtS + End Get + Set + Me._zollwertanmelderOrtS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtsteil() As String + Get + Return Me._zollwertanmelderOrtsteil + End Get + Set + Me._zollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderEORI() As String + Get + Return Me._vertreterZollwertanmelderEORI + End Get + Set + Me._vertreterZollwertanmelderEORI = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._vertreterZollwertanmelderFirmenbezeichnung + End Get + Set + Me._vertreterZollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderNationalitaet() As String + Get + Return Me._vertreterZollwertanmelderNationalitaet + End Get + Set + Me._vertreterZollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderStrasseHausNr() As String + Get + Return Me._vertreterZollwertanmelderStrasseHausNr + End Get + Set + Me._vertreterZollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderPLZS() As String + Get + Return Me._vertreterZollwertanmelderPLZS + End Get + Set + Me._vertreterZollwertanmelderPLZS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtS() As String + Get + Return Me._vertreterZollwertanmelderOrtS + End Get + Set + Me._vertreterZollwertanmelderOrtS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtsteil() As String + Get + Return Me._vertreterZollwertanmelderOrtsteil + End Get + Set + Me._vertreterZollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set + Me._fruehereEntscheidungen = Value + End Set + End Property + + + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set + Me._verbundenheit = Value + End Set + End Property + + + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set + Me._einschraenkungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set + Me._bedingungenLeistungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set + Me._bedingungenLeistungenArt = Value + End Set + End Property + + + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set + Me._lizenzgebuehrenKz = Value + End Set + End Property + + + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set + Me._spezielleVereinbarungKz = Value + End Set + End Property + + + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerFirmenbezeichnung() As String + Get + Return Me._empfaengerFirmenbezeichnung + End Get + Set + Me._empfaengerFirmenbezeichnung = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property DatenuebermittlungEORI() As String + Get + Return Me._datenuebermittlungEORI + End Get + Set + Me._datenuebermittlungEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatEORI() As String + Get + Return Me._erwerberAndererMitgliedstaatEORI + End Get + Set + Me._erwerberAndererMitgliedstaatEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatNLNR() As String + Get + Return Me._erwerberAndererMitgliedstaatNLNR + End Get + Set + Me._erwerberAndererMitgliedstaatNLNR = Value + End Set + End Property + + + Public Property ErwerberFirmenbezeichnung() As String + Get + Return Me._erwerberFirmenbezeichnung + End Get + Set + Me._erwerberFirmenbezeichnung = Value + End Set + End Property + + + Public Property ErwerberNationalitaet() As String + Get + Return Me._erwerberNationalitaet + End Get + Set + Me._erwerberNationalitaet = Value + End Set + End Property + + + Public Property ErwerberStrasseHausNr() As String + Get + Return Me._erwerberStrasseHausNr + End Get + Set + Me._erwerberStrasseHausNr = Value + End Set + End Property + + + Public Property ErwerberPLZS() As String + Get + Return Me._erwerberPLZS + End Get + Set + Me._erwerberPLZS = Value + End Set + End Property + + + Public Property ErwerberOrtS() As String + Get + Return Me._erwerberOrtS + End Get + Set + Me._erwerberOrtS = Value + End Set + End Property + + + Public Property ErwerberOrtsteil() As String + Get + Return Me._erwerberOrtsteil + End Get + Set + Me._erwerberOrtsteil = Value + End Set + End Property + + + Public Property ErwerberUStIdNrAndererMitgliedstaat() As String + Get + Return Me._erwerberUStIdNrAndererMitgliedstaat + End Get + Set + Me._erwerberUStIdNrAndererMitgliedstaat = Value + End Set + End Property + + + Public Property VersenderAusfuehrerEORI() As String + Get + Return Me._versenderAusfuehrerEORI + End Get + Set + Me._versenderAusfuehrerEORI = Value + End Set + End Property + + + Public Property VersenderAusfuehrerFirmenbezeichnung() As String + Get + Return Me._versenderAusfuehrerFirmenbezeichnung + End Get + Set + Me._versenderAusfuehrerFirmenbezeichnung = Value + End Set + End Property + + + Public Property VersenderAusfuehrerNationalitaet() As String + Get + Return Me._versenderAusfuehrerNationalitaet + End Get + Set + Me._versenderAusfuehrerNationalitaet = Value + End Set + End Property + + + Public Property VersenderAusfuehrerStrasseHausNr() As String + Get + Return Me._versenderAusfuehrerStrasseHausNr + End Get + Set + Me._versenderAusfuehrerStrasseHausNr = Value + End Set + End Property + + + Public Property VersenderAusfuehrerPLZS() As String + Get + Return Me._versenderAusfuehrerPLZS + End Get + Set + Me._versenderAusfuehrerPLZS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtS() As String + Get + Return Me._versenderAusfuehrerOrtS + End Get + Set + Me._versenderAusfuehrerOrtS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtsteil() As String + Get + Return Me._versenderAusfuehrerOrtsteil + End Get + Set + Me._versenderAusfuehrerOrtsteil = Value + End Set + End Property + + + Public Property Unterlage() As List(Of AnmeldungVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.xsd new file mode 100644 index 0000000..f38d906 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_009.xsd @@ -0,0 +1,557 @@ + + + + + Version 009 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.Designer.vb new file mode 100644 index 0000000..3569645 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.Designer.vb @@ -0,0 +1,1572 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"EntscheidungAnmeldung_005","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace EntscheidungAnmeldung_005 + + + Partial Public Class EntscheidungAnmeldungRLTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelEntscheidungAnmeldung As EinzelEntscheidungAnmeldungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelEntscheidungAnmeldung = New EinzelEntscheidungAnmeldungTyp() + End Sub + + + Public Property EinzelEntscheidungAnmeldung() As EinzelEntscheidungAnmeldungTyp + Get + Return Me._einzelEntscheidungAnmeldung + End Get + Set + Me._einzelEntscheidungAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EntscheidungAnmeldungRLTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EntscheidungAnmeldungRLTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EntscheidungAnmeldungRLTyp object + ''' + ''' string to deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EntscheidungAnmeldungRLTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EntscheidungAnmeldungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EntscheidungAnmeldungRLTyp + Return CType(SerializerXml.Deserialize(s), EntscheidungAnmeldungRLTyp) + End Function +#End Region + + ''' + ''' Serializes current EntscheidungAnmeldungRLTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EntscheidungAnmeldungRLTyp object + ''' + ''' File to load and deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + 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 EntscheidungAnmeldungRLTyp) 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 EntscheidungAnmeldungRLTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungRLTyp + + Private _kopfDaten As KopfDatenEntscheidungAnmeldungTyp + + Private _position As List(Of PositionEntscheidungAnmeldungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionEntscheidungAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEntscheidungAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungRLTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungRLTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEntscheidungAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionEntscheidungAnmeldungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEntscheidungAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelEntscheidungAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEntscheidungAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + 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 EinzelEntscheidungAnmeldungTyp) 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 EinzelEntscheidungAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungRLTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungRLTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungRLTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungRLTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungRLTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungRLTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungRLTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungRLTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungRLTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + 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 ObjektIdentifizierungRLTyp) 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 ObjektIdentifizierungRLTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungKz As String + + Private _ueberlassungDatum As Date + + Private _ueberlassungUhrzeit As Date + + Private _mitteilungTeilnehmerBeschau As String + + Private _rueckgabeKz As String + + Private _anordnungKz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set + Me._annahmeKz = Value + End Set + End Property + + + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set + Me._annahmeDatum = Value + End Set + End Property + + + Public Property UeberlassungKz() As String + Get + Return Me._ueberlassungKz + End Get + Set + Me._ueberlassungKz = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property UeberlassungUhrzeit() As Date + Get + Return Me._ueberlassungUhrzeit + End Get + Set + Me._ueberlassungUhrzeit = Value + End Set + End Property + + + Public Property MitteilungTeilnehmerBeschau() As String + Get + Return Me._mitteilungTeilnehmerBeschau + End Get + Set + Me._mitteilungTeilnehmerBeschau = Value + End Set + End Property + + + Public Property RueckgabeKz() As String + Get + Return Me._rueckgabeKz + End Get + Set + Me._rueckgabeKz = Value + End Set + End Property + + + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set + Me._anordnungKz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEntscheidungAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionEntscheidungAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionEntscheidungAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + 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 PositionEntscheidungAnmeldungTyp) 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 PositionEntscheidungAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _registriernummer As String + + Private _veralteteWeitereRegistriernummer As String + + Private _mitteilungTeilnehmerGestellungsmodalitaeten As String + + Private _bearbeiterZoll As String + + Private _arbeitsnummerVorzeitigeAnmeldung As String + + Private _containernummer As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._containernummer = New List(Of String)() + End Sub + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property MitteilungTeilnehmerGestellungsmodalitaeten() As String + Get + Return Me._mitteilungTeilnehmerGestellungsmodalitaeten + End Get + Set + Me._mitteilungTeilnehmerGestellungsmodalitaeten = Value + End Set + End Property + + + Public Property BearbeiterZoll() As String + Get + Return Me._bearbeiterZoll + End Get + Set + Me._bearbeiterZoll = Value + End Set + End Property + + + Public Property ArbeitsnummerVorzeitigeAnmeldung() As String + Get + Return Me._arbeitsnummerVorzeitigeAnmeldung + End Get + Set + Me._arbeitsnummerVorzeitigeAnmeldung = Value + End Set + End Property + + + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEntscheidungAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEntscheidungAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + 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 KopfDatenEntscheidungAnmeldungTyp) 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 KopfDatenEntscheidungAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.xsd new file mode 100644 index 0000000..bb444df --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_005.xsd @@ -0,0 +1,118 @@ + + + + + Version 005 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.Designer.vb new file mode 100644 index 0000000..9fef00e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.Designer.vb @@ -0,0 +1,8679 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004_V2024","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace FreierVerkehrAktVeredelUmwandlung_004_V2024 + + + Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() + End Sub + + + Public Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me._einzelAnmeldung + End Get + Set + Me._einzelAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' string to deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Return CType(SerializerXml.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp + + Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + + Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungAVUVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _anmeldungArt As String + + Private _objektQuittung As String + + Private _bezugsnummerVorblendung As String + + Private _userVorblendung As String + + Private _kopieVon As String + + Private _objektAktion As List(Of String) + + Private _compliancePruefung As String + + Private _bearbeiter As String + + Private _anfBemerkungStatusanzeige As String + + Private _absenderSystemName As String + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._objektAktion = New List(Of String)() + End Sub + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property AnmeldungArt() As String + Get + Return Me._anmeldungArt + End Get + Set + Me._anmeldungArt = Value + End Set + End Property + + + Public Property ObjektQuittung() As String + Get + Return Me._objektQuittung + End Get + Set + Me._objektQuittung = Value + End Set + End Property + + + Public Property BezugsnummerVorblendung() As String + Get + Return Me._bezugsnummerVorblendung + End Get + Set + Me._bezugsnummerVorblendung = Value + End Set + End Property + + + Public Property UserVorblendung() As String + Get + Return Me._userVorblendung + End Get + Set + Me._userVorblendung = Value + End Set + End Property + + + Public Property KopieVon() As String + Get + Return Me._kopieVon + End Get + Set + Me._kopieVon = Value + End Set + End Property + + + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set + Me._objektAktion = Value + End Set + End Property + + + Public Property CompliancePruefung() As String + Get + Return Me._compliancePruefung + End Get + Set + Me._compliancePruefung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property AnfBemerkungStatusanzeige() As String + Get + Return Me._anfBemerkungStatusanzeige + End Get + Set + Me._anfBemerkungStatusanzeige = Value + End Set + End Property + + + Public Property AbsenderSystemName() As String + Get + Return Me._absenderSystemName + End Get + Set + Me._absenderSystemName = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungAVUVTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungAVUVTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AussenhandelsstatistikAVUVTyp + +#Region "Private fields" + Private _verkehrszweigInland As String + + Private _verkehrszweigGrenze As String + + Private _versendungsland As String + + Private _bestimmungsbundesland As String + + Private _bestimmungsland As String + + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String + + Private _befoerderungsmittelGrenzeArt As String + + Private _befoerderungsmittelBeschreibung As String + + Private _artGeschaeft As String + + Private _statistikstatus As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set + Me._verkehrszweigInland = Value + End Set + End Property + + + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set + Me._verkehrszweigGrenze = Value + End Set + End Property + + + Public Property Versendungsland() As String + Get + Return Me._versendungsland + End Get + Set + Me._versendungsland = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode + End Get + Set + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me._befoerderungsmittelGrenzeArt + End Get + Set + Me._befoerderungsmittelGrenzeArt = Value + End Set + End Property + + + Public Property BefoerderungsmittelBeschreibung() As String + Get + Return Me._befoerderungsmittelBeschreibung + End Get + Set + Me._befoerderungsmittelBeschreibung = Value + End Set + End Property + + + Public Property ArtGeschaeft() As String + Get + Return Me._artGeschaeft + End Get + Set + Me._artGeschaeft = Value + End Set + End Property + + + Public Property Statistikstatus() As String + Get + Return Me._statistikstatus + End Get + Set + Me._statistikstatus = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AussenhandelsstatistikAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AussenhandelsstatistikAVUVTyp object + ''' + ''' string to deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AussenhandelsstatistikAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AussenhandelsstatistikAVUVTyp + Return CType(SerializerXml.Deserialize(s), AussenhandelsstatistikAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AussenhandelsstatistikAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AussenhandelsstatistikAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbzugHinzurechnungAVUVTyp + +#Region "Private fields" + Private _artCode As String + + Private _beschreibungAndereZahlungen As String + + Private _betrag As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursDatum As Date + + Private _prozentsatz As String + + Private _betragInEUR As String + + Private _iATAKursKz As String + + Private _frachtkostenBerechnungsgrundlage As String + + Private _kursAuslandswaehrung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property BeschreibungAndereZahlungen() As String + Get + Return Me._beschreibungAndereZahlungen + End Get + Set + Me._beschreibungAndereZahlungen = Value + End Set + End Property + + + Public Property Betrag() As String + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property Prozentsatz() As String + Get + Return Me._prozentsatz + End Get + Set + Me._prozentsatz = Value + End Set + End Property + + + Public Property BetragInEUR() As String + Get + Return Me._betragInEUR + End Get + Set + Me._betragInEUR = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property FrachtkostenBerechnungsgrundlage() As String + Get + Return Me._frachtkostenBerechnungsgrundlage + End Get + Set + Me._frachtkostenBerechnungsgrundlage = Value + End Set + End Property + + + Public Property KursAuslandswaehrung() As String + Get + Return Me._kursAuslandswaehrung + End Get + Set + Me._kursAuslandswaehrung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbzugHinzurechnungAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbzugHinzurechnungAVUVTyp object + ''' + ''' string to deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbzugHinzurechnungAVUVTyp + Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BesondereWertangabeAVUVTyp + +#Region "Private fields" + Private _wert As String + + Private _preisartCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Wert() As String + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set + Me._preisartCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BesondereWertangabeAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BesondereWertangabeAVUVTyp object + ''' + ''' string to deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereWertangabeAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BesondereWertangabeAVUVTyp + Return CType(SerializerXml.Deserialize(s), BesondereWertangabeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereWertangabeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereWertangabeAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class UnterlageVZPositionAVUVTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As String + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set + Me._vorlageKz = Value + End Set + End Property + + + Public Property AbschreibungsMenge() As String + Get + Return Me._abschreibungsMenge + End Get + Set + Me._abschreibungsMenge = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UnterlageVZPositionAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UnterlageVZPositionAVUVTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVZPositionAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageVZPositionAVUVTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVZPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVZPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVZPositionAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SonderfalldatenAVUVTyp + +#Region "Private fields" + Private _sonderabgabenGruppeCode As String + + Private _anwendungArt As String + + Private _satzBetragFaktor As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SonderabgabenGruppeCode() As String + Get + Return Me._sonderabgabenGruppeCode + End Get + Set + Me._sonderabgabenGruppeCode = Value + End Set + End Property + + + Public Property AnwendungArt() As String + Get + Return Me._anwendungArt + End Get + Set + Me._anwendungArt = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As String + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SonderfalldatenAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SonderfalldatenAVUVTyp object + ''' + ''' string to deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalldatenAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SonderfalldatenAVUVTyp + Return CType(SerializerXml.Deserialize(s), SonderfalldatenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalldatenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SonderfalldatenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalldatenAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgabenminderungAVUVTyp + +#Region "Private fields" + Private _abgabengruppeCode As String + + Private _minderungsbetrag As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AbgabengruppeCode() As String + Get + Return Me._abgabengruppeCode + End Get + Set + Me._abgabengruppeCode = Value + End Set + End Property + + + Public Property Minderungsbetrag() As String + Get + Return Me._minderungsbetrag + End Get + Set + Me._minderungsbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgabenminderungAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgabenminderungAVUVTyp object + ''' + ''' string to deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenminderungAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenminderungAVUVTyp + Return CType(SerializerXml.Deserialize(s), AbgabenminderungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenminderungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgabenminderungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenminderungAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerbrauchssteuerAVUVTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As String + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As String + + Private _verbrauchssteuerWertBasis As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property VerbrauchsteuerCode() As String + Get + Return Me._verbrauchsteuerCode + End Get + Set + Me._verbrauchsteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As String + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + + Public Property GradProzent() As String + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertBasis() As String + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerbrauchssteuerAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerbrauchssteuerAVUVTyp object + ''' + ''' string to deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchssteuerAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerbrauchssteuerAVUVTyp + Return CType(SerializerXml.Deserialize(s), VerbrauchssteuerAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchssteuerAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchssteuerAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeguenstigungsMengeAVUVTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheitCode As String + + Private _masseinheitQualifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property MasseinheitCode() As String + Get + Return Me._masseinheitCode + End Get + Set + Me._masseinheitCode = Value + End Set + End Property + + + Public Property MasseinheitQualifier() As String + Get + Return Me._masseinheitQualifier + End Get + Set + Me._masseinheitQualifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeguenstigungsMengeAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeguenstigungsMengeAVUVTyp object + ''' + ''' string to deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeguenstigungsMengeAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeguenstigungsMengeAVUVTyp + Return CType(SerializerXml.Deserialize(s), BeguenstigungsMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeguenstigungsMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeguenstigungsMengeAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GehaltsangabenAVUVTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property GradProzent() As String + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GehaltsangabenAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GehaltsangabenAVUVTyp object + ''' + ''' string to deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GehaltsangabenAVUVTyp + Return CType(SerializerXml.Deserialize(s), GehaltsangabenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GehaltsangabenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AVVeredelungserzeugnisTyp + +#Region "Private fields" + Private _warenbezeichnung As String + + Private _ausbeuteart As String + + Private _ausbeutesatz As String + + Private _kNCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Ausbeuteart() As String + Get + Return Me._ausbeuteart + End Get + Set + Me._ausbeuteart = Value + End Set + End Property + + + Public Property Ausbeutesatz() As String + Get + Return Me._ausbeutesatz + End Get + Set + Me._ausbeutesatz = Value + End Set + End Property + + + Public Property KNCode() As String + Get + Return Me._kNCode + End Get + Set + Me._kNCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AVVeredelungserzeugnisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AVVeredelungserzeugnisTyp object + ''' + ''' string to deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AVVeredelungserzeugnisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AVVeredelungserzeugnisTyp + Return CType(SerializerXml.Deserialize(s), AVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current AVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object + ''' + ''' File to load and deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVVeredelungserzeugnisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class WarenMengeAVUVTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize WarenMengeAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes WarenMengeAVUVTyp object + ''' + ''' string to deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As WarenMengeAVUVTyp + Return CType(SerializerXml.Deserialize(s), WarenMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WarenMengeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artikelNummer As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenNummerZusatz1 As String + + Private _warenNummerZusatz2 As String + + Private _warenBezeichnung As String + + Private _verfahrenscodeVorangegangenesVerfahren As String + + Private _abgabensteuerungKz As String + + Private _eUCode As List(Of String) + + Private _ursprungslandCode As String + + Private _praeferenzursprungsland As String + + Private _rohmasse As String + + Private _eigenmasse As String + + Private _aHStatMenge As String + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _kostenEUSt As String + + Private _aHStatWert As String + + Private _packstueckAnzahl As String + + Private _packstueckArt As String + + Private _packstueckZeichen As String + + Private _warenMenge As List(Of WarenMengeAVUVTyp) + + Private _warenMengeZoll As String + + Private _warenMengeZollMasseinheit As String + + Private _warenMengeZollMasseinheitQualifier As String + + Private _beguenstigungBeantragtCode As String + + Private _kontingentnummer As List(Of String) + + Private _positionsZusatz As String + + Private _aHStatWertManuellKZ As String + + Private _artikelpreis As String + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _warenmengeAVUVZugang As String + + Private _warenmengeAVUVZugangMasseinheit As String + + Private _warenmengeAVUVZugangMasseinheitQualifier As String + + Private _warenmengeAgrarzoll As String + + Private _warenmengeAgrarzollMasseinheit As String + + Private _warenmengeAgrarzollMasseinheitQualifier As String + + Private _sachbereich As String + + Private _bedingungCode As String + + Private _veredelungWertsteigerung As String + + Private _tabakSteuerzeichenID As String + + Private _aVWirtschaftlicheVoraussetzungen As String + + Private _aVNaemlichkeitsmittel As String + + Private _aVErlaeuterungNaemlichkeit As String + + Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) + + Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp + + Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) + + Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) + + Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) + + Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) + + Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) + + Private _vZAStatus As String + + Private _eGZStatus As String + + Private _dV1Status As String + + Private _anmeldeArt As String + + Private _befundDatum As Date + + Private _anmelderAdressCodeEORI As String + + Private _anmelderAdressCodeZollnummer As String + + Private _zollverfahren As String + + Private _abrechnungszollstelleCode As String + + Private _sachbereichCode As String + + Private _registriernummervZA As String + + Private _anmeldeVerfahren As String + + Private _bewilligungsnummer As String + + Private _bewilligungsnummerEndverwenderEGZDurchDritte As String + + Private _zollwert As String + + Private _luftfrachtkostenGesamt As String + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As String + + Private _kursDatum As Date + + Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) + + Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() + Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() + Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() + Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() + Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() + Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() + Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() + Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() + Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() + Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() + Me._kontingentnummer = New List(Of String)() + Me._warenMenge = New List(Of WarenMengeAVUVTyp)() + Me._eUCode = New List(Of String)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set + Me._artikelNummer = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property WarenNummerZusatz1() As String + Get + Return Me._warenNummerZusatz1 + End Get + Set + Me._warenNummerZusatz1 = Value + End Set + End Property + + + Public Property WarenNummerZusatz2() As String + Get + Return Me._warenNummerZusatz2 + End Get + Set + Me._warenNummerZusatz2 = Value + End Set + End Property + + + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set + Me._warenBezeichnung = Value + End Set + End Property + + + Public Property VerfahrenscodeVorangegangenesVerfahren() As String + Get + Return Me._verfahrenscodeVorangegangenesVerfahren + End Get + Set + Me._verfahrenscodeVorangegangenesVerfahren = Value + End Set + End Property + + + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set + Me._abgabensteuerungKz = Value + End Set + End Property + + + Public Property EUCode() As List(Of String) + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = Value + End Set + End Property + + + Public Property Praeferenzursprungsland() As String + Get + Return Me._praeferenzursprungsland + End Get + Set + Me._praeferenzursprungsland = Value + End Set + End Property + + + Public Property Rohmasse() As String + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As String + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property AHStatMenge() As String + Get + Return Me._aHStatMenge + End Get + Set + Me._aHStatMenge = Value + End Set + End Property + + + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set + Me._aHStatMengeQualifier = Value + End Set + End Property + + + Public Property KostenEUSt() As String + Get + Return Me._kostenEUSt + End Get + Set + Me._kostenEUSt = Value + End Set + End Property + + + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set + Me._aHStatWert = Value + End Set + End Property + + + Public Property PackstueckAnzahl() As String + Get + Return Me._packstueckAnzahl + End Get + Set + Me._packstueckAnzahl = Value + End Set + End Property + + + Public Property PackstueckArt() As String + Get + Return Me._packstueckArt + End Get + Set + Me._packstueckArt = Value + End Set + End Property + + + Public Property PackstueckZeichen() As String + Get + Return Me._packstueckZeichen + End Get + Set + Me._packstueckZeichen = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of WarenMengeAVUVTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + + Public Property WarenMengeZoll() As String + Get + Return Me._warenMengeZoll + End Get + Set + Me._warenMengeZoll = Value + End Set + End Property + + + Public Property WarenMengeZollMasseinheit() As String + Get + Return Me._warenMengeZollMasseinheit + End Get + Set + Me._warenMengeZollMasseinheit = Value + End Set + End Property + + + Public Property WarenMengeZollMasseinheitQualifier() As String + Get + Return Me._warenMengeZollMasseinheitQualifier + End Get + Set + Me._warenMengeZollMasseinheitQualifier = Value + End Set + End Property + + + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + + Public Property Kontingentnummer() As List(Of String) + Get + Return Me._kontingentnummer + End Get + Set + Me._kontingentnummer = Value + End Set + End Property + + + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set + Me._positionsZusatz = Value + End Set + End Property + + + Public Property AHStatWertManuellKZ() As String + Get + Return Me._aHStatWertManuellKZ + End Get + Set + Me._aHStatWertManuellKZ = Value + End Set + End Property + + + Public Property Artikelpreis() As String + Get + Return Me._artikelpreis + End Get + Set + Me._artikelpreis = Value + End Set + End Property + + + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set + Me._ortVerbringens = Value + End Set + End Property + + + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set + Me._abflughafenIATACode = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugang() As String + Get + Return Me._warenmengeAVUVZugang + End Get + Set + Me._warenmengeAVUVZugang = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugangMasseinheit() As String + Get + Return Me._warenmengeAVUVZugangMasseinheit + End Get + Set + Me._warenmengeAVUVZugangMasseinheit = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String + Get + Return Me._warenmengeAVUVZugangMasseinheitQualifier + End Get + Set + Me._warenmengeAVUVZugangMasseinheitQualifier = Value + End Set + End Property + + + Public Property WarenmengeAgrarzoll() As String + Get + Return Me._warenmengeAgrarzoll + End Get + Set + Me._warenmengeAgrarzoll = Value + End Set + End Property + + + Public Property WarenmengeAgrarzollMasseinheit() As String + Get + Return Me._warenmengeAgrarzollMasseinheit + End Get + Set + Me._warenmengeAgrarzollMasseinheit = Value + End Set + End Property + + + Public Property WarenmengeAgrarzollMasseinheitQualifier() As String + Get + Return Me._warenmengeAgrarzollMasseinheitQualifier + End Get + Set + Me._warenmengeAgrarzollMasseinheitQualifier = Value + End Set + End Property + + + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set + Me._sachbereich = Value + End Set + End Property + + + Public Property BedingungCode() As String + Get + Return Me._bedingungCode + End Get + Set + Me._bedingungCode = Value + End Set + End Property + + + Public Property VeredelungWertsteigerung() As String + Get + Return Me._veredelungWertsteigerung + End Get + Set + Me._veredelungWertsteigerung = Value + End Set + End Property + + + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set + Me._tabakSteuerzeichenID = Value + End Set + End Property + + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me._aVWirtschaftlicheVoraussetzungen + End Get + Set + Me._aVWirtschaftlicheVoraussetzungen = Value + End Set + End Property + + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me._aVNaemlichkeitsmittel + End Get + Set + Me._aVNaemlichkeitsmittel = Value + End Set + End Property + + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me._aVErlaeuterungNaemlichkeit + End Get + Set + Me._aVErlaeuterungNaemlichkeit = Value + End Set + End Property + + + Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) + Get + Return Me._aVVeredelungserzeugnis + End Get + Set + Me._aVVeredelungserzeugnis = Value + End Set + End Property + + + Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) + Get + Return Me._gehaltsangaben + End Get + Set + Me._gehaltsangaben = Value + End Set + End Property + + + Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp + Get + Return Me._beguenstigungsmenge + End Get + Set + Me._beguenstigungsmenge = Value + End Set + End Property + + + Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) + Get + Return Me._verbrauchssteuer + End Get + Set + Me._verbrauchssteuer = Value + End Set + End Property + + + Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) + Get + Return Me._abgabenminderung + End Get + Set + Me._abgabenminderung = Value + End Set + End Property + + + Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) + Get + Return Me._sonderfalldaten + End Get + Set + Me._sonderfalldaten = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) + Get + Return Me._besondereWertangabe + End Get + Set + Me._besondereWertangabe = Value + End Set + End Property + + + Public Property VZAStatus() As String + Get + Return Me._vZAStatus + End Get + Set + Me._vZAStatus = Value + End Set + End Property + + + Public Property EGZStatus() As String + Get + Return Me._eGZStatus + End Get + Set + Me._eGZStatus = Value + End Set + End Property + + + Public Property DV1Status() As String + Get + Return Me._dV1Status + End Get + Set + Me._dV1Status = Value + End Set + End Property + + + Public Property AnmeldeArt() As String + Get + Return Me._anmeldeArt + End Get + Set + Me._anmeldeArt = Value + End Set + End Property + + + Public Property BefundDatum() As Date + Get + Return Me._befundDatum + End Get + Set + Me._befundDatum = Value + End Set + End Property + + + Public Property AnmelderAdressCodeEORI() As String + Get + Return Me._anmelderAdressCodeEORI + End Get + Set + Me._anmelderAdressCodeEORI = Value + End Set + End Property + + + Public Property AnmelderAdressCodeZollnummer() As String + Get + Return Me._anmelderAdressCodeZollnummer + End Get + Set + Me._anmelderAdressCodeZollnummer = Value + End Set + End Property + + + Public Property Zollverfahren() As String + Get + Return Me._zollverfahren + End Get + Set + Me._zollverfahren = Value + End Set + End Property + + + Public Property AbrechnungszollstelleCode() As String + Get + Return Me._abrechnungszollstelleCode + End Get + Set + Me._abrechnungszollstelleCode = Value + End Set + End Property + + + Public Property SachbereichCode() As String + Get + Return Me._sachbereichCode + End Get + Set + Me._sachbereichCode = Value + End Set + End Property + + + Public Property RegistriernummervZA() As String + Get + Return Me._registriernummervZA + End Get + Set + Me._registriernummervZA = Value + End Set + End Property + + + Public Property AnmeldeVerfahren() As String + Get + Return Me._anmeldeVerfahren + End Get + Set + Me._anmeldeVerfahren = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property BewilligungsnummerEndverwenderEGZDurchDritte() As String + Get + Return Me._bewilligungsnummerEndverwenderEGZDurchDritte + End Get + Set + Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value + End Set + End Property + + + Public Property Zollwert() As String + Get + Return Me._zollwert + End Get + Set + Me._zollwert = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamt() As String + Get + Return Me._luftfrachtkostenGesamt + End Get + Set + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursBetragVereinbart() As String + Get + Return Me._kursBetragVereinbart + End Get + Set + Me._kursBetragVereinbart = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) + Get + Return Me._abzugHinzurechnung + End Get + Set + Me._abzugHinzurechnung = Value + End Set + End Property + + + Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp + Get + Return Me._aussenhandelsstatistik + End Get + Set + Me._aussenhandelsstatistik = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdressenVzImportAVUVTyp + +#Region "Private fields" + Private _adressTyp As String + + Private _adressCode As String + + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _zollNr As String + + Private _nameFirma As String + + Private _strasseHausNr As String + + Private _ortsteil As String + + Private _landCode As String + + Private _pLZS As String + + Private _ortS As String + + Private _uStIDAnmelder As String + + Private _finanzamtIDAnmelder As String + + Private _sitzEinfuehrer As String + + Private _bewilligungsnummer As String + + Private _bewilligungFachVerfahren As String + + Private _bewilligungsnummerEndverwender As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AdressTyp() As String + Get + Return Me._adressTyp + End Get + Set + Me._adressTyp = Value + End Set + End Property + + + Public Property AdressCode() As String + Get + Return Me._adressCode + End Get + Set + Me._adressCode = Value + End Set + End Property + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property ZollNr() As String + Get + Return Me._zollNr + End Get + Set + Me._zollNr = Value + End Set + End Property + + + Public Property NameFirma() As String + Get + Return Me._nameFirma + End Get + Set + Me._nameFirma = Value + End Set + End Property + + + Public Property StrasseHausNr() As String + Get + Return Me._strasseHausNr + End Get + Set + Me._strasseHausNr = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property PLZS() As String + Get + Return Me._pLZS + End Get + Set + Me._pLZS = Value + End Set + End Property + + + Public Property OrtS() As String + Get + Return Me._ortS + End Get + Set + Me._ortS = Value + End Set + End Property + + + Public Property UStIDAnmelder() As String + Get + Return Me._uStIDAnmelder + End Get + Set + Me._uStIDAnmelder = Value + End Set + End Property + + + Public Property FinanzamtIDAnmelder() As String + Get + Return Me._finanzamtIDAnmelder + End Get + Set + Me._finanzamtIDAnmelder = Value + End Set + End Property + + + Public Property SitzEinfuehrer() As String + Get + Return Me._sitzEinfuehrer + End Get + Set + Me._sitzEinfuehrer = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property BewilligungFachVerfahren() As String + Get + Return Me._bewilligungFachVerfahren + End Get + Set + Me._bewilligungFachVerfahren = Value + End Set + End Property + + + Public Property BewilligungsnummerEndverwender() As String + Get + Return Me._bewilligungsnummerEndverwender + End Get + Set + Me._bewilligungsnummerEndverwender = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdressenVzImportAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdressenVzImportAVUVTyp object + ''' + ''' string to deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdressenVzImportAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdressenVzImportAVUVTyp + Return CType(SerializerXml.Deserialize(s), AdressenVzImportAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AdressenVzImportAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdressenVzImportAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdressenVzImportAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ZusaetzlicheSteuerlicheVerweiseTyp + +#Region "Private fields" + Private _kennnummer As String + + Private _steuerbeteiligterTIN As String + + Private _name As String + + Private _strasseUndHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Kennnummer() As String + Get + Return Me._kennnummer + End Get + Set + Me._kennnummer = Value + End Set + End Property + + + Public Property SteuerbeteiligterTIN() As String + Get + Return Me._steuerbeteiligterTIN + End Get + Set + Me._steuerbeteiligterTIN = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseUndHausnummer() As String + Get + Return Me._strasseUndHausnummer + End Get + Set + Me._strasseUndHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' string to deserialize + ''' Output ZusaetzlicheSteuerlicheVerweiseTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ZusaetzlicheSteuerlicheVerweiseTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ZusaetzlicheSteuerlicheVerweiseTyp + Return CType(SerializerXml.Deserialize(s), ZusaetzlicheSteuerlicheVerweiseTyp) + End Function +#End Region + + ''' + ''' Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' File to load and deserialize + ''' Output ZusaetzlicheSteuerlicheVerweiseTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ZusaetzlicheSteuerlicheVerweiseTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AVBuchhaltVeredelungTyp + +#Region "Private fields" + Private _strasse As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AVBuchhaltVeredelungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AVBuchhaltVeredelungTyp object + ''' + ''' string to deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AVBuchhaltVeredelungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AVBuchhaltVeredelungTyp + Return CType(SerializerXml.Deserialize(s), AVBuchhaltVeredelungTyp) + End Function +#End Region + + ''' + ''' Serializes current AVBuchhaltVeredelungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object + ''' + ''' File to load and deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVBuchhaltVeredelungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BEAnteilZLAVUVPositionAVUVTyp + +#Region "Private fields" + Private _registriernummerZugang As String + + Private _positionZugang As String + + Private _artikelcodeATZL As String + + Private _eigentuemerATZL As String + + Private _chargennummerATZL As String + + Private _ursprungslandATZL As String + + Private _atlasKz As String + + Private _warennummer As String + + Private _ueblicheBehandlungKz As String + + Private _handelsmenge As String + + Private _masseinheitHandelsmenge As String + + Private _qualifikatorHandelsmenge As String + + Private _abgangsmenge As String + + Private _masseinheitAbgangsmenge As String + + Private _qualifikatorAbgangsmenge As String + + Private _positionszusatz As String + + Private _warenbezogeneAngaben As String + + Private _funktionPositionAusWE As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property RegistriernummerZugang() As String + Get + Return Me._registriernummerZugang + End Get + Set + Me._registriernummerZugang = Value + End Set + End Property + + + Public Property PositionZugang() As String + Get + Return Me._positionZugang + End Get + Set + Me._positionZugang = Value + End Set + End Property + + + Public Property ArtikelcodeATZL() As String + Get + Return Me._artikelcodeATZL + End Get + Set + Me._artikelcodeATZL = Value + End Set + End Property + + + Public Property EigentuemerATZL() As String + Get + Return Me._eigentuemerATZL + End Get + Set + Me._eigentuemerATZL = Value + End Set + End Property + + + Public Property ChargennummerATZL() As String + Get + Return Me._chargennummerATZL + End Get + Set + Me._chargennummerATZL = Value + End Set + End Property + + + Public Property UrsprungslandATZL() As String + Get + Return Me._ursprungslandATZL + End Get + Set + Me._ursprungslandATZL = Value + End Set + End Property + + + Public Property AtlasKz() As String + Get + Return Me._atlasKz + End Get + Set + Me._atlasKz = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property UeblicheBehandlungKz() As String + Get + Return Me._ueblicheBehandlungKz + End Get + Set + Me._ueblicheBehandlungKz = Value + End Set + End Property + + + Public Property Handelsmenge() As String + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + + Public Property MasseinheitHandelsmenge() As String + Get + Return Me._masseinheitHandelsmenge + End Get + Set + Me._masseinheitHandelsmenge = Value + End Set + End Property + + + Public Property QualifikatorHandelsmenge() As String + Get + Return Me._qualifikatorHandelsmenge + End Get + Set + Me._qualifikatorHandelsmenge = Value + End Set + End Property + + + Public Property Abgangsmenge() As String + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property MasseinheitAbgangsmenge() As String + Get + Return Me._masseinheitAbgangsmenge + End Get + Set + Me._masseinheitAbgangsmenge = Value + End Set + End Property + + + Public Property QualifikatorAbgangsmenge() As String + Get + Return Me._qualifikatorAbgangsmenge + End Get + Set + Me._qualifikatorAbgangsmenge = Value + End Set + End Property + + + Public Property Positionszusatz() As String + Get + Return Me._positionszusatz + End Get + Set + Me._positionszusatz = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + + Public Property FunktionPositionAusWE() As String + Get + Return Me._funktionPositionAusWE + End Get + Set + Me._funktionPositionAusWE = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' string to deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BEAnteilZLAVUVPositionAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BEAnteilZLAVUVPositionAVUVTyp + Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVPositionAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SumABeendigungsAnteilAVUVTyp + +#Region "Private fields" + Private _sumARegistriernummer As String + + Private _sumAPosNr As String + + Private _beendigungsPackstueckzahl As String + + Private _artIdentifikation As String + + Private _verwahrerEORI As String + + Private _zollNummerVerwahrer As String + + Private _spezifOrdnungsbegriffArt As String + + Private _spezifOrdnungsbegriff As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SumARegistriernummer() As String + Get + Return Me._sumARegistriernummer + End Get + Set + Me._sumARegistriernummer = Value + End Set + End Property + + + Public Property SumAPosNr() As String + Get + Return Me._sumAPosNr + End Get + Set + Me._sumAPosNr = Value + End Set + End Property + + + Public Property BeendigungsPackstueckzahl() As String + Get + Return Me._beendigungsPackstueckzahl + End Get + Set + Me._beendigungsPackstueckzahl = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property ZollNummerVerwahrer() As String + Get + Return Me._zollNummerVerwahrer + End Get + Set + Me._zollNummerVerwahrer = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriffArt() As String + Get + Return Me._spezifOrdnungsbegriffArt + End Get + Set + Me._spezifOrdnungsbegriffArt = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriff() As String + Get + Return Me._spezifOrdnungsbegriff + End Get + Set + Me._spezifOrdnungsbegriff = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SumABeendigungsAnteilAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SumABeendigungsAnteilAVUVTyp object + ''' + ''' string to deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumABeendigungsAnteilAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SumABeendigungsAnteilAVUVTyp + Return CType(SerializerXml.Deserialize(s), SumABeendigungsAnteilAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SumABeendigungsAnteilAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumABeendigungsAnteilAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AufschubAVUVTyp + +#Region "Private fields" + Private _aufschubart As String + + Private _artAufschubantrag As String + + Private _aufschubnehmerEORI As String + + Private _kennbuchstabenAufschub As String + + Private _zollnummerAufschubnehmer As String + + Private _kontoBewHZA As String + + Private _kontoNr As String + + Private _aufschubBIN As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Aufschubart() As String + Get + Return Me._aufschubart + End Get + Set + Me._aufschubart = Value + End Set + End Property + + + Public Property ArtAufschubantrag() As String + Get + Return Me._artAufschubantrag + End Get + Set + Me._artAufschubantrag = Value + End Set + End Property + + + Public Property AufschubnehmerEORI() As String + Get + Return Me._aufschubnehmerEORI + End Get + Set + Me._aufschubnehmerEORI = Value + End Set + End Property + + + Public Property KennbuchstabenAufschub() As String + Get + Return Me._kennbuchstabenAufschub + End Get + Set + Me._kennbuchstabenAufschub = Value + End Set + End Property + + + Public Property ZollnummerAufschubnehmer() As String + Get + Return Me._zollnummerAufschubnehmer + End Get + Set + Me._zollnummerAufschubnehmer = Value + End Set + End Property + + + Public Property KontoBewHZA() As String + Get + Return Me._kontoBewHZA + End Get + Set + Me._kontoBewHZA = Value + End Set + End Property + + + Public Property KontoNr() As String + Get + Return Me._kontoNr + End Get + Set + Me._kontoNr = Value + End Set + End Property + + + Public Property AufschubBIN() As String + Get + Return Me._aufschubBIN + End Get + Set + Me._aufschubBIN = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AufschubAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AufschubAVUVTyp object + ''' + ''' string to deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AufschubAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AufschubAVUVTyp + Return CType(SerializerXml.Deserialize(s), AufschubAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AufschubAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AufschubAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AufschubAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class UnterlageVzKopfAVUVTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UnterlageVzKopfAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UnterlageVzKopfAVUVTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVzKopfAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageVzKopfAVUVTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVzKopfAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVzKopfAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVzKopfAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DV1KostenverteilungAVUVTyp + +#Region "Private fields" + Private _kostenart As String + + Private _kosten As String + + Private _kostenWaehrung As String + + Private _wechselkursArt As String + + Private _wechselkurs As String + + Private _wechselkursDatum As Date + + Private _verteilungsart As String + + Private _minimalbetrag As String + + Private _rabattProzent As String + + Private _skontoProzent As String + + Private _bemerkungen As String + + Private _versicherungBerechnenKz As String + + Private _prozentualerAnteil As String + + Private _imaginaererProfit As String + + Private _andereZahlung As String + + Private _summeRechnungManuell As String + + Private _summeFrachtManuell As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Kostenart() As String + Get + Return Me._kostenart + End Get + Set + Me._kostenart = Value + End Set + End Property + + + Public Property Kosten() As String + Get + Return Me._kosten + End Get + Set + Me._kosten = Value + End Set + End Property + + + Public Property KostenWaehrung() As String + Get + Return Me._kostenWaehrung + End Get + Set + Me._kostenWaehrung = Value + End Set + End Property + + + Public Property WechselkursArt() As String + Get + Return Me._wechselkursArt + End Get + Set + Me._wechselkursArt = Value + End Set + End Property + + + Public Property Wechselkurs() As String + Get + Return Me._wechselkurs + End Get + Set + Me._wechselkurs = Value + End Set + End Property + + + Public Property WechselkursDatum() As Date + Get + Return Me._wechselkursDatum + End Get + Set + Me._wechselkursDatum = Value + End Set + End Property + + + Public Property Verteilungsart() As String + Get + Return Me._verteilungsart + End Get + Set + Me._verteilungsart = Value + End Set + End Property + + + Public Property Minimalbetrag() As String + Get + Return Me._minimalbetrag + End Get + Set + Me._minimalbetrag = Value + End Set + End Property + + + Public Property RabattProzent() As String + Get + Return Me._rabattProzent + End Get + Set + Me._rabattProzent = Value + End Set + End Property + + + Public Property SkontoProzent() As String + Get + Return Me._skontoProzent + End Get + Set + Me._skontoProzent = Value + End Set + End Property + + + Public Property Bemerkungen() As String + Get + Return Me._bemerkungen + End Get + Set + Me._bemerkungen = Value + End Set + End Property + + + Public Property VersicherungBerechnenKz() As String + Get + Return Me._versicherungBerechnenKz + End Get + Set + Me._versicherungBerechnenKz = Value + End Set + End Property + + + Public Property ProzentualerAnteil() As String + Get + Return Me._prozentualerAnteil + End Get + Set + Me._prozentualerAnteil = Value + End Set + End Property + + + Public Property ImaginaererProfit() As String + Get + Return Me._imaginaererProfit + End Get + Set + Me._imaginaererProfit = Value + End Set + End Property + + + Public Property AndereZahlung() As String + Get + Return Me._andereZahlung + End Get + Set + Me._andereZahlung = Value + End Set + End Property + + + Public Property SummeRechnungManuell() As String + Get + Return Me._summeRechnungManuell + End Get + Set + Me._summeRechnungManuell = Value + End Set + End Property + + + Public Property SummeFrachtManuell() As String + Get + Return Me._summeFrachtManuell + End Get + Set + Me._summeFrachtManuell = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1KostenverteilungAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DV1KostenverteilungAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DV1KostenverteilungAVUVTyp object + ''' + ''' string to deserialize + ''' Output DV1KostenverteilungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1KostenverteilungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1KostenverteilungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DV1KostenverteilungAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1KostenverteilungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DV1KostenverteilungAVUVTyp + Return CType(SerializerXml.Deserialize(s), DV1KostenverteilungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current DV1KostenverteilungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DV1KostenverteilungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output DV1KostenverteilungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1KostenverteilungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1KostenverteilungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DV1KostenverteilungAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DV1AngabenAVUVTyp + +#Region "Private fields" + Private _dV1Kz As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private _iATAAbflughafen As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set + Me._dV1Kz = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set + Me._fruehereEntscheidungen = Value + End Set + End Property + + + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set + Me._verbundenheit = Value + End Set + End Property + + + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set + Me._einschraenkungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set + Me._bedingungenLeistungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set + Me._bedingungenLeistungenArt = Value + End Set + End Property + + + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set + Me._lizenzgebuehrenKz = Value + End Set + End Property + + + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set + Me._spezielleVereinbarungKz = Value + End Set + End Property + + + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + + Public Property IATAAbflughafen() As String + Get + Return Me._iATAAbflughafen + End Get + Set + Me._iATAAbflughafen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DV1AngabenAVUVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DV1AngabenAVUVTyp object + ''' + ''' string to deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DV1AngabenAVUVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1AngabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DV1AngabenAVUVTyp + Return CType(SerializerXml.Deserialize(s), DV1AngabenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current DV1AngabenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DV1AngabenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DV1AngabenAVUVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _adressierteZollstelle As String + + Private _anmelderIstEmpfaenger As String + + Private _vertretungsverhaeltnisCode As String + + Private _vorsteuerabzug As String + + Private _nameAnmeldenderBearbeiter As String + + Private _telefonnummerAnmeldenderBearbeiter As String + + Private _stellungAnmeldenderBearbeiter As String + + Private _emailAdresseAnmeldenderBearbeiter As String + + Private _fiskalvertretungKz As String + + Private _zusammenfassendeMeldungKzStdKto As String + + Private _zusammenfassendeMeldungMelderkto As String + + Private _intrastatKzStdKto As String + + Private _intrastatMelderkto As String + + Private _ausstellungsort As String + + Private _zollrechtlicherStatus As String + + Private _gesamtRohMasse As String + + Private _verfahrenBeantragtCode As String + + Private _verkehrszweigInland As String + + Private _verkehrszweigGrenze As String + + Private _versendungslandCode As String + + Private _bestimmungsbundesland As String + + Private _bestimmungsland As String + + Private _kennzeichenNameBefoerderungsmittelAnkunft As String + + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String + + Private _befoerderungsmittelGrenzeArt As String + + Private _befoerderungsmittelGrenze As String + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungSchluessel As String + + Private _lieferbedingungOrt As String + + Private _vorpapierArtCode As String + + Private _vorpapierNr As String + + Private _artGeschaeftCode As String + + Private _statistikStatus As String + + Private _warenort As String + + Private _rechnungspreis As String + + Private _rechnungswaehrung As String + + Private _dV1Angaben As DV1AngabenAVUVTyp + + Private _dV1Kostenverteilung As List(Of DV1KostenverteilungAVUVTyp) + + Private _unterlage As List(Of UnterlageVzKopfAVUVTyp) + + Private _zusatzAngabenAnmeldung As String + + Private _kzAutoBestaetigung As String + + Private _anschreibungDatum As Date + + Private _vereinfachterBewilligungsantragKzAV As String + + Private _eingangszollstelle As String + + Private _zahlungsart As String + + Private _aufschub As List(Of AufschubAVUVTyp) + + Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp) + + Private _containerNr As List(Of String) + + Private _beendigungsAnteilArtCode As String + + Private _bewilligungsIDZLAVUV As String + + Private _bezugsnummerBEAnteilZL As String + + Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp) + + Private _kzVereinfBewillAntrgBEAnteilAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _erledigungsfristAV As String + + Private _bemEinfuhrabgKz As String + + Private _zusatzAngabenAV As String + + Private _einzelheitenVeredelung As String + + Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp) + + Private _aVErledZollstelle As List(Of String) + + Private _zusaetzlicheSteuerlicheVerweise As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) + + Private _adressen As List(Of AdressenVzImportAVUVTyp) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._adressen = New List(Of AdressenVzImportAVUVTyp)() + Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)() + Me._aVErledZollstelle = New List(Of String)() + Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)() + Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() + Me._containerNr = New List(Of String)() + Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)() + Me._aufschub = New List(Of AufschubAVUVTyp)() + Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)() + Me._dV1Kostenverteilung = New List(Of DV1KostenverteilungAVUVTyp)() + Me._dV1Angaben = New DV1AngabenAVUVTyp() + End Sub + + + Public Property AdressierteZollstelle() As String + Get + Return Me._adressierteZollstelle + End Get + Set + Me._adressierteZollstelle = Value + End Set + End Property + + + Public Property AnmelderIstEmpfaenger() As String + Get + Return Me._anmelderIstEmpfaenger + End Get + Set + Me._anmelderIstEmpfaenger = Value + End Set + End Property + + + Public Property VertretungsverhaeltnisCode() As String + Get + Return Me._vertretungsverhaeltnisCode + End Get + Set + Me._vertretungsverhaeltnisCode = Value + End Set + End Property + + + Public Property Vorsteuerabzug() As String + Get + Return Me._vorsteuerabzug + End Get + Set + Me._vorsteuerabzug = Value + End Set + End Property + + + Public Property NameAnmeldenderBearbeiter() As String + Get + Return Me._nameAnmeldenderBearbeiter + End Get + Set + Me._nameAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerAnmeldenderBearbeiter() As String + Get + Return Me._telefonnummerAnmeldenderBearbeiter + End Get + Set + Me._telefonnummerAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property StellungAnmeldenderBearbeiter() As String + Get + Return Me._stellungAnmeldenderBearbeiter + End Get + Set + Me._stellungAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property EmailAdresseAnmeldenderBearbeiter() As String + Get + Return Me._emailAdresseAnmeldenderBearbeiter + End Get + Set + Me._emailAdresseAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property FiskalvertretungKz() As String + Get + Return Me._fiskalvertretungKz + End Get + Set + Me._fiskalvertretungKz = Value + End Set + End Property + + + Public Property ZusammenfassendeMeldungKzStdKto() As String + Get + Return Me._zusammenfassendeMeldungKzStdKto + End Get + Set + Me._zusammenfassendeMeldungKzStdKto = Value + End Set + End Property + + + Public Property ZusammenfassendeMeldungMelderkto() As String + Get + Return Me._zusammenfassendeMeldungMelderkto + End Get + Set + Me._zusammenfassendeMeldungMelderkto = Value + End Set + End Property + + + Public Property IntrastatKzStdKto() As String + Get + Return Me._intrastatKzStdKto + End Get + Set + Me._intrastatKzStdKto = Value + End Set + End Property + + + Public Property IntrastatMelderkto() As String + Get + Return Me._intrastatMelderkto + End Get + Set + Me._intrastatMelderkto = Value + End Set + End Property + + + Public Property Ausstellungsort() As String + Get + Return Me._ausstellungsort + End Get + Set + Me._ausstellungsort = Value + End Set + End Property + + + Public Property ZollrechtlicherStatus() As String + Get + Return Me._zollrechtlicherStatus + End Get + Set + Me._zollrechtlicherStatus = Value + End Set + End Property + + + Public Property GesamtRohMasse() As String + Get + Return Me._gesamtRohMasse + End Get + Set + Me._gesamtRohMasse = Value + End Set + End Property + + + Public Property VerfahrenBeantragtCode() As String + Get + Return Me._verfahrenBeantragtCode + End Get + Set + Me._verfahrenBeantragtCode = Value + End Set + End Property + + + Public Property VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set + Me._verkehrszweigInland = Value + End Set + End Property + + + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set + Me._verkehrszweigGrenze = Value + End Set + End Property + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property KennzeichenNameBefoerderungsmittelAnkunft() As String + Get + Return Me._kennzeichenNameBefoerderungsmittelAnkunft + End Get + Set + Me._kennzeichenNameBefoerderungsmittelAnkunft = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode + End Get + Set + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me._befoerderungsmittelGrenzeArt + End Get + Set + Me._befoerderungsmittelGrenzeArt = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenze() As String + Get + Return Me._befoerderungsmittelGrenze + End Get + Set + Me._befoerderungsmittelGrenze = Value + End Set + End Property + + + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set + Me._lieferbedingungCode = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property VorpapierArtCode() As String + Get + Return Me._vorpapierArtCode + End Get + Set + Me._vorpapierArtCode = Value + End Set + End Property + + + Public Property VorpapierNr() As String + Get + Return Me._vorpapierNr + End Get + Set + Me._vorpapierNr = Value + End Set + End Property + + + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set + Me._artGeschaeftCode = Value + End Set + End Property + + + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set + Me._statistikStatus = Value + End Set + End Property + + + Public Property Warenort() As String + Get + Return Me._warenort + End Get + Set + Me._warenort = Value + End Set + End Property + + + Public Property Rechnungspreis() As String + Get + Return Me._rechnungspreis + End Get + Set + Me._rechnungspreis = Value + End Set + End Property + + + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set + Me._rechnungswaehrung = Value + End Set + End Property + + + Public Property DV1Angaben() As DV1AngabenAVUVTyp + Get + Return Me._dV1Angaben + End Get + Set + Me._dV1Angaben = Value + End Set + End Property + + + Public Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp) + Get + Return Me._dV1Kostenverteilung + End Get + Set + Me._dV1Kostenverteilung = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property ZusatzAngabenAnmeldung() As String + Get + Return Me._zusatzAngabenAnmeldung + End Get + Set + Me._zusatzAngabenAnmeldung = Value + End Set + End Property + + + Public Property KzAutoBestaetigung() As String + Get + Return Me._kzAutoBestaetigung + End Get + Set + Me._kzAutoBestaetigung = Value + End Set + End Property + + + Public Property AnschreibungDatum() As Date + Get + Return Me._anschreibungDatum + End Get + Set + Me._anschreibungDatum = Value + End Set + End Property + + + Public Property VereinfachterBewilligungsantragKzAV() As String + Get + Return Me._vereinfachterBewilligungsantragKzAV + End Get + Set + Me._vereinfachterBewilligungsantragKzAV = Value + End Set + End Property + + + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set + Me._eingangszollstelle = Value + End Set + End Property + + + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set + Me._zahlungsart = Value + End Set + End Property + + + Public Property Aufschub() As List(Of AufschubAVUVTyp) + Get + Return Me._aufschub + End Get + Set + Me._aufschub = Value + End Set + End Property + + + Public Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) + Get + Return Me._sumABeendigungsAnteil + End Get + Set + Me._sumABeendigungsAnteil = Value + End Set + End Property + + + Public Property ContainerNr() As List(Of String) + Get + Return Me._containerNr + End Get + Set + Me._containerNr = Value + End Set + End Property + + + Public Property BeendigungsAnteilArtCode() As String + Get + Return Me._beendigungsAnteilArtCode + End Get + Set + Me._beendigungsAnteilArtCode = Value + End Set + End Property + + + Public Property BewilligungsIDZLAVUV() As String + Get + Return Me._bewilligungsIDZLAVUV + End Get + Set + Me._bewilligungsIDZLAVUV = Value + End Set + End Property + + + Public Property BezugsnummerBEAnteilZL() As String + Get + Return Me._bezugsnummerBEAnteilZL + End Get + Set + Me._bezugsnummerBEAnteilZL = Value + End Set + End Property + + + Public Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) + Get + Return Me._bEAnteilZLAVUV + End Get + Set + Me._bEAnteilZLAVUV = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgBEAnteilAV() As String + Get + Return Me._kzVereinfBewillAntrgBEAnteilAV + End Get + Set + Me._kzVereinfBewillAntrgBEAnteilAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property ErledigungsfristAV() As String + Get + Return Me._erledigungsfristAV + End Get + Set + Me._erledigungsfristAV = Value + End Set + End Property + + + Public Property BemEinfuhrabgKz() As String + Get + Return Me._bemEinfuhrabgKz + End Get + Set + Me._bemEinfuhrabgKz = Value + End Set + End Property + + + Public Property ZusatzAngabenAV() As String + Get + Return Me._zusatzAngabenAV + End Get + Set + Me._zusatzAngabenAV = Value + End Set + End Property + + + Public Property EinzelheitenVeredelung() As String + Get + Return Me._einzelheitenVeredelung + End Get + Set + Me._einzelheitenVeredelung = Value + End Set + End Property + + + Public Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) + Get + Return Me._aVBuchhaltVeredelung + End Get + Set + Me._aVBuchhaltVeredelung = Value + End Set + End Property + + + Public Property AVErledZollstelle() As List(Of String) + Get + Return Me._aVErledZollstelle + End Get + Set + Me._aVErledZollstelle = Value + End Set + End Property + + + Public Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) + Get + Return Me._zusaetzlicheSteuerlicheVerweise + End Get + Set + Me._zusaetzlicheSteuerlicheVerweise = Value + End Set + End Property + + + Public Property Adressen() As List(Of AdressenVzImportAVUVTyp) + Get + Return Me._adressen + End Get + Set + Me._adressen = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.xsd new file mode 100644 index 0000000..2441680 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.xsd @@ -0,0 +1,697 @@ + + + + + Version 004 - Release 031 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.Designer.vb new file mode 100644 index 0000000..9024c1f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.Designer.vb @@ -0,0 +1,2121 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"MitteilungAbschreibung_005","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace MitteilungAbschreibung_005 + + + Partial Public Class MitteilungAbschreibungNOATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelMitteilungAbschreibung As EinzelMitteilungAbschreibungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelMitteilungAbschreibung = New EinzelMitteilungAbschreibungTyp() + End Sub + + + Public Property EinzelMitteilungAbschreibung() As EinzelMitteilungAbschreibungTyp + Get + Return Me._einzelMitteilungAbschreibung + End Get + Set + Me._einzelMitteilungAbschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MitteilungAbschreibungNOATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize MitteilungAbschreibungNOATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes MitteilungAbschreibungNOATyp object + ''' + ''' string to deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MitteilungAbschreibungNOATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MitteilungAbschreibungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As MitteilungAbschreibungNOATyp + Return CType(SerializerXml.Deserialize(s), MitteilungAbschreibungNOATyp) + End Function +#End Region + + ''' + ''' Serializes current MitteilungAbschreibungNOATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an MitteilungAbschreibungNOATyp object + ''' + ''' File to load and deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + 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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelMitteilungAbschreibungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungNOATyp + + Private _kopfDaten As KopfDatenMitteilungAbschreibungTyp + + Private _position As List(Of PositionMitteilungAbschreibungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionMitteilungAbschreibungTyp)() + Me._kopfDaten = New KopfDatenMitteilungAbschreibungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungNOATyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungNOATyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenMitteilungAbschreibungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionMitteilungAbschreibungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelMitteilungAbschreibungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelMitteilungAbschreibungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelMitteilungAbschreibungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), EinzelMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + 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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungNOATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungNOATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungNOATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungNOATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungNOATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungNOATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungNOATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungNOATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungNOATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + 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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbschreibungRestmengeWertNOATYp + +#Region "Private fields" + Private _abschreibungMengeWert As String + + Private _restMengeWert As String + + Private _abschreibungRestMasseinheit As String + + Private _abschreibungRestQualifikator As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AbschreibungMengeWert() As String + Get + Return Me._abschreibungMengeWert + End Get + Set + Me._abschreibungMengeWert = Value + End Set + End Property + + + Public Property RestMengeWert() As String + Get + Return Me._restMengeWert + End Get + Set + Me._restMengeWert = Value + End Set + End Property + + + Public Property AbschreibungRestMasseinheit() As String + Get + Return Me._abschreibungRestMasseinheit + End Get + Set + Me._abschreibungRestMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungRestQualifikator() As String + Get + Return Me._abschreibungRestQualifikator + End Get + Set + Me._abschreibungRestQualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschreibungRestmengeWertNOATYp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbschreibungRestmengeWertNOATYp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbschreibungRestmengeWertNOATYp object + ''' + ''' string to deserialize + ''' Output AbschreibungRestmengeWertNOATYp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschreibungRestmengeWertNOATYp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbschreibungRestmengeWertNOATYp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschreibungRestmengeWertNOATYp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbschreibungRestmengeWertNOATYp + Return CType(SerializerXml.Deserialize(s), AbschreibungRestmengeWertNOATYp) + End Function +#End Region + + ''' + ''' Serializes current AbschreibungRestmengeWertNOATYp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbschreibungRestmengeWertNOATYp object + ''' + ''' File to load and deserialize + ''' Output AbschreibungRestmengeWertNOATYp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) + 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 AbschreibungRestmengeWertNOATYp) 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 AbschreibungRestmengeWertNOATYp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionMitteilungAbschreibungTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _unterlageArt As String + + Private _unterlageNr As String + + Private _abschreibungDatum As Date + + Private _abschreibungUhrzeit As Date + + Private _abschreibungStornierungKz As String + + Private _abschreibungRestmengeWert As List(Of AbschreibungRestmengeWertNOATYp) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._abschreibungRestmengeWert = New List(Of AbschreibungRestmengeWertNOATYp)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set + Me._unterlageNr = Value + End Set + End Property + + + Public Property AbschreibungDatum() As Date + Get + Return Me._abschreibungDatum + End Get + Set + Me._abschreibungDatum = Value + End Set + End Property + + + Public Property AbschreibungUhrzeit() As Date + Get + Return Me._abschreibungUhrzeit + End Get + Set + Me._abschreibungUhrzeit = Value + End Set + End Property + + + Public Property AbschreibungStornierungKz() As String + Get + Return Me._abschreibungStornierungKz + End Get + Set + Me._abschreibungStornierungKz = Value + End Set + End Property + + + Public Property AbschreibungRestmengeWert() As List(Of AbschreibungRestmengeWertNOATYp) + Get + Return Me._abschreibungRestmengeWert + End Get + Set + Me._abschreibungRestmengeWert = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionMitteilungAbschreibungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionMitteilungAbschreibungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionMitteilungAbschreibungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), PositionMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + 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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenMitteilungAbschreibungTyp + +#Region "Private fields" + Private _registrierNr As String + + Private _uebermittlerEORI As String + + Private _uebermittlerNLNR As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set + Me._registrierNr = Value + End Set + End Property + + + Public Property UebermittlerEORI() As String + Get + Return Me._uebermittlerEORI + End Get + Set + Me._uebermittlerEORI = Value + End Set + End Property + + + Public Property UebermittlerNLNR() As String + Get + Return Me._uebermittlerNLNR + End Get + Set + Me._uebermittlerNLNR = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenMitteilungAbschreibungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenMitteilungAbschreibungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenMitteilungAbschreibungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + 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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.xsd new file mode 100644 index 0000000..0418818 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_005.xsd @@ -0,0 +1,157 @@ + + + + + Version 005 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.Designer.vb new file mode 100644 index 0000000..e96a85e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.Designer.vb @@ -0,0 +1,2181 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"NichtAbschliessendeFestsetzung_005","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace NichtAbschliessendeFestsetzung_005 + + + Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelNichtAbschliessendeFestsetzung As EinzelNichtAbschliessendeFestsetzungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelNichtAbschliessendeFestsetzung = New EinzelNichtAbschliessendeFestsetzungTyp() + End Sub + + + Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp + Get + Return Me._einzelNichtAbschliessendeFestsetzung + End Get + Set + Me._einzelNichtAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(NichtAbschliessendeFestsetzungTAXNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string to deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NichtAbschliessendeFestsetzungTAXNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As NichtAbschliessendeFestsetzungTAXNTyp + Return CType(SerializerXml.Deserialize(s), NichtAbschliessendeFestsetzungTAXNTyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' File to load and deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXNyp + + Private _kopfDaten As KopfDatenNichtAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionNichtAbschliessendeFestsetzungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenNichtAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXNyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelNichtAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelNichtAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), EinzelNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungTAXNyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXNyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungTAXNyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXNyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXNyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTAXNyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXNyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXNyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class UnterlageTAXNTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _vorlagefristDatum As Date + + Private _nachzureichenKz As String + + Private _vorzulegenKz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property VorlagefristDatum() As Date + Get + Return Me._vorlagefristDatum + End Get + Set + Me._vorlagefristDatum = Value + End Set + End Property + + + Public Property NachzureichenKz() As String + Get + Return Me._nachzureichenKz + End Get + Set + Me._nachzureichenKz = Value + End Set + End Property + + + Public Property VorzulegenKz() As String + Get + Return Me._vorzulegenKz + End Get + Set + Me._vorzulegenKz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageTAXNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UnterlageTAXNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UnterlageTAXNTyp object + ''' + ''' string to deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageTAXNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageTAXNTyp + Return CType(SerializerXml.Deserialize(s), UnterlageTAXNTyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageTAXNTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _unterlage As List(Of UnterlageTAXNTyp) + + Private _ermittlungenEinfuhrfaehigkeitKz As String + + Private _ermittlungenZollwertKz As String + + Private _ermittlungenWarenbeschaffenheitKz As String + + Private _ermittlungenAbgabensatzKz As String + + Private _pruefungVorbehalten As String + + Private _ermittlungenSonstigeKz As String + + Private _kontingentsmeldungKz As String + + Private _vorlaeufigerAntidumpingzollKz As String + + Private _positionVollstaendigKz As String + + Private _berichtigungspflichtigKz As String + + Private _begruendung As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._unterlage = New List(Of UnterlageTAXNTyp)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageTAXNTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property ErmittlungenEinfuhrfaehigkeitKz() As String + Get + Return Me._ermittlungenEinfuhrfaehigkeitKz + End Get + Set + Me._ermittlungenEinfuhrfaehigkeitKz = Value + End Set + End Property + + + Public Property ErmittlungenZollwertKz() As String + Get + Return Me._ermittlungenZollwertKz + End Get + Set + Me._ermittlungenZollwertKz = Value + End Set + End Property + + + Public Property ErmittlungenWarenbeschaffenheitKz() As String + Get + Return Me._ermittlungenWarenbeschaffenheitKz + End Get + Set + Me._ermittlungenWarenbeschaffenheitKz = Value + End Set + End Property + + + Public Property ErmittlungenAbgabensatzKz() As String + Get + Return Me._ermittlungenAbgabensatzKz + End Get + Set + Me._ermittlungenAbgabensatzKz = Value + End Set + End Property + + + Public Property PruefungVorbehalten() As String + Get + Return Me._pruefungVorbehalten + End Get + Set + Me._pruefungVorbehalten = Value + End Set + End Property + + + Public Property ErmittlungenSonstigeKz() As String + Get + Return Me._ermittlungenSonstigeKz + End Get + Set + Me._ermittlungenSonstigeKz = Value + End Set + End Property + + + Public Property KontingentsmeldungKz() As String + Get + Return Me._kontingentsmeldungKz + End Get + Set + Me._kontingentsmeldungKz = Value + End Set + End Property + + + Public Property VorlaeufigerAntidumpingzollKz() As String + Get + Return Me._vorlaeufigerAntidumpingzollKz + End Get + Set + Me._vorlaeufigerAntidumpingzollKz = Value + End Set + End Property + + + Public Property PositionVollstaendigKz() As String + Get + Return Me._positionVollstaendigKz + End Get + Set + Me._positionVollstaendigKz = Value + End Set + End Property + + + Public Property BerichtigungspflichtigKz() As String + Get + Return Me._berichtigungspflichtigKz + End Get + Set + Me._berichtigungspflichtigKz = Value + End Set + End Property + + + Public Property Begruendung() As String + Get + Return Me._begruendung + End Get + Set + Me._begruendung = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionNichtAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionNichtAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), PositionNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _registrierNr As String + + Private _veralteteWeitereRegistriernummer As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set + Me._registrierNr = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenNichtAbschliessendeFestsetzungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenNichtAbschliessendeFestsetzungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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 StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.xsd new file mode 100644 index 0000000..2a2df0c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_005.xsd @@ -0,0 +1,145 @@ + + + + + Version 005 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.Designer.vb new file mode 100644 index 0000000..437ab0c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.Designer.vb @@ -0,0 +1,2156 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"StornierungBescheid_003","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace StornierungBescheid_003 + + + Partial Public Class StornierungBescheidREVTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelStornierungBescheid As EinzelStornierungBescheidTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelStornierungBescheid = New EinzelStornierungBescheidTyp() + End Sub + + + Public Property EinzelStornierungBescheid() As EinzelStornierungBescheidTyp + Get + Return Me._einzelStornierungBescheid + End Get + Set + Me._einzelStornierungBescheid = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(StornierungBescheidREVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize StornierungBescheidREVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes StornierungBescheidREVTyp object + ''' + ''' string to deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As StornierungBescheidREVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), StornierungBescheidREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As StornierungBescheidREVTyp + Return CType(SerializerXml.Deserialize(s), StornierungBescheidREVTyp) + End Function +#End Region + + ''' + ''' Serializes current StornierungBescheidREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an StornierungBescheidREVTyp object + ''' + ''' File to load and deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + 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 StornierungBescheidREVTyp) 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 StornierungBescheidREVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelStornierungBescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungREVTyp + + Private _kopfDaten As KopfDatenStornierungBescheidTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New KopfDatenStornierungBescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungREVTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungREVTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenStornierungBescheidTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelStornierungBescheidTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelStornierungBescheidTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelStornierungBescheidTyp object + ''' + ''' string to deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelStornierungBescheidTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelStornierungBescheidTyp + Return CType(SerializerXml.Deserialize(s), EinzelStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelStornierungBescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelStornierungBescheidTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + 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 EinzelStornierungBescheidTyp) 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 EinzelStornierungBescheidTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungREVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungREVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungREVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungREVTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungREVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungREVTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungREVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungREVTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + 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 ObjektIdentifizierungREVTyp) 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 ObjektIdentifizierungREVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgabeREVTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabeArtAbgabenbetrag As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property AbgabeArtAbgabenbetrag() As Decimal + Get + Return Me._abgabeArtAbgabenbetrag + End Get + Set + Me._abgabeArtAbgabenbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabeREVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgabeREVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgabeREVTyp object + ''' + ''' string to deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabeREVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabeREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabeREVTyp + Return CType(SerializerXml.Deserialize(s), AbgabeREVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabeREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgabeREVTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + 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 AbgabeREVTyp) 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 AbgabeREVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenStornierungBescheidTyp + +#Region "Private fields" + Private _zollBearbeiter As String + + Private _stornierteRegistrierNr As String + + Private _veralteteWeitereStornierteRegistrierNr As String + + Private _waehrungKz As String + + Private _registrierNrNeu As String + + Private _veralteteWeitereRegistrierNrNeu As String + + Private _stornierungstexte As String + + Private _stornierungGrund As String + + Private _dienststelleBezeichnung As String + + Private _dienststelleTelefonNr As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststellePLZS As String + + Private _dienststelleOrtS As String + + Private _dienststelleOrtsteil As String + + Private _dienststellePostfach As String + + Private _dienststellePLZP As String + + Private _dienststelleOrtP As String + + Private _registrierKz As String + + Private _gesamtbetrag As Decimal + + Private _abgabe As List(Of AbgabeREVTyp) + + Private _sicherheitsregistrierKz As String + + Private _zuLeistendeBarsicherheitBetrag As Decimal + + Private _zollzahlstelleBezeichnung As String + + Private _zollzahlstelleTelefonNr As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstelleOrtsteil As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._abgabe = New List(Of AbgabeREVTyp)() + End Sub + + + Public Property ZollBearbeiter() As String + Get + Return Me._zollBearbeiter + End Get + Set + Me._zollBearbeiter = Value + End Set + End Property + + + Public Property StornierteRegistrierNr() As String + Get + Return Me._stornierteRegistrierNr + End Get + Set + Me._stornierteRegistrierNr = Value + End Set + End Property + + + Public Property VeralteteWeitereStornierteRegistrierNr() As String + Get + Return Me._veralteteWeitereStornierteRegistrierNr + End Get + Set + Me._veralteteWeitereStornierteRegistrierNr = Value + End Set + End Property + + + Public Property WaehrungKz() As String + Get + Return Me._waehrungKz + End Get + Set + Me._waehrungKz = Value + End Set + End Property + + + Public Property RegistrierNrNeu() As String + Get + Return Me._registrierNrNeu + End Get + Set + Me._registrierNrNeu = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistrierNrNeu() As String + Get + Return Me._veralteteWeitereRegistrierNrNeu + End Get + Set + Me._veralteteWeitereRegistrierNrNeu = Value + End Set + End Property + + + Public Property Stornierungstexte() As String + Get + Return Me._stornierungstexte + End Get + Set + Me._stornierungstexte = Value + End Set + End Property + + + Public Property StornierungGrund() As String + Get + Return Me._stornierungGrund + End Get + Set + Me._stornierungGrund = Value + End Set + End Property + + + Public Property DienststelleBezeichnung() As String + Get + Return Me._dienststelleBezeichnung + End Get + Set + Me._dienststelleBezeichnung = Value + End Set + End Property + + + Public Property DienststelleTelefonNr() As String + Get + Return Me._dienststelleTelefonNr + End Get + Set + Me._dienststelleTelefonNr = Value + End Set + End Property + + + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set + Me._dienststellePLZS = Value + End Set + End Property + + + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set + Me._dienststelleOrtS = Value + End Set + End Property + + + Public Property DienststelleOrtsteil() As String + Get + Return Me._dienststelleOrtsteil + End Get + Set + Me._dienststelleOrtsteil = Value + End Set + End Property + + + Public Property DienststellePostfach() As String + Get + Return Me._dienststellePostfach + End Get + Set + Me._dienststellePostfach = Value + End Set + End Property + + + Public Property DienststellePLZP() As String + Get + Return Me._dienststellePLZP + End Get + Set + Me._dienststellePLZP = Value + End Set + End Property + + + Public Property DienststelleOrtP() As String + Get + Return Me._dienststelleOrtP + End Get + Set + Me._dienststelleOrtP = Value + End Set + End Property + + + Public Property RegistrierKz() As String + Get + Return Me._registrierKz + End Get + Set + Me._registrierKz = Value + End Set + End Property + + + Public Property Gesamtbetrag() As Decimal + Get + Return Me._gesamtbetrag + End Get + Set + Me._gesamtbetrag = Value + End Set + End Property + + + Public Property Abgabe() As List(Of AbgabeREVTyp) + Get + Return Me._abgabe + End Get + Set + Me._abgabe = Value + End Set + End Property + + + Public Property SicherheitsregistrierKz() As String + Get + Return Me._sicherheitsregistrierKz + End Get + Set + Me._sicherheitsregistrierKz = Value + End Set + End Property + + + Public Property ZuLeistendeBarsicherheitBetrag() As Decimal + Get + Return Me._zuLeistendeBarsicherheitBetrag + End Get + Set + Me._zuLeistendeBarsicherheitBetrag = Value + End Set + End Property + + + Public Property ZollzahlstelleBezeichnung() As String + Get + Return Me._zollzahlstelleBezeichnung + End Get + Set + Me._zollzahlstelleBezeichnung = Value + End Set + End Property + + + Public Property ZollzahlstelleTelefonNr() As String + Get + Return Me._zollzahlstelleTelefonNr + End Get + Set + Me._zollzahlstelleTelefonNr = Value + End Set + End Property + + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set + Me._zollzahlstellePLZS = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set + Me._zollzahlstelleOrtS = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtsteil() As String + Get + Return Me._zollzahlstelleOrtsteil + End Get + Set + Me._zollzahlstelleOrtsteil = Value + End Set + End Property + + + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set + Me._zollzahlstellePostfach = Value + End Set + End Property + + + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set + Me._zollzahlstellePLZP = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set + Me._zollzahlstelleOrtP = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenStornierungBescheidTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenStornierungBescheidTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenStornierungBescheidTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenStornierungBescheidTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenStornierungBescheidTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenStornierungBescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenStornierungBescheidTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + 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 KopfDatenStornierungBescheidTyp) 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 KopfDatenStornierungBescheidTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.xsd new file mode 100644 index 0000000..31bb2f5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_003.xsd @@ -0,0 +1,187 @@ + + + + + Version 003 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.Designer.vb new file mode 100644 index 0000000..d54c003 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.Designer.vb @@ -0,0 +1,2146 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"SumAErledigungsinformationVorpapier_005","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace SumAErledigungsinformationVorpapier_005 + + + Partial Public Class SumAErledigungsinformationVorpapierSIVRPTyp + Inherits DatenaustauschSumAOutTyp + +#Region "Private fields" + Private _einzelSumAErledigungsinformation As EinzelSumAErledigungsinformationVorpapierTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelSumAErledigungsinformation = New EinzelSumAErledigungsinformationVorpapierTyp() + End Sub + + + Public Property EinzelSumAErledigungsinformation() As EinzelSumAErledigungsinformationVorpapierTyp + Get + Return Me._einzelSumAErledigungsinformation + End Get + Set + Me._einzelSumAErledigungsinformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumAErledigungsinformationVorpapierSIVRPTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' string to deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumAErledigungsinformationVorpapierSIVRPTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumAErledigungsinformationVorpapierSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SumAErledigungsinformationVorpapierSIVRPTyp + Return CType(SerializerXml.Deserialize(s), SumAErledigungsinformationVorpapierSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + 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 SumAErledigungsinformationVorpapierSIVRPTyp) 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 SumAErledigungsinformationVorpapierSIVRPTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungSIVRPTyp + + Private _kopfDaten As KopfDatenSumAErledigungsinformationVorpapierTyp + + Private _position As List(Of PositionSumAErledigungsinformationVorpapierTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionSumAErledigungsinformationVorpapierTyp)() + Me._kopfDaten = New KopfDatenSumAErledigungsinformationVorpapierTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungSIVRPTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungSIVRPTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenSumAErledigungsinformationVorpapierTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionSumAErledigungsinformationVorpapierTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelSumAErledigungsinformationVorpapierTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelSumAErledigungsinformationVorpapierTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), EinzelSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + 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 EinzelSumAErledigungsinformationVorpapierTyp) 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 EinzelSumAErledigungsinformationVorpapierTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungSIVRPTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAntragArt As String + + Private _eDIFACTNachrichtennummer As String + + Private _zeitpunktNachrichteneingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAntragArt() As String + Get + Return Me._objektAntragArt + End Get + Set + Me._objektAntragArt = Value + End Set + End Property + + + Public Property EDIFACTNachrichtennummer() As String + Get + Return Me._eDIFACTNachrichtennummer + End Get + Set + Me._eDIFACTNachrichtennummer = Value + End Set + End Property + + + Public Property ZeitpunktNachrichteneingang() As Date + Get + Return Me._zeitpunktNachrichteneingang + End Get + Set + Me._zeitpunktNachrichteneingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungSIVRPTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungSIVRPTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungSIVRPTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungSIVRPTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungSIVRPTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + 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 ObjektIdentifizierungSIVRPTyp) 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 ObjektIdentifizierungSIVRPTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _laufendeNummer As String + + Private _iDRegNrSumA As String + + Private _veralteteWeitereRegistriernummer As String + + Private _iDRegNrSumAPos As String + + Private _artSpO As String + + Private _spezifischerOrdnungsbegriff As String + + Private _stornierungKz As String + + Private _stueckzahlErledigte As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property LaufendeNummer() As String + Get + Return Me._laufendeNummer + End Get + Set + Me._laufendeNummer = Value + End Set + End Property + + + Public Property IDRegNrSumA() As String + Get + Return Me._iDRegNrSumA + End Get + Set + Me._iDRegNrSumA = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property IDRegNrSumAPos() As String + Get + Return Me._iDRegNrSumAPos + End Get + Set + Me._iDRegNrSumAPos = Value + End Set + End Property + + + Public Property ArtSpO() As String + Get + Return Me._artSpO + End Get + Set + Me._artSpO = Value + End Set + End Property + + + Public Property SpezifischerOrdnungsbegriff() As String + Get + Return Me._spezifischerOrdnungsbegriff + End Get + Set + Me._spezifischerOrdnungsbegriff = Value + End Set + End Property + + + Public Property StornierungKz() As String + Get + Return Me._stornierungKz + End Get + Set + Me._stornierungKz = Value + End Set + End Property + + + Public Property StueckzahlErledigte() As String + Get + Return Me._stueckzahlErledigte + End Get + Set + Me._stueckzahlErledigte = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAErledigungsinformationVorpapierTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAErledigungsinformationVorpapierTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), PositionSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + 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 PositionSumAErledigungsinformationVorpapierTyp) 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 PositionSumAErledigungsinformationVorpapierTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerwahrerSIVRPTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerwahrerSIVRPTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerwahrerSIVRPTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerwahrerSIVRPTyp object + ''' + ''' string to deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerwahrerSIVRPTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerwahrerSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerwahrerSIVRPTyp + Return CType(SerializerXml.Deserialize(s), VerwahrerSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current VerwahrerSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerwahrerSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + 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 VerwahrerSIVRPTyp) 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 VerwahrerSIVRPTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _verwahrer As VerwahrerSIVRPTyp + + Private _sonstigeNummer As String + + Private _artErledigung As String + + Private _regNrATLASWeitereNachweise As String + + Private _veralteteWeitereNachweise As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._verwahrer = New VerwahrerSIVRPTyp() + End Sub + + + Public Property Verwahrer() As VerwahrerSIVRPTyp + Get + Return Me._verwahrer + End Get + Set + Me._verwahrer = Value + End Set + End Property + + + Public Property SonstigeNummer() As String + Get + Return Me._sonstigeNummer + End Get + Set + Me._sonstigeNummer = Value + End Set + End Property + + + Public Property ArtErledigung() As String + Get + Return Me._artErledigung + End Get + Set + Me._artErledigung = Value + End Set + End Property + + + Public Property RegNrATLASWeitereNachweise() As String + Get + Return Me._regNrATLASWeitereNachweise + End Get + Set + Me._regNrATLASWeitereNachweise = Value + End Set + End Property + + + Public Property VeralteteWeitereNachweise() As String + Get + Return Me._veralteteWeitereNachweise + End Get + Set + Me._veralteteWeitereNachweise = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenSumAErledigungsinformationVorpapierTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenSumAErledigungsinformationVorpapierTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + 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 KopfDatenSumAErledigungsinformationVorpapierTyp) 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 KopfDatenSumAErledigungsinformationVorpapierTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionSumAOutTyp + +#Region "Private fields" + Private _identifikation As String + + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Identifikation() As String + Get + Return Me._identifikation + End Get + Set + Me._identifikation = Value + End Set + End Property + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionSumAOutTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionSumAOutTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionSumAOutTyp object + ''' + ''' string to deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionSumAOutTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionSumAOutTyp + Return CType(SerializerXml.Deserialize(s), TransaktionSumAOutTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionSumAOutTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionSumAOutTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + 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 TransaktionSumAOutTyp) 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 TransaktionSumAOutTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschSumAOutTyp + +#Region "Private fields" + Private _transaktion As TransaktionSumAOutTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionSumAOutTyp() + End Sub + + + Public Property Transaktion() As TransaktionSumAOutTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschSumAOutTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschSumAOutTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschSumAOutTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschSumAOutTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschSumAOutTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschSumAOutTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschSumAOutTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschSumAOutTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + 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 DatenaustauschSumAOutTyp) 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 DatenaustauschSumAOutTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.xsd new file mode 100644 index 0000000..107e568 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_005.xsd @@ -0,0 +1,164 @@ + + + + + Version 005 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.Designer.vb new file mode 100644 index 0000000..998131c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.Designer.vb @@ -0,0 +1,1752 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"WeitergabeHauptzollamt_003","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace WeitergabeHauptzollamt_003 + + + Partial Public Class WeiterleitungTRATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelWeiterleitung As EinzelWeiterleitungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelWeiterleitung = New EinzelWeiterleitungTyp() + End Sub + + + Public Property EinzelWeiterleitung() As EinzelWeiterleitungTyp + Get + Return Me._einzelWeiterleitung + End Get + Set + Me._einzelWeiterleitung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WeiterleitungTRATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize WeiterleitungTRATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes WeiterleitungTRATyp object + ''' + ''' string to deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WeiterleitungTRATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WeiterleitungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As WeiterleitungTRATyp + Return CType(SerializerXml.Deserialize(s), WeiterleitungTRATyp) + End Function +#End Region + + ''' + ''' Serializes current WeiterleitungTRATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WeiterleitungTRATyp object + ''' + ''' File to load and deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + 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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelWeiterleitungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTRATyp + + Private _kopfDaten As KopfDatenWeiterleitungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New KopfDatenWeiterleitungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTRATyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTRATyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenWeiterleitungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelWeiterleitungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelWeiterleitungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelWeiterleitungTyp object + ''' + ''' string to deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelWeiterleitungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelWeiterleitungTyp + Return CType(SerializerXml.Deserialize(s), EinzelWeiterleitungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelWeiterleitungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelWeiterleitungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + 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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungTRATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTRATyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungTRATyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTRATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTRATyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTRATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTRATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTRATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTRATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + 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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenWeiterleitungTyp + +#Region "Private fields" + Private _zollBearbeiter As String + + Private _weiterleitungBegruendung As String + + Private _weitergeleiteteZollanmeldungRegistrierNr As String + + Private _veralteteWeitereRegistriernummer As String + + Private _weiterleitungDatum As Date + + Private _dienststellenschluessel As String + + Private _hZABezeichnung As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAPostfach As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + End Sub + + + Public Property ZollBearbeiter() As String + Get + Return Me._zollBearbeiter + End Get + Set + Me._zollBearbeiter = Value + End Set + End Property + + + Public Property WeiterleitungBegruendung() As String + Get + Return Me._weiterleitungBegruendung + End Get + Set + Me._weiterleitungBegruendung = Value + End Set + End Property + + + Public Property WeitergeleiteteZollanmeldungRegistrierNr() As String + Get + Return Me._weitergeleiteteZollanmeldungRegistrierNr + End Get + Set + Me._weitergeleiteteZollanmeldungRegistrierNr = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property WeiterleitungDatum() As Date + Get + Return Me._weiterleitungDatum + End Get + Set + Me._weiterleitungDatum = Value + End Set + End Property + + + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set + Me._dienststellenschluessel = Value + End Set + End Property + + + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set + Me._hZABezeichnung = Value + End Set + End Property + + + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set + Me._hZAOrtS = Value + End Set + End Property + + + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set + Me._hZAPLZS = Value + End Set + End Property + + + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set + Me._hZAStrasseHausNr = Value + End Set + End Property + + + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set + Me._hZAOrtP = Value + End Set + End Property + + + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set + Me._hZAPLZP = Value + End Set + End Property + + + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set + Me._hZAPostfach = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenWeiterleitungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenWeiterleitungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenWeiterleitungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenWeiterleitungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenWeiterleitungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenWeiterleitungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenWeiterleitungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenWeiterleitungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + 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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.xsd new file mode 100644 index 0000000..1987414 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_003.xsd @@ -0,0 +1,139 @@ + + + + + Version 003 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.Designer.vb index de4c9a3..2161312 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.Designer.vb @@ -18,36 +18,36 @@ Imports System.Text Imports System.Collections.Generic Namespace ErledigungsmeldungNCTSDE_003 - - + + _ Partial Public Class ErledigungsmeldungMOTyp Inherits DatenaustauschNCTSTyp - -#Region "Private fields" + + #Region "Private fields" Private _einzelErledigungsmeldung As EinzelErledigungsmeldungTyp - + Private Shared _serializerXml As XmlSerializer -#End Region - + #End Region + Public Sub New() MyBase.New Me._einzelErledigungsmeldung = New EinzelErledigungsmeldungTyp() End Sub - - + + _ Public Property EinzelErledigungsmeldung() As EinzelErledigungsmeldungTyp Get Return Me._einzelErledigungsmeldung End Get Set - Me._einzelErledigungsmeldung = Value + Me._einzelErledigungsmeldung = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -56,8 +56,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ErledigungsmeldungMOTyp object ''' @@ -65,7 +65,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -75,14 +75,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes ErledigungsmeldungMOTyp object ''' @@ -93,69 +93,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErledigungsmeldungMOTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErledigungsmeldungMOTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErledigungsmeldungMOTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As ErledigungsmeldungMOTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErledigungsmeldungMOTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ErledigungsmeldungMOTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErledigungsmeldungMOTyp - Return CType(SerializerXml.Deserialize(s), ErledigungsmeldungMOTyp) + Return CType(SerializerXml.Deserialize(s),ErledigungsmeldungMOTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current ErledigungsmeldungMOTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ErledigungsmeldungMOTyp object ''' @@ -166,94 +166,94 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErledigungsmeldungMOTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErledigungsmeldungMOTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErledigungsmeldungMOTyp) 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 ErledigungsmeldungMOTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class EinzelErledigungsmeldungTyp - -#Region "Private fields" + + #Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungMOTyp - + Private _kopfDaten As KopfDatenErledigungsmeldungTyp - + Private _transitOperation As TransitOperationMOType - + Private Shared _serializerXml As XmlSerializer -#End Region - + #End Region + Public Sub New() MyBase.New Me._transitOperation = New TransitOperationMOType() Me._kopfDaten = New KopfDatenErledigungsmeldungTyp() Me._objektIdentifizierung = New ObjektIdentifizierungMOTyp() End Sub - - + + _ Public Property ObjektIdentifizierung() As ObjektIdentifizierungMOTyp Get Return Me._objektIdentifizierung End Get Set - Me._objektIdentifizierung = Value + Me._objektIdentifizierung = value End Set End Property - - + + _ Public Property KopfDaten() As KopfDatenErledigungsmeldungTyp Get Return Me._kopfDaten End Get Set - Me._kopfDaten = Value + Me._kopfDaten = value End Set End Property - - + + _ Public Property TransitOperation() As TransitOperationMOType Get Return Me._transitOperation End Get Set - Me._transitOperation = Value + Me._transitOperation = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -262,8 +262,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize EinzelErledigungsmeldungTyp object ''' @@ -271,7 +271,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -281,14 +281,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes EinzelErledigungsmeldungTyp object ''' @@ -299,69 +299,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelErledigungsmeldungTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelErledigungsmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelErledigungsmeldungTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelErledigungsmeldungTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),EinzelErledigungsmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelErledigungsmeldungTyp - Return CType(SerializerXml.Deserialize(s), EinzelErledigungsmeldungTyp) + Return CType(SerializerXml.Deserialize(s),EinzelErledigungsmeldungTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current EinzelErledigungsmeldungTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an EinzelErledigungsmeldungTyp object ''' @@ -372,111 +372,111 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelErledigungsmeldungTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelErledigungsmeldungTyp) 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 EinzelErledigungsmeldungTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class ObjektIdentifizierungMOTyp - -#Region "Private fields" + + #Region "Private fields" Private _objektName As String - + Private _objektAlias As String - + Private _eDIFACTNachrichtenNr As String - + Private _zeitpunktEingang As Date - + Private _shipmentReferenz As String - + Private Shared _serializerXml As XmlSerializer -#End Region - - + #End Region + + _ Public Property ObjektName() As String Get Return Me._objektName End Get Set - Me._objektName = Value + Me._objektName = value End Set End Property - - + + _ Public Property ObjektAlias() As String Get Return Me._objektAlias End Get Set - Me._objektAlias = Value + Me._objektAlias = value End Set End Property - - + + _ Public Property EDIFACTNachrichtenNr() As String Get Return Me._eDIFACTNachrichtenNr End Get Set - Me._eDIFACTNachrichtenNr = Value + Me._eDIFACTNachrichtenNr = value End Set End Property - - + + _ Public Property ZeitpunktEingang() As Date Get Return Me._zeitpunktEingang End Get Set - Me._zeitpunktEingang = Value + Me._zeitpunktEingang = value End Set End Property - - + + _ Public Property ShipmentReferenz() As String Get Return Me._shipmentReferenz End Get Set - Me._shipmentReferenz = Value + Me._shipmentReferenz = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -485,8 +485,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungMOTyp object ''' @@ -494,7 +494,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -504,14 +504,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes ObjektIdentifizierungMOTyp object ''' @@ -522,69 +522,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMOTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungMOTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMOTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMOTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMOTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ObjektIdentifizierungMOTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungMOTyp - Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungMOTyp) + Return CType(SerializerXml.Deserialize(s),ObjektIdentifizierungMOTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current ObjektIdentifizierungMOTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ObjektIdentifizierungMOTyp object ''' @@ -595,75 +595,75 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMOTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungMOTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMOTyp) 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 ObjektIdentifizierungMOTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class ApplicationInternalDataAdditionalDetailsDataType - -#Region "Private fields" + + #Region "Private fields" Private _key As String - + Private _value As String - + Private Shared _serializerXml As XmlSerializer -#End Region - - + #End Region + + _ Public Property Key() As String Get Return Me._key End Get Set - Me._key = Value + Me._key = value End Set End Property - - + + _ Public Property Value() As String Get Return Me._value End Get Set - Me._value = Value + Me._value = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -672,8 +672,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -681,7 +681,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -691,14 +691,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -709,69 +709,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataAdditionalDetailsDataType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType - Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + Return CType(SerializerXml.Deserialize(s),ApplicationInternalDataAdditionalDetailsDataType) End Function -#End Region - + #End Region + ''' ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -782,69 +782,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class ApplicationInternalDataType - -#Region "Private fields" + + #Region "Private fields" Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) - + Private Shared _serializerXml As XmlSerializer -#End Region - + #End Region + Public Sub New() MyBase.New Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() End Sub - - + + _ Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) Get Return Me._additionalDetails End Get Set - Me._additionalDetails = Value + Me._additionalDetails = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -853,8 +853,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataType object ''' @@ -862,7 +862,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -872,14 +872,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes ApplicationInternalDataType object ''' @@ -890,69 +890,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType - Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + Return CType(SerializerXml.Deserialize(s),ApplicationInternalDataType) End Function -#End Region - + #End Region + ''' ''' Serializes current ApplicationInternalDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ApplicationInternalDataType object ''' @@ -963,104 +963,104 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class TransitOperationMOType - -#Region "Private fields" + + #Region "Private fields" Private _departureStatus As String - + Private _mRN As String - + Private _completionDateAndTime As Date - + Private _applicationInternalData As ApplicationInternalDataType - + Private Shared _serializerXml As XmlSerializer -#End Region - + #End Region + Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() End Sub - - + + _ Public Property DepartureStatus() As String Get Return Me._departureStatus End Get Set - Me._departureStatus = Value + Me._departureStatus = value End Set End Property - - + + _ Public Property MRN() As String Get Return Me._mRN End Get Set - Me._mRN = Value + Me._mRN = value End Set End Property - - + + _ Public Property CompletionDateAndTime() As Date Get Return Me._completionDateAndTime End Get Set - Me._completionDateAndTime = Value + Me._completionDateAndTime = value End Set End Property - - + + _ Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set - Me._applicationInternalData = Value + Me._applicationInternalData = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1069,8 +1069,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize TransitOperationMOType object ''' @@ -1078,7 +1078,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -1088,14 +1088,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes TransitOperationMOType object ''' @@ -1106,69 +1106,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMOType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransitOperationMOType) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMOType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As TransitOperationMOType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitOperationMOType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),TransitOperationMOType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransitOperationMOType - Return CType(SerializerXml.Deserialize(s), TransitOperationMOType) + Return CType(SerializerXml.Deserialize(s),TransitOperationMOType) End Function -#End Region - + #End Region + ''' ''' Serializes current TransitOperationMOType 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an TransitOperationMOType object ''' @@ -1179,75 +1179,75 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMOType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransitOperationMOType) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMOType) 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 TransitOperationMOType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class KopfDatenErledigungsmeldungTyp - -#Region "Private fields" + + #Region "Private fields" Private _mRN As String - + Private _zeitpunktErledigung As Date - + Private Shared _serializerXml As XmlSerializer -#End Region - - + #End Region + + _ Public Property MRN() As String Get Return Me._mRN End Get Set - Me._mRN = Value + Me._mRN = value End Set End Property - - + + _ Public Property ZeitpunktErledigung() As Date Get Return Me._zeitpunktErledigung End Get Set - Me._zeitpunktErledigung = Value + Me._zeitpunktErledigung = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1256,8 +1256,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenErledigungsmeldungTyp object ''' @@ -1265,7 +1265,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -1275,14 +1275,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes KopfDatenErledigungsmeldungTyp object ''' @@ -1293,69 +1293,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenErledigungsmeldungTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenErledigungsmeldungTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenErledigungsmeldungTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenErledigungsmeldungTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),KopfDatenErledigungsmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenErledigungsmeldungTyp - Return CType(SerializerXml.Deserialize(s), KopfDatenErledigungsmeldungTyp) + Return CType(SerializerXml.Deserialize(s),KopfDatenErledigungsmeldungTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current KopfDatenErledigungsmeldungTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an KopfDatenErledigungsmeldungTyp object ''' @@ -1366,135 +1366,135 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenErledigungsmeldungTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenErledigungsmeldungTyp) 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 KopfDatenErledigungsmeldungTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class TransaktionNCTSTyp - -#Region "Private fields" + + #Region "Private fields" Private _iOPartner As String - + Private _iODivision1 As String - + Private _iODivision2 As String - + Private _iODivision3 As String - + Private _iOReferenz As String - + Private _iODatumZeit As Date - + Private _version As String - + Private Shared _serializerXml As XmlSerializer -#End Region - - + #End Region + + _ Public Property IOPartner() As String Get Return Me._iOPartner End Get Set - Me._iOPartner = Value + Me._iOPartner = value End Set End Property - - + + _ Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set - Me._iODivision1 = Value + Me._iODivision1 = value End Set End Property - - + + _ Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set - Me._iODivision2 = Value + Me._iODivision2 = value End Set End Property - - + + _ Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set - Me._iODivision3 = Value + Me._iODivision3 = value End Set End Property - - + + _ Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set - Me._iOReferenz = Value + Me._iOReferenz = value End Set End Property - - + + _ Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set - Me._iODatumZeit = Value + Me._iODatumZeit = value End Set End Property - - + + _ Public Property Version() As String Get Return Me._version End Get Set - Me._version = Value + Me._version = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1503,8 +1503,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize TransaktionNCTSTyp object ''' @@ -1512,7 +1512,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -1522,14 +1522,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes TransaktionNCTSTyp object ''' @@ -1540,69 +1540,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionNCTSTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),TransaktionNCTSTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionNCTSTyp - Return CType(SerializerXml.Deserialize(s), TransaktionNCTSTyp) + Return CType(SerializerXml.Deserialize(s),TransaktionNCTSTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current TransaktionNCTSTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an TransaktionNCTSTyp object ''' @@ -1613,69 +1613,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionNCTSTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp) 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 TransaktionNCTSTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function End Class - - + + _ Partial Public Class DatenaustauschNCTSTyp - -#Region "Private fields" + + #Region "Private fields" Private _transaktion As TransaktionNCTSTyp - + Private Shared _serializerXml As XmlSerializer -#End Region - + #End Region + Public Sub New() MyBase.New Me._transaktion = New TransaktionNCTSTyp() End Sub - - + + _ Public Property Transaktion() As TransaktionNCTSTyp Get Return Me._transaktion End Get Set - Me._transaktion = Value + Me._transaktion = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1684,8 +1684,8 @@ Namespace ErledigungsmeldungNCTSDE_003 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschNCTSTyp object ''' @@ -1693,7 +1693,7 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) @@ -1703,14 +1703,14 @@ Namespace ErledigungsmeldungNCTSDE_003 Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + memoryStream.Dispose End If End Try End Function - + ''' ''' Deserializes DatenaustauschNCTSTyp object ''' @@ -1721,69 +1721,69 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschNCTSTyp) - Try + Try obj = Deserialize(input) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),DatenaustauschNCTSTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + stringReader.Dispose End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschNCTSTyp - Return CType(SerializerXml.Deserialize(s), DatenaustauschNCTSTyp) + Return CType(SerializerXml.Deserialize(s),DatenaustauschNCTSTyp) End Function -#End Region - + #End Region + ''' ''' Serializes current DatenaustauschNCTSTyp 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 + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) - streamWriter.Close() + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + streamWriter.Dispose End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object ''' @@ -1794,36 +1794,36 @@ Namespace ErledigungsmeldungNCTSDE_003 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschNCTSTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() + sr.Close + file.Close Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.xsd index b428ad9..d0db331 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_003.xsd @@ -1,6 +1,10 @@ - + + + Version 003 - Release 002 + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.Designer.vb new file mode 100644 index 0000000..0156808 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.Designer.vb @@ -0,0 +1,1892 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"GenerellesEreignis_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace GenerellesEreignis_006 + + + Partial Public Class GenerellesEreignisGETyp + Inherits DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _einzelEreignisObjekt As List(Of EinzelEreignisTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelEreignisObjekt = New List(Of EinzelEreignisTyp)() + End Sub + + + Public Property EinzelEreignisObjekt() As List(Of EinzelEreignisTyp) + Get + Return Me._einzelEreignisObjekt + End Get + Set + Me._einzelEreignisObjekt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GenerellesEreignisGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GenerellesEreignisGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GenerellesEreignisGETyp object + ''' + ''' string to deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GenerellesEreignisGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GenerellesEreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GenerellesEreignisGETyp + Return CType(SerializerXml.Deserialize(s), GenerellesEreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current GenerellesEreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GenerellesEreignisGETyp object + ''' + ''' File to load and deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + 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 GenerellesEreignisGETyp) 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 GenerellesEreignisGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelEreignisTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungGETyp + + Private _kopfDaten As List(Of KopfDatenEreignisTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New List(Of KopfDatenEreignisTyp)() + Me._objektIdentifizierung = New ObjektIdentifizierungGETyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungGETyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As List(Of KopfDatenEreignisTyp) + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEreignisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelEreignisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelEreignisTyp object + ''' + ''' string to deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEreignisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelEreignisTyp + Return CType(SerializerXml.Deserialize(s), EinzelEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelEreignisTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + 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 EinzelEreignisTyp) 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 EinzelEreignisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungGETyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _objektAntragArt As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _ereignisgewichtung As String + + Private _meldestelle As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property ObjektAntragArt() As String + Get + Return Me._objektAntragArt + End Get + Set + Me._objektAntragArt = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property Ereignisgewichtung() As String + Get + Return Me._ereignisgewichtung + End Get + Set + Me._ereignisgewichtung = Value + End Set + End Property + + + Public Property Meldestelle() As String + Get + Return Me._meldestelle + End Get + Set + Me._meldestelle = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungGETyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungGETyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungGETyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungGETyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + 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 ObjektIdentifizierungGETyp) 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 ObjektIdentifizierungGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EreignisGETyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _ereignisCode As String + + Private _ereignismitteilung As String + + Private _involvedMRN As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property EreignisCode() As String + Get + Return Me._ereignisCode + End Get + Set + Me._ereignisCode = Value + End Set + End Property + + + Public Property Ereignismitteilung() As String + Get + Return Me._ereignismitteilung + End Get + Set + Me._ereignismitteilung = Value + End Set + End Property + + + Public Property InvolvedMRN() As String + Get + Return Me._involvedMRN + End Get + Set + Me._involvedMRN = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EreignisGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EreignisGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EreignisGETyp object + ''' + ''' string to deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EreignisGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EreignisGETyp + Return CType(SerializerXml.Deserialize(s), EreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current EreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EreignisGETyp object + ''' + ''' File to load and deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + 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 EreignisGETyp) 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 EreignisGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenEreignisTyp + +#Region "Private fields" + Private _registrierdatum As Date + + Private _registrierNrATLAS As String + + Private _veralteteWeitereRegistriernummer As String + + Private _registrationNumberExternal As String + + Private _ereignis As List(Of EreignisGETyp) + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._ereignis = New List(Of EreignisGETyp)() + End Sub + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property RegistrierNrATLAS() As String + Get + Return Me._registrierNrATLAS + End Get + Set + Me._registrierNrATLAS = Value + End Set + End Property + + + Public Property VeralteteWeitereRegistriernummer() As String + Get + Return Me._veralteteWeitereRegistriernummer + End Get + Set + Me._veralteteWeitereRegistriernummer = Value + End Set + End Property + + + Public Property RegistrationNumberExternal() As String + Get + Return Me._registrationNumberExternal + End Get + Set + Me._registrationNumberExternal = Value + End Set + End Property + + + Public Property Ereignis() As List(Of EreignisGETyp) + Get + Return Me._ereignis + End Get + Set + Me._ereignis = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEreignisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenEreignisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenEreignisTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEreignisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEreignisTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenEreignisTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + 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 KopfDatenEreignisTyp) 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 KopfDatenEreignisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionAllgemeinTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionAllgemeinTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), TransaktionAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + 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 TransaktionAllgemeinTyp) 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 TransaktionAllgemeinTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _transaktion As TransaktionAllgemeinTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionAllgemeinTyp() + End Sub + + + Public Property Transaktion() As TransaktionAllgemeinTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschAllgemeinTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + 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 DatenaustauschAllgemeinTyp) 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 DatenaustauschAllgemeinTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.xsd new file mode 100644 index 0000000..33136cf --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_006.xsd @@ -0,0 +1,146 @@ + + + + + Version 006 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_003.xsd index 555a0d0..ce43fdc 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_003.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_003.xsd @@ -1,6 +1,10 @@ - + + + Version 003 - Release 002 + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.Designer.vb new file mode 100644 index 0000000..03b6a28 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.Designer.vb @@ -0,0 +1,15177 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"UeberlassungsmeldungNCTSDE_009","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace UeberlassungsmeldungNCTSDE_009 + + + Partial Public Class UeberlassungsmeldungMRTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUeberlassungsmeldung As EinzelUeberlassungsmeldungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelUeberlassungsmeldung = New EinzelUeberlassungsmeldungTyp() + End Sub + + + Public Property EinzelUeberlassungsmeldung() As EinzelUeberlassungsmeldungTyp + Get + Return Me._einzelUeberlassungsmeldung + End Get + Set + Me._einzelUeberlassungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungsmeldungMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UeberlassungsmeldungMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UeberlassungsmeldungMRTyp object + ''' + ''' string to deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungsmeldungMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UeberlassungsmeldungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UeberlassungsmeldungMRTyp + Return CType(SerializerXml.Deserialize(s), UeberlassungsmeldungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UeberlassungsmeldungMRTyp object + ''' + ''' File to load and deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + 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 UeberlassungsmeldungMRTyp) 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 UeberlassungsmeldungMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelUeberlassungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMRTyp + + Private _kopfDaten As KopfDatenUeberlassungsmeldungTyp + + Private _warenPosition As List(Of WarenPositionUeberlassungsmeldungTyp) + + Private _transitOperation As TransitOperationMRType + + Private _attachments As List(Of AttachmentMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of AttachmentMRType)() + Me._transitOperation = New TransitOperationMRType() + Me._warenPosition = New List(Of WarenPositionUeberlassungsmeldungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMRTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMRTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenUeberlassungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of WarenPositionUeberlassungsmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + + Public Property TransitOperation() As TransitOperationMRType + Get + Return Me._transitOperation + End Get + Set + Me._transitOperation = Value + End Set + End Property + + + Public Property Attachments() As List(Of AttachmentMRType) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungsmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelUeberlassungsmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelUeberlassungsmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungsmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelUeberlassungsmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelUeberlassungsmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + 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 EinzelUeberlassungsmeldungTyp) 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 EinzelUeberlassungsmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungMRTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungMRTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungMRTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMRTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + 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 ObjektIdentifizierungMRTyp) 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 ObjektIdentifizierungMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AttachmentMRType + +#Region "Private fields" + Private _technicalContent As String + + Private _originalFilename As String + + Private _fileFormat As String + + Private _dataEncoding As String + + Private _data As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TechnicalContent() As String + Get + Return Me._technicalContent + End Get + Set + Me._technicalContent = Value + End Set + End Property + + + Public Property OriginalFilename() As String + Get + Return Me._originalFilename + End Get + Set + Me._originalFilename = Value + End Set + End Property + + + Public Property FileFormat() As String + Get + Return Me._fileFormat + End Get + Set + Me._fileFormat = Value + End Set + End Property + + + Public Property DataEncoding() As String + Get + Return Me._dataEncoding + End Get + Set + Me._dataEncoding = Value + End Set + End Property + + + Public Property Data() As String + Get + Return Me._data + End Get + Set + Me._data = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AttachmentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AttachmentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AttachmentMRType object + ''' + ''' string to deserialize + ''' Output AttachmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AttachmentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AttachmentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AttachmentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AttachmentMRType + Return CType(SerializerXml.Deserialize(s), AttachmentMRType) + End Function +#End Region + + ''' + ''' Serializes current AttachmentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AttachmentMRType object + ''' + ''' File to load and deserialize + ''' Output AttachmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AttachmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AttachmentMRType) + 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 AttachmentMRType) 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 AttachmentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InwardProcessingGoodsReferenceMRType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _accessViaATLAS As String + + Private _registrationNumber As String + + Private _deprecatedFurtherRegistrationnumber As String + + Private _goodsItemNumber As String + + Private _goodsRelatedData As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property AccessViaATLAS() As String + Get + Return Me._accessViaATLAS + End Get + Set + Me._accessViaATLAS = Value + End Set + End Property + + + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + + Public Property DeprecatedFurtherRegistrationnumber() As String + Get + Return Me._deprecatedFurtherRegistrationnumber + End Get + Set + Me._deprecatedFurtherRegistrationnumber = Value + End Set + End Property + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property GoodsRelatedData() As String + Get + Return Me._goodsRelatedData + End Get + Set + Me._goodsRelatedData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InwardProcessingGoodsReferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InwardProcessingGoodsReferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InwardProcessingGoodsReferenceMRType object + ''' + ''' string to deserialize + ''' Output InwardProcessingGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingGoodsReferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingGoodsReferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InwardProcessingGoodsReferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InwardProcessingGoodsReferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InwardProcessingGoodsReferenceMRType + Return CType(SerializerXml.Deserialize(s), InwardProcessingGoodsReferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current InwardProcessingGoodsReferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InwardProcessingGoodsReferenceMRType object + ''' + ''' File to load and deserialize + ''' Output InwardProcessingGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InwardProcessingGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingGoodsReferenceMRType) + 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 InwardProcessingGoodsReferenceMRType) 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 InwardProcessingGoodsReferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InwardProcessingMRType + +#Region "Private fields" + Private _transference As String + + Private _typeOfAuthorisation As String + + Private _referenceNumberOfAuthorisation As String + + Private _simplyGrantedAuthorisation As String + + Private _customsOfficeOfSupervision As String + + Private _inwardProcessingGoodsReference As List(Of InwardProcessingGoodsReferenceMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._inwardProcessingGoodsReference = New List(Of InwardProcessingGoodsReferenceMRType)() + End Sub + + + Public Property Transference() As String + Get + Return Me._transference + End Get + Set + Me._transference = Value + End Set + End Property + + + Public Property TypeOfAuthorisation() As String + Get + Return Me._typeOfAuthorisation + End Get + Set + Me._typeOfAuthorisation = Value + End Set + End Property + + + Public Property ReferenceNumberOfAuthorisation() As String + Get + Return Me._referenceNumberOfAuthorisation + End Get + Set + Me._referenceNumberOfAuthorisation = Value + End Set + End Property + + + Public Property SimplyGrantedAuthorisation() As String + Get + Return Me._simplyGrantedAuthorisation + End Get + Set + Me._simplyGrantedAuthorisation = Value + End Set + End Property + + + Public Property CustomsOfficeOfSupervision() As String + Get + Return Me._customsOfficeOfSupervision + End Get + Set + Me._customsOfficeOfSupervision = Value + End Set + End Property + + + Public Property InwardProcessingGoodsReference() As List(Of InwardProcessingGoodsReferenceMRType) + Get + Return Me._inwardProcessingGoodsReference + End Get + Set + Me._inwardProcessingGoodsReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InwardProcessingMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InwardProcessingMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InwardProcessingMRType object + ''' + ''' string to deserialize + ''' Output InwardProcessingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InwardProcessingMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InwardProcessingMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InwardProcessingMRType + Return CType(SerializerXml.Deserialize(s), InwardProcessingMRType) + End Function +#End Region + + ''' + ''' Serializes current InwardProcessingMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InwardProcessingMRType object + ''' + ''' File to load and deserialize + ''' Output InwardProcessingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InwardProcessingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingMRType) + 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 InwardProcessingMRType) 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 InwardProcessingMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GoodsReductionAfterTreatmentMRType + +#Region "Private fields" + Private _quantityOfGoodsReductionAfterTreatment As Decimal + + Private _measurementUnitOfGoodsReductionAfterTreatment As String + + Private _qualifierOfGoodsReductionAfterTreatment As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property QuantityOfGoodsReductionAfterTreatment() As Decimal + Get + Return Me._quantityOfGoodsReductionAfterTreatment + End Get + Set + Me._quantityOfGoodsReductionAfterTreatment = Value + End Set + End Property + + + Public Property MeasurementUnitOfGoodsReductionAfterTreatment() As String + Get + Return Me._measurementUnitOfGoodsReductionAfterTreatment + End Get + Set + Me._measurementUnitOfGoodsReductionAfterTreatment = Value + End Set + End Property + + + Public Property QualifierOfGoodsReductionAfterTreatment() As String + Get + Return Me._qualifierOfGoodsReductionAfterTreatment + End Get + Set + Me._qualifierOfGoodsReductionAfterTreatment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsReductionAfterTreatmentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GoodsReductionAfterTreatmentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GoodsReductionAfterTreatmentMRType object + ''' + ''' string to deserialize + ''' Output GoodsReductionAfterTreatmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReductionAfterTreatmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReductionAfterTreatmentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReductionAfterTreatmentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsReductionAfterTreatmentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsReductionAfterTreatmentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsReductionAfterTreatmentMRType + Return CType(SerializerXml.Deserialize(s), GoodsReductionAfterTreatmentMRType) + End Function +#End Region + + ''' + ''' Serializes current GoodsReductionAfterTreatmentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GoodsReductionAfterTreatmentMRType object + ''' + ''' File to load and deserialize + ''' Output GoodsReductionAfterTreatmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsReductionAfterTreatmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReductionAfterTreatmentMRType) + 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 GoodsReductionAfterTreatmentMRType) 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 GoodsReductionAfterTreatmentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GoodsReductionMRType + +#Region "Private fields" + Private _quantityOfGoodsReduction As Decimal + + Private _measurementUnitOfGoodsReduction As String + + Private _qualifierOfGoodsReduction As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property QuantityOfGoodsReduction() As Decimal + Get + Return Me._quantityOfGoodsReduction + End Get + Set + Me._quantityOfGoodsReduction = Value + End Set + End Property + + + Public Property MeasurementUnitOfGoodsReduction() As String + Get + Return Me._measurementUnitOfGoodsReduction + End Get + Set + Me._measurementUnitOfGoodsReduction = Value + End Set + End Property + + + Public Property QualifierOfGoodsReduction() As String + Get + Return Me._qualifierOfGoodsReduction + End Get + Set + Me._qualifierOfGoodsReduction = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsReductionMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GoodsReductionMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GoodsReductionMRType object + ''' + ''' string to deserialize + ''' Output GoodsReductionMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReductionMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReductionMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReductionMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsReductionMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsReductionMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsReductionMRType + Return CType(SerializerXml.Deserialize(s), GoodsReductionMRType) + End Function +#End Region + + ''' + ''' Serializes current GoodsReductionMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GoodsReductionMRType object + ''' + ''' File to load and deserialize + ''' Output GoodsReductionMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsReductionMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReductionMRType) + 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 GoodsReductionMRType) 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 GoodsReductionMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsWarehousingGoodsReferenceMRType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _commodityCode As String + + Private _accessViaATLAS As String + + Private _usualTreatment As String + + Private _registrationNumber As String + + Private _deprecatedFurtherRegistrationnumber As String + + Private _goodsItemNumber As String + + Private _complement As String + + Private _goodsReduction As GoodsReductionMRType + + Private _goodsReductionAfterTreatment As GoodsReductionAfterTreatmentMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsReductionAfterTreatment = New GoodsReductionAfterTreatmentMRType() + Me._goodsReduction = New GoodsReductionMRType() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property AccessViaATLAS() As String + Get + Return Me._accessViaATLAS + End Get + Set + Me._accessViaATLAS = Value + End Set + End Property + + + Public Property UsualTreatment() As String + Get + Return Me._usualTreatment + End Get + Set + Me._usualTreatment = Value + End Set + End Property + + + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + + Public Property DeprecatedFurtherRegistrationnumber() As String + Get + Return Me._deprecatedFurtherRegistrationnumber + End Get + Set + Me._deprecatedFurtherRegistrationnumber = Value + End Set + End Property + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + + Public Property GoodsReduction() As GoodsReductionMRType + Get + Return Me._goodsReduction + End Get + Set + Me._goodsReduction = Value + End Set + End Property + + + Public Property GoodsReductionAfterTreatment() As GoodsReductionAfterTreatmentMRType + Get + Return Me._goodsReductionAfterTreatment + End Get + Set + Me._goodsReductionAfterTreatment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsWarehousingGoodsReferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsWarehousingGoodsReferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsWarehousingGoodsReferenceMRType object + ''' + ''' string to deserialize + ''' Output CustomsWarehousingGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsWarehousingGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsWarehousingGoodsReferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsWarehousingGoodsReferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsWarehousingGoodsReferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsWarehousingGoodsReferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsWarehousingGoodsReferenceMRType + Return CType(SerializerXml.Deserialize(s), CustomsWarehousingGoodsReferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current CustomsWarehousingGoodsReferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsWarehousingGoodsReferenceMRType object + ''' + ''' File to load and deserialize + ''' Output CustomsWarehousingGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsWarehousingGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsWarehousingGoodsReferenceMRType) + 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 CustomsWarehousingGoodsReferenceMRType) 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 CustomsWarehousingGoodsReferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsWarehousingMRType + +#Region "Private fields" + Private _lRN As String + + Private _transference As String + + Private _typeOfAuthorisation As String + + Private _referenceNumberOfAuthorisation As String + + Private _customsWarehousingGoodsReference As List(Of CustomsWarehousingGoodsReferenceMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customsWarehousingGoodsReference = New List(Of CustomsWarehousingGoodsReferenceMRType)() + End Sub + + + Public Property LRN() As String + Get + Return Me._lRN + End Get + Set + Me._lRN = Value + End Set + End Property + + + Public Property Transference() As String + Get + Return Me._transference + End Get + Set + Me._transference = Value + End Set + End Property + + + Public Property TypeOfAuthorisation() As String + Get + Return Me._typeOfAuthorisation + End Get + Set + Me._typeOfAuthorisation = Value + End Set + End Property + + + Public Property ReferenceNumberOfAuthorisation() As String + Get + Return Me._referenceNumberOfAuthorisation + End Get + Set + Me._referenceNumberOfAuthorisation = Value + End Set + End Property + + + Public Property CustomsWarehousingGoodsReference() As List(Of CustomsWarehousingGoodsReferenceMRType) + Get + Return Me._customsWarehousingGoodsReference + End Get + Set + Me._customsWarehousingGoodsReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsWarehousingMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsWarehousingMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsWarehousingMRType object + ''' + ''' string to deserialize + ''' Output CustomsWarehousingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsWarehousingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsWarehousingMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsWarehousingMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsWarehousingMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsWarehousingMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsWarehousingMRType + Return CType(SerializerXml.Deserialize(s), CustomsWarehousingMRType) + End Function +#End Region + + ''' + ''' Serializes current CustomsWarehousingMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsWarehousingMRType object + ''' + ''' File to load and deserialize + ''' Output CustomsWarehousingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsWarehousingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsWarehousingMRType) + 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 CustomsWarehousingMRType) 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 CustomsWarehousingMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SummaryDeclarationGoodsReferenceMRType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _numberOfPackages As String + + Private _registrationNumber As String + + Private _deprecatedFurtherRegistrationnumber As String + + Private _goodsItemNumber As String + + Private _identificationNumberOfCustodian As String + + Private _typeOfIdentificationByKey As String + + Private _referenceNumberOfIdentificationByKey As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property NumberOfPackages() As String + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + + Public Property DeprecatedFurtherRegistrationnumber() As String + Get + Return Me._deprecatedFurtherRegistrationnumber + End Get + Set + Me._deprecatedFurtherRegistrationnumber = Value + End Set + End Property + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property IdentificationNumberOfCustodian() As String + Get + Return Me._identificationNumberOfCustodian + End Get + Set + Me._identificationNumberOfCustodian = Value + End Set + End Property + + + Public Property TypeOfIdentificationByKey() As String + Get + Return Me._typeOfIdentificationByKey + End Get + Set + Me._typeOfIdentificationByKey = Value + End Set + End Property + + + Public Property ReferenceNumberOfIdentificationByKey() As String + Get + Return Me._referenceNumberOfIdentificationByKey + End Get + Set + Me._referenceNumberOfIdentificationByKey = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SummaryDeclarationGoodsReferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SummaryDeclarationGoodsReferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SummaryDeclarationGoodsReferenceMRType object + ''' + ''' string to deserialize + ''' Output SummaryDeclarationGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummaryDeclarationGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummaryDeclarationGoodsReferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummaryDeclarationGoodsReferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SummaryDeclarationGoodsReferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SummaryDeclarationGoodsReferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SummaryDeclarationGoodsReferenceMRType + Return CType(SerializerXml.Deserialize(s), SummaryDeclarationGoodsReferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current SummaryDeclarationGoodsReferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SummaryDeclarationGoodsReferenceMRType object + ''' + ''' File to load and deserialize + ''' Output SummaryDeclarationGoodsReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummaryDeclarationGoodsReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummaryDeclarationGoodsReferenceMRType) + 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 SummaryDeclarationGoodsReferenceMRType) 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 SummaryDeclarationGoodsReferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SummaryDeclarationMRType + +#Region "Private fields" + Private _transference As String + + Private _identificationType As String + + Private _summaryDeclarationGoodsReference As List(Of SummaryDeclarationGoodsReferenceMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._summaryDeclarationGoodsReference = New List(Of SummaryDeclarationGoodsReferenceMRType)() + End Sub + + + Public Property Transference() As String + Get + Return Me._transference + End Get + Set + Me._transference = Value + End Set + End Property + + + Public Property IdentificationType() As String + Get + Return Me._identificationType + End Get + Set + Me._identificationType = Value + End Set + End Property + + + Public Property SummaryDeclarationGoodsReference() As List(Of SummaryDeclarationGoodsReferenceMRType) + Get + Return Me._summaryDeclarationGoodsReference + End Get + Set + Me._summaryDeclarationGoodsReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SummaryDeclarationMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SummaryDeclarationMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SummaryDeclarationMRType object + ''' + ''' string to deserialize + ''' Output SummaryDeclarationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummaryDeclarationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummaryDeclarationMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummaryDeclarationMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SummaryDeclarationMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SummaryDeclarationMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SummaryDeclarationMRType + Return CType(SerializerXml.Deserialize(s), SummaryDeclarationMRType) + End Function +#End Region + + ''' + ''' Serializes current SummaryDeclarationMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SummaryDeclarationMRType object + ''' + ''' File to load and deserialize + ''' Output SummaryDeclarationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummaryDeclarationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummaryDeclarationMRType) + 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 SummaryDeclarationMRType) 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 SummaryDeclarationMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ProcedureTransferenceMRType + +#Region "Private fields" + Private _summaryDeclaration As SummaryDeclarationMRType + + Private _customsWarehousing As CustomsWarehousingMRType + + Private _inwardProcessing As InwardProcessingMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._inwardProcessing = New InwardProcessingMRType() + Me._customsWarehousing = New CustomsWarehousingMRType() + Me._summaryDeclaration = New SummaryDeclarationMRType() + End Sub + + + Public Property SummaryDeclaration() As SummaryDeclarationMRType + Get + Return Me._summaryDeclaration + End Get + Set + Me._summaryDeclaration = Value + End Set + End Property + + + Public Property CustomsWarehousing() As CustomsWarehousingMRType + Get + Return Me._customsWarehousing + End Get + Set + Me._customsWarehousing = Value + End Set + End Property + + + Public Property InwardProcessing() As InwardProcessingMRType + Get + Return Me._inwardProcessing + End Get + Set + Me._inwardProcessing = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProcedureTransferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ProcedureTransferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ProcedureTransferenceMRType object + ''' + ''' string to deserialize + ''' Output ProcedureTransferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureTransferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProcedureTransferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureTransferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ProcedureTransferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProcedureTransferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ProcedureTransferenceMRType + Return CType(SerializerXml.Deserialize(s), ProcedureTransferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current ProcedureTransferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ProcedureTransferenceMRType object + ''' + ''' File to load and deserialize + ''' Output ProcedureTransferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProcedureTransferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProcedureTransferenceMRType) + 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 ProcedureTransferenceMRType) 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 ProcedureTransferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PackagingMRType + +#Region "Private fields" + Private _numberOfPackages As String + + Private _typeOfPackages As String + + Private _shippingMarks As String + + Private _goodsItemNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property NumberOfPackages() As String + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + + Public Property TypeOfPackages() As String + Get + Return Me._typeOfPackages + End Get + Set + Me._typeOfPackages = Value + End Set + End Property + + + Public Property ShippingMarks() As String + Get + Return Me._shippingMarks + End Get + Set + Me._shippingMarks = Value + End Set + End Property + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackagingMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PackagingMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PackagingMRType object + ''' + ''' string to deserialize + ''' Output PackagingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackagingMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackagingMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackagingMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackagingMRType + Return CType(SerializerXml.Deserialize(s), PackagingMRType) + End Function +#End Region + + ''' + ''' Serializes current PackagingMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PackagingMRType object + ''' + ''' File to load and deserialize + ''' Output PackagingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackagingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackagingMRType) + 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 PackagingMRType) 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 PackagingMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreviousDocumentItemMRType + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _goodsItemNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property ComplementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentItemMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreviousDocumentItemMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreviousDocumentItemMRType object + ''' + ''' string to deserialize + ''' Output PreviousDocumentItemMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentItemMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentItemMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentItemMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentItemMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentItemMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreviousDocumentItemMRType + Return CType(SerializerXml.Deserialize(s), PreviousDocumentItemMRType) + End Function +#End Region + + ''' + ''' Serializes current PreviousDocumentItemMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreviousDocumentItemMRType object + ''' + ''' File to load and deserialize + ''' Output PreviousDocumentItemMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentItemMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentItemMRType) + 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 PreviousDocumentItemMRType) 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 PreviousDocumentItemMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsignmentItemMRType + +#Region "Private fields" + Private _goodsItemNumber As String + + Private _declarationGoodsItemNumber As String + + Private _declarationType As String + + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _commodityCode As String + + Private _commodityCodeCombinedNomenclature As String + + Private _referenceNumberUCR As String + + Private _methodOfPayment As String + + Private _uNNumber As List(Of String) + + Private _descriptionOfGoods As String + + Private _cusCode As String + + Private _grossMass As Decimal + + Private _netMass As Decimal + + Private _consignee As AddressMRType + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorMRType) + + Private _previousDocument As List(Of PreviousDocumentItemMRType) + + Private _packaging As List(Of PackagingMRType) + + Private _supportingDocument As List(Of SupportingDocumentMRType) + + Private _transportDocument As List(Of TransportDocumentMRType) + + Private _additionalReference As List(Of AdditionalReferenceMRType) + + Private _additionalInformation As List(Of AdditionalInformationMRType) + + Private _procedureTransference As ProcedureTransferenceMRType + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._procedureTransference = New ProcedureTransferenceMRType() + Me._additionalInformation = New List(Of AdditionalInformationMRType)() + Me._additionalReference = New List(Of AdditionalReferenceMRType)() + Me._transportDocument = New List(Of TransportDocumentMRType)() + Me._supportingDocument = New List(Of SupportingDocumentMRType)() + Me._packaging = New List(Of PackagingMRType)() + Me._previousDocument = New List(Of PreviousDocumentItemMRType)() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorMRType)() + Me._consignee = New AddressMRType() + Me._uNNumber = New List(Of String)() + End Sub + + + Public Property GoodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property DeclarationGoodsItemNumber() As String + Get + Return Me._declarationGoodsItemNumber + End Get + Set + Me._declarationGoodsItemNumber = Value + End Set + End Property + + + Public Property DeclarationType() As String + Get + Return Me._declarationType + End Get + Set + Me._declarationType = Value + End Set + End Property + + + Public Property CountryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property CountryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property CommodityCodeCombinedNomenclature() As String + Get + Return Me._commodityCodeCombinedNomenclature + End Get + Set + Me._commodityCodeCombinedNomenclature = Value + End Set + End Property + + + Public Property ReferenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property MethodOfPayment() As String + Get + Return Me._methodOfPayment + End Get + Set + Me._methodOfPayment = Value + End Set + End Property + + + Public Property UNNumber() As List(Of String) + Get + Return Me._uNNumber + End Get + Set + Me._uNNumber = Value + End Set + End Property + + + Public Property DescriptionOfGoods() As String + Get + Return Me._descriptionOfGoods + End Get + Set + Me._descriptionOfGoods = Value + End Set + End Property + + + Public Property CusCode() As String + Get + Return Me._cusCode + End Get + Set + Me._cusCode = Value + End Set + End Property + + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set + Me._netMass = Value + End Set + End Property + + + Public Property Consignee() As AddressMRType + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorMRType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentItemMRType) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property Packaging() As List(Of PackagingMRType) + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentMRType) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentMRType) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceMRType) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationMRType) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property ProcedureTransference() As ProcedureTransferenceMRType + Get + Return Me._procedureTransference + End Get + Set + Me._procedureTransference = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignmentItemMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsignmentItemMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsignmentItemMRType object + ''' + ''' string to deserialize + ''' Output ConsignmentItemMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentItemMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignmentItemMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignmentItemMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsignmentItemMRType + Return CType(SerializerXml.Deserialize(s), ConsignmentItemMRType) + End Function +#End Region + + ''' + ''' Serializes current ConsignmentItemMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsignmentItemMRType object + ''' + ''' File to load and deserialize + ''' Output ConsignmentItemMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentItemMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentItemMRType) + 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 ConsignmentItemMRType) 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 ConsignmentItemMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AddressMRType + +#Region "Private fields" + Private _identificationNumber As String + + Private _subsidiaryNumber As String + + Private _name As String + + Private _streetAndNumber As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private _contactPerson As ContactPersonMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonMRType() + End Sub + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StreetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonMRType + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AddressMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AddressMRType object + ''' + ''' string to deserialize + ''' Output AddressMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AddressMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressMRType + Return CType(SerializerXml.Deserialize(s), AddressMRType) + End Function +#End Region + + ''' + ''' Serializes current AddressMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AddressMRType object + ''' + ''' File to load and deserialize + ''' Output AddressMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressMRType) + 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 AddressMRType) 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 AddressMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ContactPersonMRType + +#Region "Private fields" + Private _name As String + + Private _phoneNumber As String + + Private _eMailAddress As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property EMailAddress() As String + Get + Return Me._eMailAddress + End Get + Set + Me._eMailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ContactPersonMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ContactPersonMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ContactPersonMRType object + ''' + ''' string to deserialize + ''' Output ContactPersonMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ContactPersonMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactPersonMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ContactPersonMRType + Return CType(SerializerXml.Deserialize(s), ContactPersonMRType) + End Function +#End Region + + ''' + ''' Serializes current ContactPersonMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ContactPersonMRType object + ''' + ''' File to load and deserialize + ''' Output ContactPersonMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonMRType) + 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 ContactPersonMRType) 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 ContactPersonMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalSupplyChainActorMRType + +#Region "Private fields" + Private _role As String + + Private _identificationNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Role() As String + Get + Return Me._role + End Get + Set + Me._role = Value + End Set + End Property + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalSupplyChainActorMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalSupplyChainActorMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalSupplyChainActorMRType object + ''' + ''' string to deserialize + ''' Output AdditionalSupplyChainActorMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalSupplyChainActorMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalSupplyChainActorMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalSupplyChainActorMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalSupplyChainActorMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalSupplyChainActorMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalSupplyChainActorMRType + Return CType(SerializerXml.Deserialize(s), AdditionalSupplyChainActorMRType) + End Function +#End Region + + ''' + ''' Serializes current AdditionalSupplyChainActorMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalSupplyChainActorMRType object + ''' + ''' File to load and deserialize + ''' Output AdditionalSupplyChainActorMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalSupplyChainActorMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalSupplyChainActorMRType) + 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 AdditionalSupplyChainActorMRType) 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 AdditionalSupplyChainActorMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SupportingDocumentMRType + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _documentLineItemNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property DocumentLineItemNumber() As String + Get + Return Me._documentLineItemNumber + End Get + Set + Me._documentLineItemNumber = Value + End Set + End Property + + + Public Property ComplementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SupportingDocumentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SupportingDocumentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SupportingDocumentMRType object + ''' + ''' string to deserialize + ''' Output SupportingDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SupportingDocumentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SupportingDocumentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SupportingDocumentMRType + Return CType(SerializerXml.Deserialize(s), SupportingDocumentMRType) + End Function +#End Region + + ''' + ''' Serializes current SupportingDocumentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SupportingDocumentMRType object + ''' + ''' File to load and deserialize + ''' Output SupportingDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentMRType) + 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 SupportingDocumentMRType) 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 SupportingDocumentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportDocumentMRType + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportDocumentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportDocumentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportDocumentMRType object + ''' + ''' string to deserialize + ''' Output TransportDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportDocumentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportDocumentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportDocumentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportDocumentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportDocumentMRType + Return CType(SerializerXml.Deserialize(s), TransportDocumentMRType) + End Function +#End Region + + ''' + ''' Serializes current TransportDocumentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportDocumentMRType object + ''' + ''' File to load and deserialize + ''' Output TransportDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportDocumentMRType) + 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 TransportDocumentMRType) 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 TransportDocumentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalReferenceMRType + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalReferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalReferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalReferenceMRType object + ''' + ''' string to deserialize + ''' Output AdditionalReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalReferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalReferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalReferenceMRType + Return CType(SerializerXml.Deserialize(s), AdditionalReferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current AdditionalReferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalReferenceMRType object + ''' + ''' File to load and deserialize + ''' Output AdditionalReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceMRType) + 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 AdditionalReferenceMRType) 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 AdditionalReferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalInformationMRType + +#Region "Private fields" + Private _code As String + + Private _text As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property Text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalInformationMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalInformationMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalInformationMRType object + ''' + ''' string to deserialize + ''' Output AdditionalInformationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalInformationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalInformationMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalInformationMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalInformationMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalInformationMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalInformationMRType + Return CType(SerializerXml.Deserialize(s), AdditionalInformationMRType) + End Function +#End Region + + ''' + ''' Serializes current AdditionalInformationMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalInformationMRType object + ''' + ''' File to load and deserialize + ''' Output AdditionalInformationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalInformationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalInformationMRType) + 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 AdditionalInformationMRType) 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 AdditionalInformationMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HouseConsignmentMRType + +#Region "Private fields" + Private _houseConsignmentNumber As String + + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _grossMass As Decimal + + Private _referenceNumberUCR As String + + Private _consignor As AddressMRType + + Private _consignee As AddressMRType + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorMRType) + + Private _previousDocument As List(Of PreviousDocumentMRType) + + Private _supportingDocument As List(Of SupportingDocumentMRType) + + Private _transportDocument As List(Of TransportDocumentMRType) + + Private _additionalReference As List(Of AdditionalReferenceMRType) + + Private _additionalInformation As List(Of AdditionalInformationMRType) + + Private _transportCharges As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private _consignmentItem As List(Of ConsignmentItemMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._consignmentItem = New List(Of ConsignmentItemMRType)() + Me._applicationInternalData = New ApplicationInternalDataType() + Me._additionalInformation = New List(Of AdditionalInformationMRType)() + Me._additionalReference = New List(Of AdditionalReferenceMRType)() + Me._transportDocument = New List(Of TransportDocumentMRType)() + Me._supportingDocument = New List(Of SupportingDocumentMRType)() + Me._previousDocument = New List(Of PreviousDocumentMRType)() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorMRType)() + Me._consignee = New AddressMRType() + Me._consignor = New AddressMRType() + End Sub + + + Public Property HouseConsignmentNumber() As String + Get + Return Me._houseConsignmentNumber + End Get + Set + Me._houseConsignmentNumber = Value + End Set + End Property + + + Public Property CountryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property CountryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property ReferenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property Consignor() As AddressMRType + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + + Public Property Consignee() As AddressMRType + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorMRType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentMRType) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentMRType) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentMRType) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceMRType) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationMRType) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TransportCharges() As String + Get + Return Me._transportCharges + End Get + Set + Me._transportCharges = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + + Public Property ConsignmentItem() As List(Of ConsignmentItemMRType) + Get + Return Me._consignmentItem + End Get + Set + Me._consignmentItem = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HouseConsignmentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize HouseConsignmentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes HouseConsignmentMRType object + ''' + ''' string to deserialize + ''' Output HouseConsignmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HouseConsignmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HouseConsignmentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HouseConsignmentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HouseConsignmentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HouseConsignmentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HouseConsignmentMRType + Return CType(SerializerXml.Deserialize(s), HouseConsignmentMRType) + End Function +#End Region + + ''' + ''' Serializes current HouseConsignmentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HouseConsignmentMRType object + ''' + ''' File to load and deserialize + ''' Output HouseConsignmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HouseConsignmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HouseConsignmentMRType) + 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 HouseConsignmentMRType) 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 HouseConsignmentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreviousDocumentMRType + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property ComplementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreviousDocumentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreviousDocumentMRType object + ''' + ''' string to deserialize + ''' Output PreviousDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreviousDocumentMRType + Return CType(SerializerXml.Deserialize(s), PreviousDocumentMRType) + End Function +#End Region + + ''' + ''' Serializes current PreviousDocumentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreviousDocumentMRType object + ''' + ''' File to load and deserialize + ''' Output PreviousDocumentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentMRType) + 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 PreviousDocumentMRType) 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 PreviousDocumentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class LocationOfGoodsMRType + +#Region "Private fields" + Private _typeOfLocation As String + + Private _qualifierOfIdentification As String + + Private _additionalIdentifier As String + + Private _contactPerson As ContactPersonMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonMRType() + End Sub + + + Public Property TypeOfLocation() As String + Get + Return Me._typeOfLocation + End Get + Set + Me._typeOfLocation = Value + End Set + End Property + + + Public Property QualifierOfIdentification() As String + Get + Return Me._qualifierOfIdentification + End Get + Set + Me._qualifierOfIdentification = Value + End Set + End Property + + + Public Property AdditionalIdentifier() As String + Get + Return Me._additionalIdentifier + End Get + Set + Me._additionalIdentifier = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonMRType + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LocationOfGoodsMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize LocationOfGoodsMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes LocationOfGoodsMRType object + ''' + ''' string to deserialize + ''' Output LocationOfGoodsMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LocationOfGoodsMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LocationOfGoodsMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LocationOfGoodsMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LocationOfGoodsMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LocationOfGoodsMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As LocationOfGoodsMRType + Return CType(SerializerXml.Deserialize(s), LocationOfGoodsMRType) + End Function +#End Region + + ''' + ''' Serializes current LocationOfGoodsMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an LocationOfGoodsMRType object + ''' + ''' File to load and deserialize + ''' Output LocationOfGoodsMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LocationOfGoodsMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LocationOfGoodsMRType) + 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 LocationOfGoodsMRType) 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 LocationOfGoodsMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AuthorisationMRType + +#Region "Private fields" + Private _referenceNumber As String + + Private _type As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AuthorisationMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AuthorisationMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AuthorisationMRType object + ''' + ''' string to deserialize + ''' Output AuthorisationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AuthorisationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AuthorisationMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AuthorisationMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AuthorisationMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AuthorisationMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AuthorisationMRType + Return CType(SerializerXml.Deserialize(s), AuthorisationMRType) + End Function +#End Region + + ''' + ''' Serializes current AuthorisationMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AuthorisationMRType object + ''' + ''' File to load and deserialize + ''' Output AuthorisationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AuthorisationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AuthorisationMRType) + 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 AuthorisationMRType) 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 AuthorisationMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportEquipmentMRType + +#Region "Private fields" + Private _numberOfSeals As String + + Private _seal As List(Of String) + + Private _containerIdentificationNumber As String + + Private _goodsReference As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsReference = New List(Of String)() + Me._seal = New List(Of String)() + End Sub + + + Public Property NumberOfSeals() As String + Get + Return Me._numberOfSeals + End Get + Set + Me._numberOfSeals = Value + End Set + End Property + + + Public Property Seal() As List(Of String) + Get + Return Me._seal + End Get + Set + Me._seal = Value + End Set + End Property + + + Public Property ContainerIdentificationNumber() As String + Get + Return Me._containerIdentificationNumber + End Get + Set + Me._containerIdentificationNumber = Value + End Set + End Property + + + Public Property GoodsReference() As List(Of String) + Get + Return Me._goodsReference + End Get + Set + Me._goodsReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportEquipmentMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportEquipmentMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportEquipmentMRType object + ''' + ''' string to deserialize + ''' Output TransportEquipmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportEquipmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportEquipmentMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportEquipmentMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportEquipmentMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportEquipmentMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportEquipmentMRType + Return CType(SerializerXml.Deserialize(s), TransportEquipmentMRType) + End Function +#End Region + + ''' + ''' Serializes current TransportEquipmentMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportEquipmentMRType object + ''' + ''' File to load and deserialize + ''' Output TransportEquipmentMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportEquipmentMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportEquipmentMRType) + 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 TransportEquipmentMRType) 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 TransportEquipmentMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CarrierMRType + +#Region "Private fields" + Private _identificationNumber As String + + Private _subsidiaryNumber As String + + Private _contactPerson As ContactPersonMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonMRType() + End Sub + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonMRType + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CarrierMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CarrierMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CarrierMRType object + ''' + ''' string to deserialize + ''' Output CarrierMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarrierMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarrierMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarrierMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CarrierMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CarrierMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CarrierMRType + Return CType(SerializerXml.Deserialize(s), CarrierMRType) + End Function +#End Region + + ''' + ''' Serializes current CarrierMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CarrierMRType object + ''' + ''' File to load and deserialize + ''' Output CarrierMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarrierMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarrierMRType) + 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 CarrierMRType) 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 CarrierMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class RepresentativeMRType + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _streetAndNumber As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private _contactPerson As ContactPersonMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonMRType() + End Sub + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StreetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonMRType + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(RepresentativeMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize RepresentativeMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes RepresentativeMRType object + ''' + ''' string to deserialize + ''' Output RepresentativeMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As RepresentativeMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RepresentativeMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RepresentativeMRType + Return CType(SerializerXml.Deserialize(s), RepresentativeMRType) + End Function +#End Region + + ''' + ''' Serializes current RepresentativeMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an RepresentativeMRType object + ''' + ''' File to load and deserialize + ''' Output RepresentativeMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeMRType) + 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 RepresentativeMRType) 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 RepresentativeMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HolderOfTheTransitProcedureMRType + +#Region "Private fields" + Private _identificationNumber As String + + Private _tIRHolderIdentificationNumber As String + + Private _name As String + + Private _streetAndNumber As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private _contactPerson As ContactPersonMRType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonMRType() + End Sub + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property TIRHolderIdentificationNumber() As String + Get + Return Me._tIRHolderIdentificationNumber + End Get + Set + Me._tIRHolderIdentificationNumber = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StreetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonMRType + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HolderOfTheTransitProcedureMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize HolderOfTheTransitProcedureMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes HolderOfTheTransitProcedureMRType object + ''' + ''' string to deserialize + ''' Output HolderOfTheTransitProcedureMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HolderOfTheTransitProcedureMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HolderOfTheTransitProcedureMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HolderOfTheTransitProcedureMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HolderOfTheTransitProcedureMRType + Return CType(SerializerXml.Deserialize(s), HolderOfTheTransitProcedureMRType) + End Function +#End Region + + ''' + ''' Serializes current HolderOfTheTransitProcedureMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HolderOfTheTransitProcedureMRType object + ''' + ''' File to load and deserialize + ''' Output HolderOfTheTransitProcedureMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HolderOfTheTransitProcedureMRType) + 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 HolderOfTheTransitProcedureMRType) 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 HolderOfTheTransitProcedureMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeOfTransitDeclaredMRType + +#Region "Private fields" + Private _referenceNumber As String + + Private _arrivalDateAndTimeEstimated As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property ArrivalDateAndTimeEstimated() As Date + Get + Return Me._arrivalDateAndTimeEstimated + End Get + Set + Me._arrivalDateAndTimeEstimated = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfTransitDeclaredMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeOfTransitDeclaredMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeOfTransitDeclaredMRType object + ''' + ''' string to deserialize + ''' Output CustomsOfficeOfTransitDeclaredMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfTransitDeclaredMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfTransitDeclaredMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfTransitDeclaredMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfTransitDeclaredMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfTransitDeclaredMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeOfTransitDeclaredMRType + Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfTransitDeclaredMRType) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeOfTransitDeclaredMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeOfTransitDeclaredMRType object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeOfTransitDeclaredMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfTransitDeclaredMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfTransitDeclaredMRType) + 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 CustomsOfficeOfTransitDeclaredMRType) 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 CustomsOfficeOfTransitDeclaredMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DepartureTransportMeansMRType + +#Region "Private fields" + Private _nationality As String + + Private _typeOfIdentification As String + + Private _identificationNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + + Public Property TypeOfIdentification() As String + Get + Return Me._typeOfIdentification + End Get + Set + Me._typeOfIdentification = Value + End Set + End Property + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DepartureTransportMeansMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DepartureTransportMeansMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DepartureTransportMeansMRType object + ''' + ''' string to deserialize + ''' Output DepartureTransportMeansMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DepartureTransportMeansMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DepartureTransportMeansMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DepartureTransportMeansMRType + Return CType(SerializerXml.Deserialize(s), DepartureTransportMeansMRType) + End Function +#End Region + + ''' + ''' Serializes current DepartureTransportMeansMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DepartureTransportMeansMRType object + ''' + ''' File to load and deserialize + ''' Output DepartureTransportMeansMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansMRType) + 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 DepartureTransportMeansMRType) 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 DepartureTransportMeansMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PlaceOfLoadingMRType + +#Region "Private fields" + Private _location As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Location() As String + Get + Return Me._location + End Get + Set + Me._location = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PlaceOfLoadingMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PlaceOfLoadingMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PlaceOfLoadingMRType object + ''' + ''' string to deserialize + ''' Output PlaceOfLoadingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfLoadingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfLoadingMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfLoadingMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PlaceOfLoadingMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PlaceOfLoadingMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PlaceOfLoadingMRType + Return CType(SerializerXml.Deserialize(s), PlaceOfLoadingMRType) + End Function +#End Region + + ''' + ''' Serializes current PlaceOfLoadingMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PlaceOfLoadingMRType object + ''' + ''' File to load and deserialize + ''' Output PlaceOfLoadingMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PlaceOfLoadingMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfLoadingMRType) + 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 PlaceOfLoadingMRType) 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 PlaceOfLoadingMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ActiveBorderTransportMeansMRType + +#Region "Private fields" + Private _nationality As String + + Private _typeOfIdentification As String + + Private _identificationNumber As String + + Private _conveyanceReferenceNumber As String + + Private _customsOfficeAtBorderDeclared As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + + Public Property TypeOfIdentification() As String + Get + Return Me._typeOfIdentification + End Get + Set + Me._typeOfIdentification = Value + End Set + End Property + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property ConveyanceReferenceNumber() As String + Get + Return Me._conveyanceReferenceNumber + End Get + Set + Me._conveyanceReferenceNumber = Value + End Set + End Property + + + Public Property CustomsOfficeAtBorderDeclared() As String + Get + Return Me._customsOfficeAtBorderDeclared + End Get + Set + Me._customsOfficeAtBorderDeclared = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ActiveBorderTransportMeansMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ActiveBorderTransportMeansMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ActiveBorderTransportMeansMRType object + ''' + ''' string to deserialize + ''' Output ActiveBorderTransportMeansMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ActiveBorderTransportMeansMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ActiveBorderTransportMeansMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ActiveBorderTransportMeansMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ActiveBorderTransportMeansMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ActiveBorderTransportMeansMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ActiveBorderTransportMeansMRType + Return CType(SerializerXml.Deserialize(s), ActiveBorderTransportMeansMRType) + End Function +#End Region + + ''' + ''' Serializes current ActiveBorderTransportMeansMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ActiveBorderTransportMeansMRType object + ''' + ''' File to load and deserialize + ''' Output ActiveBorderTransportMeansMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ActiveBorderTransportMeansMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ActiveBorderTransportMeansMRType) + 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 ActiveBorderTransportMeansMRType) 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 ActiveBorderTransportMeansMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GuaranteeReferenceMRType + +#Region "Private fields" + Private _gRN As String + + Private _amountToBeCovered As Decimal + + Private _currency As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + + Public Property AmountToBeCovered() As Decimal + Get + Return Me._amountToBeCovered + End Get + Set + Me._amountToBeCovered = Value + End Set + End Property + + + Public Property Currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GuaranteeReferenceMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GuaranteeReferenceMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GuaranteeReferenceMRType object + ''' + ''' string to deserialize + ''' Output GuaranteeReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeReferenceMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeReferenceMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GuaranteeReferenceMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GuaranteeReferenceMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GuaranteeReferenceMRType + Return CType(SerializerXml.Deserialize(s), GuaranteeReferenceMRType) + End Function +#End Region + + ''' + ''' Serializes current GuaranteeReferenceMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GuaranteeReferenceMRType object + ''' + ''' File to load and deserialize + ''' Output GuaranteeReferenceMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeReferenceMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeReferenceMRType) + 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 GuaranteeReferenceMRType) 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 GuaranteeReferenceMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GuaranteeMRType + +#Region "Private fields" + Private _guaranteeType As String + + Private _otherGuaranteeReference As String + + Private _guaranteeReference As List(Of GuaranteeReferenceMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._guaranteeReference = New List(Of GuaranteeReferenceMRType)() + End Sub + + + Public Property GuaranteeType() As String + Get + Return Me._guaranteeType + End Get + Set + Me._guaranteeType = Value + End Set + End Property + + + Public Property OtherGuaranteeReference() As String + Get + Return Me._otherGuaranteeReference + End Get + Set + Me._otherGuaranteeReference = Value + End Set + End Property + + + Public Property GuaranteeReference() As List(Of GuaranteeReferenceMRType) + Get + Return Me._guaranteeReference + End Get + Set + Me._guaranteeReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GuaranteeMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GuaranteeMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GuaranteeMRType object + ''' + ''' string to deserialize + ''' Output GuaranteeMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GuaranteeMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GuaranteeMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GuaranteeMRType + Return CType(SerializerXml.Deserialize(s), GuaranteeMRType) + End Function +#End Region + + ''' + ''' Serializes current GuaranteeMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GuaranteeMRType object + ''' + ''' File to load and deserialize + ''' Output GuaranteeMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeMRType) + 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 GuaranteeMRType) 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 GuaranteeMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransitOperationMRType + +#Region "Private fields" + Private _mRN As String + + Private _customsOfficeOfDeparture As String + + Private _declarationAcceptanceDateAndTime As Date + + Private _releaseDateAndTime As Date + + Private _limitDate As Date + + Private _guarantee As List(Of GuaranteeMRType) + + Private _customsOfficeOfDestinationDeclared As String + + Private _nameOfAccompanyingDocument As String + + Private _security As String + + Private _referenceNumberUCR As String + + Private _activeBorderTransportMeans As List(Of ActiveBorderTransportMeansMRType) + + Private _specificCircumstanceIndicator As String + + Private _placeOfLoading As PlaceOfLoadingMRType + + Private _placeOfUnloading As PlaceOfLoadingMRType + + Private _transportCharges As String + + Private _declarationType As String + + Private _transitDeclarationType As String + + Private _tIRCarnetNumber As String + + Private _reducedDatasetIndicator As String + + Private _bindingItinerary As String + + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _grossMass As Decimal + + Private _containerIndicator As String + + Private _inlandModeOfTransport As String + + Private _modeOfTransportAtTheBorder As String + + Private _departureTransportMeans As List(Of DepartureTransportMeansMRType) + + Private _customsOfficeOfTransitDeclared As List(Of CustomsOfficeOfTransitDeclaredMRType) + + Private _customsOfficeOfExitForTransitDeclared As List(Of String) + + Private _countryOfRoutingOfConsignment As List(Of String) + + Private _consignor As AddressMRType + + Private _consignee As AddressMRType + + Private _holderOfTheTransitProcedure As HolderOfTheTransitProcedureMRType + + Private _representative As RepresentativeMRType + + Private _carrier As CarrierMRType + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorMRType) + + Private _transportEquipment As List(Of TransportEquipmentMRType) + + Private _authorisation As List(Of AuthorisationMRType) + + Private _locationOfGoods As LocationOfGoodsMRType + + Private _previousDocument As List(Of PreviousDocumentMRType) + + Private _supportingDocument As List(Of SupportingDocumentMRType) + + Private _transportDocument As List(Of TransportDocumentMRType) + + Private _additionalReference As List(Of AdditionalReferenceMRType) + + Private _additionalInformation As List(Of AdditionalInformationMRType) + + Private _applicationInternalData As ApplicationInternalDataType + + Private _houseConsignment As List(Of HouseConsignmentMRType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._houseConsignment = New List(Of HouseConsignmentMRType)() + Me._applicationInternalData = New ApplicationInternalDataType() + Me._additionalInformation = New List(Of AdditionalInformationMRType)() + Me._additionalReference = New List(Of AdditionalReferenceMRType)() + Me._transportDocument = New List(Of TransportDocumentMRType)() + Me._supportingDocument = New List(Of SupportingDocumentMRType)() + Me._previousDocument = New List(Of PreviousDocumentMRType)() + Me._locationOfGoods = New LocationOfGoodsMRType() + Me._authorisation = New List(Of AuthorisationMRType)() + Me._transportEquipment = New List(Of TransportEquipmentMRType)() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorMRType)() + Me._carrier = New CarrierMRType() + Me._representative = New RepresentativeMRType() + Me._holderOfTheTransitProcedure = New HolderOfTheTransitProcedureMRType() + Me._consignee = New AddressMRType() + Me._consignor = New AddressMRType() + Me._countryOfRoutingOfConsignment = New List(Of String)() + Me._customsOfficeOfExitForTransitDeclared = New List(Of String)() + Me._customsOfficeOfTransitDeclared = New List(Of CustomsOfficeOfTransitDeclaredMRType)() + Me._departureTransportMeans = New List(Of DepartureTransportMeansMRType)() + Me._placeOfUnloading = New PlaceOfLoadingMRType() + Me._placeOfLoading = New PlaceOfLoadingMRType() + Me._activeBorderTransportMeans = New List(Of ActiveBorderTransportMeansMRType)() + Me._guarantee = New List(Of GuaranteeMRType)() + End Sub + + + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + + Public Property CustomsOfficeOfDeparture() As String + Get + Return Me._customsOfficeOfDeparture + End Get + Set + Me._customsOfficeOfDeparture = Value + End Set + End Property + + + Public Property DeclarationAcceptanceDateAndTime() As Date + Get + Return Me._declarationAcceptanceDateAndTime + End Get + Set + Me._declarationAcceptanceDateAndTime = Value + End Set + End Property + + + Public Property ReleaseDateAndTime() As Date + Get + Return Me._releaseDateAndTime + End Get + Set + Me._releaseDateAndTime = Value + End Set + End Property + + + Public Property LimitDate() As Date + Get + Return Me._limitDate + End Get + Set + Me._limitDate = Value + End Set + End Property + + + Public Property Guarantee() As List(Of GuaranteeMRType) + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + + Public Property CustomsOfficeOfDestinationDeclared() As String + Get + Return Me._customsOfficeOfDestinationDeclared + End Get + Set + Me._customsOfficeOfDestinationDeclared = Value + End Set + End Property + + + Public Property NameOfAccompanyingDocument() As String + Get + Return Me._nameOfAccompanyingDocument + End Get + Set + Me._nameOfAccompanyingDocument = Value + End Set + End Property + + + Public Property Security() As String + Get + Return Me._security + End Get + Set + Me._security = Value + End Set + End Property + + + Public Property ReferenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property ActiveBorderTransportMeans() As List(Of ActiveBorderTransportMeansMRType) + Get + Return Me._activeBorderTransportMeans + End Get + Set + Me._activeBorderTransportMeans = Value + End Set + End Property + + + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set + Me._specificCircumstanceIndicator = Value + End Set + End Property + + + Public Property PlaceOfLoading() As PlaceOfLoadingMRType + Get + Return Me._placeOfLoading + End Get + Set + Me._placeOfLoading = Value + End Set + End Property + + + Public Property PlaceOfUnloading() As PlaceOfLoadingMRType + Get + Return Me._placeOfUnloading + End Get + Set + Me._placeOfUnloading = Value + End Set + End Property + + + Public Property TransportCharges() As String + Get + Return Me._transportCharges + End Get + Set + Me._transportCharges = Value + End Set + End Property + + + Public Property DeclarationType() As String + Get + Return Me._declarationType + End Get + Set + Me._declarationType = Value + End Set + End Property + + + Public Property TransitDeclarationType() As String + Get + Return Me._transitDeclarationType + End Get + Set + Me._transitDeclarationType = Value + End Set + End Property + + + Public Property TIRCarnetNumber() As String + Get + Return Me._tIRCarnetNumber + End Get + Set + Me._tIRCarnetNumber = Value + End Set + End Property + + + Public Property ReducedDatasetIndicator() As String + Get + Return Me._reducedDatasetIndicator + End Get + Set + Me._reducedDatasetIndicator = Value + End Set + End Property + + + Public Property BindingItinerary() As String + Get + Return Me._bindingItinerary + End Get + Set + Me._bindingItinerary = Value + End Set + End Property + + + Public Property CountryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property CountryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property ContainerIndicator() As String + Get + Return Me._containerIndicator + End Get + Set + Me._containerIndicator = Value + End Set + End Property + + + Public Property InlandModeOfTransport() As String + Get + Return Me._inlandModeOfTransport + End Get + Set + Me._inlandModeOfTransport = Value + End Set + End Property + + + Public Property ModeOfTransportAtTheBorder() As String + Get + Return Me._modeOfTransportAtTheBorder + End Get + Set + Me._modeOfTransportAtTheBorder = Value + End Set + End Property + + + Public Property DepartureTransportMeans() As List(Of DepartureTransportMeansMRType) + Get + Return Me._departureTransportMeans + End Get + Set + Me._departureTransportMeans = Value + End Set + End Property + + + Public Property CustomsOfficeOfTransitDeclared() As List(Of CustomsOfficeOfTransitDeclaredMRType) + Get + Return Me._customsOfficeOfTransitDeclared + End Get + Set + Me._customsOfficeOfTransitDeclared = Value + End Set + End Property + + + Public Property CustomsOfficeOfExitForTransitDeclared() As List(Of String) + Get + Return Me._customsOfficeOfExitForTransitDeclared + End Get + Set + Me._customsOfficeOfExitForTransitDeclared = Value + End Set + End Property + + + Public Property CountryOfRoutingOfConsignment() As List(Of String) + Get + Return Me._countryOfRoutingOfConsignment + End Get + Set + Me._countryOfRoutingOfConsignment = Value + End Set + End Property + + + Public Property Consignor() As AddressMRType + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + + Public Property Consignee() As AddressMRType + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property HolderOfTheTransitProcedure() As HolderOfTheTransitProcedureMRType + Get + Return Me._holderOfTheTransitProcedure + End Get + Set + Me._holderOfTheTransitProcedure = Value + End Set + End Property + + + Public Property Representative() As RepresentativeMRType + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + + Public Property Carrier() As CarrierMRType + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorMRType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property TransportEquipment() As List(Of TransportEquipmentMRType) + Get + Return Me._transportEquipment + End Get + Set + Me._transportEquipment = Value + End Set + End Property + + + Public Property Authorisation() As List(Of AuthorisationMRType) + Get + Return Me._authorisation + End Get + Set + Me._authorisation = Value + End Set + End Property + + + Public Property LocationOfGoods() As LocationOfGoodsMRType + Get + Return Me._locationOfGoods + End Get + Set + Me._locationOfGoods = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentMRType) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentMRType) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentMRType) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceMRType) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationMRType) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + + Public Property HouseConsignment() As List(Of HouseConsignmentMRType) + Get + Return Me._houseConsignment + End Get + Set + Me._houseConsignment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitOperationMRType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransitOperationMRType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransitOperationMRType object + ''' + ''' string to deserialize + ''' Output TransitOperationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransitOperationMRType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMRType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransitOperationMRType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitOperationMRType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransitOperationMRType + Return CType(SerializerXml.Deserialize(s), TransitOperationMRType) + End Function +#End Region + + ''' + ''' Serializes current TransitOperationMRType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransitOperationMRType object + ''' + ''' File to load and deserialize + ''' Output TransitOperationMRType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMRType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransitOperationMRType) + 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 TransitOperationMRType) 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 TransitOperationMRType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionAVUVMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _kzZugangATLAS As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _warenbezogeneAngaben As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAVUVMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionAVUVMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionAVUVMRTyp object + ''' + ''' string to deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAVUVMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionAVUVMRTyp + Return CType(SerializerXml.Deserialize(s), PositionAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionAVUVMRTyp object + ''' + ''' File to load and deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + 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 PositionAVUVMRTyp) 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 PositionAVUVMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungAVUVMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _kzVereinfBewillAntrgAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _positionAVUV As List(Of PositionAVUVMRTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionAVUV = New List(Of PositionAVUVMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgAV() As String + Get + Return Me._kzVereinfBewillAntrgAV + End Get + Set + Me._kzVereinfBewillAntrgAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property PositionAVUV() As List(Of PositionAVUVMRTyp) + Get + Return Me._positionAVUV + End Get + Set + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungAVUVMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungAVUVMRTyp object + ''' + ''' string to deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungAVUVMRTyp + Return CType(SerializerXml.Deserialize(s), BeendigungAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVMRTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + 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 BeendigungAVUVMRTyp) 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 BeendigungAVUVMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HandelsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HandelsmengeMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize HandelsmengeMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes HandelsmengeMRTyp object + ''' + ''' string to deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HandelsmengeMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HandelsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HandelsmengeMRTyp + Return CType(SerializerXml.Deserialize(s), HandelsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current HandelsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HandelsmengeMRTyp object + ''' + ''' File to load and deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + 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 HandelsmengeMRTyp) 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 HandelsmengeMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgangsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsmengeMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgangsmengeMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgangsmengeMRTyp object + ''' + ''' string to deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsmengeMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgangsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgangsmengeMRTyp + Return CType(SerializerXml.Deserialize(s), AbgangsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgangsmengeMRTyp object + ''' + ''' File to load and deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + 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 AbgangsmengeMRTyp) 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 AbgangsmengeMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionZLMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsmengeMRTyp + + Private _handelsmenge As HandelsmengeMRTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._handelsmenge = New HandelsmengeMRTyp() + Me._abgangsmenge = New AbgangsmengeMRTyp() + End Sub + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set + Me._kzUeblicheBehandlung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + + Public Property Abgangsmenge() As AbgangsmengeMRTyp + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property Handelsmenge() As HandelsmengeMRTyp + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionZLMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionZLMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionZLMRTyp object + ''' + ''' string to deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionZLMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionZLMRTyp + Return CType(SerializerXml.Deserialize(s), PositionZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionZLMRTyp object + ''' + ''' File to load and deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + 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 PositionZLMRTyp) 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 PositionZLMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungZLMRTyp + +#Region "Private fields" + Private _bezugsnummer As String + + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionZL As List(Of PositionZLMRTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionZL = New List(Of PositionZLMRTyp)() + End Sub + + + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set + Me._bezugsnummer = Value + End Set + End Property + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property PositionZL() As List(Of PositionZLMRTyp) + Get + Return Me._positionZL + End Get + Set + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungZLMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungZLMRTyp object + ''' + ''' string to deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungZLMRTyp + Return CType(SerializerXml.Deserialize(s), BeendigungZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungZLMRTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + 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 BeendigungZLMRTyp) 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 BeendigungZLMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionSumAMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _verwahrerEORI As String + + Private _spOArt As String + + Private _spONummer As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set + Me._stueckzahl = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property SpOArt() As String + Get + Return Me._spOArt + End Get + Set + Me._spOArt = Value + End Set + End Property + + + Public Property SpONummer() As String + Get + Return Me._spONummer + End Get + Set + Me._spONummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionSumAMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionSumAMRTyp object + ''' + ''' string to deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionSumAMRTyp + Return CType(SerializerXml.Deserialize(s), PositionSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionSumAMRTyp object + ''' + ''' File to load and deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + 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 PositionSumAMRTyp) 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 PositionSumAMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungSumAMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _artIdentifikation As String + + Private _positionSumA As List(Of PositionSumAMRTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionSumA = New List(Of PositionSumAMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property PositionSumA() As List(Of PositionSumAMRTyp) + Get + Return Me._positionSumA + End Get + Set + Me._positionSumA = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungSumAMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungSumAMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungSumAMRTyp object + ''' + ''' string to deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungSumAMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungSumAMRTyp + Return CType(SerializerXml.Deserialize(s), BeendigungSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungSumAMRTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + 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 BeendigungSumAMRTyp) 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 BeendigungSumAMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BesondereVermerkeMRTyp + +#Region "Private fields" + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _export As String + + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _kz10600 As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set + Me._exportBeschraenkung = Value + End Set + End Property + + + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set + Me._exportAbgaben = Value + End Set + End Property + + + Public Property Export() As String + Get + Return Me._export + End Get + Set + Me._export = Value + End Set + End Property + + + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set + Me._exportAusEU = Value + End Set + End Property + + + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set + Me._exportAusLand = Value + End Set + End Property + + + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BesondereVermerkeMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BesondereVermerkeMRTyp object + ''' + ''' string to deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BesondereVermerkeMRTyp + Return CType(SerializerXml.Deserialize(s), BesondereVermerkeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BesondereVermerkeMRTyp object + ''' + ''' File to load and deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + 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 BesondereVermerkeMRTyp) 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 BesondereVermerkeMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VorgelegteUnterlBeschGenehmMRTyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Typ() As String + Get + Return Me._typ + End Get + Set + Me._typ = Value + End Set + End Property + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string to deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VorgelegteUnterlBeschGenehmMRTyp + Return CType(SerializerXml.Deserialize(s), VorgelegteUnterlBeschGenehmMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' File to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + 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 VorgelegteUnterlBeschGenehmMRTyp) 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 VorgelegteUnterlBeschGenehmMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PackstueckMRTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set + Me._verpackungsart = Value + End Set + End Property + + + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PackstueckMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PackstueckMRTyp object + ''' + ''' string to deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackstueckMRTyp + Return CType(SerializerXml.Deserialize(s), PackstueckMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PackstueckMRTyp object + ''' + ''' File to load and deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + 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 PackstueckMRTyp) 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 PackstueckMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VorpapierMRTyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VorpapierMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VorpapierMRTyp object + ''' + ''' string to deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VorpapierMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VorpapierMRTyp + Return CType(SerializerXml.Deserialize(s), VorpapierMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VorpapierMRTyp object + ''' + ''' File to load and deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + 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 VorpapierMRTyp) 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 VorpapierMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class WarenPositionUeberlassungsmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artAnmeldungPosition As String + + Private _versendungsAusfuhrlandPosition As String + + Private _bestimmungslandPosition As String + + Private _warennummer As String + + Private _kennnummerSendungPosition As String + + Private _befoerderungskostenZahlungsweisePosition As String + + Private _uNGefahrgutnummer As String + + Private _warenbezeichnung As String + + Private _rohmasse As Decimal + + Private _eigenmasse As Decimal + + Private _versenderPosition As AdresseMRTyp + + Private _versenderSumASicherheitPosition As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheitPosition As AdresseMRTyp + + Private _vorpapiereTyp As String + + Private _vorpapier As List(Of VorpapierMRTyp) + + Private _packstuecke As List(Of PackstueckMRTyp) + + Private _containernummer As List(Of String) + + Private _vorgelegteUnterlagenBescheinigungenGenehmigungen As List(Of VorgelegteUnterlBeschGenehmMRTyp) + + Private _besondereVermerke As BesondereVermerkeMRTyp + + Private _beendigungSumA As BeendigungSumAMRTyp + + Private _beendigungZL As BeendigungZLMRTyp + + Private _beendigungAVUV As BeendigungAVUVMRTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._beendigungAVUV = New BeendigungAVUVMRTyp() + Me._beendigungZL = New BeendigungZLMRTyp() + Me._beendigungSumA = New BeendigungSumAMRTyp() + Me._besondereVermerke = New BesondereVermerkeMRTyp() + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = New List(Of VorgelegteUnterlBeschGenehmMRTyp)() + Me._containernummer = New List(Of String)() + Me._packstuecke = New List(Of PackstueckMRTyp)() + Me._vorpapier = New List(Of VorpapierMRTyp)() + Me._empfaengerSumASicherheitPosition = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheitPosition = New AdresseMRTyp() + Me._versenderPosition = New AdresseMRTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtAnmeldungPosition() As String + Get + Return Me._artAnmeldungPosition + End Get + Set + Me._artAnmeldungPosition = Value + End Set + End Property + + + Public Property VersendungsAusfuhrlandPosition() As String + Get + Return Me._versendungsAusfuhrlandPosition + End Get + Set + Me._versendungsAusfuhrlandPosition = Value + End Set + End Property + + + Public Property BestimmungslandPosition() As String + Get + Return Me._bestimmungslandPosition + End Get + Set + Me._bestimmungslandPosition = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KennnummerSendungPosition() As String + Get + Return Me._kennnummerSendungPosition + End Get + Set + Me._kennnummerSendungPosition = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweisePosition() As String + Get + Return Me._befoerderungskostenZahlungsweisePosition + End Get + Set + Me._befoerderungskostenZahlungsweisePosition = Value + End Set + End Property + + + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set + Me._uNGefahrgutnummer = Value + End Set + End Property + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property VersenderPosition() As AdresseMRTyp + Get + Return Me._versenderPosition + End Get + Set + Me._versenderPosition = Value + End Set + End Property + + + Public Property VersenderSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._versenderSumASicherheitPosition + End Get + Set + Me._versenderSumASicherheitPosition = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheitPosition + End Get + Set + Me._empfaengerSumASicherheitPosition = Value + End Set + End Property + + + Public Property VorpapiereTyp() As String + Get + Return Me._vorpapiereTyp + End Get + Set + Me._vorpapiereTyp = Value + End Set + End Property + + + Public Property Vorpapier() As List(Of VorpapierMRTyp) + Get + Return Me._vorpapier + End Get + Set + Me._vorpapier = Value + End Set + End Property + + + Public Property Packstuecke() As List(Of PackstueckMRTyp) + Get + Return Me._packstuecke + End Get + Set + Me._packstuecke = Value + End Set + End Property + + + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + + Public Property VorgelegteUnterlagenBescheinigungenGenehmigungen() As List(Of VorgelegteUnterlBeschGenehmMRTyp) + Get + Return Me._vorgelegteUnterlagenBescheinigungenGenehmigungen + End Get + Set + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = Value + End Set + End Property + + + Public Property BesondereVermerke() As BesondereVermerkeMRTyp + Get + Return Me._besondereVermerke + End Get + Set + Me._besondereVermerke = Value + End Set + End Property + + + Public Property BeendigungSumA() As BeendigungSumAMRTyp + Get + Return Me._beendigungSumA + End Get + Set + Me._beendigungSumA = Value + End Set + End Property + + + Public Property BeendigungZL() As BeendigungZLMRTyp + Get + Return Me._beendigungZL + End Get + Set + Me._beendigungZL = Value + End Set + End Property + + + Public Property BeendigungAVUV() As BeendigungAVUVMRTyp + Get + Return Me._beendigungAVUV + End Get + Set + Me._beendigungAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionUeberlassungsmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize WarenPositionUeberlassungsmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string to deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionUeberlassungsmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenPositionUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As WarenPositionUeberlassungsmeldungTyp + Return CType(SerializerXml.Deserialize(s), WarenPositionUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + 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 WarenPositionUeberlassungsmeldungTyp) 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 WarenPositionUeberlassungsmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdresseMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _identifikationsart As String + + Private _nLNR As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdresseMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdresseMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdresseMRTyp object + ''' + ''' string to deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdresseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdresseMRTyp + Return CType(SerializerXml.Deserialize(s), AdresseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdresseMRTyp object + ''' + ''' File to load and deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + 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 AdresseMRTyp) 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 AdresseMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AnsprechpartnerMRTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set + Me._stellung = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AnsprechpartnerMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AnsprechpartnerMRTyp object + ''' + ''' string to deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnsprechpartnerMRTyp + Return CType(SerializerXml.Deserialize(s), AnsprechpartnerMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerMRTyp object + ''' + ''' File to load and deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + 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 AnsprechpartnerMRTyp) 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 AnsprechpartnerMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerschluesseMRTyp + +#Region "Private fields" + Private _art As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zeichen = New List(Of String)() + End Sub + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerschluesseMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerschluesseMRTyp object + ''' + ''' string to deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerschluesseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerschluesseMRTyp + Return CType(SerializerXml.Deserialize(s), VerschluesseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerschluesseMRTyp object + ''' + ''' File to load and deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + 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 VerschluesseMRTyp) 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 VerschluesseMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdresseTINKurzMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set + Me._iDCarnet = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdresseTINKurzMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdresseTINKurzMRTyp object + ''' + ''' string to deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdresseTINKurzMRTyp + Return CType(SerializerXml.Deserialize(s), AdresseTINKurzMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdresseTINKurzMRTyp object + ''' + ''' File to load and deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + 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 AdresseTINKurzMRTyp) 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 AdresseTINKurzMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BefoerderungsmittelAbgangMRTyp + +#Region "Private fields" + Private _staatszugehoerigkeit As String + + Private _kennzeichen As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Staatszugehoerigkeit() As String + Get + Return Me._staatszugehoerigkeit + End Get + Set + Me._staatszugehoerigkeit = Value + End Set + End Property + + + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelAbgangMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BefoerderungsmittelAbgangMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BefoerderungsmittelAbgangMRTyp object + ''' + ''' string to deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelAbgangMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelAbgangMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BefoerderungsmittelAbgangMRTyp + Return CType(SerializerXml.Deserialize(s), BefoerderungsmittelAbgangMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' File to load and deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + 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 BefoerderungsmittelAbgangMRTyp) 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 BefoerderungsmittelAbgangMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerbindlicheBefoerderungsrouteMRTyp + +#Region "Private fields" + Private _beschreibung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbindlicheBefoerderungsrouteMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string to deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbindlicheBefoerderungsrouteMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerbindlicheBefoerderungsrouteMRTyp + Return CType(SerializerXml.Deserialize(s), VerbindlicheBefoerderungsrouteMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' File to load and deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + 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 VerbindlicheBefoerderungsrouteMRTyp) 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 VerbindlicheBefoerderungsrouteMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SicherheitMRTyp + +#Region "Private fields" + Private _art As String + + Private _bezeichnung As String + + Private _betrag As Decimal + + Private _sicherheitengeberTIN As String + + Private _waehrung As String + + Private _bescheinigung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bezeichnung() As String + Get + Return Me._bezeichnung + End Get + Set + Me._bezeichnung = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property SicherheitengeberTIN() As String + Get + Return Me._sicherheitengeberTIN + End Get + Set + Me._sicherheitengeberTIN = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property Bescheinigung() As String + Get + Return Me._bescheinigung + End Get + Set + Me._bescheinigung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMRTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SicherheitMRTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SicherheitMRTyp object + ''' + ''' string to deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMRTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SicherheitMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SicherheitMRTyp + Return CType(SerializerXml.Deserialize(s), SicherheitMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SicherheitMRTyp object + ''' + ''' File to load and deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + 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 SicherheitMRTyp) 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 SicherheitMRTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenUeberlassungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _abgangszollstelle As String + + Private _annahmedatum As Date + + Private _ueberlassungsdatum As Date + + Private _wiedergestellungsdatum As Date + + Private _sicherheit As List(Of SicherheitMRTyp) + + Private _bestimmungszollstelle As String + + Private _vBDName As String + + Private _arbeitsnummer As String + + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _artAnmeldung As String + + Private _anzahlPositionen As String + + Private _packstueckeGesamt As String + + Private _versendungsAusfuhrland As String + + Private _bestimmungsland As String + + Private _gesamtRohmasse As Decimal + + Private _kontrollErgebnis As String + + Private _verbindlicheBefoerderungsroute As VerbindlicheBefoerderungsrouteMRTyp + + Private _befoerderungsmittelAbgang As BefoerderungsmittelAbgangMRTyp + + Private _durchgangszollstelleNCTS As List(Of String) + + Private _befoerderungsrouteSumASicherheitLand As List(Of String) + + Private _versender As AdresseMRTyp + + Private _versenderSumASicherheit As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheit As AdresseMRTyp + + Private _hauptverpflichteter As AdresseTINKurzMRTyp + + Private _befoerderer As AdresseMRTyp + + Private _zugelassenerEmpfaengerEORI As String + + Private _verschluesse As VerschluesseMRTyp + + Private _bewilligungZV As String + + Private _bewilligungBV As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._verschluesse = New VerschluesseMRTyp() + Me._befoerderer = New AdresseMRTyp() + Me._hauptverpflichteter = New AdresseTINKurzMRTyp() + Me._empfaengerSumASicherheit = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheit = New AdresseMRTyp() + Me._versender = New AdresseMRTyp() + Me._befoerderungsrouteSumASicherheitLand = New List(Of String)() + Me._durchgangszollstelleNCTS = New List(Of String)() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelAbgangMRTyp() + Me._verbindlicheBefoerderungsroute = New VerbindlicheBefoerderungsrouteMRTyp() + Me._sicherheit = New List(Of SicherheitMRTyp)() + End Sub + + + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + + Public Property Abgangszollstelle() As String + Get + Return Me._abgangszollstelle + End Get + Set + Me._abgangszollstelle = Value + End Set + End Property + + + Public Property Annahmedatum() As Date + Get + Return Me._annahmedatum + End Get + Set + Me._annahmedatum = Value + End Set + End Property + + + Public Property Ueberlassungsdatum() As Date + Get + Return Me._ueberlassungsdatum + End Get + Set + Me._ueberlassungsdatum = Value + End Set + End Property + + + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set + Me._wiedergestellungsdatum = Value + End Set + End Property + + + Public Property Sicherheit() As List(Of SicherheitMRTyp) + Get + Return Me._sicherheit + End Get + Set + Me._sicherheit = Value + End Set + End Property + + + Public Property Bestimmungszollstelle() As String + Get + Return Me._bestimmungszollstelle + End Get + Set + Me._bestimmungszollstelle = Value + End Set + End Property + + + Public Property VBDName() As String + Get + Return Me._vBDName + End Get + Set + Me._vBDName = Value + End Set + End Property + + + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set + Me._arbeitsnummer = Value + End Set + End Property + + + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set + Me._kzSumASicherheit = Value + End Set + End Property + + + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set + Me._nummerBefoerderung = Value + End Set + End Property + + + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set + Me._besondereUmstaende = Value + End Set + End Property + + + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set + Me._ladeort = Value + End Set + End Property + + + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set + Me._entladeort = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set + Me._anzahlPositionen = Value + End Set + End Property + + + Public Property PackstueckeGesamt() As String + Get + Return Me._packstueckeGesamt + End Get + Set + Me._packstueckeGesamt = Value + End Set + End Property + + + Public Property VersendungsAusfuhrland() As String + Get + Return Me._versendungsAusfuhrland + End Get + Set + Me._versendungsAusfuhrland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property GesamtRohmasse() As Decimal + Get + Return Me._gesamtRohmasse + End Get + Set + Me._gesamtRohmasse = Value + End Set + End Property + + + Public Property KontrollErgebnis() As String + Get + Return Me._kontrollErgebnis + End Get + Set + Me._kontrollErgebnis = Value + End Set + End Property + + + Public Property VerbindlicheBefoerderungsroute() As VerbindlicheBefoerderungsrouteMRTyp + Get + Return Me._verbindlicheBefoerderungsroute + End Get + Set + Me._verbindlicheBefoerderungsroute = Value + End Set + End Property + + + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelAbgangMRTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + + Public Property DurchgangszollstelleNCTS() As List(Of String) + Get + Return Me._durchgangszollstelleNCTS + End Get + Set + Me._durchgangszollstelleNCTS = Value + End Set + End Property + + + Public Property BefoerderungsrouteSumASicherheitLand() As List(Of String) + Get + Return Me._befoerderungsrouteSumASicherheitLand + End Get + Set + Me._befoerderungsrouteSumASicherheitLand = Value + End Set + End Property + + + Public Property Versender() As AdresseMRTyp + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property VersenderSumASicherheit() As AdresseMRTyp + Get + Return Me._versenderSumASicherheit + End Get + Set + Me._versenderSumASicherheit = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheit() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheit + End Get + Set + Me._empfaengerSumASicherheit = Value + End Set + End Property + + + Public Property Hauptverpflichteter() As AdresseTINKurzMRTyp + Get + Return Me._hauptverpflichteter + End Get + Set + Me._hauptverpflichteter = Value + End Set + End Property + + + Public Property Befoerderer() As AdresseMRTyp + Get + Return Me._befoerderer + End Get + Set + Me._befoerderer = Value + End Set + End Property + + + Public Property ZugelassenerEmpfaengerEORI() As String + Get + Return Me._zugelassenerEmpfaengerEORI + End Get + Set + Me._zugelassenerEmpfaengerEORI = Value + End Set + End Property + + + Public Property Verschluesse() As VerschluesseMRTyp + Get + Return Me._verschluesse + End Get + Set + Me._verschluesse = Value + End Set + End Property + + + Public Property BewilligungZV() As String + Get + Return Me._bewilligungZV + End Get + Set + Me._bewilligungZV = Value + End Set + End Property + + + Public Property BewilligungBV() As String + Get + Return Me._bewilligungBV + End Get + Set + Me._bewilligungBV = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungsmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenUeberlassungsmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungsmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenUeberlassungsmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + 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 KopfDatenUeberlassungsmeldungTyp) 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 KopfDatenUeberlassungsmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionNCTSTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionNCTSTyp object + ''' + ''' string to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionNCTSTyp + Return CType(SerializerXml.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschNCTSTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschNCTSTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschNCTSTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.xsd new file mode 100644 index 0000000..069cab9 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_009.xsd @@ -0,0 +1,922 @@ + + + + + Version 009 - Release 001 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.xsd index d5cc52c..bef7ad7 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.xsd @@ -1,6 +1,10 @@ - + + + Version 004 - Release 002 + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.xsd index 69bb591..b864e99 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.xsd @@ -1,6 +1,10 @@ - + + + Version 004 - Release 005 + + @@ -108,11 +112,6 @@ - - - - - @@ -488,7 +487,6 @@ - @@ -626,7 +624,7 @@ - + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_002.xsd index 952728c..94c8cf0 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_002.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_002.xsd @@ -1,6 +1,10 @@ - + + + Version 002 - Release 002 + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index fef9343..b8d7633 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -93,34 +93,44 @@ + + + + + + + + + + @@ -130,6 +140,7 @@ + @@ -138,6 +149,7 @@ + @@ -249,6 +261,10 @@ Designer + + Designer + + Designer @@ -258,6 +274,9 @@ Designer + + Designer + Designer @@ -270,12 +289,18 @@ Designer + + Designer + Designer Designer + + Designer + Designer @@ -304,6 +329,9 @@ Designer + + Designer + Designer @@ -311,6 +339,9 @@ Designer + + Designer + Designer @@ -320,24 +351,36 @@ Designer + + Designer + Designer Designer + + Designer + Designer Designer + + Designer + Designer Designer + + Designer + Designer @@ -362,6 +405,9 @@ Designer + + Designer + Designer @@ -389,6 +435,9 @@ Designer + + Designer + Designer diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 43d711a..427103f 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -407,18 +407,24 @@ Public Class cGetMsgType Return False End Function - Shared Function isEZA_MitteilungAbschreibung(doc As XmlDocument) As Boolean + Shared Function isEZA_MitteilungAbschreibung(doc As XmlDocument, ByRef version As String) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("MitteilungAbschreibung").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + version = doc.GetElementsByTagName("Version")(0).InnerText + End If Return True End If End If Return False End Function - Shared Function isEZA_WeitergabeHauptzollamt(doc As XmlDocument) As Boolean + Shared Function isEZA_WeitergabeHauptzollamt(doc As XmlDocument, ByRef version As String) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("WeitergabeHauptzollamt").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + version = doc.GetElementsByTagName("Version")(0).InnerText + End If Return True End If End If diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 0b8e59e..8e75150 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -3916,6 +3916,172 @@ Public Class cWorker_NCTS readNCTS004_Ueberlassungsmeldung008 = "" End Try End Function + Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String + Try + ' Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim MRN = "" + Dim division = "" + Dim Wiedergestellungsdatum As Object = Nothing + ' Dim bearbeiter = "" + Dim zp As Object = Nothing + Dim Verschluss_Art = "" + Dim Verschluss_Anzahl = 0 + Dim Verschluss_Zeichen As New List(Of String) + + + readNCTS_Ueberlassungsmeldung009 = "" + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + If NCTS.EinzelUeberlassungsmeldung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS_Ueberlassungsmeldung009 = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName + End If + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang > "01.01.2000" Then + zp = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang + End If + End If + If NCTS.EinzelUeberlassungsmeldung.KopfDaten IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN + End If + + + Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum + ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein! + Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) + If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then + For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails + If a.Key = "LimitDate" Then + Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) + + End If + Next + End If + End If + End If + 'Verschluesse + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then + Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art + Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then + For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen + Verschluss_Zeichen.Add(z) + Next + End If + End If + End If + End If + + End If + + + + + + End If + + End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009 + STATUS.dySt_artMitteilung = "UEM" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 + STATUS.dySt_ergCode = "MRN" + STATUS.dySt_ergMitteilung = MRN + STATUS.dySt_ergZeitpunkt = zp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True) + + + NCTS_TMP.ncts_Eroeffnung = zp + NCTS_TMP.SAVE() + + '------------------------------------------------------------------------------------------------------------------------------ + 'GARANTIE ÜBERSCHREIBEN: + If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then + NCTS_TMP.ncts_GUARANTEE.Clear() + + For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee + + For Each GRT In GRT_M.GuaranteeReference + Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee + + + NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType + NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference + NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered + 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode + NCTS_GRT.nctsGRT_GRN = GRT.GRN + NCTS_GRT.nctsGRT_Currency = GRT.Currency + NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT) + + Next + Next + NCTS_TMP.SAVE_Guarantee() + End If + '------------------------------------------------------------------------------------------------------------------------------ + + 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT + ' If TE.nctsTE_NumberOfSeals > 0 Then + + ' End If + 'Next + + 'If Verschluss_Anzahl > 0 Then + ' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl + ' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art + ' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) + ' NCTS_TMP.SAVE() + 'End If + + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + statusTMP = STATUS + cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE + ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then + + NCTS_TMP.insertIntoSpedBuch(DY_TMP) + + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_Ueberlassungsmeldung009 = "" + End Try + End Function Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index fba9b7e..ab497e6 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -337,8 +337,8 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Ueberlassungsmeldung If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then Select Case VERSION - Case "008" - If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True 'NEU + Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP) <> "" Then found = True 'NEU + If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True ' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") @@ -436,6 +436,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: EntscheidungAnmeldung If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc, VERSION) Then Select Case VERSION + Case "005" : If readEZA_EntscheidungAnmeldung_005(d) <> "" Then found = True Case "004" : If readEZA_EntscheidungAnmeldung_004(d) <> "" Then found = True Case Else : If readEZA_EntscheidungAnmeldung(d) <> "" Then found = True End Select @@ -445,6 +446,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: SumAErledigungsinformationVorpapier If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then Select Case VERSION + Case "005" : If readEZA_SumAErledigungsinformationVorpapier_005(d) <> "" Then found = True Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True End Select @@ -453,6 +455,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: Abgabenbescheid If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then Select Case VERSION + Case "012" : If readEZA_Abgabenbescheid012(d, statusTMP) <> "" Then found = True Case "011" : If readEZA_Abgabenbescheid011(d, statusTMP) <> "" Then found = True Case "010" : If readEZA_Abgabenbescheid010(d, statusTMP) <> "" Then found = True Case "009" : If readEZA_Abgabenbescheid009(d, statusTMP) <> "" Then found = True @@ -465,6 +468,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: NichtAbschliessendeFestsetzung If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc, VERSION) Then Select Case VERSION + Case "005" : If readEZA_NichtAbschliessendeFestsetzung005(d) <> "" Then found = True Case "004" : If readEZA_NichtAbschliessendeFestsetzung004(d) <> "" Then found = True Case "003" : If readEZA_NichtAbschliessendeFestsetzung003(d) <> "" Then found = True Case Else : If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True @@ -474,6 +478,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: AbschliessendeFestsetzung If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc, VERSION) Then Select Case VERSION + Case "006" : If readEZA_AbschliessendeFestsetzung006(d) <> "" Then found = True Case "005" : If readEZA_AbschliessendeFestsetzung005(d) <> "" Then found = True Case "004" : If readEZA_AbschliessendeFestsetzung004(d) <> "" Then found = True Case Else : If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True @@ -484,6 +489,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: StornierungBescheid If Not found And cGetMsgType.isEZA_StornierungBescheid(doc, VERSION) Then Select Case VERSION + Case "003" : If readEZA_StornierungBescheid_003(d) <> "" Then found = True Case "002" : If readEZA_StornierungBescheid_002(d) <> "" Then found = True Case Else : If readEZA_StornierungBescheid(d) <> "" Then found = True End Select @@ -492,6 +498,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: BefundVereinfachteZollanmeldung If Not found And cGetMsgType.isEZA_BefundVereinfachteZollanmeldung(doc, VERSION) Then Select Case VERSION + Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case "006" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case "008" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") @@ -502,14 +509,22 @@ Public Class frmDYNachrichtenVerarbeitung End If 'EZA: MitteilungAbschreibung - If Not found And cGetMsgType.isEZA_MitteilungAbschreibung(doc) Then - found = True : addDGVEinarbeitung("*EZA: MitteilungAbschreibung", "-") + If Not found And cGetMsgType.isEZA_MitteilungAbschreibung(doc, VERSION) Then + Select Case VERSION + Case "005" : found = True : addDGVEinarbeitung("*EZA: MitteilungAbschreibung", "-") + Case Else : found = True : addDGVEinarbeitung("*EZA: MitteilungAbschreibung", "-") + End Select + End If 'EZA: WeitergabeHauptzollamt - If Not found And cGetMsgType.isEZA_WeitergabeHauptzollamt(doc) Then - found = True - addDGVEinarbeitung("*EZA: WeitergabeHauptzollamt", "-") + If Not found And cGetMsgType.isEZA_WeitergabeHauptzollamt(doc, VERSION) Then + Select Case VERSION + Case "003" : found = True : addDGVEinarbeitung("*EZA: WeitergabeHauptzollamt", "-") + Case Else : found = True : addDGVEinarbeitung("*EZA: WeitergabeHauptzollamt", "-") + End Select + + End If @@ -614,6 +629,7 @@ Public Class frmDYNachrichtenVerarbeitung 'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc, VERSION) Then Select Case VERSION + Case "006" : If readNCTS_GenerellesEreignis_006(d, statusTMP) Then found = True Case "005" : If readNCTS_GenerellesEreignis_005(d, statusTMP) Then found = True Case Else : If readNCTS_GenerellesEreignis(d) Then found = True End Select @@ -1180,6 +1196,141 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readNCTS_GenerellesEreignis_006(d As String, ByRef STATUSTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As Boolean + Try + + + Dim NCTS As DAKOSY_Worker.GenerellesEreignis_006.GenerellesEreignisGETyp = DAKOSY_Worker.GenerellesEreignis_006.GenerellesEreignisGETyp.LoadFromFile(d) + Dim division = "" + + readNCTS_GenerellesEreignis_006 = False + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then + division = NCTS.Transaktion.IODivision1 + End If + + End If + If NCTS.EinzelEreignisObjekt IsNot Nothing Then + For Each ge In NCTS.EinzelEreignisObjekt + If ge.ObjektIdentifizierung IsNot Nothing Then + If ge.ObjektIdentifizierung.ObjektName IsNot Nothing And ge.ObjektIdentifizierung.Ereignisgewichtung IsNot Nothing Then + ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName) + + + + Dim STATUS2 As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + + STATUS2.dySt_artMitteilung = "GE" + STATUS2.dySt_dyArt = "" '"NCTS" 'T1/T2 + STATUS2.dySt_BezugsNr = ge.ObjektIdentifizierung.ObjektName + STATUS2.dySt_ergCode = "" 'erg.EreignisCode + STATUS2.dySt_ergMitteilung = "" 'erg.Ereignismitteilung + If ge.ObjektIdentifizierung.Ereignisgewichtung.Contains("OKAY") Then + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_07 + ElseIf ge.ObjektIdentifizierung.Ereignisgewichtung.Contains("INFO") Then + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_40 + Else + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98 + End If + readNCTS_GenerellesEreignis_006 = True + + Select Case getVerahrensartFromBezugsNr(ge.ObjektIdentifizierung.ObjektName) + Case "NCTS" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS") + Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id + cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division) + STATUS2.dySt_dyArt = "NCTS" + + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d) + '================================== + + + Case "EZA", "" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id + SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division) + STATUS2.dySt_dyArt = "EZA" + End Select + + STATUS2.SAVE() + + 'Nur wenn BezugsNr vorhanden: + If ge.KopfDaten IsNot Nothing Then + For Each kopf In ge.KopfDaten + If kopf.Ereignis IsNot Nothing Then + If kopf.RegistrierNrATLAS IsNot Nothing Then + 'MsgBox(kopf.RegistrierNrATLAS) + If True Then + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_artMitteilung = "GE" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + STATUS.dySt_BezugsNr = ge.ObjektIdentifizierung.ObjektName + If kopf.RegistrierNrATLAS.StartsWith("ATA") Or kopf.RegistrierNrATLAS.StartsWith("ATC") Then + STATUS.dySt_ergCode = "ATA" + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41 + Else + STATUS.dySt_ergCode = "GE" + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_40 + End If + + STATUS.dySt_ergMitteilung = kopf.RegistrierNrATLAS + STATUS.dySt_ergZeitpunkt = ge.ObjektIdentifizierung.ZeitpunktEingang + + + readNCTS_GenerellesEreignis_006 = True + Select Case getVerahrensartFromBezugsNr(ge.ObjektIdentifizierung.ObjektName) + Case "NCTS" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS") + Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, kopf.RegistrierNrATLAS) + If DY_TMP2 IsNot Nothing Then STATUS.dySt_dyId = DY_TMP2.dy_Id + cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division) + STATUS.dySt_dyArt = "NCTS" + + + Case "EZA" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, kopf.RegistrierNrATLAS) + If DY_TMP2 IsNot Nothing Then STATUS.dySt_dyId = DY_TMP2.dy_Id + SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division) + STATUS.dySt_dyArt = "EZA" + End Select + + STATUS.SAVE() + + End If + End If + End If + + + Next + + End If + STATUSTMP = STATUS2 + addDGVEinarbeitung("** GenerellesEreignis **", ge.ObjektIdentifizierung.ObjektName) + + End If + End If + Next + End If + End If + + + + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_GenerellesEreignis_006 = False + End Try + End Function + Function readNCTS_QuittungEingangsverarbeitung_005(d As String, ByRef STATUSTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As Boolean Try @@ -7338,6 +7489,326 @@ Public Class frmDYNachrichtenVerarbeitung readEZA_EntscheidungAnmeldung_004 = "" End Try End Function + Function readEZA_EntscheidungAnmeldung_005(d) As String + Try + + Dim EZA As DAKOSY_Worker.EntscheidungAnmeldung_005.EntscheidungAnmeldungRLTyp = DAKOSY_Worker.EntscheidungAnmeldung_005.EntscheidungAnmeldungRLTyp.LoadFromFile(d) + Dim anr = "" + Dim regNr = "" + Dim details = "" + Dim zoellner = "" + Dim zp As Object = Nothing + + Dim division = "" + + Dim TXT_DokBeschau = "" + Dim TXT_Rückweisung = "" + Dim TXT_Mitteilung = "" + Dim TXT_Mitteilung_Zollbeamter = "" + 'Dim annahmeKz As Object = Nothing + 'Dim ueberlassungKz As Object = Nothing + 'Dim RueckgabeKz As Object = Nothing + 'Dim anordnungKz As Object = Nothing + + readEZA_EntscheidungAnmeldung_005 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + + End If + + If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_EntscheidungAnmeldung_005 = EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.ArbeitsnummerVorzeitigeAnmeldung IsNot Nothing Then + regNr = EZA.EinzelEntscheidungAnmeldung.KopfDaten.ArbeitsnummerVorzeitigeAnmeldung + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.Registriernummer IsNot Nothing Then + anr = EZA.EinzelEntscheidungAnmeldung.KopfDaten.Registriernummer + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten IsNot Nothing Then + details = EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll IsNot Nothing Then + zoellner = EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll + End If + End If + + 'POS __> DOKUMENTENBSCHAU + If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then + + For Each POS In EZA.EinzelEntscheidungAnmeldung.Position + If POS.AnordnungKz IsNot Nothing Then + '0 = Keine Beschau. 1 = Volle Gesamtbeschau. 2 = Stichprobenweise Mengenbeschau. 3 = Stichprobenweise Beschaffenheitsbeschau. 4 = Dokumentenprüfung 5= Durchleuchtung 9 = Andere. (Codeliste A1410 + Select Case POS.AnordnungKz + Case "4" '--> Dokumentenprüfung + TXT_DokBeschau &= POS.Positionsnummer & ": Dokumentenprüfung" & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine + 'MitteilungTeilnehmerBeschau + End Select + End If + If POS.RueckgabeKz IsNot Nothing Then + If POS.RueckgabeKz = "J" Then + TXT_Rückweisung &= POS.Positionsnummer & ": Rückweisung " & vbNewLine + End If + End If + + Next + End If + + If EZA.EinzelEntscheidungAnmeldung.KopfDaten IsNot Nothing Then + + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten IsNot Nothing Then + TXT_Mitteilung &= "Text: " & EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten + + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll IsNot Nothing Then + TXT_Mitteilung_Zollbeamter &= " (" & EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll & ")" + End If + TXT_Mitteilung &= vbNewLine + End If + End If + + 'End If + + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + + If readEZA_EntscheidungAnmeldung_005 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_EntscheidungAnmeldung_005 + STATUS.dySt_artMitteilung = "EA" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41 + STATUS.dySt_ergZeitpunkt = zp + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = Nothing + + If DY_TMP.dy_Status <> DAKOSY_Worker.cDY_Statusliste.S_60 Then 'Wenn beretis auf 60, dann wird kiene Änderung mehr vorgenommen! + + If anr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), anr) + STATUS.dySt_ergCode = "ANR" + STATUS.dySt_ergMitteilung = anr + ElseIf regNr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), , regNr) + STATUS.dySt_ergCode = "REGNR" + STATUS.dySt_ergMitteilung = regNr + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + End If + + STATUS.SAVE() + + addDGVEinarbeitung("EZA: EntscheidungAnmeldung", STATUS.dySt_BezugsNr) + + + + + If TXT_DokBeschau <> "" Then + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If sendToID <= 0 Then + If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then + + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + + Select Case statusAVISO + 'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + End Select + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_DokBeschau - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End If + + If TXT_Rückweisung <> "" Then + + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If sendToID <= 0 Then + If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + ' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben + Select Case statusAVISO + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + End Select + ' End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Rückweisung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End If + + + 'Nur Mitteilung - keine Beschau, RW... + If TXT_Mitteilung <> "" And TXT_Rückweisung = "" And TXT_DokBeschau = "" Then + Select Case TXT_Mitteilung.Replace("Text: ", "").Replace(".", "").Trim.ToLower + Case "entgegengenommen" + Case "Zollanmeldung entgegengenommen" + Case "0" + Case "eingegangen" + Case Else + + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1) + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If sendToID <= 0 Then + If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then + ' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!! + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + 'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + 'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben + Select Case statusAVISO + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + End Select + ' End If + ' End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Mitteilung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End Select + + End If + + + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_EntscheidungAnmeldung_005 = "" + End Try + End Function @@ -7500,6 +7971,85 @@ Public Class frmDYNachrichtenVerarbeitung readEZA_SumAErledigungsinformationVorpapier_004 = "" End Try End Function + Function readEZA_SumAErledigungsinformationVorpapier_005(d) As String + Try + + Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_SumAErledigungsinformationVorpapier_005 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + End If + + If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang + End If + If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then + ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung + End If + If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then + regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005 + STATUS.dySt_artMitteilung = "EVP" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_42 '??? + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + STATUS.dySt_ergCode = "ART" + If ART <> "" Then STATUS.dySt_ergMitteilung = ART + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_SumAErledigungsinformationVorpapier_005 = "" + End Try + End Function Function readEZA_NichtAbschliessendeFestsetzung(d) As String @@ -7737,6 +8287,84 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_NichtAbschliessendeFestsetzung005(d) As String + Try + + Dim EZA As DAKOSY_Worker.NichtAbschliessendeFestsetzung_005.NichtAbschliessendeFestsetzungTAXNTyp = DAKOSY_Worker.NichtAbschliessendeFestsetzung_005.NichtAbschliessendeFestsetzungTAXNTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_NichtAbschliessendeFestsetzung005 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + End If + + If EZA.EinzelNichtAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_NichtAbschliessendeFestsetzung005 = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_NichtAbschliessendeFestsetzung005 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_NichtAbschliessendeFestsetzung005 + STATUS.dySt_artMitteilung = "NAF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_56 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_NichtAbschliessendeFestsetzung005 = "" + End Try + End Function + Function readEZA_StornierungBescheid(d) As String Try @@ -7915,6 +8543,95 @@ Public Class frmDYNachrichtenVerarbeitung End Function + Function readEZA_StornierungBescheid_003(d) As String + Try + + Dim EZA As DAKOSY_Worker.StornierungBescheid_003.StornierungBescheidREVTyp = DAKOSY_Worker.StornierungBescheid_003.StornierungBescheidREVTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + Dim grund = "" + Dim zoellner = "" + + readEZA_StornierungBescheid_003 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + End If + + If EZA.EinzelStornierungBescheid IsNot Nothing Then + If EZA.EinzelStornierungBescheid.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_StornierungBescheid_003 = EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelStornierungBescheid.KopfDaten IsNot Nothing Then + 'If EZA.EinzelStornierungBescheid.KopfDaten.StornierteRegistrierNr IsNot Nothing Then + ' regNR = EZA.EinzelStornierungBescheid.KopfDaten.StornierteRegistrierNr + 'End If + If EZA.EinzelStornierungBescheid.KopfDaten.RegistrierNrNeu IsNot Nothing Then + regNR = EZA.EinzelStornierungBescheid.KopfDaten.RegistrierNrNeu + End If + If EZA.EinzelStornierungBescheid.KopfDaten.StornierungGrund IsNot Nothing Then + grund = EZA.EinzelStornierungBescheid.KopfDaten.StornierungGrund + End If + If EZA.EinzelStornierungBescheid.KopfDaten.ZollBearbeiter IsNot Nothing Then + zoellner = EZA.EinzelStornierungBescheid.KopfDaten.ZollBearbeiter + End If + + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_StornierungBescheid_003 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_StornierungBescheid_003 + STATUS.dySt_artMitteilung = "STORNO" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_57 + STATUS.dySt_ergZeitpunkt = zp + + + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = grund + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Stornierung Bescheid", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_StornierungBescheid_003 = "" + End Try + End Function + + Function readEZA_AbschliessendeFestsetzung(d) As String Try @@ -8173,6 +8890,92 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_AbschliessendeFestsetzung006(d) As String + Try + + Dim EZA As DAKOSY_Worker.AbschliessendeFestsetzung_006.AbschliessendeFestsetzungTAXATyp = DAKOSY_Worker.AbschliessendeFestsetzung_006.AbschliessendeFestsetzungTAXATyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_AbschliessendeFestsetzung006 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + End If + + If EZA.EinzelAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_AbschliessendeFestsetzung006 = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_AbschliessendeFestsetzung006 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_AbschliessendeFestsetzung006 + STATUS.dySt_artMitteilung = "AF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + 'Anmlededatum setzen + EZA_TMP.eza_Anmeldedatum = zp + EZA_TMP.SAVE() + + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP) + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + addDGVEinarbeitung("EZA: Abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_AbschliessendeFestsetzung006 = "" + End Try + End Function + Function readEZA_Abgabenbescheid(d) As String Try 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW @@ -9169,6 +9972,210 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_Abgabenbescheid012(d, ByRef statusTMP) As String + Try + 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW + + Dim EZA As DAKOSY_Worker.Abgabenbescheid_012.AbgabenbescheidEinfuhrTAXTyp = DAKOSY_Worker.Abgabenbescheid_012.AbgabenbescheidEinfuhrTAXTyp.LoadFromFile(d) + Dim regNr = "" + Dim regDat = "" + Dim details = "" + Dim zoellner = "" + Dim erledigung = "" + Dim zp As Object = Nothing + Dim EDIFACTNachrichtenNr = "" + Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing + Dim division = "" + + readEZA_Abgabenbescheid012 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then + division = EZA.Transaktion.IODivision1 + End If + End If + + If EZA.EinzelAbgabenbescheid IsNot Nothing Then + + 'Vorgezogen, damit firma/NL erkannt wird + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + + + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_Abgabenbescheid012 = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ZeitpunktEingang + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr IsNot Nothing Then + EDIFACTNachrichtenNr = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr + End If + End If + + If EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter IsNot Nothing Then + zoellner = EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter + End If + + If EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer IsNot Nothing Then + regNr = EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer + End If + If EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz IsNot Nothing Then + erledigung = EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz + End If + ' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then + regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum + 'End If + + If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then + Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub + AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) + For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt + a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag + a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN + a.ezaAfb_HZA = ABG.KennBuchstabenAufschub + a.ezaAfb_KontoNr = ABG.AufschubkontoNr + If ABG.Faelligkeit > CDate("01.01.2000") Then a.ezaAfb_Faelligkeit = ABG.Faelligkeit + a.ezaAfb_Zahlungsart = ABG.Zahlungsart + a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag + a.ezaAfb_AbgabeArt = ABG.AbgabeArt + a.AufschubnehmerName = ABG.AufschubnehmerName + 'Select Case AbgabeArt + ' Case "B0000" 'EUST + ' Case "B0000" 'EUST + 'End Select + Next + AUFSCHUB.Add(a) + End If + + + + End If + + If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden + STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012 + STATUS.dySt_artMitteilung = "AB" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + Select Case erledigung + Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "1" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "2" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "3" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_99 'unwirksam + Case "4" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Case "5" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "6" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "7" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_68 'Abgabe HZS + Case "8" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_61 'Erledigung außerhalb d. SB + End Select + + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNr + STATUS.dySt_ergZeitpunkt = zp + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + + If regNr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + + Dim firma = "" + Dim nl = "" + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl) + + If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then + EZA_TMP.eza_AUFSCHUB.Clear() + For Each a In AUFSCHUB + a.ezaAfb_EZAId = EZA_TMP.eza_Id + Next + EZA_TMP.eza_AUFSCHUB = AUFSCHUB + EZA_TMP.SAVE_Aufschub() + + cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN + 'RAISE-API-EVENT/TRIGGER ?? + End If + + ' ------------------------------------------------------------------------------ + ' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros! + Select Case erledigung + Case "4" + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Dim MailTo = "eu@verag.ag" + Select Case EZA_TMP.eza_firma + Case "IMEX" : MailTo = "info@imex-group.at" + Case "ATILLA" : MailTo = "atilla@verag.ag" + Case "UNISPED" : MailTo = "office@unisped.at" + Case "VERAG" + Select Case EZA_TMP.eza_niederlassung + Case "WAI" : MailTo = "waidhaus@verag.com" + Case "SBG" : MailTo = "de@verag.ag" + End Select + End Select + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid012, + "Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid012 & "

Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "

Automatisch generiertes E-Mail.", + , True, True) + + 'Anmlededatum setzen + EZA_TMP.eza_Anmeldedatum = zp + EZA_TMP.SAVE() + 'Case "5" + ' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + ' Dim MailTo = "al@verag.ag" + + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid, + ' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "

Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "

Automatisch generiertes E-Mail.", + ' , True, True) + Case "5", "6" + + + 'Anmlededatum setzen + EZA_TMP.eza_Anmeldedatum = zp + EZA_TMP.SAVE() + + End Select + ' ------------------------------------------------------------------------------ + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + If EZA IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, readEZA_Abgabenbescheid012, regDat, firma, nl, EDIFACTNachrichtenNr) + End If + + + 'Status aktualisieren + saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + statusTMP = STATUS + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + + addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr) + End If + + + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_Abgabenbescheid012 = "" + End Try + End Function + Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr) Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr)