diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.Designer.vb new file mode 100644 index 0000000..becc932 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.Designer.vb @@ -0,0 +1,4367 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"BestaetigungAusfuhr_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace BestaetigungAusfuhr_006 + + + Partial Public Class BestaetigungAusfuhrENTyp + Inherits DatenaustauschExportTyp + +#Region "Private fields" + Private _einzelBestaetigung As List(Of EinzelBestaetigungAusfuhrTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelBestaetigung = New List(Of EinzelBestaetigungAusfuhrTyp)() + End Sub + + + Public Property EinzelBestaetigung() As List(Of EinzelBestaetigungAusfuhrTyp) + Get + Return Me._einzelBestaetigung + End Get + Set + Me._einzelBestaetigung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BestaetigungAusfuhrENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BestaetigungAusfuhrENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BestaetigungAusfuhrENTyp object + ''' + ''' string to deserialize + ''' Output BestaetigungAusfuhrENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BestaetigungAusfuhrENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BestaetigungAusfuhrENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BestaetigungAusfuhrENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BestaetigungAusfuhrENTyp + Return CType(SerializerXml.Deserialize(s), BestaetigungAusfuhrENTyp) + End Function +#End Region + + ''' + ''' Serializes current BestaetigungAusfuhrENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BestaetigungAusfuhrENTyp object + ''' + ''' File to load and deserialize + ''' Output BestaetigungAusfuhrENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BestaetigungAusfuhrENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BestaetigungAusfuhrENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelBestaetigungAusfuhrTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungENTyp + + Private _kopfDaten As KopfDatenBestaetigungAusfuhrTyp + + Private _warenPosition As List(Of PositionBestaetigungAusfuhrTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of PositionBestaetigungAusfuhrTyp)() + Me._kopfDaten = New KopfDatenBestaetigungAusfuhrTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungENTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungENTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenBestaetigungAusfuhrTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of PositionBestaetigungAusfuhrTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBestaetigungAusfuhrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelBestaetigungAusfuhrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelBestaetigungAusfuhrTyp object + ''' + ''' string to deserialize + ''' Output EinzelBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBestaetigungAusfuhrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBestaetigungAusfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelBestaetigungAusfuhrTyp + Return CType(SerializerXml.Deserialize(s), EinzelBestaetigungAusfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelBestaetigungAusfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelBestaetigungAusfuhrTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBestaetigungAusfuhrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungENTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungENTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungENTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungENTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungENTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EmpfaengerPositionENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EmpfaengerPositionENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EmpfaengerPositionENTyp object + ''' + ''' string to deserialize + ''' Output EmpfaengerPositionENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerPositionENTyp + Return CType(SerializerXml.Deserialize(s), EmpfaengerPositionENTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerPositionENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EmpfaengerPositionENTyp object + ''' + ''' File to load and deserialize + ''' Output EmpfaengerPositionENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PackstueckENTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsartCode As String + + Private _kennzeichnung As String + + Private _positionHauptpack As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property VerpackungsartCode() As String + Get + Return Me._verpackungsartCode + End Get + Set + Me._verpackungsartCode = Value + End Set + End Property + + + Public Property Kennzeichnung() As String + Get + Return Me._kennzeichnung + End Get + Set + Me._kennzeichnung = Value + End Set + End Property + + + Public Property PositionHauptpack() As String + Get + Return Me._positionHauptpack + End Get + Set + Me._positionHauptpack = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PackstueckENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PackstueckENTyp object + ''' + ''' string to deserialize + ''' Output PackstueckENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackstueckENTyp + Return CType(SerializerXml.Deserialize(s), PackstueckENTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PackstueckENTyp object + ''' + ''' File to load and deserialize + ''' Output PackstueckENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerfahrenENTyp + +#Region "Private fields" + Private _verfahrenAngemeldetCode As String + + Private _verfahrenVorangegangenCode As String + + Private _verfahrenNationalCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property VerfahrenAngemeldetCode() As String + Get + Return Me._verfahrenAngemeldetCode + End Get + Set + Me._verfahrenAngemeldetCode = Value + End Set + End Property + + + Public Property VerfahrenVorangegangenCode() As String + Get + Return Me._verfahrenVorangegangenCode + End Get + Set + Me._verfahrenVorangegangenCode = Value + End Set + End Property + + + Public Property VerfahrenNationalCode() As String + Get + Return Me._verfahrenNationalCode + End Get + Set + Me._verfahrenNationalCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerfahrenENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerfahrenENTyp object + ''' + ''' string to deserialize + ''' Output VerfahrenENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrenENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrenENTyp + Return CType(SerializerXml.Deserialize(s), VerfahrenENTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrenENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerfahrenENTyp object + ''' + ''' File to load and deserialize + ''' Output VerfahrenENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionBestaetigungAusfuhrTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _warenNummerKN8 As String + + Private _warenNummerTARIC As String + + Private _warenNummerZusatz1 As String + + Private _warenNummerZusatz2 As String + + Private _warenNummerNational As String + + Private _warenBezeichnung As String + + Private _registrierNummerFremdSystem As String + + Private _kennnummerSendung As String + + Private _eigenmasse As Decimal + + Private _rohmasse As Decimal + + Private _wasserzeichen As String + + Private _verfahren As VerfahrenENTyp + + Private _ausfuhrerstattungVerfahrensCode As String + + Private _packstueck As List(Of PackstueckENTyp) + + Private _empfaenger As EmpfaengerPositionENTyp + + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private _geschaeftArtCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._empfaenger = New EmpfaengerPositionENTyp() + Me._packstueck = New List(Of PackstueckENTyp)() + Me._verfahren = New VerfahrenENTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property WarenNummerKN8() As String + Get + Return Me._warenNummerKN8 + End Get + Set + Me._warenNummerKN8 = Value + End Set + End Property + + + Public Property WarenNummerTARIC() As String + Get + Return Me._warenNummerTARIC + End Get + Set + Me._warenNummerTARIC = Value + End Set + End Property + + + Public Property WarenNummerZusatz1() As String + Get + Return Me._warenNummerZusatz1 + End Get + Set + Me._warenNummerZusatz1 = Value + End Set + End Property + + + Public Property WarenNummerZusatz2() As String + Get + Return Me._warenNummerZusatz2 + End Get + Set + Me._warenNummerZusatz2 = Value + End Set + End Property + + + Public Property WarenNummerNational() As String + Get + Return Me._warenNummerNational + End Get + Set + Me._warenNummerNational = 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 RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set + Me._registrierNummerFremdSystem = 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 Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = 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 Wasserzeichen() As String + Get + Return Me._wasserzeichen + End Get + Set + Me._wasserzeichen = Value + End Set + End Property + + + Public Property Verfahren() As VerfahrenENTyp + Get + Return Me._verfahren + End Get + Set + Me._verfahren = Value + End Set + End Property + + + Public Property AusfuhrerstattungVerfahrensCode() As String + Get + Return Me._ausfuhrerstattungVerfahrensCode + End Get + Set + Me._ausfuhrerstattungVerfahrensCode = Value + End Set + End Property + + + Public Property Packstueck() As List(Of PackstueckENTyp) + Get + Return Me._packstueck + End Get + Set + Me._packstueck = Value + End Set + End Property + + + Public Property Empfaenger() As EmpfaengerPositionENTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set + Me._incotermCode = Value + End Set + End Property + + + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set + Me._incotermText = Value + End Set + End Property + + + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set + Me._incotermOrt = Value + End Set + End Property + + + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set + Me._geschaeftArtCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBestaetigungAusfuhrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionBestaetigungAusfuhrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionBestaetigungAusfuhrTyp object + ''' + ''' string to deserialize + ''' Output PositionBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBestaetigungAusfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBestaetigungAusfuhrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBestaetigungAusfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionBestaetigungAusfuhrTyp + Return CType(SerializerXml.Deserialize(s), PositionBestaetigungAusfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionBestaetigungAusfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionBestaetigungAusfuhrTyp object + ''' + ''' File to load and deserialize + ''' Output PositionBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBestaetigungAusfuhrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBestaetigungAusfuhrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class LieferbedingungENTyp + +#Region "Private fields" + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set + Me._incotermCode = Value + End Set + End Property + + + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set + Me._incotermText = Value + End Set + End Property + + + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set + Me._incotermOrt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize LieferbedingungENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes LieferbedingungENTyp object + ''' + ''' string to deserialize + ''' Output LieferbedingungENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LieferbedingungENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As LieferbedingungENTyp + Return CType(SerializerXml.Deserialize(s), LieferbedingungENTyp) + End Function +#End Region + + ''' + ''' Serializes current LieferbedingungENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an LieferbedingungENTyp object + ''' + ''' File to load and deserialize + ''' Output LieferbedingungENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SubUnternehmerENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SubUnternehmerENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SubUnternehmerENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SubUnternehmerENTyp object + ''' + ''' string to deserialize + ''' Output SubUnternehmerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubUnternehmerENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SubUnternehmerENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SubUnternehmerENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SubUnternehmerENTyp + Return CType(SerializerXml.Deserialize(s), SubUnternehmerENTyp) + End Function +#End Region + + ''' + ''' Serializes current SubUnternehmerENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SubUnternehmerENTyp object + ''' + ''' File to load and deserialize + ''' Output SubUnternehmerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubUnternehmerENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubUnternehmerENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VertreterAnmelderENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VertreterAnmelderENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VertreterAnmelderENTyp object + ''' + ''' string to deserialize + ''' Output VertreterAnmelderENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VertreterAnmelderENTyp + Return CType(SerializerXml.Deserialize(s), VertreterAnmelderENTyp) + End Function +#End Region + + ''' + ''' Serializes current VertreterAnmelderENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VertreterAnmelderENTyp object + ''' + ''' File to load and deserialize + ''' Output VertreterAnmelderENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AnmelderENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AnmelderENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AnmelderENTyp object + ''' + ''' string to deserialize + ''' Output AnmelderENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmelderENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnmelderENTyp + Return CType(SerializerXml.Deserialize(s), AnmelderENTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmelderENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnmelderENTyp object + ''' + ''' File to load and deserialize + ''' Output AnmelderENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EmpfaengerENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EmpfaengerENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EmpfaengerENTyp object + ''' + ''' string to deserialize + ''' Output EmpfaengerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerENTyp + Return CType(SerializerXml.Deserialize(s), EmpfaengerENTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EmpfaengerENTyp object + ''' + ''' File to load and deserialize + ''' Output EmpfaengerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AusfuehrerENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AusfuehrerENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AusfuehrerENTyp object + ''' + ''' string to deserialize + ''' Output AusfuehrerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuehrerENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuehrerENTyp + Return CType(SerializerXml.Deserialize(s), AusfuehrerENTyp) + End Function +#End Region + + ''' + ''' Serializes current AusfuehrerENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AusfuehrerENTyp object + ''' + ''' File to load and deserialize + ''' Output AusfuehrerENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerfahrensinhaberPVENTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVENTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerfahrensinhaberPVENTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerfahrensinhaberPVENTyp object + ''' + ''' string to deserialize + ''' Output VerfahrensinhaberPVENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVENTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVENTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVENTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrensinhaberPVENTyp + Return CType(SerializerXml.Deserialize(s), VerfahrensinhaberPVENTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrensinhaberPVENTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerfahrensinhaberPVENTyp object + ''' + ''' File to load and deserialize + ''' Output VerfahrensinhaberPVENTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVENTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVENTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenBestaetigungAusfuhrTyp + +#Region "Private fields" + Private _anmeldeArtAusfuhrCode As String + + Private _anmeldeArtVerfahrenCode As String + + Private _anmeldeArtUeberfuehrungCode As String + + Private _movementReferenceNumber As String + + Private _bestimmungslandCode As String + + Private _ausfuhrlandCode As String + + Private _ausgangDatumZeit As Date + + Private _ueberlassungDatumZeit As Date + + Private _alternativerNachweis As String + + Private _minderMengeIndikator As String + + Private _beteiligtenKonstellation As String + + Private _gesamtRohMasse As Decimal + + Private _registrierNummerFremdSystem As String + + Private _kennnummerSendung As String + + Private _anzahlPackStuecke As String + + Private _anzahlPositionen As String + + Private _wasserzeichen As String + + Private _ausfuhrZollstelleID As String + + Private _ausgangZollstelleID As String + + Private _geschaeftArtCode As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _verfahrensinhaberPV As VerfahrensinhaberPVENTyp + + Private _ausfuehrer As AusfuehrerENTyp + + Private _empfaenger As EmpfaengerENTyp + + Private _anmelder As AnmelderENTyp + + Private _vertreterAnmelder As VertreterAnmelderENTyp + + Private _subUnternehmer As SubUnternehmerENTyp + + Private _lieferbedingung As LieferbedingungENTyp + + Private _dateinameAusgangsvermerk As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._lieferbedingung = New LieferbedingungENTyp() + Me._subUnternehmer = New SubUnternehmerENTyp() + Me._vertreterAnmelder = New VertreterAnmelderENTyp() + Me._anmelder = New AnmelderENTyp() + Me._empfaenger = New EmpfaengerENTyp() + Me._ausfuehrer = New AusfuehrerENTyp() + Me._verfahrensinhaberPV = New VerfahrensinhaberPVENTyp() + End Sub + + + Public Property AnmeldeArtAusfuhrCode() As String + Get + Return Me._anmeldeArtAusfuhrCode + End Get + Set + Me._anmeldeArtAusfuhrCode = Value + End Set + End Property + + + Public Property AnmeldeArtVerfahrenCode() As String + Get + Return Me._anmeldeArtVerfahrenCode + End Get + Set + Me._anmeldeArtVerfahrenCode = Value + End Set + End Property + + + Public Property AnmeldeArtUeberfuehrungCode() As String + Get + Return Me._anmeldeArtUeberfuehrungCode + End Get + Set + Me._anmeldeArtUeberfuehrungCode = Value + End Set + End Property + + + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set + Me._movementReferenceNumber = Value + End Set + End Property + + + Public Property BestimmungslandCode() As String + Get + Return Me._bestimmungslandCode + End Get + Set + Me._bestimmungslandCode = Value + End Set + End Property + + + Public Property AusfuhrlandCode() As String + Get + Return Me._ausfuhrlandCode + End Get + Set + Me._ausfuhrlandCode = Value + End Set + End Property + + + Public Property AusgangDatumZeit() As Date + Get + Return Me._ausgangDatumZeit + End Get + Set + Me._ausgangDatumZeit = Value + End Set + End Property + + + Public Property UeberlassungDatumZeit() As Date + Get + Return Me._ueberlassungDatumZeit + End Get + Set + Me._ueberlassungDatumZeit = Value + End Set + End Property + + + Public Property AlternativerNachweis() As String + Get + Return Me._alternativerNachweis + End Get + Set + Me._alternativerNachweis = Value + End Set + End Property + + + Public Property MinderMengeIndikator() As String + Get + Return Me._minderMengeIndikator + End Get + Set + Me._minderMengeIndikator = Value + End Set + End Property + + + Public Property BeteiligtenKonstellation() As String + Get + Return Me._beteiligtenKonstellation + End Get + Set + Me._beteiligtenKonstellation = 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 RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set + Me._registrierNummerFremdSystem = 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 AnzahlPackStuecke() As String + Get + Return Me._anzahlPackStuecke + End Get + Set + Me._anzahlPackStuecke = 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 Wasserzeichen() As String + Get + Return Me._wasserzeichen + End Get + Set + Me._wasserzeichen = Value + End Set + End Property + + + Public Property AusfuhrZollstelleID() As String + Get + Return Me._ausfuhrZollstelleID + End Get + Set + Me._ausfuhrZollstelleID = Value + End Set + End Property + + + Public Property AusgangZollstelleID() As String + Get + Return Me._ausgangZollstelleID + End Get + Set + Me._ausgangZollstelleID = Value + End Set + End Property + + + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set + Me._geschaeftArtCode = 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 VerfahrensinhaberPV() As VerfahrensinhaberPVENTyp + Get + Return Me._verfahrensinhaberPV + End Get + Set + Me._verfahrensinhaberPV = Value + End Set + End Property + + + Public Property Ausfuehrer() As AusfuehrerENTyp + Get + Return Me._ausfuehrer + End Get + Set + Me._ausfuehrer = Value + End Set + End Property + + + Public Property Empfaenger() As EmpfaengerENTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property Anmelder() As AnmelderENTyp + Get + Return Me._anmelder + End Get + Set + Me._anmelder = Value + End Set + End Property + + + Public Property VertreterAnmelder() As VertreterAnmelderENTyp + Get + Return Me._vertreterAnmelder + End Get + Set + Me._vertreterAnmelder = Value + End Set + End Property + + + Public Property SubUnternehmer() As SubUnternehmerENTyp + Get + Return Me._subUnternehmer + End Get + Set + Me._subUnternehmer = Value + End Set + End Property + + + Public Property Lieferbedingung() As LieferbedingungENTyp + Get + Return Me._lieferbedingung + End Get + Set + Me._lieferbedingung = Value + End Set + End Property + + + Public Property DateinameAusgangsvermerk() As String + Get + Return Me._dateinameAusgangsvermerk + End Get + Set + Me._dateinameAusgangsvermerk = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenBestaetigungAusfuhrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenBestaetigungAusfuhrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenBestaetigungAusfuhrTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenBestaetigungAusfuhrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenBestaetigungAusfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenBestaetigungAusfuhrTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenBestaetigungAusfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenBestaetigungAusfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenBestaetigungAusfuhrTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenBestaetigungAusfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenBestaetigungAusfuhrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionExportTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionExportTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionExportTyp object + ''' + ''' string to deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionExportTyp + Return CType(SerializerXml.Deserialize(s), TransaktionExportTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionExportTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschExportTyp + +#Region "Private fields" + Private _transaktion As TransaktionExportTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionExportTyp() + End Sub + + + Public Property Transaktion() As TransaktionExportTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschExportTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschExportTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschExportTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschExportTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschExportTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.xsd new file mode 100644 index 0000000..585a7b6 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_006.xsd @@ -0,0 +1,331 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.Designer.vb new file mode 100644 index 0000000..d06b409 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.Designer.vb @@ -0,0 +1,8538 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"UeberlassungAusfuhr_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace UeberlassungAusfuhr_006 + + + Partial Public Class UeberlassungAusfuhrERTyp + Inherits DatenaustauschExportTyp + +#Region "Private fields" + Private _einzelUeberlassung As List(Of EinzelUeberlassungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelUeberlassung = New List(Of EinzelUeberlassungTyp)() + End Sub + + + Public Property EinzelUeberlassung() As List(Of EinzelUeberlassungTyp) + Get + Return Me._einzelUeberlassung + End Get + Set + Me._einzelUeberlassung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungAusfuhrERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UeberlassungAusfuhrERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UeberlassungAusfuhrERTyp object + ''' + ''' string to deserialize + ''' Output UeberlassungAusfuhrERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungAusfuhrERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungAusfuhrERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungAusfuhrERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungAusfuhrERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UeberlassungAusfuhrERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UeberlassungAusfuhrERTyp + Return CType(SerializerXml.Deserialize(s), UeberlassungAusfuhrERTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungAusfuhrERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UeberlassungAusfuhrERTyp object + ''' + ''' File to load and deserialize + ''' Output UeberlassungAusfuhrERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungAusfuhrERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungAusfuhrERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungAusfuhrERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UeberlassungAusfuhrERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelUeberlassungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungERTyp + + Private _kopfDaten As KopfDatenUeberlassungTyp + + Private _warenPosition As List(Of PositionUeberlassungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of PositionUeberlassungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungERTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungERTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenUeberlassungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of PositionUeberlassungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelUeberlassungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelUeberlassungTyp object + ''' + ''' string to deserialize + ''' Output EinzelUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelUeberlassungTyp + Return CType(SerializerXml.Deserialize(s), EinzelUeberlassungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelUeberlassungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelUeberlassungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungERTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungERTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungERTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungERTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungERTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungPositionAVUVERTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _registriernummer As String + + Private _kzZugangATLAS As String + + Private _warenbezogeneAngaben As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = 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 WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionAVUVERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungPositionAVUVERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungPositionAVUVERTyp object + ''' + ''' string to deserialize + ''' Output BeendigungPositionAVUVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionAVUVERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionAVUVERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionAVUVERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungPositionAVUVERTyp + Return CType(SerializerXml.Deserialize(s), BeendigungPositionAVUVERTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungPositionAVUVERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungPositionAVUVERTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungPositionAVUVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionAVUVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionAVUVERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionAVUVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungPositionAVUVERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungAVUVERTyp + +#Region "Private fields" + Private _abgleichErfolgt As String + + Private _anzahlPositionen As String + + Private _bewilligungsnummer As String + + Private _positionAVUV As List(Of BeendigungPositionAVUVERTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionAVUV = New List(Of BeendigungPositionAVUVERTyp)() + End Sub + + + Public Property AbgleichErfolgt() As String + Get + Return Me._abgleichErfolgt + End Get + Set + Me._abgleichErfolgt = 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 Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property PositionAVUV() As List(Of BeendigungPositionAVUVERTyp) + Get + Return Me._positionAVUV + End Get + Set + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungAVUVERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungAVUVERTyp object + ''' + ''' string to deserialize + ''' Output BeendigungAVUVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungAVUVERTyp + Return CType(SerializerXml.Deserialize(s), BeendigungAVUVERTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVERTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungAVUVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungAVUVERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AbgangsHandelsmengeERTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsHandelsmengeERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AbgangsHandelsmengeERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AbgangsHandelsmengeERTyp object + ''' + ''' string to deserialize + ''' Output AbgangsHandelsmengeERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsHandelsmengeERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsHandelsmengeERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgangsHandelsmengeERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgangsHandelsmengeERTyp + Return CType(SerializerXml.Deserialize(s), AbgangsHandelsmengeERTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsHandelsmengeERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AbgangsHandelsmengeERTyp object + ''' + ''' File to load and deserialize + ''' Output AbgangsHandelsmengeERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsHandelsmengeERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsHandelsmengeERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsHandelsmengeERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgangsHandelsmengeERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungPositionZLERTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _registriernummer As String + + Private _warennummer As String + + Private _kzUeblicheBehandlung As String + + Private _kzZugangATLAS As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsHandelsmengeERTyp + + Private _handelsmenge As AbgangsHandelsmengeERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._handelsmenge = New AbgangsHandelsmengeERTyp() + Me._abgangsmenge = New AbgangsHandelsmengeERTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = 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 Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = 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 KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = 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 AbgangsHandelsmengeERTyp + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property Handelsmenge() As AbgangsHandelsmengeERTyp + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionZLERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungPositionZLERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungPositionZLERTyp object + ''' + ''' string to deserialize + ''' Output BeendigungPositionZLERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionZLERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionZLERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionZLERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungPositionZLERTyp + Return CType(SerializerXml.Deserialize(s), BeendigungPositionZLERTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungPositionZLERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungPositionZLERTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungPositionZLERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionZLERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionZLERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionZLERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungPositionZLERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeendigungZLERTyp + +#Region "Private fields" + Private _abgleichErfolgt As String + + Private _anzahlPositionen As String + + Private _bewilligungsnummer As String + + Private _bezugsnummer As String + + Private _positionZL As List(Of BeendigungPositionZLERTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionZL = New List(Of BeendigungPositionZLERTyp)() + End Sub + + + Public Property AbgleichErfolgt() As String + Get + Return Me._abgleichErfolgt + End Get + Set + Me._abgleichErfolgt = 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 Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set + Me._bezugsnummer = Value + End Set + End Property + + + Public Property PositionZL() As List(Of BeendigungPositionZLERTyp) + Get + Return Me._positionZL + End Get + Set + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeendigungZLERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeendigungZLERTyp object + ''' + ''' string to deserialize + ''' Output BeendigungZLERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeendigungZLERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeendigungZLERTyp + Return CType(SerializerXml.Deserialize(s), BeendigungZLERTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeendigungZLERTyp object + ''' + ''' File to load and deserialize + ''' Output BeendigungZLERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeendigungZLERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EmpfaengerPositionERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EmpfaengerPositionERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EmpfaengerPositionERTyp object + ''' + ''' string to deserialize + ''' Output EmpfaengerPositionERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerPositionERTyp + Return CType(SerializerXml.Deserialize(s), EmpfaengerPositionERTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerPositionERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EmpfaengerPositionERTyp object + ''' + ''' File to load and deserialize + ''' Output EmpfaengerPositionERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InhaltsstoffERTyp + +#Region "Private fields" + Private _textlicheErklaerung As String + + Private _lizenznummer As String + + Private _anteilGHT As Decimal + + Private _anteilsmenge As Decimal + + Private _herstellerErklaerungsnummer As String + + Private _schluesselnummer As String + + Private _umrechnungsfaktor1 As Decimal + + Private _umrechnungsfaktor1Kz As String + + Private _umrechnungsfaktor2 As Decimal + + Private _umrechnungsfaktorSatz As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TextlicheErklaerung() As String + Get + Return Me._textlicheErklaerung + End Get + Set + Me._textlicheErklaerung = Value + End Set + End Property + + + Public Property Lizenznummer() As String + Get + Return Me._lizenznummer + End Get + Set + Me._lizenznummer = Value + End Set + End Property + + + Public Property AnteilGHT() As Decimal + Get + Return Me._anteilGHT + End Get + Set + Me._anteilGHT = Value + End Set + End Property + + + Public Property Anteilsmenge() As Decimal + Get + Return Me._anteilsmenge + End Get + Set + Me._anteilsmenge = Value + End Set + End Property + + + Public Property HerstellerErklaerungsnummer() As String + Get + Return Me._herstellerErklaerungsnummer + End Get + Set + Me._herstellerErklaerungsnummer = Value + End Set + End Property + + + Public Property Schluesselnummer() As String + Get + Return Me._schluesselnummer + End Get + Set + Me._schluesselnummer = Value + End Set + End Property + + + Public Property Umrechnungsfaktor1() As Decimal + Get + Return Me._umrechnungsfaktor1 + End Get + Set + Me._umrechnungsfaktor1 = Value + End Set + End Property + + + Public Property Umrechnungsfaktor1Kz() As String + Get + Return Me._umrechnungsfaktor1Kz + End Get + Set + Me._umrechnungsfaktor1Kz = Value + End Set + End Property + + + Public Property Umrechnungsfaktor2() As Decimal + Get + Return Me._umrechnungsfaktor2 + End Get + Set + Me._umrechnungsfaktor2 = Value + End Set + End Property + + + Public Property UmrechnungsfaktorSatz() As Decimal + Get + Return Me._umrechnungsfaktorSatz + End Get + Set + Me._umrechnungsfaktorSatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InhaltsstoffERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InhaltsstoffERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InhaltsstoffERTyp object + ''' + ''' string to deserialize + ''' Output InhaltsstoffERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InhaltsstoffERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InhaltsstoffERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InhaltsstoffERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InhaltsstoffERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InhaltsstoffERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InhaltsstoffERTyp + Return CType(SerializerXml.Deserialize(s), InhaltsstoffERTyp) + End Function +#End Region + + ''' + ''' Serializes current InhaltsstoffERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InhaltsstoffERTyp object + ''' + ''' File to load and deserialize + ''' Output InhaltsstoffERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InhaltsstoffERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InhaltsstoffERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InhaltsstoffERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InhaltsstoffERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AusfuhrerstattungPositionERTyp + +#Region "Private fields" + Private _warenbezeichnungErgaenzung As String + + Private _ursprungsland As String + + Private _menge As Decimal + + Private _masseinheit As String + + Private _zahlungsfall As String + + Private _anpassungskoeffizient As Decimal + + Private _anteilswertA As Decimal + + Private _anteilswertB As Decimal + + Private _anteilswertC As Decimal + + Private _anteilswertD As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property WarenbezeichnungErgaenzung() As String + Get + Return Me._warenbezeichnungErgaenzung + End Get + Set + Me._warenbezeichnungErgaenzung = Value + End Set + End Property + + + Public Property Ursprungsland() As String + Get + Return Me._ursprungsland + End Get + Set + Me._ursprungsland = Value + End Set + End Property + + + Public Property Menge() As Decimal + 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 Zahlungsfall() As String + Get + Return Me._zahlungsfall + End Get + Set + Me._zahlungsfall = Value + End Set + End Property + + + Public Property Anpassungskoeffizient() As Decimal + Get + Return Me._anpassungskoeffizient + End Get + Set + Me._anpassungskoeffizient = Value + End Set + End Property + + + Public Property AnteilswertA() As Decimal + Get + Return Me._anteilswertA + End Get + Set + Me._anteilswertA = Value + End Set + End Property + + + Public Property AnteilswertB() As Decimal + Get + Return Me._anteilswertB + End Get + Set + Me._anteilswertB = Value + End Set + End Property + + + Public Property AnteilswertC() As Decimal + Get + Return Me._anteilswertC + End Get + Set + Me._anteilswertC = Value + End Set + End Property + + + Public Property AnteilswertD() As Decimal + Get + Return Me._anteilswertD + End Get + Set + Me._anteilswertD = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuhrerstattungPositionERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AusfuhrerstattungPositionERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AusfuhrerstattungPositionERTyp object + ''' + ''' string to deserialize + ''' Output AusfuhrerstattungPositionERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuhrerstattungPositionERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuhrerstattungPositionERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuhrerstattungPositionERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuhrerstattungPositionERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuhrerstattungPositionERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuhrerstattungPositionERTyp + Return CType(SerializerXml.Deserialize(s), AusfuhrerstattungPositionERTyp) + End Function +#End Region + + ''' + ''' Serializes current AusfuhrerstattungPositionERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AusfuhrerstattungPositionERTyp object + ''' + ''' File to load and deserialize + ''' Output AusfuhrerstattungPositionERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuhrerstattungPositionERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuhrerstattungPositionERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuhrerstattungPositionERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuhrerstattungPositionERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class UnterlageERTyp + +#Region "Private fields" + Private _typCode As String + + Private _qualifierCode As String + + Private _referenzID As String + + Private _zusatz As String + + Private _datumAusstellung As Date + + Private _datumEndeGueltigkeit As Date + + Private _detail As String + + Private _wert As String + + Private _masseinheit As String + + Private _abschreibungsmenge As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TypCode() As String + Get + Return Me._typCode + End Get + Set + Me._typCode = Value + End Set + End Property + + + Public Property QualifierCode() As String + Get + Return Me._qualifierCode + End Get + Set + Me._qualifierCode = Value + End Set + End Property + + + Public Property ReferenzID() As String + Get + Return Me._referenzID + End Get + Set + Me._referenzID = 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 DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property DatumEndeGueltigkeit() As Date + Get + Return Me._datumEndeGueltigkeit + End Get + Set + Me._datumEndeGueltigkeit = Value + End Set + End Property + + + Public Property Detail() As String + Get + Return Me._detail + End Get + Set + Me._detail = Value + End Set + End Property + + + Public Property Wert() As String + 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 Abschreibungsmenge() As Decimal + Get + Return Me._abschreibungsmenge + End Get + Set + Me._abschreibungsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize UnterlageERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes UnterlageERTyp object + ''' + ''' string to deserialize + ''' Output UnterlageERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageERTyp + Return CType(SerializerXml.Deserialize(s), UnterlageERTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an UnterlageERTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PackstueckERTyp + +#Region "Private fields" + Private _anzahl As String + + Private _laufendeNummer As String + + Private _verpackungsartCode As String + + Private _kennzeichnung As String + + Private _positionHauptpack As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property LaufendeNummer() As String + Get + Return Me._laufendeNummer + End Get + Set + Me._laufendeNummer = Value + End Set + End Property + + + Public Property VerpackungsartCode() As String + Get + Return Me._verpackungsartCode + End Get + Set + Me._verpackungsartCode = Value + End Set + End Property + + + Public Property Kennzeichnung() As String + Get + Return Me._kennzeichnung + End Get + Set + Me._kennzeichnung = Value + End Set + End Property + + + Public Property PositionHauptpack() As String + Get + Return Me._positionHauptpack + End Get + Set + Me._positionHauptpack = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PackstueckERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PackstueckERTyp object + ''' + ''' string to deserialize + ''' Output PackstueckERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackstueckERTyp + Return CType(SerializerXml.Deserialize(s), PackstueckERTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PackstueckERTyp object + ''' + ''' File to load and deserialize + ''' Output PackstueckERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VorpapierERTyp + +#Region "Private fields" + Private _typCode As String + + Private _referenzID As String + + Private _zusatz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TypCode() As String + Get + Return Me._typCode + End Get + Set + Me._typCode = Value + End Set + End Property + + + Public Property ReferenzID() As String + Get + Return Me._referenzID + End Get + Set + Me._referenzID = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VorpapierERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VorpapierERTyp object + ''' + ''' string to deserialize + ''' Output VorpapierERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VorpapierERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VorpapierERTyp + Return CType(SerializerXml.Deserialize(s), VorpapierERTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VorpapierERTyp object + ''' + ''' File to load and deserialize + ''' Output VorpapierERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VorpapierERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerfahrenERTyp + +#Region "Private fields" + Private _verfahrenAngemeldetCode As String + + Private _verfahrenVorangegangenCode As String + + Private _verfahrenNationalCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property VerfahrenAngemeldetCode() As String + Get + Return Me._verfahrenAngemeldetCode + End Get + Set + Me._verfahrenAngemeldetCode = Value + End Set + End Property + + + Public Property VerfahrenVorangegangenCode() As String + Get + Return Me._verfahrenVorangegangenCode + End Get + Set + Me._verfahrenVorangegangenCode = Value + End Set + End Property + + + Public Property VerfahrenNationalCode() As String + Get + Return Me._verfahrenNationalCode + End Get + Set + Me._verfahrenNationalCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerfahrenERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerfahrenERTyp object + ''' + ''' string to deserialize + ''' Output VerfahrenERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrenERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrenERTyp + Return CType(SerializerXml.Deserialize(s), VerfahrenERTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrenERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerfahrenERTyp object + ''' + ''' File to load and deserialize + ''' Output VerfahrenERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionUeberlassungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _warenNummerKN8 As String + + Private _warenNummerTARIC As String + + Private _warenNummerZusatz1 As String + + Private _warenNummerZusatz2 As String + + Private _warenNummerNational As String + + Private _warenBezeichnung As String + + Private _registrierNummerFremdSystem As String + + Private _kennnummerSendung As String + + Private _ursprungslandCode As String + + Private _eigenmasse As Decimal + + Private _rohmasse As Decimal + + Private _originalePositionsnummer As String + + Private _gefahrgutnummer As String + + Private _befoerderungskostenZahlungsweise As String + + Private _verfahren As VerfahrenERTyp + + Private _ausfuhrerstattungVerfahrenscode As String + + Private _menge As Decimal + + Private _wert As String + + Private _vorpapier As List(Of VorpapierERTyp) + + Private _packstueck As List(Of PackstueckERTyp) + + Private _containerNummer As List(Of String) + + Private _unterlage As List(Of UnterlageERTyp) + + Private _ausfuhrerstattung As AusfuhrerstattungPositionERTyp + + Private _inhaltsstoff As List(Of InhaltsstoffERTyp) + + Private _empfaenger As EmpfaengerPositionERTyp + + Private _beendigungZL As BeendigungZLERTyp + + Private _beendigungAVUV As BeendigungAVUVERTyp + + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private _geschaeftArtCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._beendigungAVUV = New BeendigungAVUVERTyp() + Me._beendigungZL = New BeendigungZLERTyp() + Me._empfaenger = New EmpfaengerPositionERTyp() + Me._inhaltsstoff = New List(Of InhaltsstoffERTyp)() + Me._ausfuhrerstattung = New AusfuhrerstattungPositionERTyp() + Me._unterlage = New List(Of UnterlageERTyp)() + Me._containerNummer = New List(Of String)() + Me._packstueck = New List(Of PackstueckERTyp)() + Me._vorpapier = New List(Of VorpapierERTyp)() + Me._verfahren = New VerfahrenERTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property WarenNummerKN8() As String + Get + Return Me._warenNummerKN8 + End Get + Set + Me._warenNummerKN8 = Value + End Set + End Property + + + Public Property WarenNummerTARIC() As String + Get + Return Me._warenNummerTARIC + End Get + Set + Me._warenNummerTARIC = Value + End Set + End Property + + + Public Property WarenNummerZusatz1() As String + Get + Return Me._warenNummerZusatz1 + End Get + Set + Me._warenNummerZusatz1 = Value + End Set + End Property + + + Public Property WarenNummerZusatz2() As String + Get + Return Me._warenNummerZusatz2 + End Get + Set + Me._warenNummerZusatz2 = Value + End Set + End Property + + + Public Property WarenNummerNational() As String + Get + Return Me._warenNummerNational + End Get + Set + Me._warenNummerNational = 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 RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set + Me._registrierNummerFremdSystem = 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 UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = 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 Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property OriginalePositionsnummer() As String + Get + Return Me._originalePositionsnummer + End Get + Set + Me._originalePositionsnummer = Value + End Set + End Property + + + Public Property Gefahrgutnummer() As String + Get + Return Me._gefahrgutnummer + End Get + Set + Me._gefahrgutnummer = 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 Verfahren() As VerfahrenERTyp + Get + Return Me._verfahren + End Get + Set + Me._verfahren = Value + End Set + End Property + + + Public Property AusfuhrerstattungVerfahrenscode() As String + Get + Return Me._ausfuhrerstattungVerfahrenscode + End Get + Set + Me._ausfuhrerstattungVerfahrenscode = Value + End Set + End Property + + + Public Property Menge() As Decimal + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Wert() As String + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Vorpapier() As List(Of VorpapierERTyp) + Get + Return Me._vorpapier + End Get + Set + Me._vorpapier = Value + End Set + End Property + + + Public Property Packstueck() As List(Of PackstueckERTyp) + Get + Return Me._packstueck + End Get + Set + Me._packstueck = 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 Unterlage() As List(Of UnterlageERTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property Ausfuhrerstattung() As AusfuhrerstattungPositionERTyp + Get + Return Me._ausfuhrerstattung + End Get + Set + Me._ausfuhrerstattung = Value + End Set + End Property + + + Public Property Inhaltsstoff() As List(Of InhaltsstoffERTyp) + Get + Return Me._inhaltsstoff + End Get + Set + Me._inhaltsstoff = Value + End Set + End Property + + + Public Property Empfaenger() As EmpfaengerPositionERTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property BeendigungZL() As BeendigungZLERTyp + Get + Return Me._beendigungZL + End Get + Set + Me._beendigungZL = Value + End Set + End Property + + + Public Property BeendigungAVUV() As BeendigungAVUVERTyp + Get + Return Me._beendigungAVUV + End Get + Set + Me._beendigungAVUV = Value + End Set + End Property + + + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set + Me._incotermCode = Value + End Set + End Property + + + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set + Me._incotermText = Value + End Set + End Property + + + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set + Me._incotermOrt = Value + End Set + End Property + + + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set + Me._geschaeftArtCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionUeberlassungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionUeberlassungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionUeberlassungTyp object + ''' + ''' string to deserialize + ''' Output PositionUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionUeberlassungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionUeberlassungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionUeberlassungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionUeberlassungTyp + Return CType(SerializerXml.Deserialize(s), PositionUeberlassungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionUeberlassungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionUeberlassungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionUeberlassungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionUeberlassungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ErzeugnisERTyp + +#Region "Private fields" + Private _erzeugnisWarennummer As String + + Private _erzeugnisWarenbezeichnung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ErzeugnisWarennummer() As String + Get + Return Me._erzeugnisWarennummer + End Get + Set + Me._erzeugnisWarennummer = Value + End Set + End Property + + + Public Property ErzeugnisWarenbezeichnung() As String + Get + Return Me._erzeugnisWarenbezeichnung + End Get + Set + Me._erzeugnisWarenbezeichnung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErzeugnisERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ErzeugnisERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ErzeugnisERTyp object + ''' + ''' string to deserialize + ''' Output ErzeugnisERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErzeugnisERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ErzeugnisERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErzeugnisERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErzeugnisERTyp + Return CType(SerializerXml.Deserialize(s), ErzeugnisERTyp) + End Function +#End Region + + ''' + ''' Serializes current ErzeugnisERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ErzeugnisERTyp object + ''' + ''' File to load and deserialize + ''' Output ErzeugnisERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErzeugnisERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErzeugnisERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErzeugnisERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErzeugnisERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class NaemlichkeitERTyp + +#Region "Private fields" + Private _art As String + + Private _beschreibung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(NaemlichkeitERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize NaemlichkeitERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes NaemlichkeitERTyp object + ''' + ''' string to deserialize + ''' Output NaemlichkeitERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NaemlichkeitERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NaemlichkeitERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), NaemlichkeitERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As NaemlichkeitERTyp + Return CType(SerializerXml.Deserialize(s), NaemlichkeitERTyp) + End Function +#End Region + + ''' + ''' Serializes current NaemlichkeitERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an NaemlichkeitERTyp object + ''' + ''' File to load and deserialize + ''' Output NaemlichkeitERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NaemlichkeitERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NaemlichkeitERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NaemlichkeitERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As NaemlichkeitERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AusfuhrerstattungKopfERTyp + +#Region "Private fields" + Private _bestimmungsland As String + + Private _textlicheErklaerung As String + + Private _antragsart As String + + Private _zahlungsweg As String + + Private _zustellungsbevollmaechtigter As String + + Private _sicherheitskonto As String + + Private _klammerungsvorbehalt As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property TextlicheErklaerung() As String + Get + Return Me._textlicheErklaerung + End Get + Set + Me._textlicheErklaerung = Value + End Set + End Property + + + Public Property Antragsart() As String + Get + Return Me._antragsart + End Get + Set + Me._antragsart = Value + End Set + End Property + + + Public Property Zahlungsweg() As String + Get + Return Me._zahlungsweg + End Get + Set + Me._zahlungsweg = Value + End Set + End Property + + + Public Property Zustellungsbevollmaechtigter() As String + Get + Return Me._zustellungsbevollmaechtigter + End Get + Set + Me._zustellungsbevollmaechtigter = Value + End Set + End Property + + + Public Property Sicherheitskonto() As String + Get + Return Me._sicherheitskonto + End Get + Set + Me._sicherheitskonto = Value + End Set + End Property + + + Public Property Klammerungsvorbehalt() As String + Get + Return Me._klammerungsvorbehalt + End Get + Set + Me._klammerungsvorbehalt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuhrerstattungKopfERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AusfuhrerstattungKopfERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AusfuhrerstattungKopfERTyp object + ''' + ''' string to deserialize + ''' Output AusfuhrerstattungKopfERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuhrerstattungKopfERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuhrerstattungKopfERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuhrerstattungKopfERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuhrerstattungKopfERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuhrerstattungKopfERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuhrerstattungKopfERTyp + Return CType(SerializerXml.Deserialize(s), AusfuhrerstattungKopfERTyp) + End Function +#End Region + + ''' + ''' Serializes current AusfuhrerstattungKopfERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AusfuhrerstattungKopfERTyp object + ''' + ''' File to load and deserialize + ''' Output AusfuhrerstattungKopfERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuhrerstattungKopfERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuhrerstattungKopfERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuhrerstattungKopfERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuhrerstattungKopfERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class LieferbedingungERTyp + +#Region "Private fields" + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set + Me._incotermCode = Value + End Set + End Property + + + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set + Me._incotermText = Value + End Set + End Property + + + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set + Me._incotermOrt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize LieferbedingungERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes LieferbedingungERTyp object + ''' + ''' string to deserialize + ''' Output LieferbedingungERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LieferbedingungERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As LieferbedingungERTyp + Return CType(SerializerXml.Deserialize(s), LieferbedingungERTyp) + End Function +#End Region + + ''' + ''' Serializes current LieferbedingungERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an LieferbedingungERTyp object + ''' + ''' File to load and deserialize + ''' Output LieferbedingungERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerfahrensinhaberPVERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerERTyp() + End Sub + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerERTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerfahrensinhaberPVERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerfahrensinhaberPVERTyp object + ''' + ''' string to deserialize + ''' Output VerfahrensinhaberPVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrensinhaberPVERTyp + Return CType(SerializerXml.Deserialize(s), VerfahrensinhaberPVERTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrensinhaberPVERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerfahrensinhaberPVERTyp object + ''' + ''' File to load and deserialize + ''' Output VerfahrensinhaberPVERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AnsprechpartnerERTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummer As String + + Private _stellung As String + + Private _emailAdresse As String + + Private _telefaxnummer As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = 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 EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AnsprechpartnerERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AnsprechpartnerERTyp object + ''' + ''' string to deserialize + ''' Output AnsprechpartnerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnsprechpartnerERTyp + Return CType(SerializerXml.Deserialize(s), AnsprechpartnerERTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerERTyp object + ''' + ''' File to load and deserialize + ''' Output AnsprechpartnerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnsprechpartnerERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SubUnternehmerERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerERTyp() + End Sub + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerERTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SubUnternehmerERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SubUnternehmerERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SubUnternehmerERTyp object + ''' + ''' string to deserialize + ''' Output SubUnternehmerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubUnternehmerERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SubUnternehmerERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SubUnternehmerERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SubUnternehmerERTyp + Return CType(SerializerXml.Deserialize(s), SubUnternehmerERTyp) + End Function +#End Region + + ''' + ''' Serializes current SubUnternehmerERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SubUnternehmerERTyp object + ''' + ''' File to load and deserialize + ''' Output SubUnternehmerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubUnternehmerERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubUnternehmerERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VertreterAnmelderERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerERTyp() + End Sub + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerERTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VertreterAnmelderERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VertreterAnmelderERTyp object + ''' + ''' string to deserialize + ''' Output VertreterAnmelderERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VertreterAnmelderERTyp + Return CType(SerializerXml.Deserialize(s), VertreterAnmelderERTyp) + End Function +#End Region + + ''' + ''' Serializes current VertreterAnmelderERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VertreterAnmelderERTyp object + ''' + ''' File to load and deserialize + ''' Output VertreterAnmelderERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AnmelderERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerERTyp() + End Sub + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerERTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AnmelderERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AnmelderERTyp object + ''' + ''' string to deserialize + ''' Output AnmelderERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmelderERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnmelderERTyp + Return CType(SerializerXml.Deserialize(s), AnmelderERTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmelderERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AnmelderERTyp object + ''' + ''' File to load and deserialize + ''' Output AnmelderERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EmpfaengerERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EmpfaengerERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EmpfaengerERTyp object + ''' + ''' string to deserialize + ''' Output EmpfaengerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerERTyp + Return CType(SerializerXml.Deserialize(s), EmpfaengerERTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EmpfaengerERTyp object + ''' + ''' File to load and deserialize + ''' Output EmpfaengerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AusfuehrerERTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _identifikationsart As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerERTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerERTyp() + End Sub + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = 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 TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = 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 Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerERTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AusfuehrerERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AusfuehrerERTyp object + ''' + ''' string to deserialize + ''' Output AusfuehrerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuehrerERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuehrerERTyp + Return CType(SerializerXml.Deserialize(s), AusfuehrerERTyp) + End Function +#End Region + + ''' + ''' Serializes current AusfuehrerERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AusfuehrerERTyp object + ''' + ''' File to load and deserialize + ''' Output AusfuehrerERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VerschluesseERTyp + +#Region "Private fields" + Private _artCode As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zeichen = New List(Of String)() + End Sub + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize VerschluesseERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes VerschluesseERTyp object + ''' + ''' string to deserialize + ''' Output VerschluesseERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerschluesseERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerschluesseERTyp + Return CType(SerializerXml.Deserialize(s), VerschluesseERTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VerschluesseERTyp object + ''' + ''' File to load and deserialize + ''' Output VerschluesseERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerschluesseERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BeantragterLadeortERTyp + +#Region "Private fields" + Private _ortID As String + + Private _strasse As String + + Private _pLZ As String + + Private _ort As String + + Private _zusatz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property OrtID() As String + Get + Return Me._ortID + End Get + Set + Me._ortID = Value + End Set + End Property + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = 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 Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeantragterLadeortERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BeantragterLadeortERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BeantragterLadeortERTyp object + ''' + ''' string to deserialize + ''' Output BeantragterLadeortERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeantragterLadeortERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeantragterLadeortERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeantragterLadeortERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeantragterLadeortERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeantragterLadeortERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeantragterLadeortERTyp + Return CType(SerializerXml.Deserialize(s), BeantragterLadeortERTyp) + End Function +#End Region + + ''' + ''' Serializes current BeantragterLadeortERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeantragterLadeortERTyp object + ''' + ''' File to load and deserialize + ''' Output BeantragterLadeortERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeantragterLadeortERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeantragterLadeortERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeantragterLadeortERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeantragterLadeortERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BefoerderungsmittelERTyp + +#Region "Private fields" + Private _artCode As String + + Private _kennzeichen As String + + Private _staatCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set + Me._kennzeichen = Value + End Set + End Property + + + Public Property StaatCode() As String + Get + Return Me._staatCode + End Get + Set + Me._staatCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelERTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BefoerderungsmittelERTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BefoerderungsmittelERTyp object + ''' + ''' string to deserialize + ''' Output BefoerderungsmittelERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelERTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelERTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelERTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BefoerderungsmittelERTyp + Return CType(SerializerXml.Deserialize(s), BefoerderungsmittelERTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelERTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelERTyp object + ''' + ''' File to load and deserialize + ''' Output BefoerderungsmittelERTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelERTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelERTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelERTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefoerderungsmittelERTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenUeberlassungTyp + +#Region "Private fields" + Private _anmeldeArtAusfuhrCode As String + + Private _anmeldeArtVerfahrenCode As String + + Private _anmeldeArtUeberfuehrungCode As String + + Private _movementReferenceNumber As String + + Private _bestimmungslandCode As String + + Private _ausfuhrlandCode As String + + Private _entgegennahmeDatumZeit As Date + + Private _annahmeDatumZeit As Date + + Private _datumAusgang As Date + + Private _ueberlassungDatumZeit As Date + + Private _massgeblichesDatum As Date + + Private _containerIndikator As String + + Private _beteiligtenKonstellation As String + + Private _gesamtRohMasse As Decimal + + Private _registrierNummerFremdSystem As String + + Private _anzahlPackStuecke As String + + Private _anzahlPositionen As String + + Private _verkehrszweigInland As String + + Private _befoerderungsmittelAbgang As BefoerderungsmittelERTyp + + Private _verkehrszweigGrenze As String + + Private _befoerderungsmittelGrenze As BefoerderungsmittelERTyp + + Private _ausfuhrZollstelleID As String + + Private _ausfuhrZollstelleErgaenzungID As String + + Private _ausgangZollstelleID As String + + Private _tatsaechlicheAusgangZollstelleID As String + + Private _bewilligungsnummerAnschreibeverfahren As String + + Private _bewilligungsnummerPassiveVeredelung As String + + Private _bewilligungsnummerVertrauenswuerdigerAusfuehrer As String + + Private _bewilligungsnummerAusfuhr As String + + Private _beantragterLadeort As BeantragterLadeortERTyp + + Private _geschaeftArtCode As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _besondereUmstaende As String + + Private _befoerderungskostenZahlungsweise As String + + Private _kennnummerSendung As String + + Private _besondererTatbestand As List(Of String) + + Private _verschluss As VerschluesseERTyp + + Private _ausfuehrer As AusfuehrerERTyp + + Private _empfaenger As EmpfaengerERTyp + + Private _anmelder As AnmelderERTyp + + Private _vertreterAnmelder As VertreterAnmelderERTyp + + Private _subUnternehmer As SubUnternehmerERTyp + + Private _verfahrensinhaberPV As VerfahrensinhaberPVERTyp + + Private _lieferbedingung As LieferbedingungERTyp + + Private _ausfuhrerstattung As AusfuhrerstattungKopfERTyp + + Private _dateinameExportbegleitdokument As String + + Private _befoerderungsrouteLand As List(Of String) + + Private _wiedereinfuhrDatum As Date + + Private _standardaustausch As String + + Private _wiedereinfuhrland As List(Of String) + + Private _naemlichkeit As List(Of NaemlichkeitERTyp) + + Private _erzeugnis As List(Of ErzeugnisERTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._erzeugnis = New List(Of ErzeugnisERTyp)() + Me._naemlichkeit = New List(Of NaemlichkeitERTyp)() + Me._wiedereinfuhrland = New List(Of String)() + Me._befoerderungsrouteLand = New List(Of String)() + Me._ausfuhrerstattung = New AusfuhrerstattungKopfERTyp() + Me._lieferbedingung = New LieferbedingungERTyp() + Me._verfahrensinhaberPV = New VerfahrensinhaberPVERTyp() + Me._subUnternehmer = New SubUnternehmerERTyp() + Me._vertreterAnmelder = New VertreterAnmelderERTyp() + Me._anmelder = New AnmelderERTyp() + Me._empfaenger = New EmpfaengerERTyp() + Me._ausfuehrer = New AusfuehrerERTyp() + Me._verschluss = New VerschluesseERTyp() + Me._besondererTatbestand = New List(Of String)() + Me._beantragterLadeort = New BeantragterLadeortERTyp() + Me._befoerderungsmittelGrenze = New BefoerderungsmittelERTyp() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelERTyp() + End Sub + + + Public Property AnmeldeArtAusfuhrCode() As String + Get + Return Me._anmeldeArtAusfuhrCode + End Get + Set + Me._anmeldeArtAusfuhrCode = Value + End Set + End Property + + + Public Property AnmeldeArtVerfahrenCode() As String + Get + Return Me._anmeldeArtVerfahrenCode + End Get + Set + Me._anmeldeArtVerfahrenCode = Value + End Set + End Property + + + Public Property AnmeldeArtUeberfuehrungCode() As String + Get + Return Me._anmeldeArtUeberfuehrungCode + End Get + Set + Me._anmeldeArtUeberfuehrungCode = Value + End Set + End Property + + + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set + Me._movementReferenceNumber = Value + End Set + End Property + + + Public Property BestimmungslandCode() As String + Get + Return Me._bestimmungslandCode + End Get + Set + Me._bestimmungslandCode = Value + End Set + End Property + + + Public Property AusfuhrlandCode() As String + Get + Return Me._ausfuhrlandCode + End Get + Set + Me._ausfuhrlandCode = Value + End Set + End Property + + + Public Property EntgegennahmeDatumZeit() As Date + Get + Return Me._entgegennahmeDatumZeit + End Get + Set + Me._entgegennahmeDatumZeit = Value + End Set + End Property + + + Public Property AnnahmeDatumZeit() As Date + Get + Return Me._annahmeDatumZeit + End Get + Set + Me._annahmeDatumZeit = Value + End Set + End Property + + + Public Property DatumAusgang() As Date + Get + Return Me._datumAusgang + End Get + Set + Me._datumAusgang = Value + End Set + End Property + + + Public Property UeberlassungDatumZeit() As Date + Get + Return Me._ueberlassungDatumZeit + End Get + Set + Me._ueberlassungDatumZeit = Value + End Set + End Property + + + Public Property MassgeblichesDatum() As Date + Get + Return Me._massgeblichesDatum + End Get + Set + Me._massgeblichesDatum = Value + End Set + End Property + + + Public Property ContainerIndikator() As String + Get + Return Me._containerIndikator + End Get + Set + Me._containerIndikator = Value + End Set + End Property + + + Public Property BeteiligtenKonstellation() As String + Get + Return Me._beteiligtenKonstellation + End Get + Set + Me._beteiligtenKonstellation = 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 RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set + Me._registrierNummerFremdSystem = Value + End Set + End Property + + + Public Property AnzahlPackStuecke() As String + Get + Return Me._anzahlPackStuecke + End Get + Set + Me._anzahlPackStuecke = 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 VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set + Me._verkehrszweigInland = Value + End Set + End Property + + + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelERTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set + Me._verkehrszweigGrenze = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenze() As BefoerderungsmittelERTyp + Get + Return Me._befoerderungsmittelGrenze + End Get + Set + Me._befoerderungsmittelGrenze = Value + End Set + End Property + + + Public Property AusfuhrZollstelleID() As String + Get + Return Me._ausfuhrZollstelleID + End Get + Set + Me._ausfuhrZollstelleID = Value + End Set + End Property + + + Public Property AusfuhrZollstelleErgaenzungID() As String + Get + Return Me._ausfuhrZollstelleErgaenzungID + End Get + Set + Me._ausfuhrZollstelleErgaenzungID = Value + End Set + End Property + + + Public Property AusgangZollstelleID() As String + Get + Return Me._ausgangZollstelleID + End Get + Set + Me._ausgangZollstelleID = Value + End Set + End Property + + + Public Property TatsaechlicheAusgangZollstelleID() As String + Get + Return Me._tatsaechlicheAusgangZollstelleID + End Get + Set + Me._tatsaechlicheAusgangZollstelleID = Value + End Set + End Property + + + Public Property BewilligungsnummerAnschreibeverfahren() As String + Get + Return Me._bewilligungsnummerAnschreibeverfahren + End Get + Set + Me._bewilligungsnummerAnschreibeverfahren = Value + End Set + End Property + + + Public Property BewilligungsnummerPassiveVeredelung() As String + Get + Return Me._bewilligungsnummerPassiveVeredelung + End Get + Set + Me._bewilligungsnummerPassiveVeredelung = Value + End Set + End Property + + + Public Property BewilligungsnummerVertrauenswuerdigerAusfuehrer() As String + Get + Return Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer + End Get + Set + Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer = Value + End Set + End Property + + + Public Property BewilligungsnummerAusfuhr() As String + Get + Return Me._bewilligungsnummerAusfuhr + End Get + Set + Me._bewilligungsnummerAusfuhr = Value + End Set + End Property + + + Public Property BeantragterLadeort() As BeantragterLadeortERTyp + Get + Return Me._beantragterLadeort + End Get + Set + Me._beantragterLadeort = Value + End Set + End Property + + + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set + Me._geschaeftArtCode = 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 BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set + Me._besondereUmstaende = 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 KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property BesondererTatbestand() As List(Of String) + Get + Return Me._besondererTatbestand + End Get + Set + Me._besondererTatbestand = Value + End Set + End Property + + + Public Property Verschluss() As VerschluesseERTyp + Get + Return Me._verschluss + End Get + Set + Me._verschluss = Value + End Set + End Property + + + Public Property Ausfuehrer() As AusfuehrerERTyp + Get + Return Me._ausfuehrer + End Get + Set + Me._ausfuehrer = Value + End Set + End Property + + + Public Property Empfaenger() As EmpfaengerERTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property Anmelder() As AnmelderERTyp + Get + Return Me._anmelder + End Get + Set + Me._anmelder = Value + End Set + End Property + + + Public Property VertreterAnmelder() As VertreterAnmelderERTyp + Get + Return Me._vertreterAnmelder + End Get + Set + Me._vertreterAnmelder = Value + End Set + End Property + + + Public Property SubUnternehmer() As SubUnternehmerERTyp + Get + Return Me._subUnternehmer + End Get + Set + Me._subUnternehmer = Value + End Set + End Property + + + Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVERTyp + Get + Return Me._verfahrensinhaberPV + End Get + Set + Me._verfahrensinhaberPV = Value + End Set + End Property + + + Public Property Lieferbedingung() As LieferbedingungERTyp + Get + Return Me._lieferbedingung + End Get + Set + Me._lieferbedingung = Value + End Set + End Property + + + Public Property Ausfuhrerstattung() As AusfuhrerstattungKopfERTyp + Get + Return Me._ausfuhrerstattung + End Get + Set + Me._ausfuhrerstattung = Value + End Set + End Property + + + Public Property DateinameExportbegleitdokument() As String + Get + Return Me._dateinameExportbegleitdokument + End Get + Set + Me._dateinameExportbegleitdokument = Value + End Set + End Property + + + Public Property BefoerderungsrouteLand() As List(Of String) + Get + Return Me._befoerderungsrouteLand + End Get + Set + Me._befoerderungsrouteLand = Value + End Set + End Property + + + Public Property WiedereinfuhrDatum() As Date + Get + Return Me._wiedereinfuhrDatum + End Get + Set + Me._wiedereinfuhrDatum = Value + End Set + End Property + + + Public Property Standardaustausch() As String + Get + Return Me._standardaustausch + End Get + Set + Me._standardaustausch = Value + End Set + End Property + + + Public Property Wiedereinfuhrland() As List(Of String) + Get + Return Me._wiedereinfuhrland + End Get + Set + Me._wiedereinfuhrland = Value + End Set + End Property + + + Public Property Naemlichkeit() As List(Of NaemlichkeitERTyp) + Get + Return Me._naemlichkeit + End Get + Set + Me._naemlichkeit = Value + End Set + End Property + + + Public Property Erzeugnis() As List(Of ErzeugnisERTyp) + Get + Return Me._erzeugnis + End Get + Set + Me._erzeugnis = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenUeberlassungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenUeberlassungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenUeberlassungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenUeberlassungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenUeberlassungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenUeberlassungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenUeberlassungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionExportTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionExportTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionExportTyp object + ''' + ''' string to deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionExportTyp + Return CType(SerializerXml.Deserialize(s), TransaktionExportTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionExportTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschExportTyp + +#Region "Private fields" + Private _transaktion As TransaktionExportTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionExportTyp() + End Sub + + + Public Property Transaktion() As TransaktionExportTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschExportTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschExportTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschExportTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschExportTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschExportTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.xsd new file mode 100644 index 0000000..7c29a38 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/UeberlassungAusfuhr/UeberlassungAusfuhr_006.xsd @@ -0,0 +1,683 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index c78bd72..15228df 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -77,10 +77,12 @@ + + @@ -170,6 +172,9 @@ + + Designer + Designer @@ -185,6 +190,9 @@ Designer + + Designer + Designer diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 59d4840..810306b 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -82,8 +82,7 @@ Module Mail 'Exit Sub - 'sendTOBB("VERAG/ATILLA", Now.AddDays(-6), Now.AddDays(-1)) - + ' sendTOBB("VERAG/ATILLA", Now.AddDays(-6), Now.AddDays(-1)) If PARAM = "" Then System.Console.WriteLine("OPTION nicht erkannt!") @@ -276,7 +275,7 @@ Module Mail Dim bool_sent = False Select Case FirmaTmp - ' Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) + ' Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list) Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list) Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index fc89939..400483f 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -361,6 +361,31 @@ Public Class cGetMsgType Return False End Function + Shared Function isAES_UeberlassungAusfuhr(doc As XmlDocument, ByRef version As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("UeberlassungAusfuhr").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 Funct + Shared Function isAES_BestaetigungAusfuhr(doc As XmlDocument, ByRef version As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("BestaetigungAusfuhr").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_MitteilungAbschreibung(doc As XmlDocument) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("MitteilungAbschreibung").Count > 0 Then diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 28f11f8..05eb421 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -1795,6 +1795,10 @@ Public Class cWorker_NCTS Dim Wiedergestellungsdatum As Object = Nothing ' Dim bearbeiter = "" Dim zp As Object = Nothing + Dim Verschluss_Art = "" + Dim Verschluss_Anzahl = 0 + Dim Verschluss_Zeichen As New List(Of String) + readNCTS_Ueberlassungsmeldung006 = "" If NCTS IsNot Nothing Then If NCTS.Transaktion IsNot Nothing Then @@ -1819,6 +1823,21 @@ Public Class cWorker_NCTS Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + + 'Verschluesse + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then + Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art + Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then + For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen + Verschluss_Zeichen.Add(z) + Next + End If + End If + End If + End If End If End If @@ -1839,6 +1858,22 @@ Public Class cWorker_NCTS 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) + If Verschluss_Anzahl > 0 Then + NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl + NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art + NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) + NCTS_TMP.SAVE() + End If + SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division) SaveNCTS_WGDAT(NCTS_TMP, Wiedergestellungsdatum) @@ -1868,6 +1903,11 @@ Public Class cWorker_NCTS Dim Wiedergestellungsdatum As Object = Nothing ' Dim bearbeiter = "" Dim zp As Object = Nothing + Dim Verschluss_Art = "" + Dim Verschluss_Anzahl = 0 + Dim Verschluss_Zeichen As New List(Of String) + + readNCTS_Ueberlassungsmeldung007 = "" If NCTS IsNot Nothing Then If NCTS.Transaktion IsNot Nothing Then @@ -1892,9 +1932,27 @@ Public Class cWorker_NCTS Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + + 'Verschluesse + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then + Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art + Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then + For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen + Verschluss_Zeichen.Add(z) + Next + End If + End If + End If + End If + End If End If + + End If ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. @@ -1912,6 +1970,21 @@ Public Class cWorker_NCTS 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) + If Verschluss_Anzahl > 0 Then + NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl + NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art + NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) + NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) + NCTS_TMP.SAVE() + End If SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division) SaveNCTS_WGDAT(NCTS_TMP, Wiedergestellungsdatum) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index b4f3bf1..6f32280 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -446,6 +446,8 @@ Public Class frmDYNachrichtenVerarbeitung If Not found Then + '????? UeberlassungAusfuhr + Dim doc2 As New XmlDocument() Dim XML_Code2 = System.IO.File.ReadAllText(d, System.Text.ASCIIEncoding.UTF8) doc2.LoadXml(SanitizeXmlString(XML_Code2)) @@ -470,6 +472,9 @@ Public Class frmDYNachrichtenVerarbeitung addDGVEinarbeitung("*AES: DeliveryNotification", "-") End If + '--------------------------------------------------------------------------------- + '--------OLD---------------------------------------------------------------------- + '--------------------------------------------------------------------------------- 'AES: DEXPRE - Überlassung 2.3 If Not found And cGetMsgType.isAES_DEXPRD(doc2) Then If readAES_DEXPRD(doc2) <> "" Then found = True @@ -479,6 +484,28 @@ Public Class frmDYNachrichtenVerarbeitung If Not found And cGetMsgType.isAES_DEXPRE(doc2) Then If readAES_DEXPRE(doc2) <> "" Then found = True End If + '--------------------------------------------------------------------------------- + '--------------------------------------------------------------------------------- + '--------------------------------------------------------------------------------- + + + + 'AES: UeberlassungAusfuhr + If Not found And cGetMsgType.isAES_UeberlassungAusfuhr(doc, VERSION) Then + Select Case VERSION + Case "006" : If readAES_UeberlassungAusfuhr_006(d) <> "" Then found = True + End Select + End If + + + 'AES: BestaetigungAusfuhr + If Not found And cGetMsgType.isAES_BestaetigungAusfuhr(doc, VERSION) Then + Select Case VERSION + Case "006" : If readAES_BestaetigungAusfuhr_006(d) <> "" Then found = True + End Select + End If + + 'AES: Error If Not found And cGetMsgType.isAES_DEERRE(doc2) Then @@ -2116,6 +2143,152 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + + + + Function readAES_UeberlassungAusfuhr_006(d) As String + Try + + Dim AES As DAKOSY_Worker.UeberlassungAusfuhr_006.UeberlassungAusfuhrERTyp = DAKOSY_Worker.UeberlassungAusfuhr_006.UeberlassungAusfuhrERTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readAES_UeberlassungAusfuhr_006 = "" + If AES IsNot Nothing Then + + If AES.Transaktion IsNot Nothing Then + If AES.Transaktion.IODivision3 IsNot Nothing Then + division = AES.Transaktion.IODivision3 + End If + End If + + If AES.EinzelUeberlassung IsNot Nothing AndAlso AES.EinzelUeberlassung.Count > 0 Then + If AES.EinzelUeberlassung(0).ObjektIdentifizierung IsNot Nothing Then + If AES.EinzelUeberlassung(0).ObjektIdentifizierung.ObjektName IsNot Nothing Then + readAES_UeberlassungAusfuhr_006 = AES.EinzelUeberlassung(0).ObjektIdentifizierung.ObjektName + End If + zp = AES.EinzelUeberlassung(0).ObjektIdentifizierung.ZeitpunktEingang + End If + If AES.EinzelUeberlassung(0).KopfDaten IsNot Nothing Then + ' If AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If AES.EinzelUeberlassung(0).KopfDaten.MovementReferenceNumber IsNot Nothing Then + regNR = AES.EinzelUeberlassung(0).KopfDaten.MovementReferenceNumber + End If + End If + End If + End If + ' AES.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readAES_UeberlassungAusfuhr_006 <> "" And regNR <> "" Then 'BEZUGSNR vorhanden + + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit)) + STATUS.dySt_BezugsNr = readAES_UeberlassungAusfuhr_006 + STATUS.dySt_artMitteilung = "UEA" + STATUS.dySt_dyArt = "AES" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergCode = "TSTMP" + ' STATUS.dySt_ergMitteilung = Reason + ' If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), "AES") + ' Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, messageID, messageTstmp, , regNR) + + Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), , regNR) + + 'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG + AES_TMP.insertIntoSpedBuch(DY_TMP) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("AES: Überlassung", 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) + readAES_UeberlassungAusfuhr_006 = "" + End Try + End Function + + Function readAES_BestaetigungAusfuhr_006(d) As String + Try + + Dim AES As DAKOSY_Worker.BestaetigungAusfuhr_006.BestaetigungAusfuhrENTyp = DAKOSY_Worker.BestaetigungAusfuhr_006.BestaetigungAusfuhrENTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readAES_BestaetigungAusfuhr_006 = "" + If AES IsNot Nothing Then + + If AES.Transaktion IsNot Nothing Then + If AES.Transaktion.IODivision3 IsNot Nothing Then + division = AES.Transaktion.IODivision3 + End If + End If + + If AES.EinzelBestaetigung IsNot Nothing AndAlso AES.EinzelBestaetigung.Count > 0 Then + If AES.EinzelBestaetigung(0).ObjektIdentifizierung IsNot Nothing Then + If AES.EinzelBestaetigung(0).ObjektIdentifizierung.ObjektName IsNot Nothing Then + readAES_BestaetigungAusfuhr_006 = AES.EinzelBestaetigung(0).ObjektIdentifizierung.ObjektName + End If + zp = AES.EinzelBestaetigung(0).ObjektIdentifizierung.ZeitpunktEingang + End If + If AES.EinzelBestaetigung(0).KopfDaten IsNot Nothing Then + ' If AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If AES.EinzelBestaetigung(0).KopfDaten.MovementReferenceNumber IsNot Nothing Then + regNR = AES.EinzelBestaetigung(0).KopfDaten.MovementReferenceNumber + End If + End If + End If + End If + ' AES.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readAES_BestaetigungAusfuhr_006 <> "" And regNR <> "" Then 'BEZUGSNR vorhanden + + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit)) + STATUS.dySt_BezugsNr = readAES_BestaetigungAusfuhr_006 + STATUS.dySt_artMitteilung = "BST" + STATUS.dySt_dyArt = "AES" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergCode = "TSTMP" + ' STATUS.dySt_ergMitteilung = Reason + ' If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), "AES") + ' Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, messageID, messageTstmp, , regNR) + + Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), , regNR) + + 'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG + AES_TMP.insertIntoSpedBuch(DY_TMP) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("AES: BestätigunAusfuhr", 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) + readAES_BestaetigungAusfuhr_006 = "" + End Try + End Function Function readAES_DEXPRE(doc As XmlDocument) As String Try readAES_DEXPRE = "" @@ -5863,6 +6036,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim division = "" + Dim TXT_DokBeschau = "" 'Dim annahmeKz As Object = Nothing 'Dim ueberlassungKz As Object = Nothing 'Dim RueckgabeKz As Object = Nothing @@ -5898,7 +6072,21 @@ Public Class frmDYNachrichtenVerarbeitung zoellner = EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll End If End If - 'If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then + + 'POS __> DOKUMENTENBSCHAU + If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then + + For Each POS In EZA.EinzelEntscheidungAnmeldung.Position + If POS.AnordnungKz IsNot Nothing Then + '0 = Keine Beschau. 1 = Volle Gesamtbeschau. 2 = Stichprobenweise Mengenbeschau. 3 = Stichprobenweise Beschaffenheitsbeschau. 4 = Dokumentenprüfung 5= Durchleuchtung 9 = Andere. (Codeliste A1410 + Select Case POS.AnordnungKz + Case "4" '--> Dokumentenprüfung + TXT_DokBeschau &= POS.Positionsnummer & ": Dokumentenprüfung" & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine + 'MitteilungTeilnehmerBeschau + End Select + End If + Next + End If 'End If @@ -5906,6 +6094,7 @@ Public Class frmDYNachrichtenVerarbeitung End If ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + If readEZA_EntscheidungAnmeldung_004 <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readEZA_EntscheidungAnmeldung_004 @@ -5943,6 +6132,61 @@ Public Class frmDYNachrichtenVerarbeitung STATUS.SAVE() addDGVEinarbeitung("EZA: EntscheidungAnmeldung", STATUS.dySt_BezugsNr) + + + + + If TXT_DokBeschau <> "" Then + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If sendToID >= 0 Then + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + + Select Case statusAVISO + 'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , TXT_DokBeschau.Trim,,, If(EZA_TMP.eza_firma, "")) + End Select + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -5951,6 +6195,7 @@ Public Class frmDYNachrichtenVerarbeitung End Function + Function readEZA_SumAErledigungsinformationVorpapier(d) As String Try