From 3d67139c0921734b2b460c9f451263d9f3e42f28 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 4 Jun 2020 22:20:10 +0200 Subject: [PATCH] neu --- .../Abgabenbescheid_009.Designer.vb | 6843 +++++++++++++++++ .../Abgabenbescheid/Abgabenbescheid_009.xsd | 571 ++ .../AbschliessendeFestsetzung_004.Designer.vb | 2154 ++++++ .../AbschliessendeFestsetzung_004.xsd | 228 + ...dVereinfachteZollanmeldung_007.Designer.vb | 5949 ++++++++++++++ .../BefundVereinfachteZollanmeldung_007.xsd | 535 ++ ...erkehrAktVeredelUmwandlung_004.Designer.vb | 2 +- ...erVerkehrAktVeredelUmwandlung_004_OLD2.xsd | 609 ++ ...tAbschliessendeFestsetzung_003.Designer.vb | 1808 +++++ .../NichtAbschliessendeFestsetzung_003.xsd | 124 + ...UeberlassungsmeldungNCTSDE_007.Designer.vb | 6389 +++++++++++++++ .../UeberlassungsmeldungNCTSDE_007.xsd | 473 ++ .../VersandanmeldungNCTSDE_003.Designer.vb | 2 +- .../NCTS/VersandanmeldungNCTSDE_003_OLD2.xsd | 487 ++ DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 28 +- UID/ADMIN.vbproj | 1 + UID/Dienstplan/usrCntlDienstplan.Designer.vb | 40 +- UID/Dienstplan/usrCntlDienstplan.resx | 8 + UID/Dienstplan/usrCntlDienstplan.vb | 114 +- initATLASAufschubkonten/cGetMsgType.vb | 10 +- initATLASAufschubkonten/cWorker_NCTS.vb | 73 + .../frmDYNachrichtenVerarbeitung.vb | 364 +- initATLASAufschubkonten/frmStartOptions.vb | 14 - 23 files changed, 26785 insertions(+), 41 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.xsd create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD2.xsd diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.Designer.vb new file mode 100644 index 0000000..d39b120 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.Designer.vb @@ -0,0 +1,6843 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' Abgabenbescheid_009ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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 Abgabenbescheid_009 + + + Partial Public Class AbgabenbescheidEinfuhrTAXTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() + End Sub + + + Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + Get + Return Me._einzelAbgabenbescheid + End Get + Set + Me._einzelAbgabenbescheid = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp 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 AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenbescheidEinfuhrTAXTyp + Dim file As 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 EinzelAbgabenbescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp + + Private _kopfDaten As KopfDatenEinfuhrbescheidTyp + + Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenbescheidTyp 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 EinzelAbgabenbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EinzelAbgabenbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelAbgabenbescheidTyp + Dim file As 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 ObjektIdentifizierungTAXTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp 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 ObjektIdentifizierungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 ObjektIdentifizierungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungTAXTyp + Dim file As 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 EinzelAbgabenSatzTAXTyp + +#Region "Private fields" + Private _lfdNrAbgabensatz As List(Of String) + + Private _abgabensatz As List(Of Decimal) + + Private _bemessungsmassstab As List(Of String) + + Private _gehaltsangabenArt As List(Of String) + + Private _gehaltsangabenGradProzent As List(Of Decimal) + + Private _bemessungsgrundlageKz As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._bemessungsgrundlageKz = New List(Of String)() + Me._gehaltsangabenGradProzent = New List(Of Decimal)() + Me._gehaltsangabenArt = New List(Of String)() + Me._bemessungsmassstab = New List(Of String)() + Me._abgabensatz = New List(Of Decimal)() + Me._lfdNrAbgabensatz = New List(Of String)() + End Sub + + + Public Property LfdNrAbgabensatz() As List(Of String) + Get + Return Me._lfdNrAbgabensatz + End Get + Set + Me._lfdNrAbgabensatz = Value + End Set + End Property + + + Public Property Abgabensatz() As List(Of Decimal) + Get + Return Me._abgabensatz + End Get + Set + Me._abgabensatz = Value + End Set + End Property + + + Public Property Bemessungsmassstab() As List(Of String) + Get + Return Me._bemessungsmassstab + End Get + Set + Me._bemessungsmassstab = Value + End Set + End Property + + + Public Property GehaltsangabenArt() As List(Of String) + Get + Return Me._gehaltsangabenArt + End Get + Set + Me._gehaltsangabenArt = Value + End Set + End Property + + + Public Property GehaltsangabenGradProzent() As List(Of Decimal) + Get + Return Me._gehaltsangabenGradProzent + End Get + Set + Me._gehaltsangabenGradProzent = Value + End Set + End Property + + + Public Property BemessungsgrundlageKz() As List(Of String) + Get + Return Me._bemessungsgrundlageKz + End Get + Set + Me._bemessungsgrundlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp 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 EinzelAbgabenSatzTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenSatzTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EinzelAbgabenSatzTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelAbgabenSatzTAXTyp + Dim file As 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 AbgabengruppeTAXTyp + +#Region "Private fields" + Private _abgabengruppe As String + + Private _abgabeArt As String + + Private _berechnungshinweis As String + + Private _angewandterPVMinderungsBetrag As Decimal + + Private _errechneterAbgabenbetrag As Decimal + + Private _abgabenbetrag As Decimal + + Private _abgabensatzKontNr As String + + Private _verbrauchssteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheit As String + + Private _verbrauchssteuerQualifikator As String + + Private _verbrauchssteuerGradProzent As Decimal + + Private _verbrauchssteuerWert As Decimal + + Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() + End Sub + + + Public Property Abgabengruppe() As String + Get + Return Me._abgabengruppe + End Get + Set + Me._abgabengruppe = Value + End Set + End Property + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Berechnungshinweis() As String + Get + Return Me._berechnungshinweis + End Get + Set + Me._berechnungshinweis = Value + End Set + End Property + + + Public Property AngewandterPVMinderungsBetrag() As Decimal + Get + Return Me._angewandterPVMinderungsBetrag + End Get + Set + Me._angewandterPVMinderungsBetrag = Value + End Set + End Property + + + Public Property ErrechneterAbgabenbetrag() As Decimal + Get + Return Me._errechneterAbgabenbetrag + End Get + Set + Me._errechneterAbgabenbetrag = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property AbgabensatzKontNr() As String + Get + Return Me._abgabensatzKontNr + End Get + Set + Me._abgabensatzKontNr = Value + End Set + End Property + + + Public Property VerbrauchssteuerCode() As String + Get + Return Me._verbrauchssteuerCode + End Get + Set + Me._verbrauchssteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheit() As String + Get + Return Me._verbrauchssteuerMasseinheit + End Get + Set + Me._verbrauchssteuerMasseinheit = Value + End Set + End Property + + + Public Property VerbrauchssteuerQualifikator() As String + Get + Return Me._verbrauchssteuerQualifikator + End Get + Set + Me._verbrauchssteuerQualifikator = Value + End Set + End Property + + + Public Property VerbrauchssteuerGradProzent() As Decimal + Get + Return Me._verbrauchssteuerGradProzent + End Get + Set + Me._verbrauchssteuerGradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWert() As Decimal + Get + Return Me._verbrauchssteuerWert + End Get + Set + Me._verbrauchssteuerWert = Value + End Set + End Property + + + Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) + Get + Return Me._einzelAbgabenSatz + End Get + Set + Me._einzelAbgabenSatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabengruppeTAXTyp 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 AbgabengruppeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp + Return CType(Serializer.Deserialize(s), AbgabengruppeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabengruppeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbgabengruppeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabengruppeTAXTyp + Dim file As 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 AbweichendeFestsetzungTAXTyp + +#Region "Private fields" + Private _feldname As String + + Private _qualifikator As String + + Private _qualifikatorInhalt As String + + Private _artAbweichendeFestsetzung As String + + Private _festgesetztVon As String + + Private _festgesetztAuf As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Feldname() As String + Get + Return Me._feldname + End Get + Set + Me._feldname = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property ArtAbweichendeFestsetzung() As String + Get + Return Me._artAbweichendeFestsetzung + End Get + Set + Me._artAbweichendeFestsetzung = Value + End Set + End Property + + + Public Property FestgesetztVon() As String + Get + Return Me._festgesetztVon + End Get + Set + Me._festgesetztVon = Value + End Set + End Property + + + Public Property FestgesetztAuf() As String + Get + Return Me._festgesetztAuf + End Get + Set + Me._festgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp 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 AbweichendeFestsetzungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp + Return CType(Serializer.Deserialize(s), AbweichendeFestsetzungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbweichendeFestsetzungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbweichendeFestsetzungTAXTyp + Dim file As 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 KontingentAngerechnetWarenMengeTAXTyp + +#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(KontingentAngerechnetWarenMengeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp 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 KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KontingentAngerechnetWarenMengeTAXTyp + Dim file As 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 KontingentAngerechnetTAXTyp + +#Region "Private fields" + Private _kontNrAngerechnet As String + + Private _zollwertAngerechnet As Decimal + + Private _eUStKostenAngerechnet As Decimal + + Private _beguenstMengeAngerechnet As Decimal + + Private _masseinhBegMengeAng As String + + Private _qualifBegMengeAng As String + + Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + End Sub + + + Public Property KontNrAngerechnet() As String + Get + Return Me._kontNrAngerechnet + End Get + Set + Me._kontNrAngerechnet = Value + End Set + End Property + + + Public Property ZollwertAngerechnet() As Decimal + Get + Return Me._zollwertAngerechnet + End Get + Set + Me._zollwertAngerechnet = Value + End Set + End Property + + + Public Property EUStKostenAngerechnet() As Decimal + Get + Return Me._eUStKostenAngerechnet + End Get + Set + Me._eUStKostenAngerechnet = Value + End Set + End Property + + + Public Property BeguenstMengeAngerechnet() As Decimal + Get + Return Me._beguenstMengeAngerechnet + End Get + Set + Me._beguenstMengeAngerechnet = Value + End Set + End Property + + + Public Property MasseinhBegMengeAng() As String + Get + Return Me._masseinhBegMengeAng + End Get + Set + Me._masseinhBegMengeAng = Value + End Set + End Property + + + Public Property QualifBegMengeAng() As String + Get + Return Me._qualifBegMengeAng + End Get + Set + Me._qualifBegMengeAng = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetTAXTyp 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 KontingentAngerechnetTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KontingentAngerechnetTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KontingentAngerechnetTAXTyp + Dim file As 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 SonderfalleingabeTAXTyp + +#Region "Private fields" + Private _sonderabgabenGruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SonderabgabenGruppe() As String + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderfalleingabeTAXTyp 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 SonderfalleingabeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp + Return CType(Serializer.Deserialize(s), SonderfalleingabeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 SonderfalleingabeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalleingabeTAXTyp + Dim file As 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 EZAAVVeredelungserzeugnisTyp + +#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(EZAAVVeredelungserzeugnisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVVeredelungserzeugnisTyp 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 EZAAVVeredelungserzeugnisTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVVeredelungserzeugnisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVVeredelungserzeugnisTyp + Return CType(Serializer.Deserialize(s), EZAAVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EZAAVVeredelungserzeugnisTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVVeredelungserzeugnisTyp + Dim file As 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 EZAAVAngabenPosTyp + +#Region "Private fields" + Private _aVWirtschaftlicheVoraussetzungen As String + + Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp) + + Private _aVNaemlichkeitsmittel As String + + Private _aVErlaeuterungNaemlichkeit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)() + End Sub + + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me._aVWirtschaftlicheVoraussetzungen + End Get + Set + Me._aVWirtschaftlicheVoraussetzungen = Value + End Set + End Property + + + Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) + Get + Return Me._aVVeredelungserzeugnis + End Get + Set + Me._aVVeredelungserzeugnis = Value + End Set + End Property + + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me._aVNaemlichkeitsmittel + End Get + Set + Me._aVNaemlichkeitsmittel = Value + End Set + End Property + + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me._aVErlaeuterungNaemlichkeit + End Get + Set + Me._aVErlaeuterungNaemlichkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenPosTyp 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 EZAAVAngabenPosTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenPosTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenPosTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenPosTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenPosTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EZAAVAngabenPosTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenPosTyp + Dim file As 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 AngemeldeteUnterlageTAXTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _unterlageBereich As String + + Private _unterlageNr As String + + Private _anerkennungKz As String + + Private _abschreibungKz As String + + Private _einbehaltenKz As String + + Private _periodischeVorlageKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property UnterlageBereich() As String + Get + Return Me._unterlageBereich + End Get + Set + Me._unterlageBereich = Value + End Set + End Property + + + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set + Me._unterlageNr = Value + End Set + End Property + + + Public Property AnerkennungKz() As String + Get + Return Me._anerkennungKz + End Get + Set + Me._anerkennungKz = Value + End Set + End Property + + + Public Property AbschreibungKz() As String + Get + Return Me._abschreibungKz + End Get + Set + Me._abschreibungKz = Value + End Set + End Property + + + Public Property EinbehaltenKz() As String + Get + Return Me._einbehaltenKz + End Get + Set + Me._einbehaltenKz = Value + End Set + End Property + + + Public Property PeriodischeVorlageKz() As String + Get + Return Me._periodischeVorlageKz + End Get + Set + Me._periodischeVorlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp 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 AngemeldeteUnterlageTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp + Return CType(Serializer.Deserialize(s), AngemeldeteUnterlageTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AngemeldeteUnterlageTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AngemeldeteUnterlageTAXTyp + Dim file As 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 KursAbzugHinzuTAXTyp + +#Region "Private fields" + Private _artAbHinzu As String + + Private _angewandterKurs As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ArtAbHinzu() As String + Get + Return Me._artAbHinzu + End Get + Set + Me._artAbHinzu = Value + End Set + End Property + + + Public Property AngewandterKurs() As Decimal + Get + Return Me._angewandterKurs + End Get + Set + Me._angewandterKurs = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KursAbzugHinzuTAXTyp 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 KursAbzugHinzuTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp + Return CType(Serializer.Deserialize(s), KursAbzugHinzuTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KursAbzugHinzuTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KursAbzugHinzuTAXTyp + Dim file As 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 PositionAbgabenbescheidEinfuhrTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _erledigungKz As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenBezeichnung As String + + Private _beschauMitteilung As String + + Private _erledigungMitteilung As String + + Private _ablehnungAenderung As String + + Private _weitererNachweis As String + + Private _gewaehrteBeguenstigung As String + + Private _anordnungKz As String + + Private _eUStWert As Decimal + + Private _kostenFuerEUSt As Decimal + + Private _zollWert As Decimal + + Private _annahmeAenderung As String + + Private _sicherheitsLeistungBetrag As Decimal + + Private _registrierNrvZAAZ As String + + Private _positionsNrInvZAAZ As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungDatum As Date + + Private _lagerfrist As String + + Private _wiederAusfuhrFrist As Date + + Private _fristWeitererNachweis As Date + + Private _befund As String + + Private _dV1AbweichendFestgesetztKz As String + + Private _sonderfalleingabeKz As String + + Private _angewandterKursNettopreis As Decimal + + Private _angewandterKursMittelbZahlungen As Decimal + + Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) + + Private _luftFrachtGesamtProzentsatz As String + + Private _luftFrachtGesamtAngewandterKurs As Decimal + + Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) + + Private _eZAAVAngabenPos As EZAAVAngabenPosTyp + + Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) + + Private _kontNrAngewandt As List(Of String) + + Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) + + Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) + + Private _abgaben As List(Of AbgabengruppeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._abgaben = New List(Of AbgabengruppeTAXTyp)() + Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() + Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() + Me._kontNrAngewandt = New List(Of String)() + Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() + Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp() + Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() + Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property ErledigungKz() As String + Get + Return Me._erledigungKz + End Get + Set + Me._erledigungKz = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set + Me._warenBezeichnung = Value + End Set + End Property + + + Public Property BeschauMitteilung() As String + Get + Return Me._beschauMitteilung + End Get + Set + Me._beschauMitteilung = Value + End Set + End Property + + + Public Property ErledigungMitteilung() As String + Get + Return Me._erledigungMitteilung + End Get + Set + Me._erledigungMitteilung = Value + End Set + End Property + + + Public Property AblehnungAenderung() As String + Get + Return Me._ablehnungAenderung + End Get + Set + Me._ablehnungAenderung = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property GewaehrteBeguenstigung() As String + Get + Return Me._gewaehrteBeguenstigung + End Get + Set + Me._gewaehrteBeguenstigung = Value + End Set + End Property + + + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set + Me._anordnungKz = Value + End Set + End Property + + + Public Property EUStWert() As Decimal + Get + Return Me._eUStWert + End Get + Set + Me._eUStWert = Value + End Set + End Property + + + Public Property KostenFuerEUSt() As Decimal + Get + Return Me._kostenFuerEUSt + End Get + Set + Me._kostenFuerEUSt = Value + End Set + End Property + + + Public Property ZollWert() As Decimal + Get + Return Me._zollWert + End Get + Set + Me._zollWert = Value + End Set + End Property + + + Public Property AnnahmeAenderung() As String + Get + Return Me._annahmeAenderung + End Get + Set + Me._annahmeAenderung = Value + End Set + End Property + + + Public Property SicherheitsLeistungBetrag() As Decimal + Get + Return Me._sicherheitsLeistungBetrag + End Get + Set + Me._sicherheitsLeistungBetrag = Value + End Set + End Property + + + Public Property RegistrierNrvZAAZ() As String + Get + Return Me._registrierNrvZAAZ + End Get + Set + Me._registrierNrvZAAZ = Value + End Set + End Property + + + Public Property PositionsNrInvZAAZ() As String + Get + Return Me._positionsNrInvZAAZ + End Get + Set + Me._positionsNrInvZAAZ = Value + End Set + End Property + + + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set + Me._annahmeKz = Value + End Set + End Property + + + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set + Me._annahmeDatum = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property Lagerfrist() As String + Get + Return Me._lagerfrist + End Get + Set + Me._lagerfrist = Value + End Set + End Property + + + Public Property WiederAusfuhrFrist() As Date + Get + Return Me._wiederAusfuhrFrist + End Get + Set + Me._wiederAusfuhrFrist = Value + End Set + End Property + + + Public Property FristWeitererNachweis() As Date + Get + Return Me._fristWeitererNachweis + End Get + Set + Me._fristWeitererNachweis = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property DV1AbweichendFestgesetztKz() As String + Get + Return Me._dV1AbweichendFestgesetztKz + End Get + Set + Me._dV1AbweichendFestgesetztKz = Value + End Set + End Property + + + Public Property SonderfalleingabeKz() As String + Get + Return Me._sonderfalleingabeKz + End Get + Set + Me._sonderfalleingabeKz = Value + End Set + End Property + + + Public Property AngewandterKursNettopreis() As Decimal + Get + Return Me._angewandterKursNettopreis + End Get + Set + Me._angewandterKursNettopreis = Value + End Set + End Property + + + Public Property AngewandterKursMittelbZahlungen() As Decimal + Get + Return Me._angewandterKursMittelbZahlungen + End Get + Set + Me._angewandterKursMittelbZahlungen = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property LuftFrachtGesamtProzentsatz() As String + Get + Return Me._luftFrachtGesamtProzentsatz + End Get + Set + Me._luftFrachtGesamtProzentsatz = Value + End Set + End Property + + + Public Property LuftFrachtGesamtAngewandterKurs() As Decimal + Get + Return Me._luftFrachtGesamtAngewandterKurs + End Get + Set + Me._luftFrachtGesamtAngewandterKurs = Value + End Set + End Property + + + Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) + Get + Return Me._angemeldeteUnterlage + End Get + Set + Me._angemeldeteUnterlage = Value + End Set + End Property + + + Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp + Get + Return Me._eZAAVAngabenPos + End Get + Set + Me._eZAAVAngabenPos = Value + End Set + End Property + + + Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property KontNrAngewandt() As List(Of String) + Get + Return Me._kontNrAngewandt + End Get + Set + Me._kontNrAngewandt = Value + End Set + End Property + + + Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) + Get + Return Me._kontingentAngerechnet + End Get + Set + Me._kontingentAngerechnet = Value + End Set + End Property + + + Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) + Get + Return Me._abweichendeFestsetzung + End Get + Set + Me._abweichendeFestsetzung = Value + End Set + End Property + + + Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) + Get + Return Me._abgaben + End Get + Set + Me._abgaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp 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 PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp + Return CType(Serializer.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionAbgabenbescheidEinfuhrTyp + Dim file As 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + +#Region "Private fields" + Private _strasse As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared 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(EZAAVAngabenKopfWeitererVeredelungsortTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp 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 EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim file As 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 EZAAVAngabenKopfTyp + +#Region "Private fields" + Private _kzBemessungEinfuhrabgabenbetrag As String + + Private _kzAbrechnung As String + + Private _kzVereinfBefoerderung As String + + Private _zusaetzlicheAngaben As String + + Private _kzVerzichtSicherheit As String + + Private _erlaeuterungenZurSicherheit As String + + Private _betragDerSicherheit As Decimal + + Private _deutschesUeHZA As String + + Private _einzelheitenGeplantVeredelungsvorgang As String + + Private _hauptbuchhaltungStrasse As String + + Private _hauptbuchhaltungLand As String + + Private _hauptbuchhaltungPLZ As String + + Private _hauptbuchhaltungOrt As String + + Private _hauptbuchhaltungOrtsteil As String + + Private _veredelungStrasse As String + + Private _veredelungLand As String + + Private _veredelungPLZ As String + + Private _veredelungOrt As String + + Private _veredelungOrtsteil As String + + Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + + Private _zollstelleErledigung As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zollstelleErledigung = New List(Of String)() + Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() + End Sub + + + Public Property KzBemessungEinfuhrabgabenbetrag() As String + Get + Return Me._kzBemessungEinfuhrabgabenbetrag + End Get + Set + Me._kzBemessungEinfuhrabgabenbetrag = Value + End Set + End Property + + + Public Property KzAbrechnung() As String + Get + Return Me._kzAbrechnung + End Get + Set + Me._kzAbrechnung = Value + End Set + End Property + + + Public Property KzVereinfBefoerderung() As String + Get + Return Me._kzVereinfBefoerderung + End Get + Set + Me._kzVereinfBefoerderung = Value + End Set + End Property + + + Public Property ZusaetzlicheAngaben() As String + Get + Return Me._zusaetzlicheAngaben + End Get + Set + Me._zusaetzlicheAngaben = Value + End Set + End Property + + + Public Property KzVerzichtSicherheit() As String + Get + Return Me._kzVerzichtSicherheit + End Get + Set + Me._kzVerzichtSicherheit = Value + End Set + End Property + + + Public Property ErlaeuterungenZurSicherheit() As String + Get + Return Me._erlaeuterungenZurSicherheit + End Get + Set + Me._erlaeuterungenZurSicherheit = Value + End Set + End Property + + + Public Property BetragDerSicherheit() As Decimal + Get + Return Me._betragDerSicherheit + End Get + Set + Me._betragDerSicherheit = Value + End Set + End Property + + + Public Property DeutschesUeHZA() As String + Get + Return Me._deutschesUeHZA + End Get + Set + Me._deutschesUeHZA = Value + End Set + End Property + + + Public Property EinzelheitenGeplantVeredelungsvorgang() As String + Get + Return Me._einzelheitenGeplantVeredelungsvorgang + End Get + Set + Me._einzelheitenGeplantVeredelungsvorgang = Value + End Set + End Property + + + Public Property HauptbuchhaltungStrasse() As String + Get + Return Me._hauptbuchhaltungStrasse + End Get + Set + Me._hauptbuchhaltungStrasse = Value + End Set + End Property + + + Public Property HauptbuchhaltungLand() As String + Get + Return Me._hauptbuchhaltungLand + End Get + Set + Me._hauptbuchhaltungLand = Value + End Set + End Property + + + Public Property HauptbuchhaltungPLZ() As String + Get + Return Me._hauptbuchhaltungPLZ + End Get + Set + Me._hauptbuchhaltungPLZ = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrt() As String + Get + Return Me._hauptbuchhaltungOrt + End Get + Set + Me._hauptbuchhaltungOrt = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrtsteil() As String + Get + Return Me._hauptbuchhaltungOrtsteil + End Get + Set + Me._hauptbuchhaltungOrtsteil = Value + End Set + End Property + + + Public Property VeredelungStrasse() As String + Get + Return Me._veredelungStrasse + End Get + Set + Me._veredelungStrasse = Value + End Set + End Property + + + Public Property VeredelungLand() As String + Get + Return Me._veredelungLand + End Get + Set + Me._veredelungLand = Value + End Set + End Property + + + Public Property VeredelungPLZ() As String + Get + Return Me._veredelungPLZ + End Get + Set + Me._veredelungPLZ = Value + End Set + End Property + + + Public Property VeredelungOrt() As String + Get + Return Me._veredelungOrt + End Get + Set + Me._veredelungOrt = Value + End Set + End Property + + + Public Property VeredelungOrtsteil() As String + Get + Return Me._veredelungOrtsteil + End Get + Set + Me._veredelungOrtsteil = Value + End Set + End Property + + + Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + Get + Return Me._weitererVeredelungsort + End Get + Set + Me._weitererVeredelungsort = Value + End Set + End Property + + + Public Property ZollstelleErledigung() As List(Of String) + Get + Return Me._zollstelleErledigung + End Get + Set + Me._zollstelleErledigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenKopfTyp 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 EZAAVAngabenKopfTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EZAAVAngabenKopfTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenKopfTyp + Dim file As 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 SicherheitTAXTyp + +#Region "Private fields" + Private _einzelbetragUnbareSicherheit As Decimal + + Private _artUnbareSicherheitsleistung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EinzelbetragUnbareSicherheit() As Decimal + Get + Return Me._einzelbetragUnbareSicherheit + End Get + Set + Me._einzelbetragUnbareSicherheit = Value + End Set + End Property + + + Public Property ArtUnbareSicherheitsleistung() As String + Get + Return Me._artUnbareSicherheitsleistung + End Get + Set + Me._artUnbareSicherheitsleistung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitTAXTyp 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 SicherheitTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp + Return CType(Serializer.Deserialize(s), SicherheitTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 SicherheitTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SicherheitTAXTyp + Dim file As 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 AbgabenNachArtKopfTAXTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabenbetrag As Decimal + + Private _zahlungsart As String + + Private _aufschubnehmerName As String + + Private _aufschubnehmerTIN As String + + Private _artAufschubAntrag As String + + Private _kennBuchstabenAufschub As String + + Private _aufschubkontoNr As String + + Private _faelligkeit As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set + Me._zahlungsart = Value + End Set + End Property + + + Public Property AufschubnehmerName() As String + Get + Return Me._aufschubnehmerName + End Get + Set + Me._aufschubnehmerName = Value + End Set + End Property + + + Public Property AufschubnehmerTIN() As String + Get + Return Me._aufschubnehmerTIN + End Get + Set + Me._aufschubnehmerTIN = Value + End Set + End Property + + + Public Property ArtAufschubAntrag() As String + Get + Return Me._artAufschubAntrag + End Get + Set + Me._artAufschubAntrag = Value + End Set + End Property + + + Public Property KennBuchstabenAufschub() As String + Get + Return Me._kennBuchstabenAufschub + End Get + Set + Me._kennBuchstabenAufschub = Value + End Set + End Property + + + Public Property AufschubkontoNr() As String + Get + Return Me._aufschubkontoNr + End Get + Set + Me._aufschubkontoNr = Value + End Set + End Property + + + Public Property Faelligkeit() As Date + Get + Return Me._faelligkeit + End Get + Set + Me._faelligkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp 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 AbgabenNachArtKopfTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenNachArtKopfTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbgabenNachArtKopfTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenNachArtKopfTAXTyp + Dim file As 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 KopfDatenEinfuhrbescheidTyp + +#Region "Private fields" + Private _artAnmeldung As String + + Private _erledigungKopfKz As String + + Private _waehrung As String + + Private _gesamtabgabenBetrag As Decimal + + Private _abgabenbetragZuZahlen As Decimal + + Private _abgabenbetragZuErstatten As Decimal + + Private _vertretungsverhaeltnis As String + + Private _zahlungsaufforderungArtAufschub As String + + Private _zahlungsaufforderungArtAbgaben As String + + Private _zahlungsaufforderungArtSicherheit As String + + Private _kleinbetragKz As String + + Private _kleinbetragRechtsbehelf As String + + Private _gesamtschuldnerschaftKz As String + + Private _eingangszollstelleGeaendertKz As String + + Private _aVbewilligtKz As String + + Private _benutzererstelltKz As String + + Private _eUStKz As String + + Private _ustID As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _nizzaRegistrierKz As String + + Private _nizzaRegistrierKzSicherheit As String + + Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) + + Private _gesamtsicherheitssumme As Decimal + + Private _errechneteSicherheitsSumme As Decimal + + Private _unbarSicherheitsbetraege As Decimal + + Private _barSicherheitsbetraege As Decimal + + Private _freizugebenSicherheit As Decimal + + Private _auszuzahlenSicherheit As Decimal + + Private _einbehaltenSicherheit As Decimal + + Private _sicherheitsleistungForm As String + + Private _sicherheitsleistungsVerzicht As String + + Private _auszahlungsArt As String + + Private _unbareSicherheiten As List(Of SicherheitTAXTyp) + + Private _bescheidendeDienststelleNr As String + + Private _bescheidendeDienststelleName As String + + Private _bescheidendeDienststelleStrasseHausNr As String + + Private _bescheidendeDienststelleOrtS As String + + Private _bescheidendeDienststellePLZS As String + + Private _bearbeiter As String + + Private _bescheidendeDienststelleTelefonNr As String + + Private _rechtsbehelfHauptzollamt As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHZADEmailAdresse As String + + Private _rechtsbehelfHauptzollamtStrHausNr As String + + Private _rechtsbehelfHauptzollamtPLZS As String + + Private _rechtsbehelfHauptzollamtOrtS As String + + Private _rechtsbehelfHauptzollamtOrtsteil As String + + Private _rechtsbehelfHauptzollamtPostfach As String + + Private _rechtsbehelfHauptzollamtPLZP As String + + Private _rechtsbehelfHauptzollamtOrtP As String + + Private _zollzahlstelle As String + + Private _zollzahlstelleKreditinstitut As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private _zollzahlstelleIBAN As String + + Private _zollzahlstelleBIC As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _vorsteuerabzugKz As String + + Private _anmelderName As String + + Private _anmelderNationalitaet As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderPLZS As String + + Private _anmelderOrtS As String + + Private _anmelderOrtsteil As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterName As String + + Private _vertreterNationalitaet As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterPLZS As String + + Private _vertreterOrtS As String + + Private _vertreterOrtsteil As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _lagerhalterEORI As String + + Private _lagerhalterNLNR As String + + Private _lagerhalterName As String + + Private _lagerhalterStrasseHausNr As String + + Private _lagerhalterNationalitaet As String + + Private _lagerhalterPLZ As String + + Private _lagerhalterOrt As String + + Private _lagerhalterOrtsteil As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerName As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _zahlungsEmpfaengerEORI As String + + Private _zahlungsEmpfaengerNLNR As String + + Private _zahlungsEmpfaengerKreditinstitut As String + + Private _zahlungsEmpfaengerName As String + + Private _zahlungsEmpfaengerNationalitaet As String + + Private _zahlungsEmpfaengerStrasseHausNr As String + + Private _zahlungsEmpfaengerPLZS As String + + Private _zahlungsEmpfaengerOrtS As String + + Private _zahlungsEmpfaengerOrtsteil As String + + Private _zahlungsEmpfaengerIBAN As String + + Private _zahlungsEmpfaengerBIC As String + + Private _erstellungsDatumBefund As Date + + Private _erfassungsdatum As Date + + Private _barzahlungFaelligkeit As Date + + Private _sicherheitsleistungFaelligkeit As String + + Private _abrechnungszeitraumBeginn As Date + + Private _abrechnungszeitraumEnde As Date + + Private _zollbefund As String + + Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp() + Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() + Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() + End Sub + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property ErledigungKopfKz() As String + Get + Return Me._erledigungKopfKz + End Get + Set + Me._erledigungKopfKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property GesamtabgabenBetrag() As Decimal + Get + Return Me._gesamtabgabenBetrag + End Get + Set + Me._gesamtabgabenBetrag = Value + End Set + End Property + + + Public Property AbgabenbetragZuZahlen() As Decimal + Get + Return Me._abgabenbetragZuZahlen + End Get + Set + Me._abgabenbetragZuZahlen = Value + End Set + End Property + + + Public Property AbgabenbetragZuErstatten() As Decimal + Get + Return Me._abgabenbetragZuErstatten + End Get + Set + Me._abgabenbetragZuErstatten = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAufschub() As String + Get + Return Me._zahlungsaufforderungArtAufschub + End Get + Set + Me._zahlungsaufforderungArtAufschub = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAbgaben() As String + Get + Return Me._zahlungsaufforderungArtAbgaben + End Get + Set + Me._zahlungsaufforderungArtAbgaben = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtSicherheit() As String + Get + Return Me._zahlungsaufforderungArtSicherheit + End Get + Set + Me._zahlungsaufforderungArtSicherheit = Value + End Set + End Property + + + Public Property KleinbetragKz() As String + Get + Return Me._kleinbetragKz + End Get + Set + Me._kleinbetragKz = Value + End Set + End Property + + + Public Property KleinbetragRechtsbehelf() As String + Get + Return Me._kleinbetragRechtsbehelf + End Get + Set + Me._kleinbetragRechtsbehelf = Value + End Set + End Property + + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AVbewilligtKz() As String + Get + Return Me._aVbewilligtKz + End Get + Set + Me._aVbewilligtKz = Value + End Set + End Property + + + Public Property BenutzererstelltKz() As String + Get + Return Me._benutzererstelltKz + End Get + Set + Me._benutzererstelltKz = Value + End Set + End Property + + + Public Property EUStKz() As String + Get + Return Me._eUStKz + End Get + Set + Me._eUStKz = Value + End Set + End Property + + + Public Property UstID() As String + Get + Return Me._ustID + End Get + Set + Me._ustID = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property NizzaRegistrierKz() As String + Get + Return Me._nizzaRegistrierKz + End Get + Set + Me._nizzaRegistrierKz = Value + End Set + End Property + + + Public Property NizzaRegistrierKzSicherheit() As String + Get + Return Me._nizzaRegistrierKzSicherheit + End Get + Set + Me._nizzaRegistrierKzSicherheit = Value + End Set + End Property + + + Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + Get + Return Me._abgabenNachArt + End Get + Set + Me._abgabenNachArt = Value + End Set + End Property + + + Public Property Gesamtsicherheitssumme() As Decimal + Get + Return Me._gesamtsicherheitssumme + End Get + Set + Me._gesamtsicherheitssumme = Value + End Set + End Property + + + Public Property ErrechneteSicherheitsSumme() As Decimal + Get + Return Me._errechneteSicherheitsSumme + End Get + Set + Me._errechneteSicherheitsSumme = Value + End Set + End Property + + + Public Property UnbarSicherheitsbetraege() As Decimal + Get + Return Me._unbarSicherheitsbetraege + End Get + Set + Me._unbarSicherheitsbetraege = Value + End Set + End Property + + + Public Property BarSicherheitsbetraege() As Decimal + Get + Return Me._barSicherheitsbetraege + End Get + Set + Me._barSicherheitsbetraege = Value + End Set + End Property + + + Public Property FreizugebenSicherheit() As Decimal + Get + Return Me._freizugebenSicherheit + End Get + Set + Me._freizugebenSicherheit = Value + End Set + End Property + + + Public Property AuszuzahlenSicherheit() As Decimal + Get + Return Me._auszuzahlenSicherheit + End Get + Set + Me._auszuzahlenSicherheit = Value + End Set + End Property + + + Public Property EinbehaltenSicherheit() As Decimal + Get + Return Me._einbehaltenSicherheit + End Get + Set + Me._einbehaltenSicherheit = Value + End Set + End Property + + + Public Property SicherheitsleistungForm() As String + Get + Return Me._sicherheitsleistungForm + End Get + Set + Me._sicherheitsleistungForm = Value + End Set + End Property + + + Public Property SicherheitsleistungsVerzicht() As String + Get + Return Me._sicherheitsleistungsVerzicht + End Get + Set + Me._sicherheitsleistungsVerzicht = Value + End Set + End Property + + + Public Property AuszahlungsArt() As String + Get + Return Me._auszahlungsArt + End Get + Set + Me._auszahlungsArt = Value + End Set + End Property + + + Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + Get + Return Me._unbareSicherheiten + End Get + Set + Me._unbareSicherheiten = Value + End Set + End Property + + + Public Property BescheidendeDienststelleNr() As String + Get + Return Me._bescheidendeDienststelleNr + End Get + Set + Me._bescheidendeDienststelleNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleName() As String + Get + Return Me._bescheidendeDienststelleName + End Get + Set + Me._bescheidendeDienststelleName = Value + End Set + End Property + + + Public Property BescheidendeDienststelleStrasseHausNr() As String + Get + Return Me._bescheidendeDienststelleStrasseHausNr + End Get + Set + Me._bescheidendeDienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleOrtS() As String + Get + Return Me._bescheidendeDienststelleOrtS + End Get + Set + Me._bescheidendeDienststelleOrtS = Value + End Set + End Property + + + Public Property BescheidendeDienststellePLZS() As String + Get + Return Me._bescheidendeDienststellePLZS + End Get + Set + Me._bescheidendeDienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property BescheidendeDienststelleTelefonNr() As String + Get + Return Me._bescheidendeDienststelleTelefonNr + End Get + Set + Me._bescheidendeDienststelleTelefonNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamt() As String + Get + Return Me._rechtsbehelfHauptzollamt + End Get + Set + Me._rechtsbehelfHauptzollamt = Value + End Set + End Property + + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me._rechtsbehelfHZADEmailAdresse + End Get + Set + Me._rechtsbehelfHZADEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtStrHausNr() As String + Get + Return Me._rechtsbehelfHauptzollamtStrHausNr + End Get + Set + Me._rechtsbehelfHauptzollamtStrHausNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZS() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZS + End Get + Set + Me._rechtsbehelfHauptzollamtPLZS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtS() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtS + End Get + Set + Me._rechtsbehelfHauptzollamtOrtS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtsteil() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtsteil + End Get + Set + Me._rechtsbehelfHauptzollamtOrtsteil = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPostfach() As String + Get + Return Me._rechtsbehelfHauptzollamtPostfach + End Get + Set + Me._rechtsbehelfHauptzollamtPostfach = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZP() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZP + End Get + Set + Me._rechtsbehelfHauptzollamtPLZP = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtP() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtP + End Get + Set + Me._rechtsbehelfHauptzollamtOrtP = Value + End Set + End Property + + + Public Property Zollzahlstelle() As String + Get + Return Me._zollzahlstelle + End Get + Set + Me._zollzahlstelle = Value + End Set + End Property + + + Public Property ZollzahlstelleKreditinstitut() As String + Get + Return Me._zollzahlstelleKreditinstitut + End Get + Set + Me._zollzahlstelleKreditinstitut = Value + End Set + End Property + + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set + Me._zollzahlstellePLZS = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set + Me._zollzahlstelleOrtS = Value + End Set + End Property + + + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set + Me._zollzahlstellePostfach = Value + End Set + End Property + + + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set + Me._zollzahlstellePLZP = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set + Me._zollzahlstelleOrtP = Value + End Set + End Property + + + Public Property ZollzahlstelleIBAN() As String + Get + Return Me._zollzahlstelleIBAN + End Get + Set + Me._zollzahlstelleIBAN = Value + End Set + End Property + + + Public Property ZollzahlstelleBIC() As String + Get + Return Me._zollzahlstelleBIC + End Get + Set + Me._zollzahlstelleBIC = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property VorsteuerabzugKz() As String + Get + Return Me._vorsteuerabzugKz + End Get + Set + Me._vorsteuerabzugKz = Value + End Set + End Property + + + Public Property AnmelderName() As String + Get + Return Me._anmelderName + End Get + Set + Me._anmelderName = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterName() As String + Get + Return Me._vertreterName + End Get + Set + Me._vertreterName = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property LagerhalterEORI() As String + Get + Return Me._lagerhalterEORI + End Get + Set + Me._lagerhalterEORI = Value + End Set + End Property + + + Public Property LagerhalterNLNR() As String + Get + Return Me._lagerhalterNLNR + End Get + Set + Me._lagerhalterNLNR = Value + End Set + End Property + + + Public Property LagerhalterName() As String + Get + Return Me._lagerhalterName + End Get + Set + Me._lagerhalterName = Value + End Set + End Property + + + Public Property LagerhalterStrasseHausNr() As String + Get + Return Me._lagerhalterStrasseHausNr + End Get + Set + Me._lagerhalterStrasseHausNr = Value + End Set + End Property + + + Public Property LagerhalterNationalitaet() As String + Get + Return Me._lagerhalterNationalitaet + End Get + Set + Me._lagerhalterNationalitaet = Value + End Set + End Property + + + Public Property LagerhalterPLZ() As String + Get + Return Me._lagerhalterPLZ + End Get + Set + Me._lagerhalterPLZ = Value + End Set + End Property + + + Public Property LagerhalterOrt() As String + Get + Return Me._lagerhalterOrt + End Get + Set + Me._lagerhalterOrt = Value + End Set + End Property + + + Public Property LagerhalterOrtsteil() As String + Get + Return Me._lagerhalterOrtsteil + End Get + Set + Me._lagerhalterOrtsteil = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerName() As String + Get + Return Me._empfaengerName + End Get + Set + Me._empfaengerName = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerEORI() As String + Get + Return Me._zahlungsEmpfaengerEORI + End Get + Set + Me._zahlungsEmpfaengerEORI = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNLNR() As String + Get + Return Me._zahlungsEmpfaengerNLNR + End Get + Set + Me._zahlungsEmpfaengerNLNR = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerKreditinstitut() As String + Get + Return Me._zahlungsEmpfaengerKreditinstitut + End Get + Set + Me._zahlungsEmpfaengerKreditinstitut = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerName() As String + Get + Return Me._zahlungsEmpfaengerName + End Get + Set + Me._zahlungsEmpfaengerName = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNationalitaet() As String + Get + Return Me._zahlungsEmpfaengerNationalitaet + End Get + Set + Me._zahlungsEmpfaengerNationalitaet = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerStrasseHausNr() As String + Get + Return Me._zahlungsEmpfaengerStrasseHausNr + End Get + Set + Me._zahlungsEmpfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerPLZS() As String + Get + Return Me._zahlungsEmpfaengerPLZS + End Get + Set + Me._zahlungsEmpfaengerPLZS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtS() As String + Get + Return Me._zahlungsEmpfaengerOrtS + End Get + Set + Me._zahlungsEmpfaengerOrtS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtsteil() As String + Get + Return Me._zahlungsEmpfaengerOrtsteil + End Get + Set + Me._zahlungsEmpfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerIBAN() As String + Get + Return Me._zahlungsEmpfaengerIBAN + End Get + Set + Me._zahlungsEmpfaengerIBAN = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerBIC() As String + Get + Return Me._zahlungsEmpfaengerBIC + End Get + Set + Me._zahlungsEmpfaengerBIC = Value + End Set + End Property + + + Public Property ErstellungsDatumBefund() As Date + Get + Return Me._erstellungsDatumBefund + End Get + Set + Me._erstellungsDatumBefund = Value + End Set + End Property + + + Public Property Erfassungsdatum() As Date + Get + Return Me._erfassungsdatum + End Get + Set + Me._erfassungsdatum = Value + End Set + End Property + + + Public Property BarzahlungFaelligkeit() As Date + Get + Return Me._barzahlungFaelligkeit + End Get + Set + Me._barzahlungFaelligkeit = Value + End Set + End Property + + + Public Property SicherheitsleistungFaelligkeit() As String + Get + Return Me._sicherheitsleistungFaelligkeit + End Get + Set + Me._sicherheitsleistungFaelligkeit = Value + End Set + End Property + + + Public Property AbrechnungszeitraumBeginn() As Date + Get + Return Me._abrechnungszeitraumBeginn + End Get + Set + Me._abrechnungszeitraumBeginn = Value + End Set + End Property + + + Public Property AbrechnungszeitraumEnde() As Date + Get + Return Me._abrechnungszeitraumEnde + End Get + Set + Me._abrechnungszeitraumEnde = Value + End Set + End Property + + + Public Property Zollbefund() As String + Get + Return Me._zollbefund + End Get + Set + Me._zollbefund = Value + End Set + End Property + + + Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp + Get + Return Me._eZAAVAngabenKopf + End Get + Set + Me._eZAAVAngabenKopf = Value + End Set + End Property + + + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set + Me._lieferbedingungCode = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp 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 KopfDatenEinfuhrbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrbescheidTyp + Return CType(Serializer.Deserialize(s), KopfDatenEinfuhrbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KopfDatenEinfuhrbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEinfuhrbescheidTyp + Dim file As 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/Abgabenbescheid/Abgabenbescheid_009.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.xsd new file mode 100644 index 0000000..c9d13f7 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_009.xsd @@ -0,0 +1,571 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.Designer.vb new file mode 100644 index 0000000..5a9b4c3 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.Designer.vb @@ -0,0 +1,2154 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' AbschliessendeFestsetzung_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 AbschliessendeFestsetzung_004 + + + Partial Public Class AbschliessendeFestsetzungTAXATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp() + End Sub + + + Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp + Get + Return Me._einzelAbschliessendeFestsetzung + End Get + Set + Me._einzelAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbschliessendeFestsetzungTAXATyp 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 AbschliessendeFestsetzungTAXATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbschliessendeFestsetzungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbschliessendeFestsetzungTAXATyp + Return CType(Serializer.Deserialize(s), AbschliessendeFestsetzungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current AbschliessendeFestsetzungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbschliessendeFestsetzungTAXATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbschliessendeFestsetzungTAXATyp + Dim file As 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 EinzelAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp + + Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbschliessendeFestsetzungTyp 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 EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), EinzelAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelAbschliessendeFestsetzungTyp + Dim file As 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 ObjektIdentifizierungTAXATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXATyp 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 ObjektIdentifizierungTAXATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 ObjektIdentifizierungTAXATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungTAXATyp + Dim file As 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 PositionAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _freigabeSicherheitenKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property FreigabeSicherheitenKz() As String + Get + Return Me._freigabeSicherheitenKz + End Get + Set + Me._freigabeSicherheitenKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAbschliessendeFestsetzungTyp 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 PositionAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), PositionAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PositionAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionAbschliessendeFestsetzungTyp + Dim file As 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 KopfDatenAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _waehrungKz As String + + Private _rechtsbehelfKz As String + + Private _gesamtschuldnerschaftKz As String + + Private _umsatzsteuerIDNr As String + + Private _registrierNr As String + + Private _nIZZARegistrierKz As String + + Private _freizugebeneSicherheitEUR As Decimal + + Private _auszahlungArt As String + + Private _freigegebeneSicherheitGesamt As Decimal + + Private _freigabeSicherheitKz As String + + Private _freigabeSicherheitArt As String + + Private _sonstigeMitteilung As String + + Private _bearbeiter As String + + Private _rechtsbehelfHZABezeichung As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHZADEmailAdresse As String + + Private _rechtsbehelfHZAStrasseHausNr As String + + Private _rechtsbehelfHZAPLZS As String + + Private _rechtsbehelfHZAOrtS As String + + Private _rechtsbehelfHZAOrtsteil As String + + Private _rechtsbehelfHZAPostfach As String + + Private _rechtsbehelfHZAPLZP As String + + Private _rechtsbehelfHZAOrtP As String + + Private _rechnungEORI As String + + Private _rechnungNLNR As String + + Private _rechnungNationalitaet As String + + Private _rechnungNameFirmenbezeichnung As String + + Private _rechnungStrasseHausNr As String + + Private _rechnungPLZS As String + + Private _rechnungOrtS As String + + Private _rechnungOrtsteil As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String + + Private _zahlungsempfaengerKreditinstitut As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenName As String + + Private _zahlungsempfaengerNationalitaet As String + + Private _zahlungsempfaengerStrasseHausNr As String + + Private _zahlungsempfaengerPLZS As String + + Private _zahlungsempfaengerOrtS As String + + Private _zahlungsempfaengerOrtsteil As String + + Private _zahlungsempfaengerIBAN As String + + Private _zahlungsempfaengerBIC As String + + Private _bescheideempfaengerEORI As String + + Private _bescheideempfaengerNLNR As String + + Private _bescheideempfaengerKreditinstitut As String + + Private _bescheideempfaengerName As String + + Private _bescheideempfaengerNationalitaet As String + + Private _bescheideempfaengerStrasseHausNr As String + + Private _bescheideempfaengerPLZS As String + + Private _bescheideempfaengerOrtS As String + + Private _bescheideempfaengerOrtsteil As String + + Private _bescheideempfaengerIBAN As String + + Private _bescheideempfaengerBIC As String + + Private _abgabenschuldnerEORI As String + + Private _abgabenschuldnerNLNR As String + + Private _abgabenschuldnerName As String + + Private _abgabenschuldnerNationalitaet As String + + Private _abgabenschuldnerStrasseHausNr As String + + Private _abgabenschuldnerPLZS As String + + Private _abgabenschuldnerOrtS As String + + Private _abgabenschuldnerOrtsteil As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property WaehrungKz() As String + Get + Return Me._waehrungKz + End Get + Set + Me._waehrungKz = Value + End Set + End Property + + + Public Property RechtsbehelfKz() As String + Get + Return Me._rechtsbehelfKz + End Get + Set + Me._rechtsbehelfKz = Value + End Set + End Property + + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + + Public Property UmsatzsteuerIDNr() As String + Get + Return Me._umsatzsteuerIDNr + End Get + Set + Me._umsatzsteuerIDNr = Value + End Set + End Property + + + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set + Me._registrierNr = Value + End Set + End Property + + + Public Property NIZZARegistrierKz() As String + Get + Return Me._nIZZARegistrierKz + End Get + Set + Me._nIZZARegistrierKz = Value + End Set + End Property + + + Public Property FreizugebeneSicherheitEUR() As Decimal + Get + Return Me._freizugebeneSicherheitEUR + End Get + Set + Me._freizugebeneSicherheitEUR = Value + End Set + End Property + + + Public Property AuszahlungArt() As String + Get + Return Me._auszahlungArt + End Get + Set + Me._auszahlungArt = Value + End Set + End Property + + + Public Property FreigegebeneSicherheitGesamt() As Decimal + Get + Return Me._freigegebeneSicherheitGesamt + End Get + Set + Me._freigegebeneSicherheitGesamt = Value + End Set + End Property + + + Public Property FreigabeSicherheitKz() As String + Get + Return Me._freigabeSicherheitKz + End Get + Set + Me._freigabeSicherheitKz = Value + End Set + End Property + + + Public Property FreigabeSicherheitArt() As String + Get + Return Me._freigabeSicherheitArt + End Get + Set + Me._freigabeSicherheitArt = Value + End Set + End Property + + + Public Property SonstigeMitteilung() As String + Get + Return Me._sonstigeMitteilung + End Get + Set + Me._sonstigeMitteilung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property RechtsbehelfHZABezeichung() As String + Get + Return Me._rechtsbehelfHZABezeichung + End Get + Set + Me._rechtsbehelfHZABezeichung = Value + End Set + End Property + + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me._rechtsbehelfHZADEmailAdresse + End Get + Set + Me._rechtsbehelfHZADEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHZAStrasseHausNr() As String + Get + Return Me._rechtsbehelfHZAStrasseHausNr + End Get + Set + Me._rechtsbehelfHZAStrasseHausNr = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPLZS() As String + Get + Return Me._rechtsbehelfHZAPLZS + End Get + Set + Me._rechtsbehelfHZAPLZS = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtS() As String + Get + Return Me._rechtsbehelfHZAOrtS + End Get + Set + Me._rechtsbehelfHZAOrtS = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtsteil() As String + Get + Return Me._rechtsbehelfHZAOrtsteil + End Get + Set + Me._rechtsbehelfHZAOrtsteil = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPostfach() As String + Get + Return Me._rechtsbehelfHZAPostfach + End Get + Set + Me._rechtsbehelfHZAPostfach = Value + End Set + End Property + + + Public Property RechtsbehelfHZAPLZP() As String + Get + Return Me._rechtsbehelfHZAPLZP + End Get + Set + Me._rechtsbehelfHZAPLZP = Value + End Set + End Property + + + Public Property RechtsbehelfHZAOrtP() As String + Get + Return Me._rechtsbehelfHZAOrtP + End Get + Set + Me._rechtsbehelfHZAOrtP = Value + End Set + End Property + + + Public Property RechnungEORI() As String + Get + Return Me._rechnungEORI + End Get + Set + Me._rechnungEORI = Value + End Set + End Property + + + Public Property RechnungNLNR() As String + Get + Return Me._rechnungNLNR + End Get + Set + Me._rechnungNLNR = Value + End Set + End Property + + + Public Property RechnungNationalitaet() As String + Get + Return Me._rechnungNationalitaet + End Get + Set + Me._rechnungNationalitaet = Value + End Set + End Property + + + Public Property RechnungNameFirmenbezeichnung() As String + Get + Return Me._rechnungNameFirmenbezeichnung + End Get + Set + Me._rechnungNameFirmenbezeichnung = Value + End Set + End Property + + + Public Property RechnungStrasseHausNr() As String + Get + Return Me._rechnungStrasseHausNr + End Get + Set + Me._rechnungStrasseHausNr = Value + End Set + End Property + + + Public Property RechnungPLZS() As String + Get + Return Me._rechnungPLZS + End Get + Set + Me._rechnungPLZS = Value + End Set + End Property + + + Public Property RechnungOrtS() As String + Get + Return Me._rechnungOrtS + End Get + Set + Me._rechnungOrtS = Value + End Set + End Property + + + Public Property RechnungOrtsteil() As String + Get + Return Me._rechnungOrtsteil + End Get + Set + Me._rechnungOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value + End Set + End Property + + + Public Property ZahlungsempfaengerKreditinstitut() As String + Get + Return Me._zahlungsempfaengerKreditinstitut + End Get + Set + Me._zahlungsempfaengerKreditinstitut = Value + End Set + End Property + + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenName + End Get + Set + Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value + End Set + End Property + + + Public Property ZahlungsempfaengerNationalitaet() As String + Get + Return Me._zahlungsempfaengerNationalitaet + End Get + Set + Me._zahlungsempfaengerNationalitaet = Value + End Set + End Property + + + Public Property ZahlungsempfaengerStrasseHausNr() As String + Get + Return Me._zahlungsempfaengerStrasseHausNr + End Get + Set + Me._zahlungsempfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property ZahlungsempfaengerPLZS() As String + Get + Return Me._zahlungsempfaengerPLZS + End Get + Set + Me._zahlungsempfaengerPLZS = Value + End Set + End Property + + + Public Property ZahlungsempfaengerOrtS() As String + Get + Return Me._zahlungsempfaengerOrtS + End Get + Set + Me._zahlungsempfaengerOrtS = Value + End Set + End Property + + + Public Property ZahlungsempfaengerOrtsteil() As String + Get + Return Me._zahlungsempfaengerOrtsteil + End Get + Set + Me._zahlungsempfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsempfaengerIBAN() As String + Get + Return Me._zahlungsempfaengerIBAN + End Get + Set + Me._zahlungsempfaengerIBAN = Value + End Set + End Property + + + Public Property ZahlungsempfaengerBIC() As String + Get + Return Me._zahlungsempfaengerBIC + End Get + Set + Me._zahlungsempfaengerBIC = Value + End Set + End Property + + + Public Property BescheideempfaengerEORI() As String + Get + Return Me._bescheideempfaengerEORI + End Get + Set + Me._bescheideempfaengerEORI = Value + End Set + End Property + + + Public Property BescheideempfaengerNLNR() As String + Get + Return Me._bescheideempfaengerNLNR + End Get + Set + Me._bescheideempfaengerNLNR = Value + End Set + End Property + + + Public Property BescheideempfaengerKreditinstitut() As String + Get + Return Me._bescheideempfaengerKreditinstitut + End Get + Set + Me._bescheideempfaengerKreditinstitut = Value + End Set + End Property + + + Public Property BescheideempfaengerName() As String + Get + Return Me._bescheideempfaengerName + End Get + Set + Me._bescheideempfaengerName = Value + End Set + End Property + + + Public Property BescheideempfaengerNationalitaet() As String + Get + Return Me._bescheideempfaengerNationalitaet + End Get + Set + Me._bescheideempfaengerNationalitaet = Value + End Set + End Property + + + Public Property BescheideempfaengerStrasseHausNr() As String + Get + Return Me._bescheideempfaengerStrasseHausNr + End Get + Set + Me._bescheideempfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property BescheideempfaengerPLZS() As String + Get + Return Me._bescheideempfaengerPLZS + End Get + Set + Me._bescheideempfaengerPLZS = Value + End Set + End Property + + + Public Property BescheideempfaengerOrtS() As String + Get + Return Me._bescheideempfaengerOrtS + End Get + Set + Me._bescheideempfaengerOrtS = Value + End Set + End Property + + + Public Property BescheideempfaengerOrtsteil() As String + Get + Return Me._bescheideempfaengerOrtsteil + End Get + Set + Me._bescheideempfaengerOrtsteil = Value + End Set + End Property + + + Public Property BescheideempfaengerIBAN() As String + Get + Return Me._bescheideempfaengerIBAN + End Get + Set + Me._bescheideempfaengerIBAN = Value + End Set + End Property + + + Public Property BescheideempfaengerBIC() As String + Get + Return Me._bescheideempfaengerBIC + End Get + Set + Me._bescheideempfaengerBIC = Value + End Set + End Property + + + Public Property AbgabenschuldnerEORI() As String + Get + Return Me._abgabenschuldnerEORI + End Get + Set + Me._abgabenschuldnerEORI = Value + End Set + End Property + + + Public Property AbgabenschuldnerNLNR() As String + Get + Return Me._abgabenschuldnerNLNR + End Get + Set + Me._abgabenschuldnerNLNR = Value + End Set + End Property + + + Public Property AbgabenschuldnerName() As String + Get + Return Me._abgabenschuldnerName + End Get + Set + Me._abgabenschuldnerName = Value + End Set + End Property + + + Public Property AbgabenschuldnerNationalitaet() As String + Get + Return Me._abgabenschuldnerNationalitaet + End Get + Set + Me._abgabenschuldnerNationalitaet = Value + End Set + End Property + + + Public Property AbgabenschuldnerStrasseHausNr() As String + Get + Return Me._abgabenschuldnerStrasseHausNr + End Get + Set + Me._abgabenschuldnerStrasseHausNr = Value + End Set + End Property + + + Public Property AbgabenschuldnerPLZS() As String + Get + Return Me._abgabenschuldnerPLZS + End Get + Set + Me._abgabenschuldnerPLZS = Value + End Set + End Property + + + Public Property AbgabenschuldnerOrtS() As String + Get + Return Me._abgabenschuldnerOrtS + End Get + Set + Me._abgabenschuldnerOrtS = Value + End Set + End Property + + + Public Property AbgabenschuldnerOrtsteil() As String + Get + Return Me._abgabenschuldnerOrtsteil + End Get + Set + Me._abgabenschuldnerOrtsteil = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp 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 KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenAbschliessendeFestsetzungTyp + Dim file As 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/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.xsd new file mode 100644 index 0000000..2dd9af9 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_004.xsd @@ -0,0 +1,228 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.Designer.vb new file mode 100644 index 0000000..09c7d3c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.Designer.vb @@ -0,0 +1,5949 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' BefundVereinfachteZollanmeldung_007ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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 BefundVereinfachteZollanmeldung_007 + + + Partial Public Class BefundVereinfachteZollanmeldungVBTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() + End Sub + + + Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp + Get + Return Me._einzelBefundVereinfachteZollanmeldung + End Get + Set + Me._einzelBefundVereinfachteZollanmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefundVereinfachteZollanmeldungVBTyp 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 BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefundVereinfachteZollanmeldungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefundVereinfachteZollanmeldungVBTyp + Return CType(Serializer.Deserialize(s), BefundVereinfachteZollanmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current BefundVereinfachteZollanmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefundVereinfachteZollanmeldungVBTyp + Dim file As 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 EinzelBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVBTyp + + Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp + + Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() + Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp 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 EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBefundVereinfachteZollanmeldungTyp + Dim file As 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 ObjektIdentifizierungVBTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungVBTyp 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 ObjektIdentifizierungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungVBTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungVBTyp + Dim file As 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 SonderabgabenVBTyp + +#Region "Private fields" + Private _sonderfalleingabeSonderabgabengruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SonderfalleingabeSonderabgabengruppe() As String + Get + Return Me._sonderfalleingabeSonderabgabengruppe + End Get + Set + Me._sonderfalleingabeSonderabgabengruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderabgabenVBTyp 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 SonderabgabenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderabgabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderabgabenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderabgabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderabgabenVBTyp + Return CType(Serializer.Deserialize(s), SonderabgabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderabgabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SonderabgabenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderabgabenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderabgabenVBTyp + Dim file As 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 MinderungVBTyp + +#Region "Private fields" + Private _minderndeAbgabengruppe As String + + Private _minderungsbetrag As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property MinderndeAbgabengruppe() As String + Get + Return Me._minderndeAbgabengruppe + End Get + Set + Me._minderndeAbgabengruppe = Value + End Set + End Property + + + Public Property Minderungsbetrag() As Decimal + Get + Return Me._minderungsbetrag + End Get + Set + Me._minderungsbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MinderungVBTyp 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 MinderungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MinderungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MinderungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MinderungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MinderungVBTyp + Return CType(Serializer.Deserialize(s), MinderungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current MinderungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an MinderungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MinderungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MinderungVBTyp + Dim file As 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 VerbrauchsteuerVBTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As Decimal + + Private _verbrauchssteuerWertBasis As Decimal + + Private Shared 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 Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertBasis() As Decimal + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbrauchsteuerVBTyp 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 VerbrauchsteuerVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchsteuerVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchsteuerVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchsteuerVBTyp + Return CType(Serializer.Deserialize(s), VerbrauchsteuerVBTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchsteuerVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchsteuerVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchsteuerVBTyp + Dim file As 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 GehaltsangabenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As Decimal + + 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 Decimal + 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(GehaltsangabenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GehaltsangabenVBTyp 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 GehaltsangabenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenVBTyp + Return CType(Serializer.Deserialize(s), GehaltsangabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GehaltsangabenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenVBTyp + Dim file As 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 PreisWertangabeVBTyp + +#Region "Private fields" + Private _preisartCode As String + + Private _wert As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set + Me._preisartCode = Value + End Set + End Property + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PreisWertangabeVBTyp 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 PreisWertangabeVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreisWertangabeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreisWertangabeVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PreisWertangabeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PreisWertangabeVBTyp + Return CType(Serializer.Deserialize(s), PreisWertangabeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current PreisWertangabeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreisWertangabeVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreisWertangabeVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreisWertangabeVBTyp + Dim file As 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 WarenMengeVBTyp + +#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(WarenMengeVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenMengeVBTyp 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 WarenMengeVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenMengeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeVBTyp + Return CType(Serializer.Deserialize(s), WarenMengeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WarenMengeVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeVBTyp + Dim file As 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 AbzugHinzurechnungenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _artText As String + + Private _betrag As Decimal + + Private _iATAKursKz As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursAuslandswaehrung As Decimal + + Private _kursDatum As Date + + Private _prozentsatz As Decimal + + Private Shared 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 ArtText() As String + Get + Return Me._artText + End Get + Set + Me._artText = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursAuslandswaehrung() As Decimal + Get + Return Me._kursAuslandswaehrung + End Get + Set + Me._kursAuslandswaehrung = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property Prozentsatz() As Decimal + Get + Return Me._prozentsatz + End Get + Set + Me._prozentsatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbzugHinzurechnungenVBTyp 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 AbzugHinzurechnungenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungenVBTyp + Return CType(Serializer.Deserialize(s), AbzugHinzurechnungenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungenVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungenVBTyp + Dim file As 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 AbweichungVBTyp + +#Region "Private fields" + Private _abweichendFestgesetztesFeld As String + + Private _abweichendFestgesetztesFeldQualifikator As String + + Private _qualifikatorInhalt As String + + Private _abweichendeFestsetzungArt As String + + Private _abweichendFestgesetztVon As String + + Private _abweichendFestgesetztAuf As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property AbweichendFestgesetztesFeld() As String + Get + Return Me._abweichendFestgesetztesFeld + End Get + Set + Me._abweichendFestgesetztesFeld = Value + End Set + End Property + + + Public Property AbweichendFestgesetztesFeldQualifikator() As String + Get + Return Me._abweichendFestgesetztesFeldQualifikator + End Get + Set + Me._abweichendFestgesetztesFeldQualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property AbweichendeFestsetzungArt() As String + Get + Return Me._abweichendeFestsetzungArt + End Get + Set + Me._abweichendeFestsetzungArt = Value + End Set + End Property + + + Public Property AbweichendFestgesetztVon() As String + Get + Return Me._abweichendFestgesetztVon + End Get + Set + Me._abweichendFestgesetztVon = Value + End Set + End Property + + + Public Property AbweichendFestgesetztAuf() As String + Get + Return Me._abweichendFestgesetztAuf + End Get + Set + Me._abweichendFestgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbweichungVBTyp 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 AbweichungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichungVBTyp + Return CType(Serializer.Deserialize(s), AbweichungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbweichungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbweichungVBTyp + Dim file As 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 UnterlageVBTyp + +#Region "Private fields" + Private _art As String + + Private _bereich As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As Decimal + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private _kzAnerkennung As String + + Private _kzAbschreibung As String + + Private _kzEinbehalten As String + + Private _kzPeriodischeVorlage As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set + Me._vorlageKz = Value + End Set + End Property + + + Public Property AbschreibungsMenge() As Decimal + Get + Return Me._abschreibungsMenge + End Get + Set + Me._abschreibungsMenge = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + + Public Property KzAnerkennung() As String + Get + Return Me._kzAnerkennung + End Get + Set + Me._kzAnerkennung = Value + End Set + End Property + + + Public Property KzAbschreibung() As String + Get + Return Me._kzAbschreibung + End Get + Set + Me._kzAbschreibung = Value + End Set + End Property + + + Public Property KzEinbehalten() As String + Get + Return Me._kzEinbehalten + End Get + Set + Me._kzEinbehalten = Value + End Set + End Property + + + Public Property KzPeriodischeVorlage() As String + Get + Return Me._kzPeriodischeVorlage + End Get + Set + Me._kzPeriodischeVorlage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageVBTyp 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 UnterlageVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVBTyp + Return CType(Serializer.Deserialize(s), UnterlageVBTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVBTyp + Dim file As 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 PositionBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _positionsNrvZAAZ As String + + Private _mitteilungAnTeilnehmerBeschau As String + + Private _weitererNachweis As String + + Private _mitteilungAnTeilnehmerErledigung As String + + Private _positionsbefund As String + + Private _unterlage As List(Of UnterlageVBTyp) + + Private _ueberlassungDatum As Date + + Private _weitererNachweisFrist As Date + + Private _positionKzErledigung As String + + Private _abweichung As List(Of AbweichungVBTyp) + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _abgabensteuerungKz As String + + Private _eUCode As List(Of String) + + Private _sachbereich As String + + Private _artikelNummer As String + + Private _artikelpreis As Decimal + + Private _positionsZusatz As String + + Private _eigenmasse As Decimal + + Private _ursprungslandCode As String + + Private _tabakSteuerzeichenID As String + + Private _statistikStatus As String + + Private _artGeschaeftCode As String + + Private _bestimmungsbundesland As String + + Private _aHStatWert As String + + Private _aHStatMenge As Decimal + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _rohmasse As Decimal + + Private _dV1Nettopreis As Decimal + + Private _dV1Waehrung As String + + Private _dV1KzKursNettoVereinbart As String + + Private _dV1Kurs As Decimal + + Private _dV1MittelbareZahlungen As Decimal + + Private _dV1MittelbareZahlungenWaehrung As String + + Private _dV1MittelbareZahlungenKursKz As String + + Private _dV1MittelbareZahlungenKurs As Decimal + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _luftfrachtkostenGesamt As Decimal + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As Decimal + + Private _kursDatum As Date + + Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) + + Private _zollwert As Decimal + + Private _warenMenge As List(Of WarenMengeVBTyp) + + Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) + + Private _veredelungWertsteigerung As Decimal + + Private _kostenEUSt As Decimal + + Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) + + Private _beguenstigungBeantragtCode As String + + Private _beguenstigungMenge As String + + Private _beguenstigungMengeMasseinheit As String + + Private _beguenstigungMengeQualifikator As String + + Private _minderung As List(Of MinderungVBTyp) + + Private _sonderabgaben As List(Of SonderabgabenVBTyp) + + Private _kontingentNrAngewandt As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kontingentNrAngewandt = New List(Of String)() + Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() + Me._minderung = New List(Of MinderungVBTyp)() + Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() + Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() + Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() + Me._warenMenge = New List(Of WarenMengeVBTyp)() + Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() + Me._eUCode = New List(Of String)() + Me._warenNummerZusatzCode = New List(Of String)() + Me._abweichung = New List(Of AbweichungVBTyp)() + Me._unterlage = New List(Of UnterlageVBTyp)() + End Sub + + + Public Property PositionsNrvZAAZ() As String + Get + Return Me._positionsNrvZAAZ + End Get + Set + Me._positionsNrvZAAZ = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerBeschau() As String + Get + Return Me._mitteilungAnTeilnehmerBeschau + End Get + Set + Me._mitteilungAnTeilnehmerBeschau = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerErledigung() As String + Get + Return Me._mitteilungAnTeilnehmerErledigung + End Get + Set + Me._mitteilungAnTeilnehmerErledigung = Value + End Set + End Property + + + Public Property Positionsbefund() As String + Get + Return Me._positionsbefund + End Get + Set + Me._positionsbefund = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property WeitererNachweisFrist() As Date + Get + Return Me._weitererNachweisFrist + End Get + Set + Me._weitererNachweisFrist = Value + End Set + End Property + + + Public Property PositionKzErledigung() As String + Get + Return Me._positionKzErledigung + End Get + Set + Me._positionKzErledigung = Value + End Set + End Property + + + Public Property Abweichung() As List(Of AbweichungVBTyp) + Get + Return Me._abweichung + End Get + Set + Me._abweichung = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set + Me._abgabensteuerungKz = Value + End Set + End Property + + + Public Property EUCode() As List(Of String) + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set + Me._sachbereich = Value + End Set + End Property + + + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set + Me._artikelNummer = Value + End Set + End Property + + + Public Property Artikelpreis() As Decimal + Get + Return Me._artikelpreis + End Get + Set + Me._artikelpreis = Value + End Set + End Property + + + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set + Me._positionsZusatz = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = Value + End Set + End Property + + + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set + Me._tabakSteuerzeichenID = Value + End Set + End Property + + + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set + Me._statistikStatus = Value + End Set + End Property + + + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set + Me._artGeschaeftCode = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set + Me._aHStatWert = Value + End Set + End Property + + + Public Property AHStatMenge() As Decimal + Get + Return Me._aHStatMenge + End Get + Set + Me._aHStatMenge = Value + End Set + End Property + + + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set + Me._aHStatMengeQualifier = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property DV1Nettopreis() As Decimal + Get + Return Me._dV1Nettopreis + End Get + Set + Me._dV1Nettopreis = Value + End Set + End Property + + + Public Property DV1Waehrung() As String + Get + Return Me._dV1Waehrung + End Get + Set + Me._dV1Waehrung = Value + End Set + End Property + + + Public Property DV1KzKursNettoVereinbart() As String + Get + Return Me._dV1KzKursNettoVereinbart + End Get + Set + Me._dV1KzKursNettoVereinbart = Value + End Set + End Property + + + Public Property DV1Kurs() As Decimal + Get + Return Me._dV1Kurs + End Get + Set + Me._dV1Kurs = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungen() As Decimal + Get + Return Me._dV1MittelbareZahlungen + End Get + Set + Me._dV1MittelbareZahlungen = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenWaehrung() As String + Get + Return Me._dV1MittelbareZahlungenWaehrung + End Get + Set + Me._dV1MittelbareZahlungenWaehrung = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKursKz() As String + Get + Return Me._dV1MittelbareZahlungenKursKz + End Get + Set + Me._dV1MittelbareZahlungenKursKz = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKurs() As Decimal + Get + Return Me._dV1MittelbareZahlungenKurs + End Get + Set + Me._dV1MittelbareZahlungenKurs = Value + End Set + End Property + + + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set + Me._ortVerbringens = Value + End Set + End Property + + + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set + Me._abflughafenIATACode = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamt() As Decimal + Get + Return Me._luftfrachtkostenGesamt + End Get + Set + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursBetragVereinbart() As Decimal + Get + Return Me._kursBetragVereinbart + End Get + Set + Me._kursBetragVereinbart = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property Zollwert() As Decimal + Get + Return Me._zollwert + End Get + Set + Me._zollwert = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of WarenMengeVBTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + + Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) + Get + Return Me._besondereWertangabe + End Get + Set + Me._besondereWertangabe = Value + End Set + End Property + + + Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) + Get + Return Me._gehaltsangaben + End Get + Set + Me._gehaltsangaben = Value + End Set + End Property + + + Public Property VeredelungWertsteigerung() As Decimal + Get + Return Me._veredelungWertsteigerung + End Get + Set + Me._veredelungWertsteigerung = Value + End Set + End Property + + + Public Property KostenEUSt() As Decimal + Get + Return Me._kostenEUSt + End Get + Set + Me._kostenEUSt = Value + End Set + End Property + + + Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) + Get + Return Me._verbrauchsteuer + End Get + Set + Me._verbrauchsteuer = Value + End Set + End Property + + + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + + Public Property BeguenstigungMenge() As String + Get + Return Me._beguenstigungMenge + End Get + Set + Me._beguenstigungMenge = Value + End Set + End Property + + + Public Property BeguenstigungMengeMasseinheit() As String + Get + Return Me._beguenstigungMengeMasseinheit + End Get + Set + Me._beguenstigungMengeMasseinheit = Value + End Set + End Property + + + Public Property BeguenstigungMengeQualifikator() As String + Get + Return Me._beguenstigungMengeQualifikator + End Get + Set + Me._beguenstigungMengeQualifikator = Value + End Set + End Property + + + Public Property Minderung() As List(Of MinderungVBTyp) + Get + Return Me._minderung + End Get + Set + Me._minderung = Value + End Set + End Property + + + Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) + Get + Return Me._sonderabgaben + End Get + Set + Me._sonderabgaben = Value + End Set + End Property + + + Public Property KontingentNrAngewandt() As List(Of String) + Get + Return Me._kontingentNrAngewandt + End Get + Set + Me._kontingentNrAngewandt = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp 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 PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBefundVereinfachteZollanmeldungTyp + Dim file As 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 AnmeldungVBTyp + +#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(AnmeldungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnmeldungVBTyp 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 AnmeldungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmeldungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmeldungVBTyp + Return CType(Serializer.Deserialize(s), AnmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnmeldungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmeldungVBTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmeldungVBTyp + Dim file As 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 KopfdatenBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummerBearbeiter As String + + Private _kopfKzErledigung As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _artAnmeldung As String + + Private _datumErstellungBefund As Date + + Private _befund As String + + Private _kzVertretungsverhaeltnis As String + + Private _wKZ As String + + Private _kzRechtsbehelf As String + + Private _kzGesamtschuldnerschaft As String + + Private _eingangszollstelleGeaendertKz As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _anmelderFirmenbezeichung As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderOrtsteil As String + + Private _anmelderOrtS As String + + Private _anmelderPLZS As String + + Private _anmelderNationalitaet As String + + Private _dienststellenschluessel As String + + Private _dienststelleBezeichung As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststelleOrtS As String + + Private _dienststellePLZS As String + + Private _bearbeiter As String + + Private _dienststelleVorwahlTelefonNr As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterFirmenbezeichnung As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterOrtsteil As String + + Private _vertreterOrtS As String + + Private _vertreterPLZS As String + + Private _vertreterNationalitaet As String + + Private _hZABezeichnung As String + + Private _hZAEmailAdresse As String + + Private _hZADEmailAdresse As String + + Private _hZAPostfach As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtsteil As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _anmelderEmpfaengerKz As String + + Private _bewilligungsnummer As String + + Private _versendungslandCode As String + + Private _lieferbedingung As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _ustIdNummer As String + + Private _finanzamt As String + + Private _eingangszollstelle As String + + Private _dV1Kz As String + + Private _verkaeuferEORI As String + + Private _verkaeuferFirmenbezeichnung As String + + Private _verkaeuferNationalitaet As String + + Private _verkaeuferStrasseHausNr As String + + Private _verkaeuferPLZS As String + + Private _verkaeuferOrtS As String + + Private _verkaeuferOrtsteil As String + + Private _kaeuferEORI As String + + Private _kaeuferFirmenbezeichnung As String + + Private _kaeuferNationalitaet As String + + Private _kaeuferStrasseHausNr As String + + Private _kaeuferPLZS As String + + Private _kaeuferOrtS As String + + Private _kaeuferOrtsteil As String + + Private _zollwertanmelderEORI As String + + Private _zollwertanmelderFirmenbezeichnung As String + + Private _zollwertanmelderNationalitaet As String + + Private _zollwertanmelderStrasseHausNr As String + + Private _zollwertanmelderPLZS As String + + Private _zollwertanmelderOrtS As String + + Private _zollwertanmelderOrtsteil As String + + Private _vertreterZollwertanmelderEORI As String + + Private _vertreterZollwertanmelderFirmenbezeichnung As String + + Private _vertreterZollwertanmelderNationalitaet As String + + Private _vertreterZollwertanmelderStrasseHausNr As String + + Private _vertreterZollwertanmelderPLZS As String + + Private _vertreterZollwertanmelderOrtS As String + + Private _vertreterZollwertanmelderOrtsteil As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerFirmenbezeichnung As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _datenuebermittlungEORI As String + + Private _erwerberAndererMitgliedstaatEORI As String + + Private _erwerberAndererMitgliedstaatNLNR As String + + Private _erwerberFirmenbezeichnung As String + + Private _erwerberNationalitaet As String + + Private _erwerberStrasseHausNr As String + + Private _erwerberPLZS As String + + Private _erwerberOrtS As String + + Private _erwerberOrtsteil As String + + Private _erwerberUStIdNrAndererMitgliedstaat As String + + Private _versenderAusfuehrerEORI As String + + Private _versenderAusfuehrerFirmenbezeichnung As String + + Private _versenderAusfuehrerNationalitaet As String + + Private _versenderAusfuehrerStrasseHausNr As String + + Private _versenderAusfuehrerPLZS As String + + Private _versenderAusfuehrerOrtS As String + + Private _versenderAusfuehrerOrtsteil As String + + Private _unterlage As List(Of AnmeldungVBTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._unterlage = New List(Of AnmeldungVBTyp)() + End Sub + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerBearbeiter() As String + Get + Return Me._telefonnummerBearbeiter + End Get + Set + Me._telefonnummerBearbeiter = Value + End Set + End Property + + + Public Property KopfKzErledigung() As String + Get + Return Me._kopfKzErledigung + End Get + Set + Me._kopfKzErledigung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property DatumErstellungBefund() As Date + Get + Return Me._datumErstellungBefund + End Get + Set + Me._datumErstellungBefund = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property KzVertretungsverhaeltnis() As String + Get + Return Me._kzVertretungsverhaeltnis + End Get + Set + Me._kzVertretungsverhaeltnis = Value + End Set + End Property + + + Public Property WKZ() As String + Get + Return Me._wKZ + End Get + Set + Me._wKZ = Value + End Set + End Property + + + Public Property KzRechtsbehelf() As String + Get + Return Me._kzRechtsbehelf + End Get + Set + Me._kzRechtsbehelf = Value + End Set + End Property + + + Public Property KzGesamtschuldnerschaft() As String + Get + Return Me._kzGesamtschuldnerschaft + End Get + Set + Me._kzGesamtschuldnerschaft = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property AnmelderFirmenbezeichung() As String + Get + Return Me._anmelderFirmenbezeichung + End Get + Set + Me._anmelderFirmenbezeichung = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set + Me._dienststellenschluessel = Value + End Set + End Property + + + Public Property DienststelleBezeichung() As String + Get + Return Me._dienststelleBezeichung + End Get + Set + Me._dienststelleBezeichung = Value + End Set + End Property + + + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set + Me._dienststelleOrtS = Value + End Set + End Property + + + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set + Me._dienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property DienststelleVorwahlTelefonNr() As String + Get + Return Me._dienststelleVorwahlTelefonNr + End Get + Set + Me._dienststelleVorwahlTelefonNr = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterFirmenbezeichnung() As String + Get + Return Me._vertreterFirmenbezeichnung + End Get + Set + Me._vertreterFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set + Me._hZABezeichnung = Value + End Set + End Property + + + Public Property HZAEmailAdresse() As String + Get + Return Me._hZAEmailAdresse + End Get + Set + Me._hZAEmailAdresse = Value + End Set + End Property + + + Public Property HZADEmailAdresse() As String + Get + Return Me._hZADEmailAdresse + End Get + Set + Me._hZADEmailAdresse = Value + End Set + End Property + + + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set + Me._hZAPostfach = Value + End Set + End Property + + + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set + Me._hZAOrtP = Value + End Set + End Property + + + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set + Me._hZAPLZP = Value + End Set + End Property + + + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set + Me._hZAStrasseHausNr = Value + End Set + End Property + + + Public Property HZAOrtsteil() As String + Get + Return Me._hZAOrtsteil + End Get + Set + Me._hZAOrtsteil = Value + End Set + End Property + + + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set + Me._hZAOrtS = Value + End Set + End Property + + + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set + Me._hZAPLZS = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property AnmelderEmpfaengerKz() As String + Get + Return Me._anmelderEmpfaengerKz + End Get + Set + Me._anmelderEmpfaengerKz = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property Lieferbedingung() As String + Get + Return Me._lieferbedingung + End Get + Set + Me._lieferbedingung = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property Rechnungspreis() As Decimal + Get + Return Me._rechnungspreis + End Get + Set + Me._rechnungspreis = Value + End Set + End Property + + + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set + Me._rechnungswaehrung = Value + End Set + End Property + + + Public Property UstIdNummer() As String + Get + Return Me._ustIdNummer + End Get + Set + Me._ustIdNummer = Value + End Set + End Property + + + Public Property Finanzamt() As String + Get + Return Me._finanzamt + End Get + Set + Me._finanzamt = Value + End Set + End Property + + + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set + Me._eingangszollstelle = Value + End Set + End Property + + + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set + Me._dV1Kz = Value + End Set + End Property + + + Public Property VerkaeuferEORI() As String + Get + Return Me._verkaeuferEORI + End Get + Set + Me._verkaeuferEORI = Value + End Set + End Property + + + Public Property VerkaeuferFirmenbezeichnung() As String + Get + Return Me._verkaeuferFirmenbezeichnung + End Get + Set + Me._verkaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property VerkaeuferNationalitaet() As String + Get + Return Me._verkaeuferNationalitaet + End Get + Set + Me._verkaeuferNationalitaet = Value + End Set + End Property + + + Public Property VerkaeuferStrasseHausNr() As String + Get + Return Me._verkaeuferStrasseHausNr + End Get + Set + Me._verkaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property VerkaeuferPLZS() As String + Get + Return Me._verkaeuferPLZS + End Get + Set + Me._verkaeuferPLZS = Value + End Set + End Property + + + Public Property VerkaeuferOrtS() As String + Get + Return Me._verkaeuferOrtS + End Get + Set + Me._verkaeuferOrtS = Value + End Set + End Property + + + Public Property VerkaeuferOrtsteil() As String + Get + Return Me._verkaeuferOrtsteil + End Get + Set + Me._verkaeuferOrtsteil = Value + End Set + End Property + + + Public Property KaeuferEORI() As String + Get + Return Me._kaeuferEORI + End Get + Set + Me._kaeuferEORI = Value + End Set + End Property + + + Public Property KaeuferFirmenbezeichnung() As String + Get + Return Me._kaeuferFirmenbezeichnung + End Get + Set + Me._kaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property KaeuferNationalitaet() As String + Get + Return Me._kaeuferNationalitaet + End Get + Set + Me._kaeuferNationalitaet = Value + End Set + End Property + + + Public Property KaeuferStrasseHausNr() As String + Get + Return Me._kaeuferStrasseHausNr + End Get + Set + Me._kaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property KaeuferPLZS() As String + Get + Return Me._kaeuferPLZS + End Get + Set + Me._kaeuferPLZS = Value + End Set + End Property + + + Public Property KaeuferOrtS() As String + Get + Return Me._kaeuferOrtS + End Get + Set + Me._kaeuferOrtS = Value + End Set + End Property + + + Public Property KaeuferOrtsteil() As String + Get + Return Me._kaeuferOrtsteil + End Get + Set + Me._kaeuferOrtsteil = Value + End Set + End Property + + + Public Property ZollwertanmelderEORI() As String + Get + Return Me._zollwertanmelderEORI + End Get + Set + Me._zollwertanmelderEORI = Value + End Set + End Property + + + Public Property ZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._zollwertanmelderFirmenbezeichnung + End Get + Set + Me._zollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property ZollwertanmelderNationalitaet() As String + Get + Return Me._zollwertanmelderNationalitaet + End Get + Set + Me._zollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property ZollwertanmelderStrasseHausNr() As String + Get + Return Me._zollwertanmelderStrasseHausNr + End Get + Set + Me._zollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property ZollwertanmelderPLZS() As String + Get + Return Me._zollwertanmelderPLZS + End Get + Set + Me._zollwertanmelderPLZS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtS() As String + Get + Return Me._zollwertanmelderOrtS + End Get + Set + Me._zollwertanmelderOrtS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtsteil() As String + Get + Return Me._zollwertanmelderOrtsteil + End Get + Set + Me._zollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderEORI() As String + Get + Return Me._vertreterZollwertanmelderEORI + End Get + Set + Me._vertreterZollwertanmelderEORI = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._vertreterZollwertanmelderFirmenbezeichnung + End Get + Set + Me._vertreterZollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderNationalitaet() As String + Get + Return Me._vertreterZollwertanmelderNationalitaet + End Get + Set + Me._vertreterZollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderStrasseHausNr() As String + Get + Return Me._vertreterZollwertanmelderStrasseHausNr + End Get + Set + Me._vertreterZollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderPLZS() As String + Get + Return Me._vertreterZollwertanmelderPLZS + End Get + Set + Me._vertreterZollwertanmelderPLZS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtS() As String + Get + Return Me._vertreterZollwertanmelderOrtS + End Get + Set + Me._vertreterZollwertanmelderOrtS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtsteil() As String + Get + Return Me._vertreterZollwertanmelderOrtsteil + End Get + Set + Me._vertreterZollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set + Me._fruehereEntscheidungen = Value + End Set + End Property + + + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set + Me._verbundenheit = Value + End Set + End Property + + + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set + Me._einschraenkungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set + Me._bedingungenLeistungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set + Me._bedingungenLeistungenArt = Value + End Set + End Property + + + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set + Me._lizenzgebuehrenKz = Value + End Set + End Property + + + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set + Me._spezielleVereinbarungKz = Value + End Set + End Property + + + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerFirmenbezeichnung() As String + Get + Return Me._empfaengerFirmenbezeichnung + End Get + Set + Me._empfaengerFirmenbezeichnung = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property DatenuebermittlungEORI() As String + Get + Return Me._datenuebermittlungEORI + End Get + Set + Me._datenuebermittlungEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatEORI() As String + Get + Return Me._erwerberAndererMitgliedstaatEORI + End Get + Set + Me._erwerberAndererMitgliedstaatEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatNLNR() As String + Get + Return Me._erwerberAndererMitgliedstaatNLNR + End Get + Set + Me._erwerberAndererMitgliedstaatNLNR = Value + End Set + End Property + + + Public Property ErwerberFirmenbezeichnung() As String + Get + Return Me._erwerberFirmenbezeichnung + End Get + Set + Me._erwerberFirmenbezeichnung = Value + End Set + End Property + + + Public Property ErwerberNationalitaet() As String + Get + Return Me._erwerberNationalitaet + End Get + Set + Me._erwerberNationalitaet = Value + End Set + End Property + + + Public Property ErwerberStrasseHausNr() As String + Get + Return Me._erwerberStrasseHausNr + End Get + Set + Me._erwerberStrasseHausNr = Value + End Set + End Property + + + Public Property ErwerberPLZS() As String + Get + Return Me._erwerberPLZS + End Get + Set + Me._erwerberPLZS = Value + End Set + End Property + + + Public Property ErwerberOrtS() As String + Get + Return Me._erwerberOrtS + End Get + Set + Me._erwerberOrtS = Value + End Set + End Property + + + Public Property ErwerberOrtsteil() As String + Get + Return Me._erwerberOrtsteil + End Get + Set + Me._erwerberOrtsteil = Value + End Set + End Property + + + Public Property ErwerberUStIdNrAndererMitgliedstaat() As String + Get + Return Me._erwerberUStIdNrAndererMitgliedstaat + End Get + Set + Me._erwerberUStIdNrAndererMitgliedstaat = Value + End Set + End Property + + + Public Property VersenderAusfuehrerEORI() As String + Get + Return Me._versenderAusfuehrerEORI + End Get + Set + Me._versenderAusfuehrerEORI = Value + End Set + End Property + + + Public Property VersenderAusfuehrerFirmenbezeichnung() As String + Get + Return Me._versenderAusfuehrerFirmenbezeichnung + End Get + Set + Me._versenderAusfuehrerFirmenbezeichnung = Value + End Set + End Property + + + Public Property VersenderAusfuehrerNationalitaet() As String + Get + Return Me._versenderAusfuehrerNationalitaet + End Get + Set + Me._versenderAusfuehrerNationalitaet = Value + End Set + End Property + + + Public Property VersenderAusfuehrerStrasseHausNr() As String + Get + Return Me._versenderAusfuehrerStrasseHausNr + End Get + Set + Me._versenderAusfuehrerStrasseHausNr = Value + End Set + End Property + + + Public Property VersenderAusfuehrerPLZS() As String + Get + Return Me._versenderAusfuehrerPLZS + End Get + Set + Me._versenderAusfuehrerPLZS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtS() As String + Get + Return Me._versenderAusfuehrerOrtS + End Get + Set + Me._versenderAusfuehrerOrtS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtsteil() As String + Get + Return Me._versenderAusfuehrerOrtsteil + End Get + Set + Me._versenderAusfuehrerOrtsteil = Value + End Set + End Property + + + Public Property Unterlage() As List(Of AnmeldungVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp 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 KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Dim file As 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/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.xsd new file mode 100644 index 0000000..b690ea8 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_007.xsd @@ -0,0 +1,535 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 bba7f8f..6a4c967 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb @@ -1,6 +1,6 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code++. Version 4.4.0.7 +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com '' FreierVerkehrAktVeredelUmwandlung_004ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd new file mode 100644 index 0000000..61656d7 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_OLD2.xsd @@ -0,0 +1,609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.Designer.vb new file mode 100644 index 0000000..cfc2a4e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.Designer.vb @@ -0,0 +1,1808 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' NichtAbschliessendeFestsetzung_003ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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 NichtAbschliessendeFestsetzung_003 + + + Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelNichtAbschliessendeFestsetzung As EinzelNichtAbschliessendeFestsetzungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelNichtAbschliessendeFestsetzung = New EinzelNichtAbschliessendeFestsetzungTyp() + End Sub + + + Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp + Get + Return Me._einzelNichtAbschliessendeFestsetzung + End Get + Set + Me._einzelNichtAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(NichtAbschliessendeFestsetzungTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current NichtAbschliessendeFestsetzungTAXNTyp 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 NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string workflow markup to deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NichtAbschliessendeFestsetzungTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As NichtAbschliessendeFestsetzungTAXNTyp + Return CType(Serializer.Deserialize(s), NichtAbschliessendeFestsetzungTAXNTyp) + End Function +#End Region + + ''' + ''' Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string xml file to load and deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As NichtAbschliessendeFestsetzungTAXNTyp + Dim file As 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 EinzelNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXNyp + + Private _kopfDaten As KopfDatenNichtAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionNichtAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenNichtAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXNyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelNichtAbschliessendeFestsetzungTyp 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 EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), EinzelNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelNichtAbschliessendeFestsetzungTyp + Dim file As 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 ObjektIdentifizierungTAXNyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXNyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXNyp 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 ObjektIdentifizierungTAXNyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXNyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXNyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXNyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXNyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXNyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungTAXNyp + Dim file As 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 UnterlageTAXNTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _vorlagefristDatum As Date + + Private _nachzureichenKz As String + + Private _vorzulegenKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property VorlagefristDatum() As Date + Get + Return Me._vorlagefristDatum + End Get + Set + Me._vorlagefristDatum = Value + End Set + End Property + + + Public Property NachzureichenKz() As String + Get + Return Me._nachzureichenKz + End Get + Set + Me._nachzureichenKz = Value + End Set + End Property + + + Public Property VorzulegenKz() As String + Get + Return Me._vorzulegenKz + End Get + Set + Me._vorzulegenKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageTAXNTyp 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 UnterlageTAXNTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageTAXNTyp + Return CType(Serializer.Deserialize(s), UnterlageTAXNTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageTAXNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageTAXNTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageTAXNTyp + Dim file As 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 PositionNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _unterlage As List(Of UnterlageTAXNTyp) + + Private _ermittlungenEinfuhrfaehigkeitKz As String + + Private _ermittlungenZollwertKz As String + + Private _ermittlungenWarenbeschaffenheitKz As String + + Private _ermittlungenAbgabensatzKz As String + + Private _pruefungVorbehalten As String + + Private _ermittlungenSonstigeKz As String + + Private _kontingentsmeldungKz As String + + Private _vorlaeufigerAntidumpingzollKz As String + + Private _positionVollstaendigKz As String + + Private _berichtigungspflichtigKz As String + + Private _zugangNochNichtAbschliessend As String + + Private _begruendung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._unterlage = New List(Of UnterlageTAXNTyp)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageTAXNTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property ErmittlungenEinfuhrfaehigkeitKz() As String + Get + Return Me._ermittlungenEinfuhrfaehigkeitKz + End Get + Set + Me._ermittlungenEinfuhrfaehigkeitKz = Value + End Set + End Property + + + Public Property ErmittlungenZollwertKz() As String + Get + Return Me._ermittlungenZollwertKz + End Get + Set + Me._ermittlungenZollwertKz = Value + End Set + End Property + + + Public Property ErmittlungenWarenbeschaffenheitKz() As String + Get + Return Me._ermittlungenWarenbeschaffenheitKz + End Get + Set + Me._ermittlungenWarenbeschaffenheitKz = Value + End Set + End Property + + + Public Property ErmittlungenAbgabensatzKz() As String + Get + Return Me._ermittlungenAbgabensatzKz + End Get + Set + Me._ermittlungenAbgabensatzKz = Value + End Set + End Property + + + Public Property PruefungVorbehalten() As String + Get + Return Me._pruefungVorbehalten + End Get + Set + Me._pruefungVorbehalten = Value + End Set + End Property + + + Public Property ErmittlungenSonstigeKz() As String + Get + Return Me._ermittlungenSonstigeKz + End Get + Set + Me._ermittlungenSonstigeKz = Value + End Set + End Property + + + Public Property KontingentsmeldungKz() As String + Get + Return Me._kontingentsmeldungKz + End Get + Set + Me._kontingentsmeldungKz = Value + End Set + End Property + + + Public Property VorlaeufigerAntidumpingzollKz() As String + Get + Return Me._vorlaeufigerAntidumpingzollKz + End Get + Set + Me._vorlaeufigerAntidumpingzollKz = Value + End Set + End Property + + + Public Property PositionVollstaendigKz() As String + Get + Return Me._positionVollstaendigKz + End Get + Set + Me._positionVollstaendigKz = Value + End Set + End Property + + + Public Property BerichtigungspflichtigKz() As String + Get + Return Me._berichtigungspflichtigKz + End Get + Set + Me._berichtigungspflichtigKz = Value + End Set + End Property + + + Public Property ZugangNochNichtAbschliessend() As String + Get + Return Me._zugangNochNichtAbschliessend + End Get + Set + Me._zugangNochNichtAbschliessend = Value + End Set + End Property + + + Public Property Begruendung() As String + Get + Return Me._begruendung + End Get + Set + Me._begruendung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionNichtAbschliessendeFestsetzungTyp 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 PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), PositionNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionNichtAbschliessendeFestsetzungTyp + Dim file As 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 KopfDatenNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _umsatzSteuerIDNr As String + + Private _registrierNr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property UmsatzSteuerIDNr() As String + Get + Return Me._umsatzSteuerIDNr + End Get + Set + Me._umsatzSteuerIDNr = Value + End Set + End Property + + + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set + Me._registrierNr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp 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 KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), KopfDatenNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenNichtAbschliessendeFestsetzungTyp + Dim file As 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/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.xsd new file mode 100644 index 0000000..a1cba34 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_003.xsd @@ -0,0 +1,124 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.Designer.vb new file mode 100644 index 0000000..1e3b11b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.Designer.vb @@ -0,0 +1,6389 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' UeberlassungsmeldungNCTSDE_007ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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 UeberlassungsmeldungNCTSDE_007 + + + Partial Public Class UeberlassungsmeldungMRTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUeberlassungsmeldung As EinzelUeberlassungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelUeberlassungsmeldung = New EinzelUeberlassungsmeldungTyp() + End Sub + + + Public Property EinzelUeberlassungsmeldung() As EinzelUeberlassungsmeldungTyp + Get + Return Me._einzelUeberlassungsmeldung + End Get + Set + Me._einzelUeberlassungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungsmeldungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UeberlassungsmeldungMRTyp 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 UeberlassungsmeldungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungsmeldungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UeberlassungsmeldungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UeberlassungsmeldungMRTyp + Return CType(Serializer.Deserialize(s), UeberlassungsmeldungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 UeberlassungsmeldungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UeberlassungsmeldungMRTyp + Dim file As 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 EinzelUeberlassungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMRTyp + + Private _kopfDaten As KopfDatenUeberlassungsmeldungTyp + + Private _warenPosition As List(Of WarenPositionUeberlassungsmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of WarenPositionUeberlassungsmeldungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMRTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMRTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenUeberlassungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of WarenPositionUeberlassungsmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp 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 EinzelUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 EinzelUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelUeberlassungsmeldungTyp + Dim file As 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 ObjektIdentifizierungMRTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMRTyp 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 ObjektIdentifizierungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMRTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 ObjektIdentifizierungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungMRTyp + Dim file As 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 PositionAVUVMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _kzZugangATLAS As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAVUVMRTyp 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 PositionAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAVUVMRTyp + Return CType(Serializer.Deserialize(s), PositionAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PositionAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionAVUVMRTyp + Dim file As 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 BeendigungAVUVMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _kzVereinfBewillAntrgAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _positionAVUV As List(Of PositionAVUVMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionAVUV = New List(Of PositionAVUVMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgAV() As String + Get + Return Me._kzVereinfBewillAntrgAV + End Get + Set + Me._kzVereinfBewillAntrgAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property PositionAVUV() As List(Of PositionAVUVMRTyp) + Get + Return Me._positionAVUV + End Get + Set + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungAVUVMRTyp 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 BeendigungAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVMRTyp + Return CType(Serializer.Deserialize(s), BeendigungAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 BeendigungAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungAVUVMRTyp + Dim file As 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 HandelsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HandelsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HandelsmengeMRTyp 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 HandelsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HandelsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HandelsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HandelsmengeMRTyp + Return CType(Serializer.Deserialize(s), HandelsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current HandelsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 HandelsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HandelsmengeMRTyp + Dim file As 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 AbgangsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgangsmengeMRTyp 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 AbgangsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsmengeMRTyp + Return CType(Serializer.Deserialize(s), AbgangsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AbgangsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgangsmengeMRTyp + Dim file As 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 PositionZLMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsmengeMRTyp + + Private _handelsmenge As HandelsmengeMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._handelsmenge = New HandelsmengeMRTyp() + Me._abgangsmenge = New AbgangsmengeMRTyp() + End Sub + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set + Me._kzUeblicheBehandlung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + + Public Property Abgangsmenge() As AbgangsmengeMRTyp + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property Handelsmenge() As HandelsmengeMRTyp + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionZLMRTyp 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 PositionZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionZLMRTyp + Return CType(Serializer.Deserialize(s), PositionZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PositionZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionZLMRTyp + Dim file As 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 BeendigungZLMRTyp + +#Region "Private fields" + Private _bezugsnummer As String + + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionZL As List(Of PositionZLMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionZL = New List(Of PositionZLMRTyp)() + End Sub + + + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set + Me._bezugsnummer = Value + End Set + End Property + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property PositionZL() As List(Of PositionZLMRTyp) + Get + Return Me._positionZL + End Get + Set + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungZLMRTyp 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 BeendigungZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLMRTyp + Return CType(Serializer.Deserialize(s), BeendigungZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 BeendigungZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungZLMRTyp + Dim file As 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 PositionSumAMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _verwahrerEORI As String + + Private _spOArt As String + + Private _spONummer As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set + Me._stueckzahl = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property SpOArt() As String + Get + Return Me._spOArt + End Get + Set + Me._spOArt = Value + End Set + End Property + + + Public Property SpONummer() As String + Get + Return Me._spONummer + End Get + Set + Me._spONummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionSumAMRTyp 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 PositionSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAMRTyp + Return CType(Serializer.Deserialize(s), PositionSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PositionSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionSumAMRTyp + Dim file As 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 BeendigungSumAMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _artIdentifikation As String + + Private _positionSumA As List(Of PositionSumAMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionSumA = New List(Of PositionSumAMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property PositionSumA() As List(Of PositionSumAMRTyp) + Get + Return Me._positionSumA + End Get + Set + Me._positionSumA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungSumAMRTyp 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 BeendigungSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungSumAMRTyp + Return CType(Serializer.Deserialize(s), BeendigungSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 BeendigungSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungSumAMRTyp + Dim file As 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 BesondereVermerkeMRTyp + +#Region "Private fields" + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _export As String + + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _kz10600 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set + Me._exportBeschraenkung = Value + End Set + End Property + + + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set + Me._exportAbgaben = Value + End Set + End Property + + + Public Property Export() As String + Get + Return Me._export + End Get + Set + Me._export = Value + End Set + End Property + + + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set + Me._exportAusEU = Value + End Set + End Property + + + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set + Me._exportAusLand = Value + End Set + End Property + + + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereVermerkeMRTyp 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 BesondereVermerkeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereVermerkeMRTyp + Return CType(Serializer.Deserialize(s), BesondereVermerkeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 BesondereVermerkeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereVermerkeMRTyp + Dim file As 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 VorgelegteUnterlBeschGenehmMRTyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Typ() As String + Get + Return Me._typ + End Get + Set + Me._typ = Value + End Set + End Property + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp 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 VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorgelegteUnterlBeschGenehmMRTyp + Return CType(Serializer.Deserialize(s), VorgelegteUnterlBeschGenehmMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim file As 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 PackstueckMRTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set + Me._verpackungsart = Value + End Set + End Property + + + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckMRTyp 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 PackstueckMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckMRTyp + Return CType(Serializer.Deserialize(s), PackstueckMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 PackstueckMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckMRTyp + Dim file As 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 VorpapierMRTyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierMRTyp 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 VorpapierMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierMRTyp + Return CType(Serializer.Deserialize(s), VorpapierMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 VorpapierMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VorpapierMRTyp + Dim file As 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 WarenPositionUeberlassungsmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artAnmeldungPosition As String + + Private _versendungsAusfuhrlandPosition As String + + Private _bestimmungslandPosition As String + + Private _warennummer As String + + Private _kennnummerSendungPosition As String + + Private _befoerderungskostenZahlungsweisePosition As String + + Private _uNGefahrgutnummer As String + + Private _warenbezeichnung As String + + Private _rohmasse As Decimal + + Private _eigenmasse As Decimal + + Private _versenderPosition As AdresseMRTyp + + Private _versenderSumASicherheitPosition As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheitPosition As AdresseMRTyp + + Private _vorpapiereTyp As String + + Private _vorpapier As List(Of VorpapierMRTyp) + + Private _packstuecke As List(Of PackstueckMRTyp) + + Private _containernummer As List(Of String) + + Private _vorgelegteUnterlagenBescheinigungenGenehmigungen As List(Of VorgelegteUnterlBeschGenehmMRTyp) + + Private _besondereVermerke As BesondereVermerkeMRTyp + + Private _beendigungSumA As BeendigungSumAMRTyp + + Private _beendigungZL As BeendigungZLMRTyp + + Private _beendigungAVUV As BeendigungAVUVMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._beendigungAVUV = New BeendigungAVUVMRTyp() + Me._beendigungZL = New BeendigungZLMRTyp() + Me._beendigungSumA = New BeendigungSumAMRTyp() + Me._besondereVermerke = New BesondereVermerkeMRTyp() + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = New List(Of VorgelegteUnterlBeschGenehmMRTyp)() + Me._containernummer = New List(Of String)() + Me._packstuecke = New List(Of PackstueckMRTyp)() + Me._vorpapier = New List(Of VorpapierMRTyp)() + Me._empfaengerSumASicherheitPosition = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheitPosition = New AdresseMRTyp() + Me._versenderPosition = New AdresseMRTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtAnmeldungPosition() As String + Get + Return Me._artAnmeldungPosition + End Get + Set + Me._artAnmeldungPosition = Value + End Set + End Property + + + Public Property VersendungsAusfuhrlandPosition() As String + Get + Return Me._versendungsAusfuhrlandPosition + End Get + Set + Me._versendungsAusfuhrlandPosition = Value + End Set + End Property + + + Public Property BestimmungslandPosition() As String + Get + Return Me._bestimmungslandPosition + End Get + Set + Me._bestimmungslandPosition = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KennnummerSendungPosition() As String + Get + Return Me._kennnummerSendungPosition + End Get + Set + Me._kennnummerSendungPosition = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweisePosition() As String + Get + Return Me._befoerderungskostenZahlungsweisePosition + End Get + Set + Me._befoerderungskostenZahlungsweisePosition = Value + End Set + End Property + + + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set + Me._uNGefahrgutnummer = Value + End Set + End Property + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property VersenderPosition() As AdresseMRTyp + Get + Return Me._versenderPosition + End Get + Set + Me._versenderPosition = Value + End Set + End Property + + + Public Property VersenderSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._versenderSumASicherheitPosition + End Get + Set + Me._versenderSumASicherheitPosition = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheitPosition + End Get + Set + Me._empfaengerSumASicherheitPosition = Value + End Set + End Property + + + Public Property VorpapiereTyp() As String + Get + Return Me._vorpapiereTyp + End Get + Set + Me._vorpapiereTyp = Value + End Set + End Property + + + Public Property Vorpapier() As List(Of VorpapierMRTyp) + Get + Return Me._vorpapier + End Get + Set + Me._vorpapier = Value + End Set + End Property + + + Public Property Packstuecke() As List(Of PackstueckMRTyp) + Get + Return Me._packstuecke + End Get + Set + Me._packstuecke = Value + End Set + End Property + + + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + + Public Property VorgelegteUnterlagenBescheinigungenGenehmigungen() As List(Of VorgelegteUnterlBeschGenehmMRTyp) + Get + Return Me._vorgelegteUnterlagenBescheinigungenGenehmigungen + End Get + Set + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = Value + End Set + End Property + + + Public Property BesondereVermerke() As BesondereVermerkeMRTyp + Get + Return Me._besondereVermerke + End Get + Set + Me._besondereVermerke = Value + End Set + End Property + + + Public Property BeendigungSumA() As BeendigungSumAMRTyp + Get + Return Me._beendigungSumA + End Get + Set + Me._beendigungSumA = Value + End Set + End Property + + + Public Property BeendigungZL() As BeendigungZLMRTyp + Get + Return Me._beendigungZL + End Get + Set + Me._beendigungZL = Value + End Set + End Property + + + Public Property BeendigungAVUV() As BeendigungAVUVMRTyp + Get + Return Me._beendigungAVUV + End Get + Set + Me._beendigungAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp 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 WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenPositionUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenPositionUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), WarenPositionUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenPositionUeberlassungsmeldungTyp + Dim file As 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 AdresseMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _identifikationsart As String + + Private _nLNR As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseMRTyp 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 AdresseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseMRTyp + Return CType(Serializer.Deserialize(s), AdresseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AdresseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdresseMRTyp + Dim file As 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 AnsprechpartnerMRTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set + Me._stellung = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerMRTyp 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 AnsprechpartnerMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerMRTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AnsprechpartnerMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnsprechpartnerMRTyp + Dim file As 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 VerschluesseMRTyp + +#Region "Private fields" + Private _art As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zeichen = New List(Of String)() + End Sub + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschluesseMRTyp 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 VerschluesseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseMRTyp + Return CType(Serializer.Deserialize(s), VerschluesseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 VerschluesseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerschluesseMRTyp + Dim file As 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 AdresseTINKurzMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set + Me._iDCarnet = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseTINKurzMRTyp 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 AdresseTINKurzMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseTINKurzMRTyp + Return CType(Serializer.Deserialize(s), AdresseTINKurzMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 AdresseTINKurzMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdresseTINKurzMRTyp + Dim file As 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 BefoerderungsmittelAbgangMRTyp + +#Region "Private fields" + Private _staatszugehoerigkeit As String + + Private _kennzeichen As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Staatszugehoerigkeit() As String + Get + Return Me._staatszugehoerigkeit + End Get + Set + Me._staatszugehoerigkeit = Value + End Set + End Property + + + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelAbgangMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp 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 BefoerderungsmittelAbgangMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelAbgangMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelAbgangMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelAbgangMRTyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelAbgangMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 BefoerderungsmittelAbgangMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefoerderungsmittelAbgangMRTyp + Dim file As 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 VerbindlicheBefoerderungsrouteMRTyp + +#Region "Private fields" + Private _beschreibung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbindlicheBefoerderungsrouteMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp 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 VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbindlicheBefoerderungsrouteMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbindlicheBefoerderungsrouteMRTyp + Return CType(Serializer.Deserialize(s), VerbindlicheBefoerderungsrouteMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim file As 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 SicherheitMRTyp + +#Region "Private fields" + Private _art As String + + Private _bezeichnung As String + + Private _betrag As Decimal + + Private _sicherheitengeberTIN As String + + Private _waehrung As String + + Private _bescheinigung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bezeichnung() As String + Get + Return Me._bezeichnung + End Get + Set + Me._bezeichnung = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property SicherheitengeberTIN() As String + Get + Return Me._sicherheitengeberTIN + End Get + Set + Me._sicherheitengeberTIN = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property Bescheinigung() As String + Get + Return Me._bescheinigung + End Get + Set + Me._bescheinigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMRTyp 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 SicherheitMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMRTyp + Return CType(Serializer.Deserialize(s), SicherheitMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 SicherheitMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SicherheitMRTyp + Dim file As 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 KopfDatenUeberlassungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _abgangszollstelle As String + + Private _annahmedatum As Date + + Private _ueberlassungsdatum As Date + + Private _wiedergestellungsdatum As Date + + Private _sicherheit As List(Of SicherheitMRTyp) + + Private _bestimmungszollstelle As String + + Private _vBDName As String + + Private _arbeitsnummer As String + + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _artAnmeldung As String + + Private _anzahlPositionen As String + + Private _packstueckeGesamt As String + + Private _versendungsAusfuhrland As String + + Private _bestimmungsland As String + + Private _gesamtRohmasse As Decimal + + Private _kontrollErgebnis As String + + Private _verbindlicheBefoerderungsroute As VerbindlicheBefoerderungsrouteMRTyp + + Private _befoerderungsmittelAbgang As BefoerderungsmittelAbgangMRTyp + + Private _durchgangszollstelleNCTS As List(Of String) + + Private _befoerderungsrouteSumASicherheitLand As List(Of String) + + Private _versender As AdresseMRTyp + + Private _versenderSumASicherheit As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheit As AdresseMRTyp + + Private _hauptverpflichteter As AdresseTINKurzMRTyp + + Private _befoerderer As AdresseMRTyp + + Private _zugelassenerEmpfaengerEORI As String + + Private _verschluesse As VerschluesseMRTyp + + Private _bewilligungZV As String + + Private _bewilligungBV As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._verschluesse = New VerschluesseMRTyp() + Me._befoerderer = New AdresseMRTyp() + Me._hauptverpflichteter = New AdresseTINKurzMRTyp() + Me._empfaengerSumASicherheit = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheit = New AdresseMRTyp() + Me._versender = New AdresseMRTyp() + Me._befoerderungsrouteSumASicherheitLand = New List(Of String)() + Me._durchgangszollstelleNCTS = New List(Of String)() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelAbgangMRTyp() + Me._verbindlicheBefoerderungsroute = New VerbindlicheBefoerderungsrouteMRTyp() + Me._sicherheit = New List(Of SicherheitMRTyp)() + End Sub + + + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + + Public Property Abgangszollstelle() As String + Get + Return Me._abgangszollstelle + End Get + Set + Me._abgangszollstelle = Value + End Set + End Property + + + Public Property Annahmedatum() As Date + Get + Return Me._annahmedatum + End Get + Set + Me._annahmedatum = Value + End Set + End Property + + + Public Property Ueberlassungsdatum() As Date + Get + Return Me._ueberlassungsdatum + End Get + Set + Me._ueberlassungsdatum = Value + End Set + End Property + + + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set + Me._wiedergestellungsdatum = Value + End Set + End Property + + + Public Property Sicherheit() As List(Of SicherheitMRTyp) + Get + Return Me._sicherheit + End Get + Set + Me._sicherheit = Value + End Set + End Property + + + Public Property Bestimmungszollstelle() As String + Get + Return Me._bestimmungszollstelle + End Get + Set + Me._bestimmungszollstelle = Value + End Set + End Property + + + Public Property VBDName() As String + Get + Return Me._vBDName + End Get + Set + Me._vBDName = Value + End Set + End Property + + + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set + Me._arbeitsnummer = Value + End Set + End Property + + + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set + Me._kzSumASicherheit = Value + End Set + End Property + + + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set + Me._nummerBefoerderung = Value + End Set + End Property + + + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set + Me._besondereUmstaende = Value + End Set + End Property + + + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set + Me._ladeort = Value + End Set + End Property + + + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set + Me._entladeort = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set + Me._anzahlPositionen = Value + End Set + End Property + + + Public Property PackstueckeGesamt() As String + Get + Return Me._packstueckeGesamt + End Get + Set + Me._packstueckeGesamt = Value + End Set + End Property + + + Public Property VersendungsAusfuhrland() As String + Get + Return Me._versendungsAusfuhrland + End Get + Set + Me._versendungsAusfuhrland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property GesamtRohmasse() As Decimal + Get + Return Me._gesamtRohmasse + End Get + Set + Me._gesamtRohmasse = Value + End Set + End Property + + + Public Property KontrollErgebnis() As String + Get + Return Me._kontrollErgebnis + End Get + Set + Me._kontrollErgebnis = Value + End Set + End Property + + + Public Property VerbindlicheBefoerderungsroute() As VerbindlicheBefoerderungsrouteMRTyp + Get + Return Me._verbindlicheBefoerderungsroute + End Get + Set + Me._verbindlicheBefoerderungsroute = Value + End Set + End Property + + + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelAbgangMRTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + + Public Property DurchgangszollstelleNCTS() As List(Of String) + Get + Return Me._durchgangszollstelleNCTS + End Get + Set + Me._durchgangszollstelleNCTS = Value + End Set + End Property + + + Public Property BefoerderungsrouteSumASicherheitLand() As List(Of String) + Get + Return Me._befoerderungsrouteSumASicherheitLand + End Get + Set + Me._befoerderungsrouteSumASicherheitLand = Value + End Set + End Property + + + Public Property Versender() As AdresseMRTyp + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property VersenderSumASicherheit() As AdresseMRTyp + Get + Return Me._versenderSumASicherheit + End Get + Set + Me._versenderSumASicherheit = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheit() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheit + End Get + Set + Me._empfaengerSumASicherheit = Value + End Set + End Property + + + Public Property Hauptverpflichteter() As AdresseTINKurzMRTyp + Get + Return Me._hauptverpflichteter + End Get + Set + Me._hauptverpflichteter = Value + End Set + End Property + + + Public Property Befoerderer() As AdresseMRTyp + Get + Return Me._befoerderer + End Get + Set + Me._befoerderer = Value + End Set + End Property + + + Public Property ZugelassenerEmpfaengerEORI() As String + Get + Return Me._zugelassenerEmpfaengerEORI + End Get + Set + Me._zugelassenerEmpfaengerEORI = Value + End Set + End Property + + + Public Property Verschluesse() As VerschluesseMRTyp + Get + Return Me._verschluesse + End Get + Set + Me._verschluesse = Value + End Set + End Property + + + Public Property BewilligungZV() As String + Get + Return Me._bewilligungZV + End Get + Set + Me._bewilligungZV = Value + End Set + End Property + + + Public Property BewilligungBV() As String + Get + Return Me._bewilligungBV + End Get + Set + Me._bewilligungBV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp 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 KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenUeberlassungsmeldungTyp + Dim file As 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 TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared 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(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp 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 TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionNCTSTyp + Dim file As 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 DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp 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 DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschNCTSTyp + Dim file As 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/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.xsd new file mode 100644 index 0000000..48bdb1a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_007.xsd @@ -0,0 +1,473 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb index c848c4a..8c6ba7e 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb @@ -1,6 +1,6 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code++. Version 4.4.0.7 +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com '' VersandanmeldungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD2.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD2.xsd new file mode 100644 index 0000000..0f304ae --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD2.xsd @@ -0,0 +1,487 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 672852b..8d4ed88 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -86,15 +86,19 @@ + + + + @@ -106,6 +110,7 @@ + @@ -184,15 +189,24 @@ Designer + + Designer + Designer + + Designer + Designer Designer + + Designer + Designer @@ -202,6 +216,9 @@ Designer + + Designer + Designer @@ -211,6 +228,9 @@ Designer + + Designer + Designer @@ -247,6 +267,9 @@ Designer + + Designer + Designer @@ -254,10 +277,13 @@ Designer + + Designer + Designer - + Designer diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index 2a8b911..a7464c5 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -81,6 +81,7 @@ + diff --git a/UID/Dienstplan/usrCntlDienstplan.Designer.vb b/UID/Dienstplan/usrCntlDienstplan.Designer.vb index 5cc4deb..16e1a56 100644 --- a/UID/Dienstplan/usrCntlDienstplan.Designer.vb +++ b/UID/Dienstplan/usrCntlDienstplan.Designer.vb @@ -49,6 +49,8 @@ Partial Class usrCntlDienstplan Me.tbImex = New System.Windows.Forms.TabPage() Me.tbFrontOffice = New System.Windows.Forms.TabPage() Me.tbAMBAR = New System.Windows.Forms.TabPage() + Me.Button5 = New System.Windows.Forms.Button() + Me.cbxAuswertungPDF = New System.Windows.Forms.CheckBox() CType(Me.dgvMA, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel3.SuspendLayout() @@ -140,6 +142,8 @@ Partial Class usrCntlDienstplan ' 'Panel3 ' + Me.Panel3.Controls.Add(Me.cbxAuswertungPDF) + Me.Panel3.Controls.Add(Me.Button5) Me.Panel3.Controls.Add(Me.cbxInaktiv) Me.Panel3.Controls.Add(Me.numJahr) Me.Panel3.Controls.Add(Me.cboMonat) @@ -168,7 +172,7 @@ Partial Class usrCntlDienstplan ' 'numJahr ' - Me.numJahr.Location = New System.Drawing.Point(4, 482) + Me.numJahr.Location = New System.Drawing.Point(4, 515) Me.numJahr.Maximum = New Decimal(New Integer() {2099, 0, 0, 0}) Me.numJahr.Minimum = New Decimal(New Integer() {2010, 0, 0, 0}) Me.numJahr.Name = "numJahr" @@ -183,7 +187,7 @@ Partial Class usrCntlDienstplan Me.cboMonat._allowFreiText = False Me.cboMonat._value = "" Me.cboMonat.FormattingEnabled = True - Me.cboMonat.Location = New System.Drawing.Point(4, 462) + Me.cboMonat.Location = New System.Drawing.Point(4, 495) Me.cboMonat.Name = "cboMonat" Me.cboMonat.Size = New System.Drawing.Size(114, 21) Me.cboMonat.TabIndex = 10 @@ -198,7 +202,7 @@ Partial Class usrCntlDienstplan Me.btnAuswertung.Name = "btnAuswertung" Me.btnAuswertung.Size = New System.Drawing.Size(115, 43) Me.btnAuswertung.TabIndex = 9 - Me.btnAuswertung.Text = "Monatsauswert." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "MA" + Me.btnAuswertung.Text = "Monatsauswert." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "KW" Me.btnAuswertung.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAuswertung.UseVisualStyleBackColor = True Me.btnAuswertung.Visible = False @@ -359,6 +363,34 @@ Partial Class usrCntlDienstplan Me.tbAMBAR.Text = "AMBAR" Me.tbAMBAR.UseVisualStyleBackColor = True ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image) + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(3, 454) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(115, 35) + Me.Button5.TabIndex = 13 + Me.Button5.Text = "Monatsauswert." & Global.Microsoft.VisualBasic.ChrW(13) + Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'cbxAuswertungPDF + ' + Me.cbxAuswertungPDF.AutoSize = True + Me.cbxAuswertungPDF.Checked = True + Me.cbxAuswertungPDF.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAuswertungPDF.Location = New System.Drawing.Point(6, 541) + Me.cbxAuswertungPDF.Name = "cbxAuswertungPDF" + Me.cbxAuswertungPDF.Size = New System.Drawing.Size(92, 17) + Me.cbxAuswertungPDF.TabIndex = 14 + Me.cbxAuswertungPDF.Text = "PDF Ausgabe" + Me.cbxAuswertungPDF.UseVisualStyleBackColor = True + Me.cbxAuswertungPDF.Visible = False + ' 'usrCntlDienstplan ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -404,4 +436,6 @@ Partial Class usrCntlDienstplan Friend WithEvents cbxInaktiv As CheckBox Friend WithEvents tbFrontOffice As TabPage Friend WithEvents tbAMBAR As TabPage + Friend WithEvents Button5 As Button + Friend WithEvents cbxAuswertungPDF As CheckBox End Class diff --git a/UID/Dienstplan/usrCntlDienstplan.resx b/UID/Dienstplan/usrCntlDienstplan.resx index 6d7f62c..4ff1d3d 100644 --- a/UID/Dienstplan/usrCntlDienstplan.resx +++ b/UID/Dienstplan/usrCntlDienstplan.resx @@ -118,6 +118,14 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V + kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw + fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx + mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V diff --git a/UID/Dienstplan/usrCntlDienstplan.vb b/UID/Dienstplan/usrCntlDienstplan.vb index 3cc44a3..492a145 100644 --- a/UID/Dienstplan/usrCntlDienstplan.vb +++ b/UID/Dienstplan/usrCntlDienstplan.vb @@ -25,6 +25,8 @@ Public Class usrCntlDienstplan 'tbcntr.Enabled = False If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then btnAuswertung.Visible = True + Button5.Visible = True + cbxAuswertungPDF.Visible = True End If initNiederlassungen(True) @@ -300,11 +302,19 @@ Public Class usrCntlDienstplan If dgvMA.SelectedRows.Count = 0 Then Exit Sub End If - genMonatsauswertungMA(dgvMA.SelectedRows(0).Cells("dstma_id").Value) - + Dim pdfPath = "" + If cbxAuswertungPDF.Checked Then + Dim fd As New FolderBrowserDialog + If fd.ShowDialog = DialogResult.OK Then + pdfPath = fd.SelectedPath + End If + End If + For Each r In dgvMA.SelectedRows + genMonatsauswertungMA(r.Cells("dstma_id").Value, True, cbxAuswertungPDF.Checked, pdfPath) + Next End Sub - Sub genMonatsauswertungMA(dstMaID) + Sub genMonatsauswertungMA(dstMaID, groupKW, Optional pdfExport = False, Optional pdfPfad = "") Dim displayFilter = False Dim vonDat = CDate("01." & cboMonat._value & "." & numJahr.Value) @@ -330,7 +340,7 @@ Public Class usrCntlDienstplan Dim rpt As New rptDienstplanMaMonatsbericht rpt.DataSource = dt - rpt.GroupHeader1.DataField = "KW" + If groupKW Then rpt.GroupHeader1.DataField = "KW" rpt.txtMonat.Text = cboMonat.Text & " " & numJahr.Value rpt.txtMAName.Text = MA.mit_vname & " " & MA.mit_nname @@ -352,7 +362,10 @@ Public Class usrCntlDienstplan Dim sumUeStd As Double = 0 Dim datumKW = Now + Dim tatStdSum As Double = 0 + Dim cPF As New cProgramFunctions + Dim FT As New cFeiertage AddHandler rpt.Detail.Format, Sub() @@ -361,6 +374,19 @@ Public Class usrCntlDienstplan datumKW = CDate(rpt.Fields.Item("dstetr_datum").Value).ToShortDateString End If + + Select Case datumKW.DayOfWeek + Case 6 : rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) + Case 0 : rpt.Detail.BackColor = Color.FromArgb(220, 220, 220) + Case Else : rpt.Detail.BackColor = Color.White + End Select + + rpt.txtTag.ForeColor = Color.Black + If FT.isFeiertag(datumKW) Or datumKW.ToString("dd.MM.") = "31.12." Or datumKW.ToString("dd.MM.") = "24.12." Or datumKW.DayOfWeek = 0 Then 'Feiertag oder 1/2 Tag + rpt.txtTag.ForeColor = Color.Red + rpt.Detail.BackColor = Color.FromArgb(220, 220, 220) + End If + Dim datum = Now If Not IsDBNull(rpt.Fields.Item("dstetr_datum").Value) Then datum = CDate(rpt.Fields.Item("dstetr_datum").Value).ToShortDateString @@ -389,6 +415,7 @@ Public Class usrCntlDienstplan Case "KS" : rpt.txtKS.Text = "K" : sumK += 1 Case "URL" : rpt.txtUrl.Text = "U" : sumU += 1 Case "DR", "SONST", "BS" : rpt.txtSonst.Text = "S" : sumS += 1 + Case "ZA" Case Else If benutzerschicht Then rpt.txtArbeitstag.Text = "A" : arbeit = True : sumA += 1 End Select @@ -408,8 +435,18 @@ Public Class usrCntlDienstplan End If - Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datum, datum, niederlassung) - rpt.txtStd.Text = CDbl(tatStd).ToString("N2") + Dim tatStd As Double = 0 + If arbeit Then + tatStd = SQLDienst.getDstStunden(MA_DST.dstma_id, datum, datum, niederlassung) + tatStdSum += tatStd + End If + + If tatStd = 0 Then + rpt.txtStd.Text = "" + Else + rpt.txtStd.Text = CDbl(tatStd).ToString("N2") + End If + rpt.txtBemerkung.Text = "" @@ -430,7 +467,12 @@ Public Class usrCntlDienstplan If Not IsDBNull(rpt.Fields.Item("dstetr_datum").Value) Then datum = CDate(rpt.Fields.Item("dstetr_datum").Value).ToShortDateString End If - rpt.lblKW.Text = "KW " & cPF.getKW(datum) + + If groupKW Then + rpt.lblKW.Text = "KW " & cPF.getKW(datum) + Else + rpt.lblKW.Text = vonDat.ToString("MMM ") & vonDat.Year + End If End Sub @@ -454,21 +496,47 @@ Public Class usrCntlDienstplan Dim STD_LIST = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(datumMO) - Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd) - Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datumMO, datumMO.AddDays(6), niederlassung) ' MsgBox(sollStd) - rpt.txtSumWoStunden.Text = CDbl(tatStd).ToString("N2") - rpt.txtWoStd.Text = CDbl(sollStd * -1).ToString("N2") - rpt.txtUeStd.Text = CDbl(tatStd - sollStd).ToString("N2") + If groupKW Then + Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd) + Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datumMO, datumMO.AddDays(6), niederlassung) + rpt.txtSumWoStunden.Text = CDbl(tatStd).ToString("N2") + rpt.txtWoStd.Text = CDbl(sollStd * -1).ToString("N2") + rpt.txtUeStd.Text = CDbl(tatStd - sollStd).ToString("N2") + Else + ' Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd) + rpt.txtSumWoStunden.Text = CDbl(tatStdSum).ToString("N2") + ' rpt.txtWoStd.Text = CDbl(sollStd * -1).ToString("N2") + ' rpt.txtUeStd.Text = CDbl(tatStd - sollStd).ToString("N2") + rpt.txtWoStd.Text = "" + rpt.txtUeStd.Text = "" + + End If End Sub - print.Viewer.LoadDocument(rpt) - print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - print.Show() + If pdfExport Then + rpt.Run() + Dim tmpPath = pdfPfad + If tmpPath = "" Then + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(MA.mit_vname & " " & MA.mit_nname, ".pdf", , False) + Else + tmpPath &= "\" & MA.mit_vname & " " & MA.mit_nname & ".pdf" + End If + + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + Else + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End If + End Sub @@ -484,4 +552,20 @@ Public Class usrCntlDienstplan End If End Function + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + If dgvMA.SelectedRows.Count = 0 Then + Exit Sub + End If + Dim pdfPath = "" + If cbxAuswertungPDF.Checked Then + Dim fd As New FolderBrowserDialog + If fd.ShowDialog = DialogResult.OK Then + pdfPath = fd.SelectedPath + End If + End If + For Each r In dgvMA.SelectedRows + genMonatsauswertungMA(r.Cells("dstma_id").Value, False, cbxAuswertungPDF.Checked, pdfPath) + Next + + End Sub End Class diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index e54f6a0..7c84bb6 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -278,18 +278,24 @@ Public Class cGetMsgType End Function - Shared Function isEZA_NichtAbschliessendeFestsetzung(doc As XmlDocument) As Boolean + Shared Function isEZA_NichtAbschliessendeFestsetzung(doc As XmlDocument, ByRef VERSION As String) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("NichtAbschliessendeFestsetzung").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + VERSION = doc.GetElementsByTagName("Version")(0).InnerText + End If Return True End If End If Return False End Function - Shared Function isEZA_AbschliessendeFestsetzung(doc As XmlDocument) As Boolean + Shared Function isEZA_AbschliessendeFestsetzung(doc As XmlDocument, ByRef VERSION As String) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("AbschliessendeFestsetzung").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + VERSION = doc.GetElementsByTagName("Version")(0).InnerText + End If Return True End If End If diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 1a25132..a90c41f 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -1878,6 +1878,79 @@ Public Class cWorker_NCTS readNCTS_Ueberlassungsmeldung006 = "" End Try End Function + Shared Function readNCTS_Ueberlassungsmeldung007(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String + Try + ' Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_007.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_007.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim MRN = "" + Dim division = "" + Dim Wiedergestellungsdatum As Object = Nothing + ' Dim bearbeiter = "" + Dim zp As Object = Nothing + readNCTS_Ueberlassungsmeldung007 = "" + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + If NCTS.EinzelUeberlassungsmeldung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS_Ueberlassungsmeldung007 = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName + End If + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang > "01.01.2000" Then + zp = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang + End If + End If + If NCTS.EinzelUeberlassungsmeldung.KopfDaten IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN + End If + + + Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum + ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + End If + + End If + End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS_Ueberlassungsmeldung007 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung007 + STATUS.dySt_artMitteilung = "UEM" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 + STATUS.dySt_ergCode = "MRN" + STATUS.dySt_ergMitteilung = MRN + STATUS.dySt_ergZeitpunkt = zp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN) + + SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division) + SaveNCTS_WGDAT(NCTS_TMP, Wiedergestellungsdatum) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + statusTMP = STATUS + cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP) + ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then + + NCTS_TMP.insertIntoSpedBuch(DY_TMP) + + + + FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_Ueberlassungsmeldung007 = "" + End Try + End Function Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 0f5bd04..cee2517 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -286,6 +286,7 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Ueberlassungsmeldung If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then Select Case VERSION + Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case Else : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung(Me, d, statusTMP) <> "" Then found = True @@ -345,6 +346,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: Abgabenbescheid If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then Select Case VERSION + Case "009" : If readEZA_Abgabenbescheid009(d) <> "" Then found = True Case "008" : If readEZA_Abgabenbescheid008(d) <> "" Then found = True Case Else : If readEZA_Abgabenbescheid(d) <> "" Then found = True End Select @@ -352,13 +354,20 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: NichtAbschliessendeFestsetzung - If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc) Then - If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True + If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc, VERSION) Then + Select Case VERSION + Case "003" : If readEZA_NichtAbschliessendeFestsetzung003(d) <> "" Then found = True + Case Else : If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True + End Select End If 'EZA: AbschliessendeFestsetzung - If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc) Then - If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True + If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc, VERSION) Then + Select Case VERSION + Case "004" : If readEZA_AbschliessendeFestsetzung004(d) <> "" Then found = True + Case Else : If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True + End Select + End If 'EZA: StornierungBescheid @@ -370,6 +379,7 @@ Public Class frmDYNachrichtenVerarbeitung If Not found And cGetMsgType.isEZA_BefundVereinfachteZollanmeldung(doc, VERSION) Then Select Case VERSION Case "006" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") + Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case Else : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") End Select @@ -4024,6 +4034,82 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_NichtAbschliessendeFestsetzung003(d) As String + Try + + Dim EZA As DAKOSY_Worker.NichtAbschliessendeFestsetzung_003.NichtAbschliessendeFestsetzungTAXNTyp = DAKOSY_Worker.NichtAbschliessendeFestsetzung_003.NichtAbschliessendeFestsetzungTAXNTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_NichtAbschliessendeFestsetzung003 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelNichtAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_NichtAbschliessendeFestsetzung003 = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_NichtAbschliessendeFestsetzung003 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_NichtAbschliessendeFestsetzung003 + STATUS.dySt_artMitteilung = "NAF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_56 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_NichtAbschliessendeFestsetzung003 = "" + End Try + End Function + Function readEZA_StornierungBescheid(d) As String Try @@ -4191,6 +4277,86 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + + Function readEZA_AbschliessendeFestsetzung004(d) As String + Try + + Dim EZA As DAKOSY_Worker.AbschliessendeFestsetzung_004.AbschliessendeFestsetzungTAXATyp = DAKOSY_Worker.AbschliessendeFestsetzung_004.AbschliessendeFestsetzungTAXATyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_AbschliessendeFestsetzung004 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_AbschliessendeFestsetzung004 = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_AbschliessendeFestsetzung004 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_AbschliessendeFestsetzung004 + STATUS.dySt_artMitteilung = "AF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP) + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + addDGVEinarbeitung("EZA: Abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_AbschliessendeFestsetzung004 = "" + End Try + End Function + Function readEZA_Abgabenbescheid(d) As String Try 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW @@ -4535,6 +4701,196 @@ Public Class frmDYNachrichtenVerarbeitung End Function + Function readEZA_Abgabenbescheid009(d) As String + Try + 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW + + Dim EZA As DAKOSY_Worker.Abgabenbescheid_009.AbgabenbescheidEinfuhrTAXTyp = DAKOSY_Worker.Abgabenbescheid_009.AbgabenbescheidEinfuhrTAXTyp.LoadFromFile(d) + Dim regNr = "" + Dim regDat = "" + Dim details = "" + Dim zoellner = "" + Dim erledigung = "" + Dim zp As Object = Nothing + Dim EDIFACTNachrichtenNr = "" + Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing + Dim division = "" + + readEZA_Abgabenbescheid009 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelAbgabenbescheid IsNot Nothing Then + + 'Vorgezogen, damit firma/NL erkannt wird + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + + + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_Abgabenbescheid009 = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ZeitpunktEingang + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr IsNot Nothing Then + EDIFACTNachrichtenNr = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr + End If + End If + + If EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer IsNot Nothing Then + regNr = EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer + End If + If EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz IsNot Nothing Then + erledigung = EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz + End If + ' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then + regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum + 'End If + If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then + Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub + AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) + For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt + a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag + a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN + a.ezaAfb_HZA = ABG.KennBuchstabenAufschub + a.ezaAfb_KontoNr = ABG.AufschubkontoNr + If ABG.Faelligkeit > CDate("01.01.2000") Then a.ezaAfb_Faelligkeit = ABG.Faelligkeit + a.ezaAfb_Zahlungsart = ABG.Zahlungsart + a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag + a.ezaAfb_AbgabeArt = ABG.AbgabeArt + a.AufschubnehmerName = ABG.AufschubnehmerName + + 'Select Case AbgabeArt + ' Case "B0000" 'EUST + ' Case "B0000" 'EUST + 'End Select + Next + AUFSCHUB.Add(a) + End If + + + + + End If + + If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden + STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid009 + STATUS.dySt_artMitteilung = "AB" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + Select Case erledigung + Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "1" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "2" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "3" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_99 'unwirksam + Case "4" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Case "5" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "6" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "7" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_68 'Abgabe HZS + Case "8" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_61 'Erledigung außerhalb d. SB + End Select + + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNr + STATUS.dySt_ergZeitpunkt = zp + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + + + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + + If regNr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + + Dim firma = "" + Dim nl = "" + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl) + + + If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then + EZA_TMP.eza_AUFSCHUB.Clear() + For Each a In AUFSCHUB + a.ezaAfb_EZAId = EZA_TMP.eza_Id + Next + EZA_TMP.eza_AUFSCHUB = AUFSCHUB + EZA_TMP.SAVE_Aufschub() + + cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN + 'RAISE-API-EVENT/TRIGGER ?? + End If + + ' ------------------------------------------------------------------------------ + ' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros! + Select Case erledigung + Case "4" + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Dim MailTo = "eu@verag.ag" + Select Case EZA_TMP.eza_firma + Case "IMEX" : MailTo = "info@imex-group.at" + Case "ATILLA" : MailTo = "info@imex-group.at" + Case "VERAG" + Select Case EZA_TMP.eza_niederlassung + Case "WAI" : MailTo = "waidhaus@verag.com" + Case "SBG" : MailTo = "de@verag.ag" + End Select + End Select + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid009, + "Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid009 & "

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

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

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

Automatisch generiertes E-Mail.", + ' , True, True) + + End Select + ' ------------------------------------------------------------------------------ + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + If EZA IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, readEZA_Abgabenbescheid009, regDat, firma, nl, EDIFACTNachrichtenNr) + End If + + + 'Status aktualisieren + saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + + addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr) + End If + + + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_Abgabenbescheid009 = "" + End Try + End Function + Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr) Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index c2c3201..505bac0 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -953,14 +953,11 @@ Public Class frmStartOptions If XML_Code.Contains("") And XML_Code.Contains("9153") Then If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then - - IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) End If End If - 'Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} 'Dim doc As New XmlDocument() @@ -974,19 +971,8 @@ Public Class frmStartOptions ' MsgBox(f) 'End If - - End If - - - - Next - - - - - End If Next