From fd8880fc0fac0534674bedf6005f6cbf4573d139 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 13 Apr 2026 13:19:52 +0200 Subject: [PATCH] Bestaetigung VorzeitigeAnmeldung --- ...etigungVorzeitigeAnmeldung_003.Designer.vb | 2517 +++++++++++++++++ .../BestaetigungVorzeitigeAnmeldung_003.xsd | 255 ++ .../DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb | 26 +- DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 4 + 4 files changed, 2794 insertions(+), 8 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.xsd diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.Designer.vb new file mode 100644 index 0000000..bbb71c8 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.Designer.vb @@ -0,0 +1,2517 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"BestaetigungVorzeitigeAnmeldung_003","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace BestaetigungVorzeitigeAnmeldung_003 + + + Partial Public Class BestaetigungVorzeitigeAnmeldungAZATNTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelBestaetigungVorzeitigeAnmeldung As EinzelBestaetigungVorzeitigeAnmeldungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelBestaetigungVorzeitigeAnmeldung = New EinzelBestaetigungVorzeitigeAnmeldungTyp() + End Sub + + + Public Property EinzelBestaetigungVorzeitigeAnmeldung() As EinzelBestaetigungVorzeitigeAnmeldungTyp + Get + Return Me._einzelBestaetigungVorzeitigeAnmeldung + End Get + Set + Me._einzelBestaetigungVorzeitigeAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BestaetigungVorzeitigeAnmeldungAZATNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BestaetigungVorzeitigeAnmeldungAZATNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BestaetigungVorzeitigeAnmeldungAZATNTyp object + ''' + ''' string to deserialize + ''' Output BestaetigungVorzeitigeAnmeldungAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungVorzeitigeAnmeldungAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BestaetigungVorzeitigeAnmeldungAZATNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungVorzeitigeAnmeldungAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BestaetigungVorzeitigeAnmeldungAZATNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BestaetigungVorzeitigeAnmeldungAZATNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BestaetigungVorzeitigeAnmeldungAZATNTyp + Return CType(SerializerXml.Deserialize(s), BestaetigungVorzeitigeAnmeldungAZATNTyp) + End Function +#End Region + + ''' + ''' Serializes current BestaetigungVorzeitigeAnmeldungAZATNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BestaetigungVorzeitigeAnmeldungAZATNTyp object + ''' + ''' File to load and deserialize + ''' Output BestaetigungVorzeitigeAnmeldungAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungVorzeitigeAnmeldungAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BestaetigungVorzeitigeAnmeldungAZATNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungVorzeitigeAnmeldungAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BestaetigungVorzeitigeAnmeldungAZATNTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelBestaetigungVorzeitigeAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungAZATNTyp + + Private _kopfDaten As KopfdatenBestaetigungVorzeitigeAnmeldungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New KopfdatenBestaetigungVorzeitigeAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungAZATNTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungAZATNTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfdatenBestaetigungVorzeitigeAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBestaetigungVorzeitigeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelBestaetigungVorzeitigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungVorzeitigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBestaetigungVorzeitigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungVorzeitigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBestaetigungVorzeitigeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBestaetigungVorzeitigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelBestaetigungVorzeitigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelBestaetigungVorzeitigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelBestaetigungVorzeitigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelBestaetigungVorzeitigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungVorzeitigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBestaetigungVorzeitigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungVorzeitigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBestaetigungVorzeitigeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungAZATNTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _anmeldungArt As String + + Private _objektQuittung As String + + Private _bezugsnummerVorblendung As String + + Private _objektAktion As List(Of String) + + Private _bearbeiter As String + + Private _absenderSystemName As String + + Private _shipmentReferenz As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._objektAktion = New List(Of String)() + End Sub + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property AnmeldungArt() As String + Get + Return Me._anmeldungArt + End Get + Set + Me._anmeldungArt = Value + End Set + End Property + + + Public Property ObjektQuittung() As String + Get + Return Me._objektQuittung + End Get + Set + Me._objektQuittung = Value + End Set + End Property + + + Public Property BezugsnummerVorblendung() As String + Get + Return Me._bezugsnummerVorblendung + End Get + Set + Me._bezugsnummerVorblendung = Value + End Set + End Property + + + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set + Me._objektAktion = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property AbsenderSystemName() As String + Get + Return Me._absenderSystemName + End Get + Set + Me._absenderSystemName = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAZATNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungAZATNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungAZATNTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAZATNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungAZATNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAZATNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungAZATNTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAZATNTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungAZATNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungAZATNTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAZATNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAZATNTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BEAnteilZLAVUVAZATNTyp + +#Region "Private fields" + Private _registriernummerZugang As String + + Private _positionZugang As String + + Private _artikelcodeATZL As String + + Private _eigentuemerATZL As String + + Private _chargennummerATZL As String + + Private _ursprungslandATZL As String + + Private _atlasKz As String + + Private _warennummer As String + + Private _ueblicheBehandlungKz As String + + Private _handelsmenge As String + + Private _masseinheitHandelsmenge As String + + Private _qualifikatorHandelsmenge As String + + Private _abgangsmenge As String + + Private _masseinheitAbgangsmenge As String + + Private _qualifikatorAbgangsmenge As String + + Private _positionszusatz As String + + Private _warenbezogeneAngaben As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property RegistriernummerZugang() As String + Get + Return Me._registriernummerZugang + End Get + Set + Me._registriernummerZugang = Value + End Set + End Property + + + Public Property PositionZugang() As String + Get + Return Me._positionZugang + End Get + Set + Me._positionZugang = Value + End Set + End Property + + + Public Property ArtikelcodeATZL() As String + Get + Return Me._artikelcodeATZL + End Get + Set + Me._artikelcodeATZL = Value + End Set + End Property + + + Public Property EigentuemerATZL() As String + Get + Return Me._eigentuemerATZL + End Get + Set + Me._eigentuemerATZL = Value + End Set + End Property + + + Public Property ChargennummerATZL() As String + Get + Return Me._chargennummerATZL + End Get + Set + Me._chargennummerATZL = Value + End Set + End Property + + + Public Property UrsprungslandATZL() As String + Get + Return Me._ursprungslandATZL + End Get + Set + Me._ursprungslandATZL = Value + End Set + End Property + + + Public Property AtlasKz() As String + Get + Return Me._atlasKz + End Get + Set + Me._atlasKz = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property UeblicheBehandlungKz() As String + Get + Return Me._ueblicheBehandlungKz + End Get + Set + Me._ueblicheBehandlungKz = Value + End Set + End Property + + + Public Property Handelsmenge() As String + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + + Public Property MasseinheitHandelsmenge() As String + Get + Return Me._masseinheitHandelsmenge + End Get + Set + Me._masseinheitHandelsmenge = Value + End Set + End Property + + + Public Property QualifikatorHandelsmenge() As String + Get + Return Me._qualifikatorHandelsmenge + End Get + Set + Me._qualifikatorHandelsmenge = Value + End Set + End Property + + + Public Property Abgangsmenge() As String + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property MasseinheitAbgangsmenge() As String + Get + Return Me._masseinheitAbgangsmenge + End Get + Set + Me._masseinheitAbgangsmenge = Value + End Set + End Property + + + Public Property QualifikatorAbgangsmenge() As String + Get + Return Me._qualifikatorAbgangsmenge + End Get + Set + Me._qualifikatorAbgangsmenge = Value + End Set + End Property + + + Public Property Positionszusatz() As String + Get + Return Me._positionszusatz + End Get + Set + Me._positionszusatz = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVAZATNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BEAnteilZLAVUVAZATNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BEAnteilZLAVUVAZATNTyp object + ''' + ''' string to deserialize + ''' Output BEAnteilZLAVUVAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVAZATNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BEAnteilZLAVUVAZATNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVAZATNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BEAnteilZLAVUVAZATNTyp + Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVAZATNTyp) + End Function +#End Region + + ''' + ''' Serializes current BEAnteilZLAVUVAZATNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BEAnteilZLAVUVAZATNTyp object + ''' + ''' File to load and deserialize + ''' Output BEAnteilZLAVUVAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVAZATNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVAZATNTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SumAAZATNTyp + +#Region "Private fields" + Private _sumARegistriernummer As String + + Private _sumAPosNr As String + + Private _beendigungsPackstueckzahl As String + + Private _artIdentifikation As String + + Private _verwahrerEORI As String + + Private _zollNummerVerwahrer As String + + Private _spezifOrdnungsbegriffArt As String + + Private _spezifOrdnungsbegriff As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SumARegistriernummer() As String + Get + Return Me._sumARegistriernummer + End Get + Set + Me._sumARegistriernummer = Value + End Set + End Property + + + Public Property SumAPosNr() As String + Get + Return Me._sumAPosNr + End Get + Set + Me._sumAPosNr = Value + End Set + End Property + + + Public Property BeendigungsPackstueckzahl() As String + Get + Return Me._beendigungsPackstueckzahl + End Get + Set + Me._beendigungsPackstueckzahl = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property ZollNummerVerwahrer() As String + Get + Return Me._zollNummerVerwahrer + End Get + Set + Me._zollNummerVerwahrer = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriffArt() As String + Get + Return Me._spezifOrdnungsbegriffArt + End Get + Set + Me._spezifOrdnungsbegriffArt = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriff() As String + Get + Return Me._spezifOrdnungsbegriff + End Get + Set + Me._spezifOrdnungsbegriff = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumAAZATNTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SumAAZATNTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SumAAZATNTyp object + ''' + ''' string to deserialize + ''' Output SumAAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAAZATNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumAAZATNTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumAAZATNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SumAAZATNTyp + Return CType(SerializerXml.Deserialize(s), SumAAZATNTyp) + End Function +#End Region + + ''' + ''' Serializes current SumAAZATNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SumAAZATNTyp object + ''' + ''' File to load and deserialize + ''' Output SumAAZATNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAAZATNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAAZATNTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAAZATNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumAAZATNTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfdatenBestaetigungVorzeitigeAnmeldungTyp + +#Region "Private fields" + Private _adressierteZollstelle As String + + Private _vorzAnmeldArbeitsNr As String + + Private _anmeldenderBearbeiter As String + + Private _telefonnummerBearbeiter As String + + Private _stellungAnmeldenderBearbeiter As String + + Private _emailAdresseAnmeldenderBearbeiter As String + + Private _befoerderungsmittelAnkunftNameKz As String + + Private _vorpapierArt As String + + Private _vorpapierNr As String + + Private _warenOrt As String + + Private _gestellungsbestEORI As String + + Private _gestellungsbestNLNR As String + + Private _beendigungsanteilKz As String + + Private _sumABeendigungsAnteil As List(Of SumAAZATNTyp) + + Private _beendigungsAnteilArtCode As String + + Private _bewilligungsIDZLAVUV As String + + Private _bezugsnummerBEAnteilZL As String + + Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVAZATNTyp) + + Private _kzVereinfBewillAntrgBEAnteilAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVAZATNTyp)() + Me._sumABeendigungsAnteil = New List(Of SumAAZATNTyp)() + End Sub + + + Public Property AdressierteZollstelle() As String + Get + Return Me._adressierteZollstelle + End Get + Set + Me._adressierteZollstelle = Value + End Set + End Property + + + Public Property VorzAnmeldArbeitsNr() As String + Get + Return Me._vorzAnmeldArbeitsNr + End Get + Set + Me._vorzAnmeldArbeitsNr = Value + End Set + End Property + + + Public Property AnmeldenderBearbeiter() As String + Get + Return Me._anmeldenderBearbeiter + End Get + Set + Me._anmeldenderBearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerBearbeiter() As String + Get + Return Me._telefonnummerBearbeiter + End Get + Set + Me._telefonnummerBearbeiter = Value + End Set + End Property + + + Public Property StellungAnmeldenderBearbeiter() As String + Get + Return Me._stellungAnmeldenderBearbeiter + End Get + Set + Me._stellungAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property EmailAdresseAnmeldenderBearbeiter() As String + Get + Return Me._emailAdresseAnmeldenderBearbeiter + End Get + Set + Me._emailAdresseAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property BefoerderungsmittelAnkunftNameKz() As String + Get + Return Me._befoerderungsmittelAnkunftNameKz + End Get + Set + Me._befoerderungsmittelAnkunftNameKz = Value + End Set + End Property + + + Public Property VorpapierArt() As String + Get + Return Me._vorpapierArt + End Get + Set + Me._vorpapierArt = Value + End Set + End Property + + + Public Property VorpapierNr() As String + Get + Return Me._vorpapierNr + End Get + Set + Me._vorpapierNr = Value + End Set + End Property + + + Public Property WarenOrt() As String + Get + Return Me._warenOrt + End Get + Set + Me._warenOrt = Value + End Set + End Property + + + Public Property GestellungsbestEORI() As String + Get + Return Me._gestellungsbestEORI + End Get + Set + Me._gestellungsbestEORI = Value + End Set + End Property + + + Public Property GestellungsbestNLNR() As String + Get + Return Me._gestellungsbestNLNR + End Get + Set + Me._gestellungsbestNLNR = Value + End Set + End Property + + + Public Property BeendigungsanteilKz() As String + Get + Return Me._beendigungsanteilKz + End Get + Set + Me._beendigungsanteilKz = Value + End Set + End Property + + + Public Property SumABeendigungsAnteil() As List(Of SumAAZATNTyp) + Get + Return Me._sumABeendigungsAnteil + End Get + Set + Me._sumABeendigungsAnteil = Value + End Set + End Property + + + Public Property BeendigungsAnteilArtCode() As String + Get + Return Me._beendigungsAnteilArtCode + End Get + Set + Me._beendigungsAnteilArtCode = Value + End Set + End Property + + + Public Property BewilligungsIDZLAVUV() As String + Get + Return Me._bewilligungsIDZLAVUV + End Get + Set + Me._bewilligungsIDZLAVUV = Value + End Set + End Property + + + Public Property BezugsnummerBEAnteilZL() As String + Get + Return Me._bezugsnummerBEAnteilZL + End Get + Set + Me._bezugsnummerBEAnteilZL = Value + End Set + End Property + + + Public Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVAZATNTyp) + Get + Return Me._bEAnteilZLAVUV + End Get + Set + Me._bEAnteilZLAVUV = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgBEAnteilAV() As String + Get + Return Me._kzVereinfBewillAntrgBEAnteilAV + End Get + Set + Me._kzVereinfBewillAntrgBEAnteilAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property ApplicationInternalData() As ApplicationInternalDataType + Get + Return Me._applicationInternalData + End Get + Set + Me._applicationInternalData = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBestaetigungVorzeitigeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfdatenBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfdatenBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfdatenBestaetigungVorzeitigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBestaetigungVorzeitigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBestaetigungVorzeitigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBestaetigungVorzeitigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfdatenBestaetigungVorzeitigeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfdatenBestaetigungVorzeitigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfdatenBestaetigungVorzeitigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfdatenBestaetigungVorzeitigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfdatenBestaetigungVorzeitigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfdatenBestaetigungVorzeitigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfdatenBestaetigungVorzeitigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBestaetigungVorzeitigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBestaetigungVorzeitigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBestaetigungVorzeitigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfdatenBestaetigungVorzeitigeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.xsd new file mode 100644 index 0000000..3782d68 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BestaetigungVorzeitigeAnmeldung/BestaetigungVorzeitigeAnmeldung_003.xsd @@ -0,0 +1,255 @@ + + + + + Version 003 - Release 022 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb index 59f7bce..bc75b8b 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb @@ -1,8 +1,10 @@ Imports System.Globalization +Imports System.IO Imports io.konik.zugferd Imports javax.management.relation Imports Newtonsoft.Json Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3 Public Class cDakosyEZA_Greenpulse @@ -192,16 +194,19 @@ Public Class cDakosyEZA_Greenpulse Case "Rechnung", "eFatura" Dim pfad As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(doc.anh_docId) - Dim dateiBytes As Byte() = System.IO.File.ReadAllBytes(pfad) + If (File.Exists(pfad)) Then - Dim d As New cATEZ_Greenpulse_KafkaInvoices.DocumentNode With { - .Reference = doc.anh_Name, - .DocType = "invoice", - .MimeType = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.GuessMimeTypeFromNumber(doc.anh_Typ), - .Blob = Convert.ToBase64String(dateiBytes) - } + Dim dateiBytes As Byte() = System.IO.File.ReadAllBytes(pfad) - dest.Documents.Add(d) + Dim d As New cATEZ_Greenpulse_KafkaInvoices.DocumentNode With { + .Reference = doc.anh_Name, + .DocType = "invoice", + .MimeType = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.GuessMimeTypeFromNumber(doc.anh_Typ), + .Blob = Convert.ToBase64String(dateiBytes) + } + + dest.Documents.Add(d) + End If End Select Next End If @@ -367,6 +372,11 @@ Public Class cDakosyEZA_Greenpulse End If dest.Declaration.PreviousProcedure = SafeStr(it0.zaItem_PrevProcedure) End If + Try + Console.WriteLine(JsonConvert.SerializeObject(dest, Newtonsoft.Json.Formatting.Indented)) + Catch ex As Exception + Console.WriteLine("Err JsonConvert" & ex.Message) + End Try Return dest End Function diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 4e40868..d0df057 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -110,6 +110,7 @@ + @@ -355,6 +356,9 @@ Designer + + Designer + Designer