From 3950f2f100242f9070b8ce7912a1e408ad4561cd Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 14 Oct 2024 21:21:53 +0200 Subject: [PATCH] ImportZA to DAKOSY Fix --- ...erkehrAktVeredelUmwandlung_004.Designer.vb | 441 +- .../FreierVerkehrAktVeredelUmwandlung_004.xsd | 35 +- ...erVerkehrAktVeredelUmwandlung_004_OLD2.xsd | 609 -- ...AktVeredelUmwandlung_004_V2022.designer.vb | 8894 ----------------- ...rVerkehrAktVeredelUmwandlung_004_V2022.xsd | 674 -- ...rVerkehrAktVeredelUmwandlung_004_V2023.xsd | 619 -- ...AktVeredelUmwandlung_004_V2024.Designer.vb | 8679 ---------------- ...rVerkehrAktVeredelUmwandlung_004_V2024.xsd | 697 -- ...ierVerkehrAktVeredelUmwandlung_004_old.xsd | 568 -- ...erkehrAktVeredelUmwandlung_004.Designer.vb | 7644 -------------- .../ATLAS/EZA/FreierVerkehr/xsd2code.config | 20 +- .../VersandanmeldungNCTSDE_004.Designer.vb | 57 +- DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 25 +- 13 files changed, 524 insertions(+), 28438 deletions(-) delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2023.xsd delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.Designer.vb delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.xsd delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd delete mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb index b5248b7..dc649b8 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net47","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' {"TargetFramework":"Net48","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning @@ -70,6 +70,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -278,6 +279,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -604,6 +606,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -889,6 +892,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1186,6 +1190,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1375,6 +1380,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1636,6 +1642,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1837,6 +1844,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2026,6 +2034,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2263,6 +2272,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2464,6 +2474,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2653,6 +2664,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2866,6 +2878,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3067,6 +3080,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3361,11 +3375,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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)() @@ -4152,6 +4169,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 @@ -4174,6 +4201,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4307,6 +4335,380 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True + 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() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True + 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 + + 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 @@ -5398,6 +5815,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5659,6 +6077,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5920,6 +6339,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6133,6 +6553,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6502,6 +6923,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6823,6 +7245,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7089,11 +7512,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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)() @@ -7737,6 +8163,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 @@ -7759,6 +8195,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8008,6 +8445,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8191,6 +8629,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd index ea7f9ac..2441680 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd @@ -1,6 +1,10 @@ - + + + Version 004 - Release 031 + + @@ -183,6 +187,22 @@ + + + + + + + + + + + + + + + + @@ -245,6 +265,7 @@ + @@ -296,7 +317,7 @@ - + @@ -396,6 +417,7 @@ + @@ -470,6 +492,12 @@ + + + + + + @@ -493,7 +521,7 @@ - + @@ -578,6 +606,7 @@ + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd deleted file mode 100644 index 61656d7..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd +++ /dev/null @@ -1,609 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb deleted file mode 100644 index 4b413a0..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb +++ /dev/null @@ -1,8894 +0,0 @@ -'' ------------------------------------------------------------------------------ -'' -'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net20","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"IndentChars":"Indent1Space","NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} -'' -'' ------------------------------------------------------------------------------ -#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 _OLD2022_FreierVerkehrAktVeredelUmwandlung_004 - - - Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp - Inherits DatenaustauschFreierVerkehrTyp - -#Region "Private fields" - Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) - - Private Shared _serializerXml As XmlSerializer -#End Region - - Public Sub New() - MyBase.New - Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() - End Sub - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FreierVerkehrAktVeredelUmwandlungAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp - Get - Return Me._objektIdentifizierung - End Get - Set - Me._objektIdentifizierung = Value - End Set - End Property - - - Public Overridable Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Get - Return Me._kopfDaten - End Get - Set - Me._kopfDaten = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property ObjektName() As String - Get - Return Me._objektName - End Get - Set - Me._objektName = Value - End Set - End Property - - - Public Overridable Property ObjektAlias() As String - Get - Return Me._objektAlias - End Get - Set - Me._objektAlias = Value - End Set - End Property - - - Public Overridable Property AnmeldungArt() As String - Get - Return Me._anmeldungArt - End Get - Set - Me._anmeldungArt = Value - End Set - End Property - - - Public Overridable Property ObjektQuittung() As String - Get - Return Me._objektQuittung - End Get - Set - Me._objektQuittung = Value - End Set - End Property - - - Public Overridable Property BezugsnummerVorblendung() As String - Get - Return Me._bezugsnummerVorblendung - End Get - Set - Me._bezugsnummerVorblendung = Value - End Set - End Property - - - Public Overridable Property UserVorblendung() As String - Get - Return Me._userVorblendung - End Get - Set - Me._userVorblendung = Value - End Set - End Property - - - Public Overridable Property KopieVon() As String - Get - Return Me._kopieVon - End Get - Set - Me._kopieVon = Value - End Set - End Property - - - Public Overridable Property ObjektAktion() As List(Of String) - Get - Return Me._objektAktion - End Get - Set - Me._objektAktion = Value - End Set - End Property - - - Public Overridable Property CompliancePruefung() As String - Get - Return Me._compliancePruefung - End Get - Set - Me._compliancePruefung = Value - End Set - End Property - - - Public Overridable Property Bearbeiter() As String - Get - Return Me._bearbeiter - End Get - Set - Me._bearbeiter = Value - End Set - End Property - - - Public Overridable Property AnfBemerkungStatusanzeige() As String - Get - Return Me._anfBemerkungStatusanzeige - End Get - Set - Me._anfBemerkungStatusanzeige = Value - End Set - End Property - - - Public Overridable Property AbsenderSystemName() As String - Get - Return Me._absenderSystemName - End Get - Set - Me._absenderSystemName = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ObjektIdentifizierungAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property VerkehrszweigInland() As String - Get - Return Me._verkehrszweigInland - End Get - Set - Me._verkehrszweigInland = Value - End Set - End Property - - - Public Overridable Property VerkehrszweigGrenze() As String - Get - Return Me._verkehrszweigGrenze - End Get - Set - Me._verkehrszweigGrenze = Value - End Set - End Property - - - Public Overridable Property Versendungsland() As String - Get - Return Me._versendungsland - End Get - Set - Me._versendungsland = Value - End Set - End Property - - - Public Overridable Property Bestimmungsbundesland() As String - Get - Return Me._bestimmungsbundesland - End Get - Set - Me._bestimmungsbundesland = Value - End Set - End Property - - - Public Overridable Property Bestimmungsland() As String - Get - Return Me._bestimmungsland - End Get - Set - Me._bestimmungsland = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String - Get - Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode - End Get - Set - Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelGrenzeArt() As String - Get - Return Me._befoerderungsmittelGrenzeArt - End Get - Set - Me._befoerderungsmittelGrenzeArt = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelBeschreibung() As String - Get - Return Me._befoerderungsmittelBeschreibung - End Get - Set - Me._befoerderungsmittelBeschreibung = Value - End Set - End Property - - - Public Overridable Property ArtGeschaeft() As String - Get - Return Me._artGeschaeft - End Get - Set - Me._artGeschaeft = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AussenhandelsstatistikAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property ArtCode() As String - Get - Return Me._artCode - End Get - Set - Me._artCode = Value - End Set - End Property - - - Public Overridable Property BeschreibungAndereZahlungen() As String - Get - Return Me._beschreibungAndereZahlungen - End Get - Set - Me._beschreibungAndereZahlungen = Value - End Set - End Property - - - Public Overridable Property Betrag() As String - Get - Return Me._betrag - End Get - Set - Me._betrag = Value - End Set - End Property - - - Public Overridable Property Waehrung() As String - Get - Return Me._waehrung - End Get - Set - Me._waehrung = Value - End Set - End Property - - - Public Overridable Property KursVereinbartKz() As String - Get - Return Me._kursVereinbartKz - End Get - Set - Me._kursVereinbartKz = Value - End Set - End Property - - - Public Overridable Property KursDatum() As Date - Get - Return Me._kursDatum - End Get - Set - Me._kursDatum = Value - End Set - End Property - - - Public Overridable Property Prozentsatz() As String - Get - Return Me._prozentsatz - End Get - Set - Me._prozentsatz = Value - End Set - End Property - - - Public Overridable Property BetragInEUR() As String - Get - Return Me._betragInEUR - End Get - Set - Me._betragInEUR = Value - End Set - End Property - - - Public Overridable Property IATAKursKz() As String - Get - Return Me._iATAKursKz - End Get - Set - Me._iATAKursKz = Value - End Set - End Property - - - Public Overridable Property FrachtkostenBerechnungsgrundlage() As String - Get - Return Me._frachtkostenBerechnungsgrundlage - End Get - Set - Me._frachtkostenBerechnungsgrundlage = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbzugHinzurechnungAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Wert() As String - Get - Return Me._wert - End Get - Set - Me._wert = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, BesondereWertangabeAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BesondereWertangabeAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Bereich() As String - Get - Return Me._bereich - End Get - Set - Me._bereich = Value - End Set - End Property - - - Public Overridable Property Art() As String - Get - Return Me._art - End Get - Set - Me._art = Value - End Set - End Property - - - Public Overridable Property Nummer() As String - Get - Return Me._nummer - End Get - Set - Me._nummer = Value - End Set - End Property - - - Public Overridable Property DatumAusstellung() As Date - Get - Return Me._datumAusstellung - End Get - Set - Me._datumAusstellung = Value - End Set - End Property - - - Public Overridable Property VorlageKz() As String - Get - Return Me._vorlageKz - End Get - Set - Me._vorlageKz = Value - End Set - End Property - - - Public Overridable Property AbschreibungsMenge() As String - Get - Return Me._abschreibungsMenge - End Get - Set - Me._abschreibungsMenge = Value - End Set - End Property - - - Public Overridable Property AbschreibungsMengeMasseinheit() As String - Get - Return Me._abschreibungsMengeMasseinheit - End Get - Set - Me._abschreibungsMengeMasseinheit = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, UnterlageVZPositionAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVZPositionAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property SonderabgabenGruppeCode() As String - Get - Return Me._sonderabgabenGruppeCode - End Get - Set - Me._sonderabgabenGruppeCode = Value - End Set - End Property - - - Public Overridable Property AnwendungArt() As String - Get - Return Me._anwendungArt - End Get - Set - Me._anwendungArt = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, SonderfalldatenAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SonderfalldatenAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property AbgabengruppeCode() As String - Get - Return Me._abgabengruppeCode - End Get - Set - Me._abgabengruppeCode = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AbgabenminderungAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabenminderungAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property VerbrauchsteuerCode() As String - Get - Return Me._verbrauchsteuerCode - End Get - Set - Me._verbrauchsteuerCode = Value - End Set - End Property - - - Public Overridable Property VerbrauchssteuerMenge() As String - Get - Return Me._verbrauchssteuerMenge - End Get - Set - Me._verbrauchssteuerMenge = Value - End Set - End Property - - - Public Overridable Property VerbrauchssteuerMasseinheitCode() As String - Get - Return Me._verbrauchssteuerMasseinheitCode - End Get - Set - Me._verbrauchssteuerMasseinheitCode = Value - End Set - End Property - - - Public Overridable Property VerbrauchssteuerMasseinheitQualifier() As String - Get - Return Me._verbrauchssteuerMasseinheitQualifier - End Get - Set - Me._verbrauchssteuerMasseinheitQualifier = Value - End Set - End Property - - - Public Overridable Property GradProzent() As String - Get - Return Me._gradProzent - End Get - Set - Me._gradProzent = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, VerbrauchssteuerAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As VerbrauchssteuerAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Menge() As String - Get - Return Me._menge - End Get - Set - Me._menge = Value - End Set - End Property - - - Public Overridable Property MasseinheitCode() As String - Get - Return Me._masseinheitCode - End Get - Set - Me._masseinheitCode = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BeguenstigungsMengeAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property ArtCode() As String - Get - Return Me._artCode - End Get - Set - Me._artCode = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, GehaltsangabenAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As GehaltsangabenAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Warenbezeichnung() As String - Get - Return Me._warenbezeichnung - End Get - Set - Me._warenbezeichnung = Value - End Set - End Property - - - Public Overridable Property Ausbeuteart() As String - Get - Return Me._ausbeuteart - End Get - Set - Me._ausbeuteart = Value - End Set - End Property - - - Public Overridable Property Ausbeutesatz() As String - Get - Return Me._ausbeutesatz - End Get - Set - Me._ausbeutesatz = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AVVeredelungserzeugnisTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVVeredelungserzeugnisTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Menge() As String - Get - Return Me._menge - End Get - Set - Me._menge = Value - End Set - End Property - - - Public Overridable Property Masseinheit() As String - Get - Return Me._masseinheit - End Get - Set - Me._masseinheit = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, WarenMengeAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As WarenMengeAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(dataString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp - -#Region "Private fields" - Private _positionsnummer As String - - Private _artikelNummer As String - - Private _warenNummerEZT As String - - Private _warenNummerZusatzCode As List(Of String) - - Private _warenNummerZusatz1 As String - - Private _warenNummerZusatz2 As String - - Private _warenBezeichnung As String - - Private _verfahrenscodeVorangegangenesVerfahren As String - - Private _abgabensteuerungKz As String - - Private _eUCode As List(Of String) - - Private _ursprungslandCode As String - - Private _praeferenzursprungsland As String - - Private _rohmasse As String - - Private _eigenmasse As String - - Private _aHStatMenge As String - - Private _aHStatMengeMasseinheit As String - - Private _aHStatMengeQualifier As String - - Private _kostenEUSt As String - - Private _aHStatWert As String - - Private _packstueckAnzahl As String - - Private _packstueckArt As String - - Private _packstueckZeichen As String - - Private _warenMenge As List(Of WarenMengeAVUVTyp) - - Private _warenMengeZoll As String - - Private _warenMengeZollMasseinheit As String - - Private _warenMengeZollMasseinheitQualifier As String - - Private _beguenstigungBeantragtCode As String - - Private _kontingentnummer As List(Of String) - - Private _positionsZusatz As String - - Private _aHStatWertManuellKZ As String - - Private _artikelpreis As String - - Private _ortVerbringens As String - - Private _abflughafenIATACode As String - - Private _warenmengeAVUVZugang As String - - Private _warenmengeAVUVZugangMasseinheit As String - - Private _warenmengeAVUVZugangMasseinheitQualifier As String - - Private _warenmengeAgrarzoll As String - - Private _warenmengeAgrarzollMasseinheit As String - - Private _warenmengeAgrarzollMasseinheitQualifier As String - - Private _sachbereich As String - - Private _bedingungCode As String - - Private _veredelungWertsteigerung As String - - Private _tabakSteuerzeichenID As String - - Private _aVWirtschaftlicheVoraussetzungen As String - - Private _aVNaemlichkeitsmittel As String - - Private _aVErlaeuterungNaemlichkeit As String - - Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) - - Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) - - Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp - - Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) - - Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) - - Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) - - Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) - - Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) - - Private _vZAStatus As String - - Private _eGZStatus As String - - Private _dV1Status As String - - Private _anmeldeArt As String - - Private _befundDatum As Date - - Private _anmelderAdressCodeEORI As String - - Private _anmelderAdressCodeZollnummer As String - - Private _zollverfahren As String - - Private _abrechnungszollstelleCode As String - - Private _sachbereichCode As String - - Private _registriernummervZA As String - - Private _anmeldeVerfahren As String - - Private _bewilligungsnummer As String - - Private _bewilligungsnummerEndverwenderEGZDurchDritte As String - - Private _zollwert As String - - Private _luftfrachtkostenGesamt As String - - Private _iATAKursKz As String - - Private _luftfrachtkostenGesamtWaehrung As String - - Private _kursVereinbartKz As String - - Private _kursBetragVereinbart As String - - Private _kursDatum As Date - - Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) - - Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp - - Private Shared _serializerXml As XmlSerializer -#End Region - - Public Sub New() - MyBase.New - Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() - Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() - Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() - Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() - Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() - Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() - Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() - Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() - Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() - Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() - Me._kontingentnummer = New List(Of String)() - Me._warenMenge = New List(Of WarenMengeAVUVTyp)() - Me._eUCode = New List(Of String)() - Me._warenNummerZusatzCode = New List(Of String)() - End Sub - - - Public Overridable Property Positionsnummer() As String - Get - Return Me._positionsnummer - End Get - Set - Me._positionsnummer = Value - End Set - End Property - - - Public Overridable Property ArtikelNummer() As String - Get - Return Me._artikelNummer - End Get - Set - Me._artikelNummer = Value - End Set - End Property - - - Public Overridable Property WarenNummerEZT() As String - Get - Return Me._warenNummerEZT - End Get - Set - Me._warenNummerEZT = Value - End Set - End Property - - - Public Overridable Property WarenNummerZusatzCode() As List(Of String) - Get - Return Me._warenNummerZusatzCode - End Get - Set - Me._warenNummerZusatzCode = Value - End Set - End Property - - - Public Overridable Property WarenNummerZusatz1() As String - Get - Return Me._warenNummerZusatz1 - End Get - Set - Me._warenNummerZusatz1 = Value - End Set - End Property - - - Public Overridable Property WarenNummerZusatz2() As String - Get - Return Me._warenNummerZusatz2 - End Get - Set - Me._warenNummerZusatz2 = Value - End Set - End Property - - - Public Overridable Property WarenBezeichnung() As String - Get - Return Me._warenBezeichnung - End Get - Set - Me._warenBezeichnung = Value - End Set - End Property - - - Public Overridable Property VerfahrenscodeVorangegangenesVerfahren() As String - Get - Return Me._verfahrenscodeVorangegangenesVerfahren - End Get - Set - Me._verfahrenscodeVorangegangenesVerfahren = Value - End Set - End Property - - - Public Overridable Property AbgabensteuerungKz() As String - Get - Return Me._abgabensteuerungKz - End Get - Set - Me._abgabensteuerungKz = Value - End Set - End Property - - - Public Overridable Property EUCode() As List(Of String) - Get - Return Me._eUCode - End Get - Set - Me._eUCode = Value - End Set - End Property - - - Public Overridable Property UrsprungslandCode() As String - Get - Return Me._ursprungslandCode - End Get - Set - Me._ursprungslandCode = Value - End Set - End Property - - - Public Overridable Property Praeferenzursprungsland() As String - Get - Return Me._praeferenzursprungsland - End Get - Set - Me._praeferenzursprungsland = Value - End Set - End Property - - - Public Overridable Property Rohmasse() As String - Get - Return Me._rohmasse - End Get - Set - Me._rohmasse = Value - End Set - End Property - - - Public Overridable Property Eigenmasse() As String - Get - Return Me._eigenmasse - End Get - Set - Me._eigenmasse = Value - End Set - End Property - - - Public Overridable Property AHStatMenge() As String - Get - Return Me._aHStatMenge - End Get - Set - Me._aHStatMenge = Value - End Set - End Property - - - Public Overridable Property AHStatMengeMasseinheit() As String - Get - Return Me._aHStatMengeMasseinheit - End Get - Set - Me._aHStatMengeMasseinheit = Value - End Set - End Property - - - Public Overridable Property AHStatMengeQualifier() As String - Get - Return Me._aHStatMengeQualifier - End Get - Set - Me._aHStatMengeQualifier = Value - End Set - End Property - - - Public Overridable Property KostenEUSt() As String - Get - Return Me._kostenEUSt - End Get - Set - Me._kostenEUSt = Value - End Set - End Property - - - Public Overridable Property AHStatWert() As String - Get - Return Me._aHStatWert - End Get - Set - Me._aHStatWert = Value - End Set - End Property - - - Public Overridable Property PackstueckAnzahl() As String - Get - Return Me._packstueckAnzahl - End Get - Set - Me._packstueckAnzahl = Value - End Set - End Property - - - Public Overridable Property PackstueckArt() As String - Get - Return Me._packstueckArt - End Get - Set - Me._packstueckArt = Value - End Set - End Property - - - Public Overridable Property PackstueckZeichen() As String - Get - Return Me._packstueckZeichen - End Get - Set - Me._packstueckZeichen = Value - End Set - End Property - - - Public Overridable Property WarenMenge() As List(Of WarenMengeAVUVTyp) - Get - Return Me._warenMenge - End Get - Set - Me._warenMenge = Value - End Set - End Property - - - Public Overridable Property WarenMengeZoll() As String - Get - Return Me._warenMengeZoll - End Get - Set - Me._warenMengeZoll = Value - End Set - End Property - - - Public Overridable Property WarenMengeZollMasseinheit() As String - Get - Return Me._warenMengeZollMasseinheit - End Get - Set - Me._warenMengeZollMasseinheit = Value - End Set - End Property - - - Public Overridable Property WarenMengeZollMasseinheitQualifier() As String - Get - Return Me._warenMengeZollMasseinheitQualifier - End Get - Set - Me._warenMengeZollMasseinheitQualifier = Value - End Set - End Property - - - Public Overridable Property BeguenstigungBeantragtCode() As String - Get - Return Me._beguenstigungBeantragtCode - End Get - Set - Me._beguenstigungBeantragtCode = Value - End Set - End Property - - - Public Overridable Property Kontingentnummer() As List(Of String) - Get - Return Me._kontingentnummer - End Get - Set - Me._kontingentnummer = Value - End Set - End Property - - - Public Overridable Property PositionsZusatz() As String - Get - Return Me._positionsZusatz - End Get - Set - Me._positionsZusatz = Value - End Set - End Property - - - Public Overridable Property AHStatWertManuellKZ() As String - Get - Return Me._aHStatWertManuellKZ - End Get - Set - Me._aHStatWertManuellKZ = Value - End Set - End Property - - - Public Overridable Property Artikelpreis() As String - Get - Return Me._artikelpreis - End Get - Set - Me._artikelpreis = Value - End Set - End Property - - - Public Overridable Property OrtVerbringens() As String - Get - Return Me._ortVerbringens - End Get - Set - Me._ortVerbringens = Value - End Set - End Property - - - Public Overridable Property AbflughafenIATACode() As String - Get - Return Me._abflughafenIATACode - End Get - Set - Me._abflughafenIATACode = Value - End Set - End Property - - - Public Overridable Property WarenmengeAVUVZugang() As String - Get - Return Me._warenmengeAVUVZugang - End Get - Set - Me._warenmengeAVUVZugang = Value - End Set - End Property - - - Public Overridable Property WarenmengeAVUVZugangMasseinheit() As String - Get - Return Me._warenmengeAVUVZugangMasseinheit - End Get - Set - Me._warenmengeAVUVZugangMasseinheit = Value - End Set - End Property - - - Public Overridable Property WarenmengeAVUVZugangMasseinheitQualifier() As String - Get - Return Me._warenmengeAVUVZugangMasseinheitQualifier - End Get - Set - Me._warenmengeAVUVZugangMasseinheitQualifier = Value - End Set - End Property - - - Public Overridable Property WarenmengeAgrarzoll() As String - Get - Return Me._warenmengeAgrarzoll - End Get - Set - Me._warenmengeAgrarzoll = Value - End Set - End Property - - - Public Overridable Property WarenmengeAgrarzollMasseinheit() As String - Get - Return Me._warenmengeAgrarzollMasseinheit - End Get - Set - Me._warenmengeAgrarzollMasseinheit = Value - End Set - End Property - - - Public Overridable Property WarenmengeAgrarzollMasseinheitQualifier() As String - Get - Return Me._warenmengeAgrarzollMasseinheitQualifier - End Get - Set - Me._warenmengeAgrarzollMasseinheitQualifier = Value - End Set - End Property - - - Public Overridable Property Sachbereich() As String - Get - Return Me._sachbereich - End Get - Set - Me._sachbereich = Value - End Set - End Property - - - Public Overridable Property BedingungCode() As String - Get - Return Me._bedingungCode - End Get - Set - Me._bedingungCode = Value - End Set - End Property - - - Public Overridable Property VeredelungWertsteigerung() As String - Get - Return Me._veredelungWertsteigerung - End Get - Set - Me._veredelungWertsteigerung = Value - End Set - End Property - - - Public Overridable Property TabakSteuerzeichenID() As String - Get - Return Me._tabakSteuerzeichenID - End Get - Set - Me._tabakSteuerzeichenID = Value - End Set - End Property - - - Public Overridable Property AVWirtschaftlicheVoraussetzungen() As String - Get - Return Me._aVWirtschaftlicheVoraussetzungen - End Get - Set - Me._aVWirtschaftlicheVoraussetzungen = Value - End Set - End Property - - - Public Overridable Property AVNaemlichkeitsmittel() As String - Get - Return Me._aVNaemlichkeitsmittel - End Get - Set - Me._aVNaemlichkeitsmittel = Value - End Set - End Property - - - Public Overridable Property AVErlaeuterungNaemlichkeit() As String - Get - Return Me._aVErlaeuterungNaemlichkeit - End Get - Set - Me._aVErlaeuterungNaemlichkeit = Value - End Set - End Property - - - Public Overridable Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) - Get - Return Me._aVVeredelungserzeugnis - End Get - Set - Me._aVVeredelungserzeugnis = Value - End Set - End Property - - - Public Overridable Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) - Get - Return Me._gehaltsangaben - End Get - Set - Me._gehaltsangaben = Value - End Set - End Property - - - Public Overridable Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp - Get - Return Me._beguenstigungsmenge - End Get - Set - Me._beguenstigungsmenge = Value - End Set - End Property - - - Public Overridable Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) - Get - Return Me._verbrauchssteuer - End Get - Set - Me._verbrauchssteuer = Value - End Set - End Property - - - Public Overridable Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) - Get - Return Me._abgabenminderung - End Get - Set - Me._abgabenminderung = Value - End Set - End Property - - - Public Overridable Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) - Get - Return Me._sonderfalldaten - End Get - Set - Me._sonderfalldaten = Value - End Set - End Property - - - Public Overridable Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) - Get - Return Me._unterlage - End Get - Set - Me._unterlage = Value - End Set - End Property - - - Public Overridable Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) - Get - Return Me._besondereWertangabe - End Get - Set - Me._besondereWertangabe = Value - End Set - End Property - - - Public Overridable Property VZAStatus() As String - Get - Return Me._vZAStatus - End Get - Set - Me._vZAStatus = Value - End Set - End Property - - - Public Overridable Property EGZStatus() As String - Get - Return Me._eGZStatus - End Get - Set - Me._eGZStatus = Value - End Set - End Property - - - Public Overridable Property DV1Status() As String - Get - Return Me._dV1Status - End Get - Set - Me._dV1Status = Value - End Set - End Property - - - Public Overridable Property AnmeldeArt() As String - Get - Return Me._anmeldeArt - End Get - Set - Me._anmeldeArt = Value - End Set - End Property - - - Public Overridable Property BefundDatum() As Date - Get - Return Me._befundDatum - End Get - Set - Me._befundDatum = Value - End Set - End Property - - - Public Overridable Property AnmelderAdressCodeEORI() As String - Get - Return Me._anmelderAdressCodeEORI - End Get - Set - Me._anmelderAdressCodeEORI = Value - End Set - End Property - - - Public Overridable Property AnmelderAdressCodeZollnummer() As String - Get - Return Me._anmelderAdressCodeZollnummer - End Get - Set - Me._anmelderAdressCodeZollnummer = Value - End Set - End Property - - - Public Overridable Property Zollverfahren() As String - Get - Return Me._zollverfahren - End Get - Set - Me._zollverfahren = Value - End Set - End Property - - - Public Overridable Property AbrechnungszollstelleCode() As String - Get - Return Me._abrechnungszollstelleCode - End Get - Set - Me._abrechnungszollstelleCode = Value - End Set - End Property - - - Public Overridable Property SachbereichCode() As String - Get - Return Me._sachbereichCode - End Get - Set - Me._sachbereichCode = Value - End Set - End Property - - - Public Overridable Property RegistriernummervZA() As String - Get - Return Me._registriernummervZA - End Get - Set - Me._registriernummervZA = Value - End Set - End Property - - - Public Overridable Property AnmeldeVerfahren() As String - Get - Return Me._anmeldeVerfahren - End Get - Set - Me._anmeldeVerfahren = Value - End Set - End Property - - - Public Overridable Property Bewilligungsnummer() As String - Get - Return Me._bewilligungsnummer - End Get - Set - Me._bewilligungsnummer = Value - End Set - End Property - - - Public Overridable Property BewilligungsnummerEndverwenderEGZDurchDritte() As String - Get - Return Me._bewilligungsnummerEndverwenderEGZDurchDritte - End Get - Set - Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value - End Set - End Property - - - Public Overridable Property Zollwert() As String - Get - Return Me._zollwert - End Get - Set - Me._zollwert = Value - End Set - End Property - - - Public Overridable Property LuftfrachtkostenGesamt() As String - Get - Return Me._luftfrachtkostenGesamt - End Get - Set - Me._luftfrachtkostenGesamt = Value - End Set - End Property - - - Public Overridable Property IATAKursKz() As String - Get - Return Me._iATAKursKz - End Get - Set - Me._iATAKursKz = Value - End Set - End Property - - - Public Overridable Property LuftfrachtkostenGesamtWaehrung() As String - Get - Return Me._luftfrachtkostenGesamtWaehrung - End Get - Set - Me._luftfrachtkostenGesamtWaehrung = Value - End Set - End Property - - - Public Overridable Property KursVereinbartKz() As String - Get - Return Me._kursVereinbartKz - End Get - Set - Me._kursVereinbartKz = Value - End Set - End Property - - - Public Overridable Property KursBetragVereinbart() As String - Get - Return Me._kursBetragVereinbart - End Get - Set - Me._kursBetragVereinbart = Value - End Set - End Property - - - Public Overridable Property KursDatum() As Date - Get - Return Me._kursDatum - End Get - Set - Me._kursDatum = Value - End Set - End Property - - - Public Overridable Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) - Get - Return Me._abzugHinzurechnung - End Get - Set - Me._abzugHinzurechnung = Value - End Set - End Property - - - Public Overridable Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp - Get - Return Me._aussenhandelsstatistik - End Get - Set - Me._aussenhandelsstatistik = Value - End Set - End Property - - Private Shared ReadOnly Property SerializerXml() As XmlSerializer - Get - If (_serializerXml Is Nothing) Then - _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) - End If - Return _serializerXml - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' XML value - Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As PositionEinfuhrUnvollstaendigeAnmeldungTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property AdressTyp() As String - Get - Return Me._adressTyp - End Get - Set - Me._adressTyp = Value - End Set - End Property - - - Public Overridable Property AdressCode() As String - Get - Return Me._adressCode - End Get - Set - Me._adressCode = Value - End Set - End Property - - - Public Overridable Property TeilnehmerEORI() As String - Get - Return Me._teilnehmerEORI - End Get - Set - Me._teilnehmerEORI = Value - End Set - End Property - - - Public Overridable Property TeilnehmerNLNR() As String - Get - Return Me._teilnehmerNLNR - End Get - Set - Me._teilnehmerNLNR = Value - End Set - End Property - - - Public Overridable Property ZollNr() As String - Get - Return Me._zollNr - End Get - Set - Me._zollNr = Value - End Set - End Property - - - Public Overridable Property NameFirma() As String - Get - Return Me._nameFirma - End Get - Set - Me._nameFirma = Value - End Set - End Property - - - Public Overridable Property StrasseHausNr() As String - Get - Return Me._strasseHausNr - End Get - Set - Me._strasseHausNr = Value - End Set - End Property - - - Public Overridable Property Ortsteil() As String - Get - Return Me._ortsteil - End Get - Set - Me._ortsteil = Value - End Set - End Property - - - Public Overridable Property LandCode() As String - Get - Return Me._landCode - End Get - Set - Me._landCode = Value - End Set - End Property - - - Public Overridable Property PLZS() As String - Get - Return Me._pLZS - End Get - Set - Me._pLZS = Value - End Set - End Property - - - Public Overridable Property OrtS() As String - Get - Return Me._ortS - End Get - Set - Me._ortS = Value - End Set - End Property - - - Public Overridable Property UStIDAnmelder() As String - Get - Return Me._uStIDAnmelder - End Get - Set - Me._uStIDAnmelder = Value - End Set - End Property - - - Public Overridable Property FinanzamtIDAnmelder() As String - Get - Return Me._finanzamtIDAnmelder - End Get - Set - Me._finanzamtIDAnmelder = Value - End Set - End Property - - - Public Overridable Property SitzEinfuehrer() As String - Get - Return Me._sitzEinfuehrer - End Get - Set - Me._sitzEinfuehrer = Value - End Set - End Property - - - Public Overridable Property Bewilligungsnummer() As String - Get - Return Me._bewilligungsnummer - End Get - Set - Me._bewilligungsnummer = Value - End Set - End Property - - - Public Overridable Property BewilligungFachVerfahren() As String - Get - Return Me._bewilligungFachVerfahren - End Get - Set - Me._bewilligungFachVerfahren = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AdressenVzImportAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AdressenVzImportAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Kennnummer() As String - Get - Return Me._kennnummer - End Get - Set - Me._kennnummer = Value - End Set - End Property - - - Public Overridable Property SteuerbeteiligterTIN() As String - Get - Return Me._steuerbeteiligterTIN - End Get - Set - Me._steuerbeteiligterTIN = Value - End Set - End Property - - - Public Overridable Property Name() As String - Get - Return Me._name - End Get - Set - Me._name = Value - End Set - End Property - - - Public Overridable Property StrasseUndHausnummer() As String - Get - Return Me._strasseUndHausnummer - End Get - Set - Me._strasseUndHausnummer = Value - End Set - End Property - - - Public Overridable Property Land() As String - Get - Return Me._land - End Get - Set - Me._land = Value - End Set - End Property - - - Public Overridable Property PLZ() As String - Get - Return Me._pLZ - End Get - Set - Me._pLZ = Value - End Set - End Property - - - Public Overridable Property Ort() As String - Get - Return Me._ort - End Get - Set - Me._ort = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ZusaetzlicheSteuerlicheVerweiseTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Strasse() As String - Get - Return Me._strasse - End Get - Set - Me._strasse = Value - End Set - End Property - - - Public Overridable Property Land() As String - Get - Return Me._land - End Get - Set - Me._land = Value - End Set - End Property - - - Public Overridable Property PLZ() As String - Get - Return Me._pLZ - End Get - Set - Me._pLZ = Value - End Set - End Property - - - Public Overridable Property Ort() As String - Get - Return Me._ort - End Get - Set - Me._ort = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AVBuchhaltVeredelungTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVBuchhaltVeredelungTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(dataString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class BEAnteilZLAVUVPositionAVUVTyp - -#Region "Private fields" - Private _registriernummerZugang As String - - Private _positionZugang As String - - Private _artikelcodeATZL As String - - Private _eigentuemerATZL As String - - Private _chargennummerATZL As String - - Private _ursprungslandATZL As String - - Private _atlasKz As String - - Private _warennummer As String - - Private _ueblicheBehandlungKz As String - - Private _handelsmenge As String - - Private _masseinheitHandelsmenge As String - - Private _qualifikatorHandelsmenge As String - - Private _abgangsmenge As String - - Private _masseinheitAbgangsmenge As String - - Private _qualifikatorAbgangsmenge As String - - Private _positionszusatz As String - - Private _warenbezogeneAngaben As String - - Private Shared _serializerXml As XmlSerializer -#End Region - - - Public Overridable Property RegistriernummerZugang() As String - Get - Return Me._registriernummerZugang - End Get - Set - Me._registriernummerZugang = Value - End Set - End Property - - - Public Overridable Property PositionZugang() As String - Get - Return Me._positionZugang - End Get - Set - Me._positionZugang = Value - End Set - End Property - - - Public Overridable Property ArtikelcodeATZL() As String - Get - Return Me._artikelcodeATZL - End Get - Set - Me._artikelcodeATZL = Value - End Set - End Property - - - Public Overridable Property EigentuemerATZL() As String - Get - Return Me._eigentuemerATZL - End Get - Set - Me._eigentuemerATZL = Value - End Set - End Property - - - Public Overridable Property ChargennummerATZL() As String - Get - Return Me._chargennummerATZL - End Get - Set - Me._chargennummerATZL = Value - End Set - End Property - - - Public Overridable Property UrsprungslandATZL() As String - Get - Return Me._ursprungslandATZL - End Get - Set - Me._ursprungslandATZL = Value - End Set - End Property - - - Public Overridable Property AtlasKz() As String - Get - Return Me._atlasKz - End Get - Set - Me._atlasKz = Value - End Set - End Property - - - Public Overridable Property Warennummer() As String - Get - Return Me._warennummer - End Get - Set - Me._warennummer = Value - End Set - End Property - - - Public Overridable Property UeblicheBehandlungKz() As String - Get - Return Me._ueblicheBehandlungKz - End Get - Set - Me._ueblicheBehandlungKz = Value - End Set - End Property - - - Public Overridable Property Handelsmenge() As String - Get - Return Me._handelsmenge - End Get - Set - Me._handelsmenge = Value - End Set - End Property - - - Public Overridable Property MasseinheitHandelsmenge() As String - Get - Return Me._masseinheitHandelsmenge - End Get - Set - Me._masseinheitHandelsmenge = Value - End Set - End Property - - - Public Overridable Property QualifikatorHandelsmenge() As String - Get - Return Me._qualifikatorHandelsmenge - End Get - Set - Me._qualifikatorHandelsmenge = Value - End Set - End Property - - - Public Overridable Property Abgangsmenge() As String - Get - Return Me._abgangsmenge - End Get - Set - Me._abgangsmenge = Value - End Set - End Property - - - Public Overridable Property MasseinheitAbgangsmenge() As String - Get - Return Me._masseinheitAbgangsmenge - End Get - Set - Me._masseinheitAbgangsmenge = Value - End Set - End Property - - - Public Overridable Property QualifikatorAbgangsmenge() As String - Get - Return Me._qualifikatorAbgangsmenge - End Get - Set - Me._qualifikatorAbgangsmenge = Value - End Set - End Property - - - Public Overridable Property Positionszusatz() As String - Get - Return Me._positionszusatz - End Get - Set - Me._positionszusatz = Value - End Set - End Property - - - Public Overridable Property WarenbezogeneAngaben() As String - Get - Return Me._warenbezogeneAngaben - End Get - Set - Me._warenbezogeneAngaben = Value - End Set - End Property - - Private Shared ReadOnly Property SerializerXml() As XmlSerializer - Get - If (_serializerXml Is Nothing) Then - _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) - End If - Return _serializerXml - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serialize BEAnteilZLAVUVPositionAVUVTyp object - ''' - ''' XML value - Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BEAnteilZLAVUVPositionAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property SumARegistriernummer() As String - Get - Return Me._sumARegistriernummer - End Get - Set - Me._sumARegistriernummer = Value - End Set - End Property - - - Public Overridable Property SumAPosNr() As String - Get - Return Me._sumAPosNr - End Get - Set - Me._sumAPosNr = Value - End Set - End Property - - - Public Overridable Property BeendigungsPackstueckzahl() As String - Get - Return Me._beendigungsPackstueckzahl - End Get - Set - Me._beendigungsPackstueckzahl = Value - End Set - End Property - - - Public Overridable Property ArtIdentifikation() As String - Get - Return Me._artIdentifikation - End Get - Set - Me._artIdentifikation = Value - End Set - End Property - - - Public Overridable Property VerwahrerEORI() As String - Get - Return Me._verwahrerEORI - End Get - Set - Me._verwahrerEORI = Value - End Set - End Property - - - Public Overridable Property ZollNummerVerwahrer() As String - Get - Return Me._zollNummerVerwahrer - End Get - Set - Me._zollNummerVerwahrer = Value - End Set - End Property - - - Public Overridable Property SpezifOrdnungsbegriffArt() As String - Get - Return Me._spezifOrdnungsbegriffArt - End Get - Set - Me._spezifOrdnungsbegriffArt = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SumABeendigungsAnteilAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Aufschubart() As String - Get - Return Me._aufschubart - End Get - Set - Me._aufschubart = Value - End Set - End Property - - - Public Overridable Property ArtAufschubantrag() As String - Get - Return Me._artAufschubantrag - End Get - Set - Me._artAufschubantrag = Value - End Set - End Property - - - Public Overridable Property AufschubnehmerEORI() As String - Get - Return Me._aufschubnehmerEORI - End Get - Set - Me._aufschubnehmerEORI = Value - End Set - End Property - - - Public Overridable Property KennbuchstabenAufschub() As String - Get - Return Me._kennbuchstabenAufschub - End Get - Set - Me._kennbuchstabenAufschub = Value - End Set - End Property - - - Public Overridable Property ZollnummerAufschubnehmer() As String - Get - Return Me._zollnummerAufschubnehmer - End Get - Set - Me._zollnummerAufschubnehmer = Value - End Set - End Property - - - Public Overridable Property KontoBewHZA() As String - Get - Return Me._kontoBewHZA - End Get - Set - Me._kontoBewHZA = Value - End Set - End Property - - - Public Overridable Property KontoNr() As String - Get - Return Me._kontoNr - End Get - Set - Me._kontoNr = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, AufschubAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AufschubAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Bereich() As String - Get - Return Me._bereich - End Get - Set - Me._bereich = Value - End Set - End Property - - - Public Overridable Property Art() As String - Get - Return Me._art - End Get - Set - Me._art = Value - End Set - End Property - - - Public Overridable Property Nummer() As String - Get - Return Me._nummer - End Get - Set - Me._nummer = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, UnterlageVzKopfAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVzKopfAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property Kostenart() As String - Get - Return Me._kostenart - End Get - Set - Me._kostenart = Value - End Set - End Property - - - Public Overridable Property Kosten() As String - Get - Return Me._kosten - End Get - Set - Me._kosten = Value - End Set - End Property - - - Public Overridable Property KostenWaehrung() As String - Get - Return Me._kostenWaehrung - End Get - Set - Me._kostenWaehrung = Value - End Set - End Property - - - Public Overridable Property WechselkursArt() As String - Get - Return Me._wechselkursArt - End Get - Set - Me._wechselkursArt = Value - End Set - End Property - - - Public Overridable Property Wechselkurs() As String - Get - Return Me._wechselkurs - End Get - Set - Me._wechselkurs = Value - End Set - End Property - - - Public Overridable Property WechselkursDatum() As Date - Get - Return Me._wechselkursDatum - End Get - Set - Me._wechselkursDatum = Value - End Set - End Property - - - Public Overridable Property Verteilungsart() As String - Get - Return Me._verteilungsart - End Get - Set - Me._verteilungsart = Value - End Set - End Property - - - Public Overridable Property Minimalbetrag() As String - Get - Return Me._minimalbetrag - End Get - Set - Me._minimalbetrag = Value - End Set - End Property - - - Public Overridable Property RabattProzent() As String - Get - Return Me._rabattProzent - End Get - Set - Me._rabattProzent = Value - End Set - End Property - - - Public Overridable Property SkontoProzent() As String - Get - Return Me._skontoProzent - End Get - Set - Me._skontoProzent = Value - End Set - End Property - - - Public Overridable Property Bemerkungen() As String - Get - Return Me._bemerkungen - End Get - Set - Me._bemerkungen = Value - End Set - End Property - - - Public Overridable Property VersicherungBerechnenKz() As String - Get - Return Me._versicherungBerechnenKz - End Get - Set - Me._versicherungBerechnenKz = Value - End Set - End Property - - - Public Overridable Property ProzentualerAnteil() As String - Get - Return Me._prozentualerAnteil - End Get - Set - Me._prozentualerAnteil = Value - End Set - End Property - - - Public Overridable Property ImaginaererProfit() As String - Get - Return Me._imaginaererProfit - End Get - Set - Me._imaginaererProfit = Value - End Set - End Property - - - Public Overridable Property AndereZahlung() As String - Get - Return Me._andereZahlung - End Get - Set - Me._andereZahlung = Value - End Set - End Property - - - Public Overridable Property SummeRechnungManuell() As String - Get - Return Me._summeRechnungManuell - End Get - Set - Me._summeRechnungManuell = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, DV1KostenverteilungAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1KostenverteilungAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property DV1Kz() As String - Get - Return Me._dV1Kz - End Get - Set - Me._dV1Kz = Value - End Set - End Property - - - Public Overridable Property Vertretungsverhaeltnis() As String - Get - Return Me._vertretungsverhaeltnis - End Get - Set - Me._vertretungsverhaeltnis = Value - End Set - End Property - - - Public Overridable Property FruehereEntscheidungen() As String - Get - Return Me._fruehereEntscheidungen - End Get - Set - Me._fruehereEntscheidungen = Value - End Set - End Property - - - Public Overridable Property Verbundenheit() As String - Get - Return Me._verbundenheit - End Get - Set - Me._verbundenheit = Value - End Set - End Property - - - Public Overridable Property VerbundenheitEinzelheiten() As String - Get - Return Me._verbundenheitEinzelheiten - End Get - Set - Me._verbundenheitEinzelheiten = Value - End Set - End Property - - - Public Overridable Property EinschraenkungenKz() As String - Get - Return Me._einschraenkungenKz - End Get - Set - Me._einschraenkungenKz = Value - End Set - End Property - - - Public Overridable Property BedingungenLeistungenKz() As String - Get - Return Me._bedingungenLeistungenKz - End Get - Set - Me._bedingungenLeistungenKz = Value - End Set - End Property - - - Public Overridable Property BedingungenLeistungenArt() As String - Get - Return Me._bedingungenLeistungenArt - End Get - Set - Me._bedingungenLeistungenArt = Value - End Set - End Property - - - Public Overridable Property LizenzgebuehrenKz() As String - Get - Return Me._lizenzgebuehrenKz - End Get - Set - Me._lizenzgebuehrenKz = Value - End Set - End Property - - - Public Overridable Property LizenzgebuehrenUmstand() As String - Get - Return Me._lizenzgebuehrenUmstand - End Get - Set - Me._lizenzgebuehrenUmstand = Value - End Set - End Property - - - Public Overridable Property SpezielleVereinbarungKz() As String - Get - Return Me._spezielleVereinbarungKz - End Get - Set - Me._spezielleVereinbarungKz = Value - End Set - End Property - - - Public Overridable Property SpezielleVereinbarungUmstand() As String - Get - Return Me._spezielleVereinbarungUmstand - End Get - Set - Me._spezielleVereinbarungUmstand = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, DV1AngabenAVUVTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1AngabenAVUVTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - Dim dataString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(dataString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - -#Region "Private fields" - Private _adressierteZollstelle As String - - Private _anmelderIstEmpfaenger As String - - Private _vertretungsverhaeltnisCode As String - - Private _vorsteuerabzug As String - - Private _nameAnmeldenderBearbeiter As String - - Private _telefonnummerAnmeldenderBearbeiter As String - - Private _stellungAnmeldenderBearbeiter As String - - Private _emailAdresseAnmeldenderBearbeiter As String - - Private _fiskalvertretungKz As String - - Private _zusammenfassendeMeldungKzStdKto As String - - Private _zusammenfassendeMeldungMelderkto As String - - Private _intrastatKzStdKto As String - - Private _intrastatMelderkto As String - - Private _ausstellungsort As String - - Private _zollrechtlicherStatus As String - - Private _gesamtRohMasse As String - - Private _verfahrenBeantragtCode As String - - Private _verkehrszweigInland As String - - Private _verkehrszweigGrenze As String - - Private _versendungslandCode As String - - Private _bestimmungsbundesland As String - - Private _bestimmungsland As String - - Private _kennzeichenNameBefoerderungsmittelAnkunft As String - - Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String - - Private _befoerderungsmittelGrenzeArt As String - - Private _befoerderungsmittelGrenze As String - - Private _lieferbedingungCode As String - - Private _lieferbedingungText As String - - Private _lieferbedingungSchluessel As String - - Private _lieferbedingungOrt As String - - Private _vorpapierArtCode As String - - Private _vorpapierNr As String - - Private _artGeschaeftCode As String - - Private _statistikStatus As String - - Private _warenort As String - - Private _rechnungspreis As String - - Private _rechnungswaehrung As String - - Private _dV1Angaben As DV1AngabenAVUVTyp - - Private _dV1Kostenverteilung As List(Of DV1KostenverteilungAVUVTyp) - - Private _unterlage As List(Of UnterlageVzKopfAVUVTyp) - - Private _zusatzAngabenAnmeldung As String - - Private _kzAutoBestaetigung As String - - Private _anschreibungDatum As Date - - Private _vereinfachterBewilligungsantragKzAV As String - - Private _eingangszollstelle As String - - Private _zahlungsart As String - - Private _aufschub As List(Of AufschubAVUVTyp) - - Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp) - - Private _containerNr As List(Of String) - - Private _beendigungsAnteilArtCode As String - - Private _bewilligungsIDZLAVUV As String - - Private _bezugsnummerBEAnteilZL As String - - Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp) - - Private _kzVereinfBewillAntrgBEAnteilAV As String - - Private _deutschesUeHZAbeiAV As String - - Private _erledigungsfristAV As String - - Private _bemEinfuhrabgKz As String - - Private _zusatzAngabenAV As String - - Private _einzelheitenVeredelung As String - - Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp) - - Private _aVErledZollstelle As List(Of String) - - Private _zusaetzlicheSteuerlicheVerweise As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) - - Private _adressen As List(Of AdressenVzImportAVUVTyp) - - Private Shared _serializerXml As XmlSerializer -#End Region - - Public Sub New() - MyBase.New - Me._adressen = New List(Of AdressenVzImportAVUVTyp)() - Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)() - Me._aVErledZollstelle = New List(Of String)() - Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)() - Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() - Me._containerNr = New List(Of String)() - Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)() - Me._aufschub = New List(Of AufschubAVUVTyp)() - Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)() - Me._dV1Kostenverteilung = New List(Of DV1KostenverteilungAVUVTyp)() - Me._dV1Angaben = New DV1AngabenAVUVTyp() - End Sub - - - Public Overridable Property AdressierteZollstelle() As String - Get - Return Me._adressierteZollstelle - End Get - Set - Me._adressierteZollstelle = Value - End Set - End Property - - - Public Overridable Property AnmelderIstEmpfaenger() As String - Get - Return Me._anmelderIstEmpfaenger - End Get - Set - Me._anmelderIstEmpfaenger = Value - End Set - End Property - - - Public Overridable Property VertretungsverhaeltnisCode() As String - Get - Return Me._vertretungsverhaeltnisCode - End Get - Set - Me._vertretungsverhaeltnisCode = Value - End Set - End Property - - - Public Overridable Property Vorsteuerabzug() As String - Get - Return Me._vorsteuerabzug - End Get - Set - Me._vorsteuerabzug = Value - End Set - End Property - - - Public Overridable Property NameAnmeldenderBearbeiter() As String - Get - Return Me._nameAnmeldenderBearbeiter - End Get - Set - Me._nameAnmeldenderBearbeiter = Value - End Set - End Property - - - Public Overridable Property TelefonnummerAnmeldenderBearbeiter() As String - Get - Return Me._telefonnummerAnmeldenderBearbeiter - End Get - Set - Me._telefonnummerAnmeldenderBearbeiter = Value - End Set - End Property - - - Public Overridable Property StellungAnmeldenderBearbeiter() As String - Get - Return Me._stellungAnmeldenderBearbeiter - End Get - Set - Me._stellungAnmeldenderBearbeiter = Value - End Set - End Property - - - Public Overridable Property EmailAdresseAnmeldenderBearbeiter() As String - Get - Return Me._emailAdresseAnmeldenderBearbeiter - End Get - Set - Me._emailAdresseAnmeldenderBearbeiter = Value - End Set - End Property - - - Public Overridable Property FiskalvertretungKz() As String - Get - Return Me._fiskalvertretungKz - End Get - Set - Me._fiskalvertretungKz = Value - End Set - End Property - - - Public Overridable Property ZusammenfassendeMeldungKzStdKto() As String - Get - Return Me._zusammenfassendeMeldungKzStdKto - End Get - Set - Me._zusammenfassendeMeldungKzStdKto = Value - End Set - End Property - - - Public Overridable Property ZusammenfassendeMeldungMelderkto() As String - Get - Return Me._zusammenfassendeMeldungMelderkto - End Get - Set - Me._zusammenfassendeMeldungMelderkto = Value - End Set - End Property - - - Public Overridable Property IntrastatKzStdKto() As String - Get - Return Me._intrastatKzStdKto - End Get - Set - Me._intrastatKzStdKto = Value - End Set - End Property - - - Public Overridable Property IntrastatMelderkto() As String - Get - Return Me._intrastatMelderkto - End Get - Set - Me._intrastatMelderkto = Value - End Set - End Property - - - Public Overridable Property Ausstellungsort() As String - Get - Return Me._ausstellungsort - End Get - Set - Me._ausstellungsort = Value - End Set - End Property - - - Public Overridable Property ZollrechtlicherStatus() As String - Get - Return Me._zollrechtlicherStatus - End Get - Set - Me._zollrechtlicherStatus = Value - End Set - End Property - - - Public Overridable Property GesamtRohMasse() As String - Get - Return Me._gesamtRohMasse - End Get - Set - Me._gesamtRohMasse = Value - End Set - End Property - - - Public Overridable Property VerfahrenBeantragtCode() As String - Get - Return Me._verfahrenBeantragtCode - End Get - Set - Me._verfahrenBeantragtCode = Value - End Set - End Property - - - Public Overridable Property VerkehrszweigInland() As String - Get - Return Me._verkehrszweigInland - End Get - Set - Me._verkehrszweigInland = Value - End Set - End Property - - - Public Overridable Property VerkehrszweigGrenze() As String - Get - Return Me._verkehrszweigGrenze - End Get - Set - Me._verkehrszweigGrenze = Value - End Set - End Property - - - Public Overridable Property VersendungslandCode() As String - Get - Return Me._versendungslandCode - End Get - Set - Me._versendungslandCode = Value - End Set - End Property - - - Public Overridable Property Bestimmungsbundesland() As String - Get - Return Me._bestimmungsbundesland - End Get - Set - Me._bestimmungsbundesland = Value - End Set - End Property - - - Public Overridable Property Bestimmungsland() As String - Get - Return Me._bestimmungsland - End Get - Set - Me._bestimmungsland = Value - End Set - End Property - - - Public Overridable Property KennzeichenNameBefoerderungsmittelAnkunft() As String - Get - Return Me._kennzeichenNameBefoerderungsmittelAnkunft - End Get - Set - Me._kennzeichenNameBefoerderungsmittelAnkunft = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String - Get - Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode - End Get - Set - Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelGrenzeArt() As String - Get - Return Me._befoerderungsmittelGrenzeArt - End Get - Set - Me._befoerderungsmittelGrenzeArt = Value - End Set - End Property - - - Public Overridable Property BefoerderungsmittelGrenze() As String - Get - Return Me._befoerderungsmittelGrenze - End Get - Set - Me._befoerderungsmittelGrenze = Value - End Set - End Property - - - Public Overridable Property LieferbedingungCode() As String - Get - Return Me._lieferbedingungCode - End Get - Set - Me._lieferbedingungCode = Value - End Set - End Property - - - Public Overridable Property LieferbedingungText() As String - Get - Return Me._lieferbedingungText - End Get - Set - Me._lieferbedingungText = Value - End Set - End Property - - - Public Overridable Property LieferbedingungSchluessel() As String - Get - Return Me._lieferbedingungSchluessel - End Get - Set - Me._lieferbedingungSchluessel = Value - End Set - End Property - - - Public Overridable Property LieferbedingungOrt() As String - Get - Return Me._lieferbedingungOrt - End Get - Set - Me._lieferbedingungOrt = Value - End Set - End Property - - - Public Overridable Property VorpapierArtCode() As String - Get - Return Me._vorpapierArtCode - End Get - Set - Me._vorpapierArtCode = Value - End Set - End Property - - - Public Overridable Property VorpapierNr() As String - Get - Return Me._vorpapierNr - End Get - Set - Me._vorpapierNr = Value - End Set - End Property - - - Public Overridable Property ArtGeschaeftCode() As String - Get - Return Me._artGeschaeftCode - End Get - Set - Me._artGeschaeftCode = Value - End Set - End Property - - - Public Overridable Property StatistikStatus() As String - Get - Return Me._statistikStatus - End Get - Set - Me._statistikStatus = Value - End Set - End Property - - - Public Overridable Property Warenort() As String - Get - Return Me._warenort - End Get - Set - Me._warenort = Value - End Set - End Property - - - Public Overridable Property Rechnungspreis() As String - Get - Return Me._rechnungspreis - End Get - Set - Me._rechnungspreis = Value - End Set - End Property - - - Public Overridable Property Rechnungswaehrung() As String - Get - Return Me._rechnungswaehrung - End Get - Set - Me._rechnungswaehrung = Value - End Set - End Property - - - Public Overridable Property DV1Angaben() As DV1AngabenAVUVTyp - Get - Return Me._dV1Angaben - End Get - Set - Me._dV1Angaben = Value - End Set - End Property - - - Public Overridable Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp) - Get - Return Me._dV1Kostenverteilung - End Get - Set - Me._dV1Kostenverteilung = Value - End Set - End Property - - - Public Overridable Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) - Get - Return Me._unterlage - End Get - Set - Me._unterlage = Value - End Set - End Property - - - Public Overridable Property ZusatzAngabenAnmeldung() As String - Get - Return Me._zusatzAngabenAnmeldung - End Get - Set - Me._zusatzAngabenAnmeldung = Value - End Set - End Property - - - Public Overridable Property KzAutoBestaetigung() As String - Get - Return Me._kzAutoBestaetigung - End Get - Set - Me._kzAutoBestaetigung = Value - End Set - End Property - - - Public Overridable Property AnschreibungDatum() As Date - Get - Return Me._anschreibungDatum - End Get - Set - Me._anschreibungDatum = Value - End Set - End Property - - - Public Overridable Property VereinfachterBewilligungsantragKzAV() As String - Get - Return Me._vereinfachterBewilligungsantragKzAV - End Get - Set - Me._vereinfachterBewilligungsantragKzAV = Value - End Set - End Property - - - Public Overridable Property Eingangszollstelle() As String - Get - Return Me._eingangszollstelle - End Get - Set - Me._eingangszollstelle = Value - End Set - End Property - - - Public Overridable Property Zahlungsart() As String - Get - Return Me._zahlungsart - End Get - Set - Me._zahlungsart = Value - End Set - End Property - - - Public Overridable Property Aufschub() As List(Of AufschubAVUVTyp) - Get - Return Me._aufschub - End Get - Set - Me._aufschub = Value - End Set - End Property - - - Public Overridable Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) - Get - Return Me._sumABeendigungsAnteil - End Get - Set - Me._sumABeendigungsAnteil = Value - End Set - End Property - - - Public Overridable Property ContainerNr() As List(Of String) - Get - Return Me._containerNr - End Get - Set - Me._containerNr = Value - End Set - End Property - - - Public Overridable Property BeendigungsAnteilArtCode() As String - Get - Return Me._beendigungsAnteilArtCode - End Get - Set - Me._beendigungsAnteilArtCode = Value - End Set - End Property - - - Public Overridable Property BewilligungsIDZLAVUV() As String - Get - Return Me._bewilligungsIDZLAVUV - End Get - Set - Me._bewilligungsIDZLAVUV = Value - End Set - End Property - - - Public Overridable Property BezugsnummerBEAnteilZL() As String - Get - Return Me._bezugsnummerBEAnteilZL - End Get - Set - Me._bezugsnummerBEAnteilZL = Value - End Set - End Property - - - Public Overridable Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) - Get - Return Me._bEAnteilZLAVUV - End Get - Set - Me._bEAnteilZLAVUV = Value - End Set - End Property - - - Public Overridable Property KzVereinfBewillAntrgBEAnteilAV() As String - Get - Return Me._kzVereinfBewillAntrgBEAnteilAV - End Get - Set - Me._kzVereinfBewillAntrgBEAnteilAV = Value - End Set - End Property - - - Public Overridable Property DeutschesUeHZAbeiAV() As String - Get - Return Me._deutschesUeHZAbeiAV - End Get - Set - Me._deutschesUeHZAbeiAV = Value - End Set - End Property - - - Public Overridable Property ErledigungsfristAV() As String - Get - Return Me._erledigungsfristAV - End Get - Set - Me._erledigungsfristAV = Value - End Set - End Property - - - Public Overridable Property BemEinfuhrabgKz() As String - Get - Return Me._bemEinfuhrabgKz - End Get - Set - Me._bemEinfuhrabgKz = Value - End Set - End Property - - - Public Overridable Property ZusatzAngabenAV() As String - Get - Return Me._zusatzAngabenAV - End Get - Set - Me._zusatzAngabenAV = Value - End Set - End Property - - - Public Overridable Property EinzelheitenVeredelung() As String - Get - Return Me._einzelheitenVeredelung - End Get - Set - Me._einzelheitenVeredelung = Value - End Set - End Property - - - Public Overridable Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) - Get - Return Me._aVBuchhaltVeredelung - End Get - Set - Me._aVBuchhaltVeredelung = Value - End Set - End Property - - - Public Overridable Property AVErledZollstelle() As List(Of String) - Get - Return Me._aVErledZollstelle - End Get - Set - Me._aVErledZollstelle = Value - End Set - End Property - - - Public Overridable Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) - Get - Return Me._zusaetzlicheSteuerlicheVerweise - End Get - Set - Me._zusaetzlicheSteuerlicheVerweise = Value - End Set - End Property - - - Public Overridable Property Adressen() As List(Of AdressenVzImportAVUVTyp) - Get - Return Me._adressen - End Get - Set - Me._adressen = Value - End Set - End Property - - Private Shared ReadOnly Property SerializerXml() As XmlSerializer - Get - If (_serializerXml Is Nothing) Then - _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) - End If - Return _serializerXml - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serialize KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' XML value - Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable Property IOPartner() As String - Get - Return Me._iOPartner - End Get - Set - Me._iOPartner = Value - End Set - End Property - - - Public Overridable Property IODivision1() As String - Get - Return Me._iODivision1 - End Get - Set - Me._iODivision1 = Value - End Set - End Property - - - Public Overridable Property IODivision2() As String - Get - Return Me._iODivision2 - End Get - Set - Me._iODivision2 = Value - End Set - End Property - - - Public Overridable Property IODivision3() As String - Get - Return Me._iODivision3 - End Get - Set - Me._iODivision3 = Value - End Set - End Property - - - Public Overridable Property IOReferenz() As String - Get - Return Me._iOReferenz - End Get - Set - Me._iOReferenz = Value - End Set - End Property - - - Public Overridable Property IODatumZeit() As Date - Get - Return Me._iODatumZeit - End Get - Set - Me._iODatumZeit = Value - End Set - End Property - - - Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, TransaktionFreierVerkehrTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As TransaktionFreierVerkehrTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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 Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Encoding = encoding - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - xmlWriterSettings.NewLineOnAttributes = True - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - SerializerXml.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream, encoding) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - Public Overridable Overloads Function Serialize() As String - Return Serialize(System.Text.Encoding.UTF8) - 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean - exception = Nothing - Try - SaveToFile(fileName, encoding) - Return True - Catch e As System.Exception - exception = e - Return False - End Try - End Function - - Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) - End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, System.Text.Encoding.UTF8) - End Sub - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) - Dim streamWriter As System.IO.StreamWriter = Nothing - Try - Dim dataString As String = Serialize(encoding) - streamWriter = New System.IO.StreamWriter(fileName, False, encoding) - 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, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) - Try - obj = LoadFromFile(fileName, encoding) - Return True - Catch 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, ByRef exception As System.Exception) As Boolean - Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) - 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 - Return LoadFromFile(fileName, System.Text.Encoding.UTF8) - End Function - - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DatenaustauschFreierVerkehrTyp - Dim file As System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file, encoding) - 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_V2022.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd deleted file mode 100644 index e4acc6a..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd +++ /dev/null @@ -1,674 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2023.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2023.xsd deleted file mode 100644 index 36f32c4..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2023.xsd +++ /dev/null @@ -1,619 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 deleted file mode 100644 index 9fef00e..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.Designer.vb +++ /dev/null @@ -1,8679 +0,0 @@ -'' ------------------------------------------------------------------------------ -'' -'' 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 deleted file mode 100644 index 2441680..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2024.xsd +++ /dev/null @@ -1,697 +0,0 @@ - - - - - Version 004 - Release 031 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd deleted file mode 100644 index d1e3d62..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd +++ /dev/null @@ -1,568 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb deleted file mode 100644 index ed22319..0000000 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb +++ /dev/null @@ -1,7644 +0,0 @@ -'' ------------------------------------------------------------------------------ -'' -'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com -'' FreierVerkehrAktVeredelUmwandlung_004ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse -'' -'' ------------------------------------------------------------------------------ -Imports System -Imports System.Diagnostics -Imports System.Xml.Serialization -Imports System.Collections -Imports System.Xml.Schema -Imports System.ComponentModel -Imports System.IO -Imports System.Text -Imports System.Xml -Imports System.Collections.Generic - -Namespace _old_FreierVerkehrAktVeredelUmwandlung_004 - - - Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp - Inherits DatenaustauschFreierVerkehrTyp - -#Region "Private fields" - Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As FreierVerkehrAktVeredelUmwandlungAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp - -#Region "Private fields" - Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp - - Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - - Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current ObjektIdentifizierungAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an ObjektIdentifizierungAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As ObjektIdentifizierungAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AussenhandelsstatistikAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AussenhandelsstatistikAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AussenhandelsstatistikAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AbzugHinzurechnungAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AbzugHinzurechnungAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AbzugHinzurechnungAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class BesondereWertangabeAVUVTyp - -#Region "Private fields" - Private _wert As String - - Private _preisartCode As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current BesondereWertangabeAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an BesondereWertangabeAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As BesondereWertangabeAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current UnterlageVZPositionAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an UnterlageVZPositionAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As UnterlageVZPositionAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class SonderfalldatenAVUVTyp - -#Region "Private fields" - Private _sonderabgabenGruppeCode As String - - Private _anwendungArt As String - - Private _satzBetragFaktor As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current SonderfalldatenAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an SonderfalldatenAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As SonderfalldatenAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an SonderfalldatenAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class AbgabenminderungAVUVTyp - -#Region "Private fields" - Private _abgabengruppeCode As String - - Private _minderungsbetrag As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AbgabenminderungAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AbgabenminderungAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AbgabenminderungAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AbgabenminderungAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current VerbrauchssteuerAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an VerbrauchssteuerAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As VerbrauchssteuerAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class BeguenstigungsMengeAVUVTyp - -#Region "Private fields" - Private _menge As String - - Private _masseinheitCode As String - - Private _masseinheitQualifier As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current BeguenstigungsMengeAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an BeguenstigungsMengeAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As BeguenstigungsMengeAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class GehaltsangabenAVUVTyp - -#Region "Private fields" - Private _artCode As String - - Private _gradProzent As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current GehaltsangabenAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an GehaltsangabenAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As GehaltsangabenAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an GehaltsangabenAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AVVeredelungserzeugnisTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AVVeredelungserzeugnisTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AVVeredelungserzeugnisTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class WarenMengeAVUVTyp - -#Region "Private fields" - Private _menge As String - - Private _masseinheit As String - - Private _qualifier As String - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current WarenMengeAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an WarenMengeAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As WarenMengeAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an WarenMengeAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 _rohmasse As String - - Private _eigenmasse As String - - Private _aHStatMenge As String - - Private _aHStatMengeMasseinheit As String - - Private _aHStatMengeQualifier As String - - Private _kostenEUSt As String - - Private _aHStatWert As String - - Private _packstueckAnzahl As String - - Private _packstueckArt As String - - Private _packstueckZeichen As String - - Private _warenMenge As List(Of WarenMengeAVUVTyp) - - Private _warenMengeZoll As String - - Private _warenMengeZollMasseinheit As String - - Private _warenMengeZollMasseinheitQualifier As String - - Private _beguenstigungBeantragtCode As String - - Private _kontingentnummer As List(Of String) - - Private _positionsZusatz As String - - Private _aHStatWertManuellKZ As String - - Private _artikelpreis As String - - Private _ortVerbringens As String - - Private _abflughafenIATACode As String - - Private _warenmengeAVUVZugang As String - - Private _warenmengeAVUVZugangMasseinheit As String - - Private _warenmengeAVUVZugangMasseinheitQualifier As String - - Private _warenmengeAgrarzoll As String - - Private _warenmengeAgrarzollMasseinheit As String - - Private _warenmengeAgrarzollMasseinheitQualifier As String - - Private _sachbereich As String - - Private _bedingungCode As String - - Private _veredelungWertsteigerung As String - - Private _tabakSteuerzeichenID As String - - Private _aVWirtschaftlicheVoraussetzungen As String - - Private _aVNaemlichkeitsmittel As String - - Private _aVErlaeuterungNaemlichkeit As String - - Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) - - Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) - - Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp - - Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) - - Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) - - Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) - - Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) - - Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) - - Private _vZAStatus As String - - Private _eGZStatus As String - - Private _dV1Status As String - - Private _anmeldeArt As String - - Private _befundDatum As Date - - Private _anmelderAdressCodeEORI As String - - Private _anmelderAdressCodeZollnummer As String - - Private _zollverfahren As String - - Private _abrechnungszollstelleCode As String - - Private _sachbereichCode As String - - Private _registriernummervZA As String - - Private _anmeldeVerfahren As String - - Private _bewilligungsnummer As String - - Private _bewilligungsnummerEndverwenderEGZDurchDritte As String - - Private _zollwert As String - - Private _luftfrachtkostenGesamt As String - - Private _iATAKursKz As String - - Private _luftfrachtkostenGesamtWaehrung As String - - Private _kursVereinbartKz As String - - Private _kursBetragVereinbart As String - - Private _kursDatum As Date - - Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) - - Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp - - Private Shared sSerializer As XmlSerializer -#End Region - - Public Sub New() - MyBase.New - Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() - Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() - Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() - Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() - Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() - Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() - Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() - Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() - Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() - Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() - Me._kontingentnummer = New List(Of String)() - Me._warenMenge = New List(Of WarenMengeAVUVTyp)() - Me._eUCode = New List(Of String)() - Me._warenNummerZusatzCode = New List(Of String)() - End Sub - - - Public Property Positionsnummer() As String - Get - Return Me._positionsnummer - End Get - Set - Me._positionsnummer = Value - End Set - End Property - - - Public Property ArtikelNummer() As String - Get - Return Me._artikelNummer - End Get - Set - Me._artikelNummer = Value - End Set - End Property - - - Public Property WarenNummerEZT() As String - Get - Return Me._warenNummerEZT - End Get - Set - Me._warenNummerEZT = Value - End Set - End Property - - - Public Property WarenNummerZusatzCode() As List(Of String) - Get - Return Me._warenNummerZusatzCode - End Get - Set - Me._warenNummerZusatzCode = Value - End Set - End Property - - - Public Property WarenNummerZusatz1() As String - Get - Return Me._warenNummerZusatz1 - End Get - Set - Me._warenNummerZusatz1 = Value - End Set - End Property - - - Public Property WarenNummerZusatz2() As String - Get - Return Me._warenNummerZusatz2 - End Get - Set - Me._warenNummerZusatz2 = Value - End Set - End Property - - - Public Property WarenBezeichnung() As String - Get - Return Me._warenBezeichnung - End Get - Set - Me._warenBezeichnung = Value - End Set - End Property - - - Public Property VerfahrenscodeVorangegangenesVerfahren() As String - Get - Return Me._verfahrenscodeVorangegangenesVerfahren - End Get - Set - Me._verfahrenscodeVorangegangenesVerfahren = Value - End Set - End Property - - - Public Property AbgabensteuerungKz() As String - Get - Return Me._abgabensteuerungKz - End Get - Set - Me._abgabensteuerungKz = Value - End Set - End Property - - - Public Property EUCode() As List(Of String) - Get - Return Me._eUCode - End Get - Set - Me._eUCode = Value - End Set - End Property - - - Public Property UrsprungslandCode() As String - Get - Return Me._ursprungslandCode - End Get - Set - Me._ursprungslandCode = Value - End Set - End Property - - - Public Property Rohmasse() As String - Get - Return Me._rohmasse - End Get - Set - Me._rohmasse = Value - End Set - End Property - - - Public Property Eigenmasse() As String - Get - Return Me._eigenmasse - End Get - Set - Me._eigenmasse = Value - End Set - End Property - - - Public Property AHStatMenge() As String - Get - Return Me._aHStatMenge - End Get - Set - Me._aHStatMenge = Value - End Set - End Property - - - Public Property AHStatMengeMasseinheit() As String - Get - Return Me._aHStatMengeMasseinheit - End Get - Set - Me._aHStatMengeMasseinheit = Value - End Set - End Property - - - Public Property AHStatMengeQualifier() As String - Get - Return Me._aHStatMengeQualifier - End Get - Set - Me._aHStatMengeQualifier = Value - End Set - End Property - - - Public Property KostenEUSt() As String - Get - Return Me._kostenEUSt - End Get - Set - Me._kostenEUSt = Value - End Set - End Property - - - Public Property AHStatWert() As String - Get - Return Me._aHStatWert - End Get - Set - Me._aHStatWert = Value - End Set - End Property - - - Public Property PackstueckAnzahl() As String - Get - Return Me._packstueckAnzahl - End Get - Set - Me._packstueckAnzahl = Value - End Set - End Property - - - Public Property PackstueckArt() As String - Get - Return Me._packstueckArt - End Get - Set - Me._packstueckArt = Value - End Set - End Property - - - Public Property PackstueckZeichen() As String - Get - Return Me._packstueckZeichen - End Get - Set - Me._packstueckZeichen = Value - End Set - End Property - - - Public Property WarenMenge() As List(Of WarenMengeAVUVTyp) - Get - Return Me._warenMenge - End Get - Set - Me._warenMenge = Value - End Set - End Property - - - Public Property WarenMengeZoll() As String - Get - Return Me._warenMengeZoll - End Get - Set - Me._warenMengeZoll = Value - End Set - End Property - - - Public Property WarenMengeZollMasseinheit() As String - Get - Return Me._warenMengeZollMasseinheit - End Get - Set - Me._warenMengeZollMasseinheit = Value - End Set - End Property - - - Public Property WarenMengeZollMasseinheitQualifier() As String - Get - Return Me._warenMengeZollMasseinheitQualifier - End Get - Set - Me._warenMengeZollMasseinheitQualifier = Value - End Set - End Property - - - Public Property BeguenstigungBeantragtCode() As String - Get - Return Me._beguenstigungBeantragtCode - End Get - Set - Me._beguenstigungBeantragtCode = Value - End Set - End Property - - - Public Property Kontingentnummer() As List(Of String) - Get - Return Me._kontingentnummer - End Get - Set - Me._kontingentnummer = Value - End Set - End Property - - - Public Property PositionsZusatz() As String - Get - Return Me._positionsZusatz - End Get - Set - Me._positionsZusatz = Value - End Set - End Property - - - Public Property AHStatWertManuellKZ() As String - Get - Return Me._aHStatWertManuellKZ - End Get - Set - Me._aHStatWertManuellKZ = Value - End Set - End Property - - - Public Property Artikelpreis() As String - Get - Return Me._artikelpreis - End Get - Set - Me._artikelpreis = Value - End Set - End Property - - - Public Property OrtVerbringens() As String - Get - Return Me._ortVerbringens - End Get - Set - Me._ortVerbringens = Value - End Set - End Property - - - Public Property AbflughafenIATACode() As String - Get - Return Me._abflughafenIATACode - End Get - Set - Me._abflughafenIATACode = Value - End Set - End Property - - - Public Property WarenmengeAVUVZugang() As String - Get - Return Me._warenmengeAVUVZugang - End Get - Set - Me._warenmengeAVUVZugang = Value - End Set - End Property - - - Public Property WarenmengeAVUVZugangMasseinheit() As String - Get - Return Me._warenmengeAVUVZugangMasseinheit - End Get - Set - Me._warenmengeAVUVZugangMasseinheit = Value - End Set - End Property - - - Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String - Get - Return Me._warenmengeAVUVZugangMasseinheitQualifier - End Get - Set - Me._warenmengeAVUVZugangMasseinheitQualifier = Value - End Set - End Property - - - Public Property WarenmengeAgrarzoll() As String - Get - Return Me._warenmengeAgrarzoll - End Get - Set - Me._warenmengeAgrarzoll = Value - End Set - End Property - - - Public Property WarenmengeAgrarzollMasseinheit() As String - Get - Return Me._warenmengeAgrarzollMasseinheit - End Get - Set - Me._warenmengeAgrarzollMasseinheit = Value - End Set - End Property - - - Public Property WarenmengeAgrarzollMasseinheitQualifier() As String - Get - Return Me._warenmengeAgrarzollMasseinheitQualifier - End Get - Set - Me._warenmengeAgrarzollMasseinheitQualifier = Value - End Set - End Property - - - Public Property Sachbereich() As String - Get - Return Me._sachbereich - End Get - Set - Me._sachbereich = Value - End Set - End Property - - - Public Property BedingungCode() As String - Get - Return Me._bedingungCode - End Get - Set - Me._bedingungCode = Value - End Set - End Property - - - Public Property VeredelungWertsteigerung() As String - Get - Return Me._veredelungWertsteigerung - End Get - Set - Me._veredelungWertsteigerung = Value - End Set - End Property - - - Public Property TabakSteuerzeichenID() As String - Get - Return Me._tabakSteuerzeichenID - End Get - Set - Me._tabakSteuerzeichenID = Value - End Set - End Property - - - Public Property AVWirtschaftlicheVoraussetzungen() As String - Get - Return Me._aVWirtschaftlicheVoraussetzungen - End Get - Set - Me._aVWirtschaftlicheVoraussetzungen = Value - End Set - End Property - - - Public Property AVNaemlichkeitsmittel() As String - Get - Return Me._aVNaemlichkeitsmittel - End Get - Set - Me._aVNaemlichkeitsmittel = Value - End Set - End Property - - - Public Property AVErlaeuterungNaemlichkeit() As String - Get - Return Me._aVErlaeuterungNaemlichkeit - End Get - Set - Me._aVErlaeuterungNaemlichkeit = Value - End Set - End Property - - - Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) - Get - Return Me._aVVeredelungserzeugnis - End Get - Set - Me._aVVeredelungserzeugnis = Value - End Set - End Property - - - Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) - Get - Return Me._gehaltsangaben - End Get - Set - Me._gehaltsangaben = Value - End Set - End Property - - - Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp - Get - Return Me._beguenstigungsmenge - End Get - Set - Me._beguenstigungsmenge = Value - End Set - End Property - - - Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) - Get - Return Me._verbrauchssteuer - End Get - Set - Me._verbrauchssteuer = Value - End Set - End Property - - - Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) - Get - Return Me._abgabenminderung - End Get - Set - Me._abgabenminderung = Value - End Set - End Property - - - Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) - Get - Return Me._sonderfalldaten - End Get - Set - Me._sonderfalldaten = Value - End Set - End Property - - - Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) - Get - Return Me._unterlage - End Get - Set - Me._unterlage = Value - End Set - End Property - - - Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) - Get - Return Me._besondereWertangabe - End Get - Set - Me._besondereWertangabe = Value - End Set - End Property - - - Public Property VZAStatus() As String - Get - Return Me._vZAStatus - End Get - Set - Me._vZAStatus = Value - End Set - End Property - - - Public Property EGZStatus() As String - Get - Return Me._eGZStatus - End Get - Set - Me._eGZStatus = Value - End Set - End Property - - - Public Property DV1Status() As String - Get - Return Me._dV1Status - End Get - Set - Me._dV1Status = Value - End Set - End Property - - - Public Property AnmeldeArt() As String - Get - Return Me._anmeldeArt - End Get - Set - Me._anmeldeArt = Value - End Set - End Property - - - Public Property BefundDatum() As Date - Get - Return Me._befundDatum - End Get - Set - Me._befundDatum = Value - End Set - End Property - - - Public Property AnmelderAdressCodeEORI() As String - Get - Return Me._anmelderAdressCodeEORI - End Get - Set - Me._anmelderAdressCodeEORI = Value - End Set - End Property - - - Public Property AnmelderAdressCodeZollnummer() As String - Get - Return Me._anmelderAdressCodeZollnummer - End Get - Set - Me._anmelderAdressCodeZollnummer = Value - End Set - End Property - - - Public Property Zollverfahren() As String - Get - Return Me._zollverfahren - End Get - Set - Me._zollverfahren = Value - End Set - End Property - - - Public Property AbrechnungszollstelleCode() As String - Get - Return Me._abrechnungszollstelleCode - End Get - Set - Me._abrechnungszollstelleCode = Value - End Set - End Property - - - Public Property SachbereichCode() As String - Get - Return Me._sachbereichCode - End Get - Set - Me._sachbereichCode = Value - End Set - End Property - - - Public Property RegistriernummervZA() As String - Get - Return Me._registriernummervZA - End Get - Set - Me._registriernummervZA = Value - End Set - End Property - - - Public Property AnmeldeVerfahren() As String - Get - Return Me._anmeldeVerfahren - End Get - Set - Me._anmeldeVerfahren = Value - End Set - End Property - - - Public Property Bewilligungsnummer() As String - Get - Return Me._bewilligungsnummer - End Get - Set - Me._bewilligungsnummer = Value - End Set - End Property - - - Public Property BewilligungsnummerEndverwenderEGZDurchDritte() As String - Get - Return Me._bewilligungsnummerEndverwenderEGZDurchDritte - End Get - Set - Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value - End Set - End Property - - - Public Property Zollwert() As String - Get - Return Me._zollwert - End Get - Set - Me._zollwert = Value - End Set - End Property - - - Public Property LuftfrachtkostenGesamt() As String - Get - Return Me._luftfrachtkostenGesamt - End Get - Set - Me._luftfrachtkostenGesamt = Value - End Set - End Property - - - Public Property IATAKursKz() As String - Get - Return Me._iATAKursKz - End Get - Set - Me._iATAKursKz = Value - End Set - End Property - - - Public Property LuftfrachtkostenGesamtWaehrung() As String - Get - Return Me._luftfrachtkostenGesamtWaehrung - End Get - Set - Me._luftfrachtkostenGesamtWaehrung = Value - End Set - End Property - - - Public Property KursVereinbartKz() As String - Get - Return Me._kursVereinbartKz - End Get - Set - Me._kursVereinbartKz = Value - End Set - End Property - - - Public Property KursBetragVereinbart() As String - Get - Return Me._kursBetragVereinbart - End Get - Set - Me._kursBetragVereinbart = Value - End Set - End Property - - - Public Property KursDatum() As Date - Get - Return Me._kursDatum - End Get - Set - Me._kursDatum = Value - End Set - End Property - - - Public Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) - Get - Return Me._abzugHinzurechnung - End Get - Set - Me._abzugHinzurechnung = Value - End Set - End Property - - - Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp - Get - Return Me._aussenhandelsstatistik - End Get - Set - Me._aussenhandelsstatistik = Value - End Set - End Property - - Private Shared ReadOnly Property Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As PositionEinfuhrUnvollstaendigeAnmeldungTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AdressenVzImportAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AdressenVzImportAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AdressenVzImportAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AdressenVzImportAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AVBuchhaltVeredelungTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AVBuchhaltVeredelungTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AVBuchhaltVeredelungTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class BEAnteilZLAVUVPositionAVUVTyp - -#Region "Private fields" - Private _registriernummerZugang As String - - Private _positionZugang As String - - Private _artikelcodeATZL As String - - Private _eigentuemerATZL As String - - Private _chargennummerATZL As String - - Private _ursprungslandATZL As String - - Private _atlasKz As String - - Private _warennummer As String - - Private _ueblicheBehandlungKz As String - - Private _handelsmenge As String - - Private _masseinheitHandelsmenge As String - - Private _qualifikatorHandelsmenge As String - - Private _abgangsmenge As String - - Private _masseinheitAbgangsmenge As String - - Private _qualifikatorAbgangsmenge As String - - Private _positionszusatz As String - - Private _warenbezogeneAngaben As String - - Private Shared sSerializer As XmlSerializer -#End Region - - - Public Property RegistriernummerZugang() As String - Get - Return Me._registriernummerZugang - End Get - Set - Me._registriernummerZugang = Value - End Set - End Property - - - Public Property PositionZugang() As String - Get - Return Me._positionZugang - End Get - Set - Me._positionZugang = Value - End Set - End Property - - - Public Property ArtikelcodeATZL() As String - Get - Return Me._artikelcodeATZL - End Get - Set - Me._artikelcodeATZL = Value - End Set - End Property - - - Public Property EigentuemerATZL() As String - Get - Return Me._eigentuemerATZL - End Get - Set - Me._eigentuemerATZL = Value - End Set - End Property - - - Public Property ChargennummerATZL() As String - Get - Return Me._chargennummerATZL - End Get - Set - Me._chargennummerATZL = Value - End Set - End Property - - - Public Property UrsprungslandATZL() As String - Get - Return Me._ursprungslandATZL - End Get - Set - Me._ursprungslandATZL = Value - End Set - End Property - - - Public Property AtlasKz() As String - Get - Return Me._atlasKz - End Get - Set - Me._atlasKz = Value - End Set - End Property - - - Public Property Warennummer() As String - Get - Return Me._warennummer - End Get - Set - Me._warennummer = Value - End Set - End Property - - - Public Property UeblicheBehandlungKz() As String - Get - Return Me._ueblicheBehandlungKz - End Get - Set - Me._ueblicheBehandlungKz = Value - End Set - End Property - - - Public Property Handelsmenge() As String - Get - Return Me._handelsmenge - End Get - Set - Me._handelsmenge = Value - End Set - End Property - - - Public Property MasseinheitHandelsmenge() As String - Get - Return Me._masseinheitHandelsmenge - End Get - Set - Me._masseinheitHandelsmenge = Value - End Set - End Property - - - Public Property QualifikatorHandelsmenge() As String - Get - Return Me._qualifikatorHandelsmenge - End Get - Set - Me._qualifikatorHandelsmenge = Value - End Set - End Property - - - Public Property Abgangsmenge() As String - Get - Return Me._abgangsmenge - End Get - Set - Me._abgangsmenge = Value - End Set - End Property - - - Public Property MasseinheitAbgangsmenge() As String - Get - Return Me._masseinheitAbgangsmenge - End Get - Set - Me._masseinheitAbgangsmenge = Value - End Set - End Property - - - Public Property QualifikatorAbgangsmenge() As String - Get - Return Me._qualifikatorAbgangsmenge - End Get - Set - Me._qualifikatorAbgangsmenge = Value - End Set - End Property - - - Public Property Positionszusatz() As String - Get - Return Me._positionszusatz - End Get - Set - Me._positionszusatz = Value - End Set - End Property - - - Public Property WarenbezogeneAngaben() As String - Get - Return Me._warenbezogeneAngaben - End Get - Set - Me._warenbezogeneAngaben = Value - End Set - End Property - - Private Shared ReadOnly Property Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an BEAnteilZLAVUVPositionAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As BEAnteilZLAVUVPositionAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current SumABeendigungsAnteilAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an SumABeendigungsAnteilAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As SumABeendigungsAnteilAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current AufschubAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an AufschubAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As AufschubAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an AufschubAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current UnterlageVzKopfAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an UnterlageVzKopfAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As UnterlageVzKopfAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 Shared sSerializer 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 - - Private Shared ReadOnly Property Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current DV1AngabenAVUVTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an DV1AngabenAVUVTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As DV1AngabenAVUVTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an DV1AngabenAVUVTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 _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 _adressen As List(Of AdressenVzImportAVUVTyp) - - Private Shared sSerializer As XmlSerializer -#End Region - - Public Sub New() - MyBase.New - Me._adressen = New List(Of AdressenVzImportAVUVTyp)() - 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._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 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 Adressen() As List(Of AdressenVzImportAVUVTyp) - Get - Return Me._adressen - End Get - Set - Me._adressen = Value - End Set - End Property - - Private Shared ReadOnly Property Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string workflow markup 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object - ''' - ''' string xml 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End 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 sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object - ''' - ''' string workflow markup to deserialize - ''' Output TransaktionFreierVerkehrTyp object - ''' output Exception value if deserialize failed - ''' true if this 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As TransaktionFreierVerkehrTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object - ''' - ''' string xml file to load and deserialize - ''' Output TransaktionFreierVerkehrTyp object - ''' output Exception value if deserialize failed - ''' true if this 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class - - - Partial Public Class DatenaustauschFreierVerkehrTyp - -#Region "Private fields" - Private _transaktion As TransaktionFreierVerkehrTyp - - Private Shared sSerializer 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 Serializer() As XmlSerializer - Get - If (sSerializer Is Nothing) Then - sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) - End If - Return sSerializer - End Get - End Property - -#Region "Serialize/Deserialize" - ''' - ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string - ''' - ''' string XML value - Public Overridable Function Serialize() As String - Dim streamReader As System.IO.StreamReader = Nothing - Dim memoryStream As System.IO.MemoryStream = Nothing - Try - memoryStream = New System.IO.MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = True - xmlWriterSettings.IndentChars = " " - Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) - Serializer.Serialize(xmlWriter, Me) - memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) - Return streamReader.ReadToEnd - Finally - If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() - End If - If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() - End If - End Try - End Function - - ''' - ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object - ''' - ''' string workflow markup to deserialize - ''' Output DatenaustauschFreierVerkehrTyp object - ''' output Exception value if deserialize failed - ''' true if this 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 System.IO.StringReader = Nothing - Try - stringReader = New System.IO.StringReader(input) - Return CType(Serializer.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 System.IO.Stream) As DatenaustauschFreierVerkehrTyp - Return CType(Serializer.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 System.IO.StreamWriter = Nothing - Try - Dim xmlString As String = Serialize() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() - Finally - If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() - End If - End Try - End Sub - - ''' - ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object - ''' - ''' string xml file to load and deserialize - ''' Output DatenaustauschFreierVerkehrTyp object - ''' output Exception value if deserialize failed - ''' true if this 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 System.IO.FileStream = Nothing - Dim sr As System.IO.StreamReader = Nothing - Try - file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New System.IO.StreamReader(file) - Dim xmlString As String = sr.ReadToEnd - sr.Close() - file.Close() - Return Deserialize(xmlString) - Finally - If (Not (file) Is Nothing) Then - file.Dispose() - End If - If (Not (sr) Is Nothing) Then - sr.Dispose() - End If - End Try - End Function - End Class -End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config index 2c32c30..be1bcec 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config @@ -1,27 +1,17 @@ - Net20 + Net48 FreierVerkehrAktVeredelUmwandlung_004 VisualBasic - xsd2code.exe <XSD File> FreierVerkehrAktVeredelUmwandlung_004 <Output file> /l VisualBasic /p Net20 /vprop /s /encutf8 /xml /xa /xao /in /Indent1Space /nla - - - true - - + true - true - - - + true + ASCII AllClasses - true - - false - + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb index de43979..90f96b6 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net47","NameSpace":"VersandanmeldungNCTSDE_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' {"TargetFramework":"Net47","NameSpace":"VersandanmeldungNCTSDE_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning @@ -70,6 +70,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -265,6 +266,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -567,6 +569,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -756,6 +759,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -945,6 +949,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1158,6 +1163,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1300,8 +1306,6 @@ Namespace VersandanmeldungNCTSDE_004 #Region "Private fields" Private _numberOfPackages As String - Private _mRN As String - Private _registrationNumber As String Private _goodsItemNumber As String @@ -1355,16 +1359,6 @@ Namespace VersandanmeldungNCTSDE_004 End Set End Property - - Public Property MRN() As String - Get - Return Me._mRN - End Get - Set - Me._mRN = Value - End Set - End Property - Public Property RegistrationNumber() As String Get @@ -1587,6 +1581,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1841,6 +1836,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2042,6 +2038,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2249,6 +2246,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2462,6 +2460,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2988,6 +2987,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3266,6 +3266,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3467,6 +3468,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3656,6 +3658,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3839,6 +3842,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4028,6 +4032,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4217,6 +4222,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4406,6 +4412,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4595,6 +4602,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4808,6 +4816,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5179,6 +5188,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5380,6 +5390,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5569,6 +5580,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5758,6 +5770,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5947,6 +5960,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6160,6 +6174,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6378,6 +6393,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6567,6 +6583,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6773,6 +6790,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7051,6 +7069,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7240,6 +7259,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7465,6 +7485,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7666,6 +7687,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8023,6 +8045,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8229,6 +8252,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8448,6 +8472,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8637,6 +8662,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8855,6 +8881,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9564,6 +9591,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9813,6 +9841,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9996,6 +10025,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -10179,6 +10209,7 @@ Namespace VersandanmeldungNCTSDE_004 Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " + xmlWriterSettings.NewLineOnAttributes = True Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index b8d7633..f1dc90b 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -112,9 +112,6 @@ - - - @@ -149,7 +146,6 @@ - @@ -317,21 +313,6 @@ Designer - - Designer - - - Designer - - - Designer - - - Designer - - - Designer - Designer @@ -435,9 +416,6 @@ Designer - - Designer - Designer @@ -526,6 +504,9 @@ 4.5.4 + + +