From 2ca938a997b2b9000f0b2b28aa1c696fd1b7d21a Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 27 Apr 2026 08:16:27 +0200 Subject: [PATCH] sumA --- .../SummarischeAnmeldung_001.Designer.vb | 3726 +++++++++++++++++ .../SummarischeAnmeldung_001.xsd | 332 ++ DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 4 + UID/My Project/AssemblyInfo.vb | 4 +- UID/usrctlProcedures.Designer.vb | 34 +- UID/usrctlProcedures.vb | 6 + .../frmDYNachrichtenVerarbeitung.vb | 146 +- 7 files changed, 4175 insertions(+), 77 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.xsd diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb new file mode 100644 index 0000000..405cf8b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb @@ -0,0 +1,3726 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"SummarischeAnmeldung_001","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 SummarischeAnmeldung_001 + + + Partial Public Class SummarischeAnmeldungVVTyp + Inherits DatenaustauschSumAInTyp + +#Region "Private fields" + Private _einzelSummarischeAnmeldung As EinzelSummarischeAnmledungTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelSummarischeAnmeldung = New EinzelSummarischeAnmledungTyp() + End Sub + + + Public Property EinzelSummarischeAnmeldung() As EinzelSummarischeAnmledungTyp + Get + Return Me._einzelSummarischeAnmeldung + End Get + Set + Me._einzelSummarischeAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SummarischeAnmeldungVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SummarischeAnmeldungVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SummarischeAnmeldungVVTyp object + ''' + ''' string to deserialize + ''' Output SummarischeAnmeldungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummarischeAnmeldungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummarischeAnmeldungVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummarischeAnmeldungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SummarischeAnmeldungVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SummarischeAnmeldungVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SummarischeAnmeldungVVTyp + Return CType(SerializerXml.Deserialize(s), SummarischeAnmeldungVVTyp) + End Function +#End Region + + ''' + ''' Serializes current SummarischeAnmeldungVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SummarischeAnmeldungVVTyp object + ''' + ''' File to load and deserialize + ''' Output SummarischeAnmeldungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummarischeAnmeldungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SummarischeAnmeldungVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummarischeAnmeldungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SummarischeAnmeldungVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelSummarischeAnmledungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVVTyp + + Private _kopfDaten As KopfDatenSummarischeAnmeldungTyp + + Private _position As List(Of PositionSummarischeAnmeldungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionSummarischeAnmeldungTyp)() + Me._kopfDaten = New KopfDatenSummarischeAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVVTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVVTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenSummarischeAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionSummarischeAnmeldungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelSummarischeAnmledungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelSummarischeAnmledungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelSummarischeAnmledungTyp object + ''' + ''' string to deserialize + ''' Output EinzelSummarischeAnmledungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSummarischeAnmledungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSummarischeAnmledungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSummarischeAnmledungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelSummarischeAnmledungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelSummarischeAnmledungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelSummarischeAnmledungTyp + Return CType(SerializerXml.Deserialize(s), EinzelSummarischeAnmledungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelSummarischeAnmledungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelSummarischeAnmledungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelSummarischeAnmledungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSummarischeAnmledungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSummarischeAnmledungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSummarischeAnmledungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelSummarischeAnmledungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungVVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAliasname As String + + Private _bezugsnummerVorblendung As String + + Private _kopieVon As String + + Private _objektAktion As List(Of String) + + Private _compliancePruefung As String + + Private _bearbeiter 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 ObjektAliasname() As String + Get + Return Me._objektAliasname + End Get + Set + Me._objektAliasname = 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 KopieVon() As String + Get + Return Me._kopieVon + End Get + Set + Me._kopieVon = Value + End Set + End Property + + + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set + Me._objektAktion = Value + End Set + End Property + + + Public Property CompliancePruefung() As String + Get + Return Me._compliancePruefung + End Get + Set + Me._compliancePruefung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property 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(ObjektIdentifizierungVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungVVTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungVVTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungVVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVVTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PostbehaelterVVTyp + +#Region "Private fields" + Private _postbehaelterID As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property PostbehaelterID() As String + Get + Return Me._postbehaelterID + End Get + Set + Me._postbehaelterID = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PostbehaelterVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PostbehaelterVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PostbehaelterVVTyp object + ''' + ''' string to deserialize + ''' Output PostbehaelterVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostbehaelterVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PostbehaelterVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostbehaelterVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PostbehaelterVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PostbehaelterVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PostbehaelterVVTyp + Return CType(SerializerXml.Deserialize(s), PostbehaelterVVTyp) + End Function +#End Region + + ''' + ''' Serializes current PostbehaelterVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PostbehaelterVVTyp object + ''' + ''' File to load and deserialize + ''' Output PostbehaelterVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostbehaelterVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PostbehaelterVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostbehaelterVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PostbehaelterVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportausruestungVVTyp + +#Region "Private fields" + Private _containernummer As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Containernummer() As String + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportausruestungVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportausruestungVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportausruestungVVTyp object + ''' + ''' string to deserialize + ''' Output TransportausruestungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportausruestungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportausruestungVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportausruestungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportausruestungVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportausruestungVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportausruestungVVTyp + Return CType(SerializerXml.Deserialize(s), TransportausruestungVVTyp) + End Function +#End Region + + ''' + ''' Serializes current TransportausruestungVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportausruestungVVTyp object + ''' + ''' File to load and deserialize + ''' Output TransportausruestungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportausruestungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportausruestungVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportausruestungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportausruestungVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportdokumentSammelsendungVVTyp + +#Region "Private fields" + Private _art As String + + Private _nummer 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 Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportdokumentSammelsendungVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportdokumentSammelsendungVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportdokumentSammelsendungVVTyp object + ''' + ''' string to deserialize + ''' Output TransportdokumentSammelsendungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentSammelsendungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportdokumentSammelsendungVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentSammelsendungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportdokumentSammelsendungVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportdokumentSammelsendungVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportdokumentSammelsendungVVTyp + Return CType(SerializerXml.Deserialize(s), TransportdokumentSammelsendungVVTyp) + End Function +#End Region + + ''' + ''' Serializes current TransportdokumentSammelsendungVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportdokumentSammelsendungVVTyp object + ''' + ''' File to load and deserialize + ''' Output TransportdokumentSammelsendungVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentSammelsendungVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportdokumentSammelsendungVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentSammelsendungVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportdokumentSammelsendungVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportdokumentVVTyp + +#Region "Private fields" + Private _art As String + + Private _nummer 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 Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportdokumentVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportdokumentVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportdokumentVVTyp object + ''' + ''' string to deserialize + ''' Output TransportdokumentVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportdokumentVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportdokumentVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportdokumentVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportdokumentVVTyp + Return CType(SerializerXml.Deserialize(s), TransportdokumentVVTyp) + End Function +#End Region + + ''' + ''' Serializes current TransportdokumentVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportdokumentVVTyp object + ''' + ''' File to load and deserialize + ''' Output TransportdokumentVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportdokumentVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportdokumentVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PositionSummarischeAnmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _versendungsland As String + + Private _bestimmungsort As String + + Private _zollStatusWare As String + + Private _artSpO As String + + Private _spezifischerOrdnungsbegriff As String + + Private _artPackstuecke As String + + Private _stueckzahl As String + + Private _rohmasse As String + + Private _warenbeschreibung As String + + Private _warenkreis As String + + Private _verwahrerEORI As String + + Private _verwahrerNLNR As String + + Private _verwahrer As String + + Private _schluesselVerwahrungsort As String + + Private _verwahrerBewilligung As String + + Private _verfuegungsberechtigterEORI As String + + Private _verfuegungsberechtigterNLNR As String + + Private _verfuegungsberechtigter As String + + Private _unterdrueckungVerwahrungsmitteilung As String + + Private _mRNEingangSumA As String + + Private _mRNPosition As String + + Private _kZFreizone As String + + Private _poUSMRN As String + + Private _poUSPositionsnummer As String + + Private _transportdokument As TransportdokumentVVTyp + + Private _transportdokumentSammelsendung As TransportdokumentSammelsendungVVTyp + + Private _befoerdererEORI As String + + Private _transportausruestung As TransportausruestungVVTyp + + Private _postbehaelter As PostbehaelterVVTyp + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._postbehaelter = New PostbehaelterVVTyp() + Me._transportausruestung = New TransportausruestungVVTyp() + Me._transportdokumentSammelsendung = New TransportdokumentSammelsendungVVTyp() + Me._transportdokument = New TransportdokumentVVTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Versendungsland() As String + Get + Return Me._versendungsland + End Get + Set + Me._versendungsland = Value + End Set + End Property + + + Public Property Bestimmungsort() As String + Get + Return Me._bestimmungsort + End Get + Set + Me._bestimmungsort = Value + End Set + End Property + + + Public Property ZollStatusWare() As String + Get + Return Me._zollStatusWare + End Get + Set + Me._zollStatusWare = Value + End Set + End Property + + + Public Property ArtSpO() As String + Get + Return Me._artSpO + End Get + Set + Me._artSpO = Value + End Set + End Property + + + Public Property SpezifischerOrdnungsbegriff() As String + Get + Return Me._spezifischerOrdnungsbegriff + End Get + Set + Me._spezifischerOrdnungsbegriff = Value + End Set + End Property + + + Public Property ArtPackstuecke() As String + Get + Return Me._artPackstuecke + End Get + Set + Me._artPackstuecke = Value + End Set + End Property + + + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set + Me._stueckzahl = Value + End Set + End Property + + + Public Property Rohmasse() As String + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Warenbeschreibung() As String + Get + Return Me._warenbeschreibung + End Get + Set + Me._warenbeschreibung = Value + End Set + End Property + + + Public Property Warenkreis() As String + Get + Return Me._warenkreis + End Get + Set + Me._warenkreis = 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 VerwahrerNLNR() As String + Get + Return Me._verwahrerNLNR + End Get + Set + Me._verwahrerNLNR = Value + End Set + End Property + + + Public Property Verwahrer() As String + Get + Return Me._verwahrer + End Get + Set + Me._verwahrer = Value + End Set + End Property + + + Public Property SchluesselVerwahrungsort() As String + Get + Return Me._schluesselVerwahrungsort + End Get + Set + Me._schluesselVerwahrungsort = Value + End Set + End Property + + + Public Property VerwahrerBewilligung() As String + Get + Return Me._verwahrerBewilligung + End Get + Set + Me._verwahrerBewilligung = Value + End Set + End Property + + + Public Property VerfuegungsberechtigterEORI() As String + Get + Return Me._verfuegungsberechtigterEORI + End Get + Set + Me._verfuegungsberechtigterEORI = Value + End Set + End Property + + + Public Property VerfuegungsberechtigterNLNR() As String + Get + Return Me._verfuegungsberechtigterNLNR + End Get + Set + Me._verfuegungsberechtigterNLNR = Value + End Set + End Property + + + Public Property Verfuegungsberechtigter() As String + Get + Return Me._verfuegungsberechtigter + End Get + Set + Me._verfuegungsberechtigter = Value + End Set + End Property + + + Public Property UnterdrueckungVerwahrungsmitteilung() As String + Get + Return Me._unterdrueckungVerwahrungsmitteilung + End Get + Set + Me._unterdrueckungVerwahrungsmitteilung = Value + End Set + End Property + + + Public Property MRNEingangSumA() As String + Get + Return Me._mRNEingangSumA + End Get + Set + Me._mRNEingangSumA = Value + End Set + End Property + + + Public Property MRNPosition() As String + Get + Return Me._mRNPosition + End Get + Set + Me._mRNPosition = Value + End Set + End Property + + + Public Property KZFreizone() As String + Get + Return Me._kZFreizone + End Get + Set + Me._kZFreizone = Value + End Set + End Property + + + Public Property PoUSMRN() As String + Get + Return Me._poUSMRN + End Get + Set + Me._poUSMRN = Value + End Set + End Property + + + Public Property PoUSPositionsnummer() As String + Get + Return Me._poUSPositionsnummer + End Get + Set + Me._poUSPositionsnummer = Value + End Set + End Property + + + Public Property Transportdokument() As TransportdokumentVVTyp + Get + Return Me._transportdokument + End Get + Set + Me._transportdokument = Value + End Set + End Property + + + Public Property TransportdokumentSammelsendung() As TransportdokumentSammelsendungVVTyp + Get + Return Me._transportdokumentSammelsendung + End Get + Set + Me._transportdokumentSammelsendung = Value + End Set + End Property + + + Public Property BefoerdererEORI() As String + Get + Return Me._befoerdererEORI + End Get + Set + Me._befoerdererEORI = Value + End Set + End Property + + + Public Property Transportausruestung() As TransportausruestungVVTyp + Get + Return Me._transportausruestung + End Get + Set + Me._transportausruestung = Value + End Set + End Property + + + Public Property Postbehaelter() As PostbehaelterVVTyp + Get + Return Me._postbehaelter + End Get + Set + Me._postbehaelter = 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(PositionSummarischeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PositionSummarischeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PositionSummarischeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionSummarischeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSummarischeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSummarischeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSummarischeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionSummarischeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionSummarischeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionSummarischeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSummarischeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PositionSummarischeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionSummarischeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSummarischeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSummarischeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionSummarischeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataType + +#Region "Private fields" + Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsDataType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class BefoerderungsmittelVVTyp + +#Region "Private fields" + Private _artCode As String + + Private _beschreibungSonstiges As String + + Private _kennzeichen 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 BeschreibungSonstiges() As String + Get + Return Me._beschreibungSonstiges + End Get + Set + Me._beschreibungSonstiges = Value + End Set + End Property + + + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize BefoerderungsmittelVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes BefoerderungsmittelVVTyp object + ''' + ''' string to deserialize + ''' Output BefoerderungsmittelVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As BefoerderungsmittelVVTyp + Return CType(SerializerXml.Deserialize(s), BefoerderungsmittelVVTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelVVTyp object + ''' + ''' File to load and deserialize + ''' Output BefoerderungsmittelVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefoerderungsmittelVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdresseVVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _zollnummer As String + + Private _nameFirma As String + + Private _nationalitaet As String + + Private _strasseHausnummer As String + + Private _postleitzahlS As String + + Private _ortS As String + + Private _ortsteil As String + + Private _postfach As String + + Private _postleitzahlP As String + + Private _ortP 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 Zollnummer() As String + Get + Return Me._zollnummer + End Get + Set + Me._zollnummer = Value + End Set + End Property + + + Public Property NameFirma() As String + Get + Return Me._nameFirma + End Get + Set + Me._nameFirma = Value + End Set + End Property + + + Public Property Nationalitaet() As String + Get + Return Me._nationalitaet + End Get + Set + Me._nationalitaet = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property PostleitzahlS() As String + Get + Return Me._postleitzahlS + End Get + Set + Me._postleitzahlS = Value + End Set + End Property + + + Public Property OrtS() As String + Get + Return Me._ortS + End Get + Set + Me._ortS = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + + Public Property Postfach() As String + Get + Return Me._postfach + End Get + Set + Me._postfach = Value + End Set + End Property + + + Public Property PostleitzahlP() As String + Get + Return Me._postleitzahlP + End Get + Set + Me._postleitzahlP = Value + End Set + End Property + + + Public Property OrtP() As String + Get + Return Me._ortP + End Get + Set + Me._ortP = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdresseVVTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdresseVVTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdresseVVTyp object + ''' + ''' string to deserialize + ''' Output AdresseVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseVVTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdresseVVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdresseVVTyp + Return CType(SerializerXml.Deserialize(s), AdresseVVTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseVVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdresseVVTyp object + ''' + ''' File to load and deserialize + ''' Output AdresseVVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdresseVVTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenSummarischeAnmeldungTyp + +#Region "Private fields" + Private _dienststelle As String + + Private _gestellender As AdresseVVTyp + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreter As String + + Private _bearbeiterName As String + + Private _bearbeiterStellungFirma As String + + Private _bearbeiterTelefonNr As String + + Private _bearbeiterEmailAdresse As String + + Private _vorzeitigKz As String + + Private _gestellungsdatum As Date + + Private _gestellungsuhrzeit As Date + + Private _nCTSVersandKz As String + + Private _seeverkehrKz As String + + Private _befoerderungsmittel As BefoerderungsmittelVVTyp + + Private _nummerBefoerderung As String + + Private _ankunftsdatum As String + + Private _abgangsstelleBeladeort As String + + Private _gesamtContainerAnz As String + + Private _vorpapierart As String + + Private _vorpapiernummer As String + + Private _verkehrszweigGrenze As String + + Private _ersteEingangsZollstelleAngemeldet As String + + Private _ersteEingangsZollstelleKennzeichen As String + + Private _zusatzAngabenAnmeldung As String + + Private _applicationInternalData As ApplicationInternalDataType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicationInternalData = New ApplicationInternalDataType() + Me._befoerderungsmittel = New BefoerderungsmittelVVTyp() + Me._gestellender = New AdresseVVTyp() + End Sub + + + Public Property Dienststelle() As String + Get + Return Me._dienststelle + End Get + Set + Me._dienststelle = Value + End Set + End Property + + + Public Property Gestellender() As AdresseVVTyp + Get + Return Me._gestellender + End Get + Set + Me._gestellender = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property Vertreter() As String + Get + Return Me._vertreter + End Get + Set + Me._vertreter = Value + End Set + End Property + + + Public Property BearbeiterName() As String + Get + Return Me._bearbeiterName + End Get + Set + Me._bearbeiterName = Value + End Set + End Property + + + Public Property BearbeiterStellungFirma() As String + Get + Return Me._bearbeiterStellungFirma + End Get + Set + Me._bearbeiterStellungFirma = Value + End Set + End Property + + + Public Property BearbeiterTelefonNr() As String + Get + Return Me._bearbeiterTelefonNr + End Get + Set + Me._bearbeiterTelefonNr = Value + End Set + End Property + + + Public Property BearbeiterEmailAdresse() As String + Get + Return Me._bearbeiterEmailAdresse + End Get + Set + Me._bearbeiterEmailAdresse = Value + End Set + End Property + + + Public Property VorzeitigKz() As String + Get + Return Me._vorzeitigKz + End Get + Set + Me._vorzeitigKz = Value + End Set + End Property + + + Public Property Gestellungsdatum() As Date + Get + Return Me._gestellungsdatum + End Get + Set + Me._gestellungsdatum = Value + End Set + End Property + + + Public Property Gestellungsuhrzeit() As Date + Get + Return Me._gestellungsuhrzeit + End Get + Set + Me._gestellungsuhrzeit = Value + End Set + End Property + + + Public Property NCTSVersandKz() As String + Get + Return Me._nCTSVersandKz + End Get + Set + Me._nCTSVersandKz = Value + End Set + End Property + + + Public Property SeeverkehrKz() As String + Get + Return Me._seeverkehrKz + End Get + Set + Me._seeverkehrKz = Value + End Set + End Property + + + Public Property Befoerderungsmittel() As BefoerderungsmittelVVTyp + Get + Return Me._befoerderungsmittel + End Get + Set + Me._befoerderungsmittel = Value + End Set + End Property + + + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set + Me._nummerBefoerderung = Value + End Set + End Property + + + Public Property Ankunftsdatum() As String + Get + Return Me._ankunftsdatum + End Get + Set + Me._ankunftsdatum = Value + End Set + End Property + + + Public Property AbgangsstelleBeladeort() As String + Get + Return Me._abgangsstelleBeladeort + End Get + Set + Me._abgangsstelleBeladeort = Value + End Set + End Property + + + Public Property GesamtContainerAnz() As String + Get + Return Me._gesamtContainerAnz + End Get + Set + Me._gesamtContainerAnz = 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 Vorpapiernummer() As String + Get + Return Me._vorpapiernummer + End Get + Set + Me._vorpapiernummer = 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 ErsteEingangsZollstelleAngemeldet() As String + Get + Return Me._ersteEingangsZollstelleAngemeldet + End Get + Set + Me._ersteEingangsZollstelleAngemeldet = Value + End Set + End Property + + + Public Property ErsteEingangsZollstelleKennzeichen() As String + Get + Return Me._ersteEingangsZollstelleKennzeichen + End Get + Set + Me._ersteEingangsZollstelleKennzeichen = Value + End Set + End Property + + + Public Property ZusatzAngabenAnmeldung() As String + Get + Return Me._zusatzAngabenAnmeldung + End Get + Set + Me._zusatzAngabenAnmeldung = Value + End Set + End Property + + + Public Property 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(KopfDatenSummarischeAnmeldungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenSummarischeAnmeldungTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenSummarischeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenSummarischeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSummarischeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenSummarischeAnmeldungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenSummarischeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenSummarischeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenSummarischeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenSummarischeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenSummarischeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenSummarischeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSummarischeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenSummarischeAnmeldungTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionSumAInTyp + +#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(TransaktionSumAInTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionSumAInTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionSumAInTyp object + ''' + ''' string to deserialize + ''' Output TransaktionSumAInTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAInTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAInTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAInTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionSumAInTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionSumAInTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionSumAInTyp + Return CType(SerializerXml.Deserialize(s), TransaktionSumAInTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionSumAInTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionSumAInTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionSumAInTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAInTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAInTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAInTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionSumAInTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschSumAInTyp + +#Region "Private fields" + Private _transaktion As TransaktionSumAInTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionSumAInTyp() + End Sub + + + Public Property Transaktion() As TransaktionSumAInTyp + 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(DatenaustauschSumAInTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschSumAInTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschSumAInTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschSumAInTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAInTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAInTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAInTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschSumAInTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschSumAInTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschSumAInTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschSumAInTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschSumAInTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschSumAInTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschSumAInTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAInTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAInTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAInTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschSumAInTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (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/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.xsd new file mode 100644 index 0000000..de5ad9b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.xsd @@ -0,0 +1,332 @@ + + + + + Version 001 - Release 015 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index d0df057..eea2309 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -165,6 +165,7 @@ + @@ -494,6 +495,9 @@ Designer + + Designer + Designer diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index b538c8f..3c621af 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index 50f3d15..5648efb 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/UID/usrctlProcedures.Designer.vb @@ -111,6 +111,7 @@ Partial Class usrctlProcedures Me.TabPage9 = New System.Windows.Forms.TabPage() Me.btnT1Data = New System.Windows.Forms.Button() Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.cbxCD_Overwrite = New System.Windows.Forms.CheckBox() Me.btnDHF_UNISPEDtoVERAEZA_File = New System.Windows.Forms.Button() Me.btnDHFtoVERAEZA_File = New System.Windows.Forms.Button() Me.btnTCtoVERAEZA_File = New System.Windows.Forms.Button() @@ -176,7 +177,7 @@ Partial Class usrctlProcedures Me.Button99 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cbxCD_Overwrite = New System.Windows.Forms.CheckBox() + Me.Button55 = New System.Windows.Forms.Button() Me.tbTRStat.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -1079,6 +1080,18 @@ Partial Class usrctlProcedures Me.TabPage10.Text = "TabPageDY" Me.TabPage10.UseVisualStyleBackColor = True ' + 'cbxCD_Overwrite + ' + Me.cbxCD_Overwrite.AutoSize = True + Me.cbxCD_Overwrite.Checked = True + Me.cbxCD_Overwrite.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxCD_Overwrite.Location = New System.Drawing.Point(517, 16) + Me.cbxCD_Overwrite.Name = "cbxCD_Overwrite" + Me.cbxCD_Overwrite.Size = New System.Drawing.Size(69, 17) + Me.cbxCD_Overwrite.TabIndex = 50 + Me.cbxCD_Overwrite.Text = "overwrite" + Me.cbxCD_Overwrite.UseVisualStyleBackColor = True + ' 'btnDHF_UNISPEDtoVERAEZA_File ' Me.btnDHF_UNISPEDtoVERAEZA_File.Location = New System.Drawing.Point(448, 225) @@ -1666,22 +1679,20 @@ Partial Class usrctlProcedures Me.DataGridViewTextBoxColumn2.HeaderText = "anz" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'cbxCD_Overwrite + 'Button55 ' - Me.cbxCD_Overwrite.AutoSize = True - Me.cbxCD_Overwrite.Checked = True - Me.cbxCD_Overwrite.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxCD_Overwrite.Location = New System.Drawing.Point(517, 16) - Me.cbxCD_Overwrite.Name = "cbxCD_Overwrite" - Me.cbxCD_Overwrite.Size = New System.Drawing.Size(69, 17) - Me.cbxCD_Overwrite.TabIndex = 50 - Me.cbxCD_Overwrite.Text = "overwrite" - Me.cbxCD_Overwrite.UseVisualStyleBackColor = True + Me.Button55.Location = New System.Drawing.Point(763, 29) + Me.Button55.Name = "Button55" + Me.Button55.Size = New System.Drawing.Size(145, 49) + Me.Button55.TabIndex = 67 + Me.Button55.Text = "TEST T1" + Me.Button55.UseVisualStyleBackColor = True ' 'usrctlProcedures ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Button55) Me.Controls.Add(Me.Button99) Me.Controls.Add(Me.Button43) Me.Controls.Add(Me.lblStatus) @@ -1917,4 +1928,5 @@ Partial Class usrctlProcedures Friend WithEvents btnDHFtoVERAEZA_File As Button Friend WithEvents btnTCtoVERAEZA_File As Button Friend WithEvents cbxCD_Overwrite As CheckBox + Friend WithEvents Button55 As Button End Class diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 7247cad..8a455c4 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -4732,6 +4732,12 @@ OPTION (MAXRECURSION 1000);", "AVISO") ' Next End Sub + Private Sub Button55_Click_2(sender As Object, e As EventArgs) Handles Button55.Click + Dim readT1 As New VERAG_PROG_ALLGEMEIN.cATEZ_Read_T1 + Dim path As String = "D:\Andreas\TMP\TEST_READ.pdf" + readT1.TEST(path) + End Sub + 'Private Sub Button26_Click(sender As Object, e As EventArgs) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 7ddf207..c0f117c 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -5875,18 +5875,21 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO", -1) - 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.AES_NachfrageVerbleib - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127,,, True, "ZOLL") + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) - End Select + '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.AES_NachfrageVerbleib + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127,,, True, "ZOLL") + + End Select + End If End If Catch ex As Exception @@ -7625,20 +7628,23 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) + + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) - 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 - Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") - End Select + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau + Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") + End Select + End If End If Catch ex As Exception @@ -7683,19 +7689,22 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) ' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben - Select Case statusAVISO - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - 'Nicht - Case Else - Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung - Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") - End Select - ' End If + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) + + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung + Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") + End Select + ' End If + End If End If Catch ex As Exception @@ -7749,20 +7758,23 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then ' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!! - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) 'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") 'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben - Select Case statusAVISO - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - 'Nicht - Case Else - Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung - Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") - End Select - ' End If - ' End If + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) + + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung + Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") + End Select + ' End If + ' End If + End If End If Catch ex As Exception @@ -7953,19 +7965,23 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) + + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) - 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 - Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") - End Select - End If + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau + Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") + End Select + End If + End If + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_DokBeschau - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -8075,18 +8091,20 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then ' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!! - Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1) 'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") 'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben - Select Case statusAVISO - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - 'Nicht - Case Else - Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung - Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126,,, True, "ZOLL") - End Select + If IsNumeric(statusAVISO) Then + Select Case CInt(statusAVISO) + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung + Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), "")) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126,,, True, "ZOLL") + End Select + End If ' End If ' End If End If