From 52feeaa603bafd6823872a72fa47e66aa623d221 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 2 Jan 2024 11:30:18 +0100 Subject: [PATCH] Div. Dakosy Nachrichten --- ...ltigkeitSicherheitenNCTSDE_004.Designer.vb | 2622 +++++++++-------- ...ittungEingangsverarbeitung_005.Designer.vb | 1525 ++++++++++ .../QuittungEingangsverarbeitung_005.xsd | 95 + DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 4 + DAKOSY_Worker/cDY_Statusliste.vb | 1 + DAKOSY_Worker/cDakosy_Statusmeldungen.vb | 3 +- .../My Project/Application.Designer.vb | 3 +- initATLASAufschubkonten/cGetMsgType.vb | 12 + initATLASAufschubkonten/cWorker_NCTS.vb | 52 +- .../frmDYNachrichtenVerarbeitung.vb | 119 +- initATLASAufschubkonten/frmStartOptions.vb | 15 +- 11 files changed, 3237 insertions(+), 1214 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.Designer.vb create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb index aa958b0..f33cf46 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net45","NameSpace":"UngueltigkeitSicherheitenNCTSDE_004","Language":"VisualBasic","CollectionBase":"","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{"EnableWarning":true}} +'' {"TargetFramework":"Net45","NameSpace":"UngueltigkeitSicherheitenNCTSDE_004","Language":"VisualBasic","CollectionBase":"","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"EnableWarning":true}} '' '' ------------------------------------------------------------------------------ Imports System @@ -17,31 +17,36 @@ Imports System.Text Imports System.Collections.Generic Namespace UngueltigkeitSicherheitenNCTSDE_004 - - _ + + Partial Public Class UngueltigkeitSicherheitenMITyp Inherits DatenaustauschNCTSTyp - - #Region "Private fields" + +#Region "Private fields" Private _einzelUngueltigkeitSicherheiten As EinzelUngueltigkeitSicherheitenTyp - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + Public Sub New() MyBase.New Me._einzelUngueltigkeitSicherheiten = New EinzelUngueltigkeitSicherheitenTyp() End Sub - + + Public Property EinzelUngueltigkeitSicherheiten() As EinzelUngueltigkeitSicherheitenTyp Get Return Me._einzelUngueltigkeitSicherheiten End Get Set - Me._einzelUngueltigkeitSicherheiten = value + Me._einzelUngueltigkeitSicherheiten = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -50,35 +55,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize UngueltigkeitSicherheitenMITyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes UngueltigkeitSicherheitenMITyp object ''' @@ -89,69 +99,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp) 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 UngueltigkeitSicherheitenMITyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),UngueltigkeitSicherheitenMITyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UngueltigkeitSicherheitenMITyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As UngueltigkeitSicherheitenMITyp - Return CType(SerializerXml.Deserialize(s),UngueltigkeitSicherheitenMITyp) + Return CType(SerializerXml.Deserialize(s), UngueltigkeitSicherheitenMITyp) End Function - #End Region - +#End Region + ''' ''' Serializes current UngueltigkeitSicherheitenMITyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an UngueltigkeitSicherheitenMITyp object ''' @@ -159,91 +176,105 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output UngueltigkeitSicherheitenMITyp 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 UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UngueltigkeitSicherheitenMITyp) 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 UngueltigkeitSicherheitenMITyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UngueltigkeitSicherheitenMITyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class EinzelUngueltigkeitSicherheitenTyp - - #Region "Private fields" + +#Region "Private fields" Private _objektIdentifizierung As ObjektIdentifizierungMITyp - + Private _kopfDaten As KopfDatenUngueltigkeitSicherheitenTyp - + Private _transitOperation As TransitOperationMIType - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + Public Sub New() MyBase.New Me._transitOperation = New TransitOperationMIType() Me._kopfDaten = New KopfDatenUngueltigkeitSicherheitenTyp() Me._objektIdentifizierung = New ObjektIdentifizierungMITyp() End Sub - + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMITyp Get Return Me._objektIdentifizierung End Get Set - Me._objektIdentifizierung = value + Me._objektIdentifizierung = Value End Set End Property - + + Public Property KopfDaten() As KopfDatenUngueltigkeitSicherheitenTyp Get Return Me._kopfDaten End Get Set - Me._kopfDaten = value + Me._kopfDaten = Value End Set End Property - + + Public Property TransitOperation() As TransitOperationMIType Get Return Me._transitOperation End Get Set - Me._transitOperation = value + Me._transitOperation = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -252,35 +283,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize EinzelUngueltigkeitSicherheitenTyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes EinzelUngueltigkeitSicherheitenTyp object ''' @@ -291,69 +327,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp) 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 EinzelUngueltigkeitSicherheitenTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),EinzelUngueltigkeitSicherheitenTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelUngueltigkeitSicherheitenTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelUngueltigkeitSicherheitenTyp - Return CType(SerializerXml.Deserialize(s),EinzelUngueltigkeitSicherheitenTyp) + Return CType(SerializerXml.Deserialize(s), EinzelUngueltigkeitSicherheitenTyp) End Function - #End Region - +#End Region + ''' ''' Serializes current EinzelUngueltigkeitSicherheitenTyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an EinzelUngueltigkeitSicherheitenTyp object ''' @@ -361,106 +404,122 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output EinzelUngueltigkeitSicherheitenTyp 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 EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp) 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 EinzelUngueltigkeitSicherheitenTyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelUngueltigkeitSicherheitenTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class ObjektIdentifizierungMITyp - - #Region "Private fields" + +#Region "Private fields" Private _objektName As String - + Private _objektAlias As String - + Private _eDIFACTNachrichtenNr As String - + Private _zeitpunktEingang As Date - + Private _shipmentReferenz As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property ObjektName() As String Get Return Me._objektName End Get Set - Me._objektName = value + Me._objektName = Value End Set End Property - + + Public Property ObjektAlias() As String Get Return Me._objektAlias End Get Set - Me._objektAlias = value + Me._objektAlias = Value End Set End Property - + + Public Property EDIFACTNachrichtenNr() As String Get Return Me._eDIFACTNachrichtenNr End Get Set - Me._eDIFACTNachrichtenNr = value + Me._eDIFACTNachrichtenNr = Value End Set End Property - + + Public Property ZeitpunktEingang() As Date Get Return Me._zeitpunktEingang End Get Set - Me._zeitpunktEingang = value + Me._zeitpunktEingang = Value End Set End Property - + + Public Property ShipmentReferenz() As String Get Return Me._shipmentReferenz End Get Set - Me._shipmentReferenz = value + Me._shipmentReferenz = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -469,35 +528,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungMITyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes ObjektIdentifizierungMITyp object ''' @@ -508,69 +572,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungMITyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp) 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 ObjektIdentifizierungMITyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ObjektIdentifizierungMITyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMITyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungMITyp - Return CType(SerializerXml.Deserialize(s),ObjektIdentifizierungMITyp) + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungMITyp) End Function - #End Region - +#End Region + ''' ''' Serializes current ObjektIdentifizierungMITyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ObjektIdentifizierungMITyp object ''' @@ -578,73 +649,86 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output ObjektIdentifizierungMITyp 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 ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungMITyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMITyp) 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 ObjektIdentifizierungMITyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ObjektIdentifizierungMITyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class ApplicationInternalDataAdditionalDetailsDataType - - #Region "Private fields" + +#Region "Private fields" Private _key As String - + Private _value As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property Key() As String Get Return Me._key End Get Set - Me._key = value + Me._key = Value End Set End Property - + + Public Property Value() As String Get Return Me._value End Get Set - Me._value = value + Me._value = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -653,35 +737,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -692,69 +781,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + 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 + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataAdditionalDetailsDataType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + 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) + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType) End Function - #End Region - +#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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -762,67 +858,80 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' 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 + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ApplicationInternalDataAdditionalDetailsDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class ApplicationInternalDataType - - #Region "Private fields" + +#Region "Private fields" Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType) - + Private Shared _serializerXml As XmlSerializer - #End Region - +#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 + Me._additionalDetails = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -831,35 +940,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes ApplicationInternalDataType object ''' @@ -870,69 +984,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + 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 + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + 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) + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType) End Function - #End Region - +#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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ApplicationInternalDataType object ''' @@ -940,95 +1061,110 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' 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 + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ApplicationInternalDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class ErrorMIType - - #Region "Private fields" + +#Region "Private fields" Private _errorCode As String - + Private _errorText As String - + Private _errorPointer As String - + Private _originalAttributeValue As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property ErrorCode() As String Get Return Me._errorCode End Get Set - Me._errorCode = value + Me._errorCode = Value End Set End Property - + + Public Property ErrorText() As String Get Return Me._errorText End Get Set - Me._errorText = value + Me._errorText = Value End Set End Property - + + Public Property ErrorPointer() As String Get Return Me._errorPointer End Get Set - Me._errorPointer = value + Me._errorPointer = Value End Set End Property - + + Public Property OriginalAttributeValue() As String Get Return Me._originalAttributeValue End Get Set - Me._originalAttributeValue = value + Me._originalAttributeValue = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1037,35 +1173,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize ErrorMIType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes ErrorMIType object ''' @@ -1076,69 +1217,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErrorMIType) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorMIType) 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 ErrorMIType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ErrorMIType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorMIType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorMIType - Return CType(SerializerXml.Deserialize(s),ErrorMIType) + Return CType(SerializerXml.Deserialize(s), ErrorMIType) End Function - #End Region - +#End Region + ''' ''' Serializes current ErrorMIType 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an ErrorMIType object ''' @@ -1146,62 +1294,74 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output ErrorMIType 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 ErrorMIType, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ErrorMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErrorMIType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorMIType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorMIType) 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 ErrorMIType + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ErrorMIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class RepresentativeMIType - - #Region "Private fields" + +#Region "Private fields" Private _identificationNumber As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property IdentificationNumber() As String Get Return Me._identificationNumber End Get Set - Me._identificationNumber = value + Me._identificationNumber = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1210,35 +1370,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize RepresentativeMIType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes RepresentativeMIType object ''' @@ -1249,69 +1414,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, RepresentativeMIType) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeMIType) 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 RepresentativeMIType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),RepresentativeMIType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RepresentativeMIType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RepresentativeMIType - Return CType(SerializerXml.Deserialize(s),RepresentativeMIType) + Return CType(SerializerXml.Deserialize(s), RepresentativeMIType) End Function - #End Region - +#End Region + ''' ''' Serializes current RepresentativeMIType 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an RepresentativeMIType object ''' @@ -1319,117 +1491,134 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output RepresentativeMIType 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 RepresentativeMIType, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As RepresentativeMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, RepresentativeMIType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeMIType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeMIType) 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 RepresentativeMIType + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As RepresentativeMIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class HolderOfTheTransitProcedureMIType - - #Region "Private fields" + +#Region "Private fields" Private _identificationNumber As String - + Private _name As String - + Private _streetAndNumber As String - + Private _city As String - + Private _postcode As String - + Private _country As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property IdentificationNumber() As String Get Return Me._identificationNumber End Get Set - Me._identificationNumber = value + Me._identificationNumber = Value End Set End Property - + + Public Property Name() As String Get Return Me._name End Get Set - Me._name = value + Me._name = Value End Set End Property - + + Public Property StreetAndNumber() As String Get Return Me._streetAndNumber End Get Set - Me._streetAndNumber = value + Me._streetAndNumber = Value End Set End Property - + + Public Property City() As String Get Return Me._city End Get Set - Me._city = value + Me._city = Value End Set End Property - + + Public Property Postcode() As String Get Return Me._postcode End Get Set - Me._postcode = value + Me._postcode = Value End Set End Property - + + Public Property Country() As String Get Return Me._country End Get Set - Me._country = value + Me._country = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1438,35 +1627,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize HolderOfTheTransitProcedureMIType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes HolderOfTheTransitProcedureMIType object ''' @@ -1477,69 +1671,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HolderOfTheTransitProcedureMIType) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureMIType) 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 HolderOfTheTransitProcedureMIType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),HolderOfTheTransitProcedureMIType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HolderOfTheTransitProcedureMIType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HolderOfTheTransitProcedureMIType - Return CType(SerializerXml.Deserialize(s),HolderOfTheTransitProcedureMIType) + Return CType(SerializerXml.Deserialize(s), HolderOfTheTransitProcedureMIType) End Function - #End Region - +#End Region + ''' ''' Serializes current HolderOfTheTransitProcedureMIType 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an HolderOfTheTransitProcedureMIType object ''' @@ -1547,71 +1748,82 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output HolderOfTheTransitProcedureMIType 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 HolderOfTheTransitProcedureMIType, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As HolderOfTheTransitProcedureMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HolderOfTheTransitProcedureMIType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureMIType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureMIType) 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 HolderOfTheTransitProcedureMIType + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As HolderOfTheTransitProcedureMIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class TransitOperationMIType - - #Region "Private fields" + +#Region "Private fields" Private _departureStatus As String - + Private _rejectionCode As String - + Private _mRN As String - + Private _cancellationDecisionDateAndTime As Date - + Private _customsOfficeOfDeparture As String - + Private _holderOfTheTransitProcedure As HolderOfTheTransitProcedureMIType - + Private _representative As RepresentativeMIType - + Private _reason As String - + Private _error As List(Of ErrorMIType) - + Private _applicationInternalData As ApplicationInternalDataType - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + Public Sub New() MyBase.New Me._applicationInternalData = New ApplicationInternalDataType() @@ -1619,97 +1831,107 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Me._representative = New RepresentativeMIType() Me._holderOfTheTransitProcedure = New HolderOfTheTransitProcedureMIType() End Sub - + + Public Property DepartureStatus() As String Get Return Me._departureStatus End Get Set - Me._departureStatus = value + Me._departureStatus = Value End Set End Property - + + Public Property RejectionCode() As String Get Return Me._rejectionCode End Get Set - Me._rejectionCode = value + Me._rejectionCode = Value End Set End Property - + + Public Property MRN() As String Get Return Me._mRN End Get Set - Me._mRN = value + Me._mRN = Value End Set End Property - + + Public Property CancellationDecisionDateAndTime() As Date Get Return Me._cancellationDecisionDateAndTime End Get Set - Me._cancellationDecisionDateAndTime = value + Me._cancellationDecisionDateAndTime = Value End Set End Property - + + Public Property CustomsOfficeOfDeparture() As String Get Return Me._customsOfficeOfDeparture End Get Set - Me._customsOfficeOfDeparture = value + Me._customsOfficeOfDeparture = Value End Set End Property - + + Public Property HolderOfTheTransitProcedure() As HolderOfTheTransitProcedureMIType Get Return Me._holderOfTheTransitProcedure End Get Set - Me._holderOfTheTransitProcedure = value + Me._holderOfTheTransitProcedure = Value End Set End Property - + + Public Property Representative() As RepresentativeMIType Get Return Me._representative End Get Set - Me._representative = value + Me._representative = Value End Set End Property - + + Public Property Reason() As String Get Return Me._reason End Get Set - Me._reason = value + Me._reason = Value End Set End Property - + + Public Property [Error]() As List(Of ErrorMIType) Get Return Me._error End Get Set - Me._error = value + Me._error = Value End Set End Property - + + Public Property ApplicationInternalData() As ApplicationInternalDataType Get Return Me._applicationInternalData End Get Set - Me._applicationInternalData = value + Me._applicationInternalData = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1718,35 +1940,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize TransitOperationMIType object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes TransitOperationMIType object ''' @@ -1757,69 +1984,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransitOperationMIType) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationMIType) 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 TransitOperationMIType Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),TransitOperationMIType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitOperationMIType) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransitOperationMIType - Return CType(SerializerXml.Deserialize(s),TransitOperationMIType) + Return CType(SerializerXml.Deserialize(s), TransitOperationMIType) End Function - #End Region - +#End Region + ''' ''' Serializes current TransitOperationMIType 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an TransitOperationMIType object ''' @@ -1827,84 +2061,98 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output TransitOperationMIType 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 TransitOperationMIType, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As TransitOperationMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransitOperationMIType) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMIType, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMIType) 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 TransitOperationMIType + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As TransitOperationMIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class FehlermeldungMITyp - - #Region "Private fields" + +#Region "Private fields" Private _code As String - + Private _text As String - + Private _zeiger As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property Code() As String Get Return Me._code End Get Set - Me._code = value + Me._code = Value End Set End Property - + + Public Property Text() As String Get Return Me._text End Get Set - Me._text = value + Me._text = Value End Set End Property - + + Public Property Zeiger() As String Get Return Me._zeiger End Get Set - Me._zeiger = value + Me._zeiger = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -1913,35 +2161,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize FehlermeldungMITyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes FehlermeldungMITyp object ''' @@ -1952,69 +2205,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FehlermeldungMITyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp) 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 FehlermeldungMITyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FehlermeldungMITyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FehlermeldungMITyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As FehlermeldungMITyp - Return CType(SerializerXml.Deserialize(s),FehlermeldungMITyp) + Return CType(SerializerXml.Deserialize(s), FehlermeldungMITyp) End Function - #End Region - +#End Region + ''' ''' Serializes current FehlermeldungMITyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an FehlermeldungMITyp object ''' @@ -2022,84 +2282,98 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output FehlermeldungMITyp 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 FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FehlermeldungMITyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMITyp) 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 FehlermeldungMITyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FehlermeldungMITyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class SicherheitMITyp - - #Region "Private fields" + +#Region "Private fields" Private _gRN As String - + Private _codeUngueltigkeit As String - + Private _textUngueltigkeit As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property GRN() As String Get Return Me._gRN End Get Set - Me._gRN = value + Me._gRN = Value End Set End Property - + + Public Property CodeUngueltigkeit() As String Get Return Me._codeUngueltigkeit End Get Set - Me._codeUngueltigkeit = value + Me._codeUngueltigkeit = Value End Set End Property - + + Public Property TextUngueltigkeit() As String Get Return Me._textUngueltigkeit End Get Set - Me._textUngueltigkeit = value + Me._textUngueltigkeit = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -2108,35 +2382,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize SicherheitMITyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes SicherheitMITyp object ''' @@ -2147,69 +2426,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitMITyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp) 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 SicherheitMITyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),SicherheitMITyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SicherheitMITyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SicherheitMITyp - Return CType(SerializerXml.Deserialize(s),SicherheitMITyp) + Return CType(SerializerXml.Deserialize(s), SicherheitMITyp) End Function - #End Region - +#End Region + ''' ''' Serializes current SicherheitMITyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an SicherheitMITyp object ''' @@ -2217,106 +2503,122 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output SicherheitMITyp 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 SicherheitMITyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitMITyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMITyp) 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 SicherheitMITyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SicherheitMITyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class HauptverpflichteterAnsprechpartnerMITyp - - #Region "Private fields" + +#Region "Private fields" Private _sachbearbeiter As String - + Private _stellung As String - + Private _telefonnummer As String - + Private _telefaxnummer As String - + Private _emailAdresse As String - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + + Public Property Sachbearbeiter() As String Get Return Me._sachbearbeiter End Get Set - Me._sachbearbeiter = value + Me._sachbearbeiter = Value End Set End Property - + + Public Property Stellung() As String Get Return Me._stellung End Get Set - Me._stellung = value + Me._stellung = Value End Set End Property - + + Public Property Telefonnummer() As String Get Return Me._telefonnummer End Get Set - Me._telefonnummer = value + Me._telefonnummer = Value End Set End Property - + + Public Property Telefaxnummer() As String Get Return Me._telefaxnummer End Get Set - Me._telefaxnummer = value + Me._telefaxnummer = Value End Set End Property - + + Public Property EmailAdresse() As String Get Return Me._emailAdresse End Get Set - Me._emailAdresse = value + Me._emailAdresse = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -2325,35 +2627,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize HauptverpflichteterAnsprechpartnerMITyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes HauptverpflichteterAnsprechpartnerMITyp object ''' @@ -2364,69 +2671,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp) 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 HauptverpflichteterAnsprechpartnerMITyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),HauptverpflichteterAnsprechpartnerMITyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HauptverpflichteterAnsprechpartnerMITyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HauptverpflichteterAnsprechpartnerMITyp - Return CType(SerializerXml.Deserialize(s),HauptverpflichteterAnsprechpartnerMITyp) + Return CType(SerializerXml.Deserialize(s), HauptverpflichteterAnsprechpartnerMITyp) End Function - #End Region - +#End Region + ''' ''' Serializes current HauptverpflichteterAnsprechpartnerMITyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an HauptverpflichteterAnsprechpartnerMITyp object ''' @@ -2434,212 +2748,237 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output HauptverpflichteterAnsprechpartnerMITyp 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 HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp) 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 HauptverpflichteterAnsprechpartnerMITyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As HauptverpflichteterAnsprechpartnerMITyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class KopfDatenUngueltigkeitSicherheitenTyp - - #Region "Private fields" + +#Region "Private fields" Private _arbeitsnummer As String - + Private _zeitpunktUngueltigkeitUnwirksamkeit As Date - + Private _hauptverpflichteterEORI As String - + Private _hauptverpflichteterNLNR As String - + Private _hauptverpflichteterIDCarnet As String - + Private _hauptverpflichteterName As String - + Private _hauptverpflichteterStrasseHausnummer As String - + Private _hauptverpflichteterLand As String - + Private _hauptverpflichteterPLZ As String - + Private _hauptverpflichteterOrt As String - + Private _hauptverpflichteterAnsprechpartner As HauptverpflichteterAnsprechpartnerMITyp - + Private _grund As String - + Private _sicherheit As List(Of SicherheitMITyp) - + Private _fehlermeldung As List(Of FehlermeldungMITyp) - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + Public Sub New() MyBase.New Me._fehlermeldung = New List(Of FehlermeldungMITyp)() Me._sicherheit = New List(Of SicherheitMITyp)() Me._hauptverpflichteterAnsprechpartner = New HauptverpflichteterAnsprechpartnerMITyp() End Sub - + + Public Property Arbeitsnummer() As String Get Return Me._arbeitsnummer End Get Set - Me._arbeitsnummer = value + Me._arbeitsnummer = Value End Set End Property - + + Public Property ZeitpunktUngueltigkeitUnwirksamkeit() As Date Get Return Me._zeitpunktUngueltigkeitUnwirksamkeit End Get Set - Me._zeitpunktUngueltigkeitUnwirksamkeit = value + Me._zeitpunktUngueltigkeitUnwirksamkeit = Value End Set End Property - + + Public Property HauptverpflichteterEORI() As String Get Return Me._hauptverpflichteterEORI End Get Set - Me._hauptverpflichteterEORI = value + Me._hauptverpflichteterEORI = Value End Set End Property - + + Public Property HauptverpflichteterNLNR() As String Get Return Me._hauptverpflichteterNLNR End Get Set - Me._hauptverpflichteterNLNR = value + Me._hauptverpflichteterNLNR = Value End Set End Property - + + Public Property HauptverpflichteterIDCarnet() As String Get Return Me._hauptverpflichteterIDCarnet End Get Set - Me._hauptverpflichteterIDCarnet = value + Me._hauptverpflichteterIDCarnet = Value End Set End Property - + + Public Property HauptverpflichteterName() As String Get Return Me._hauptverpflichteterName End Get Set - Me._hauptverpflichteterName = value + Me._hauptverpflichteterName = Value End Set End Property - + + Public Property HauptverpflichteterStrasseHausnummer() As String Get Return Me._hauptverpflichteterStrasseHausnummer End Get Set - Me._hauptverpflichteterStrasseHausnummer = value + Me._hauptverpflichteterStrasseHausnummer = Value End Set End Property - + + Public Property HauptverpflichteterLand() As String Get Return Me._hauptverpflichteterLand End Get Set - Me._hauptverpflichteterLand = value + Me._hauptverpflichteterLand = Value End Set End Property - + + Public Property HauptverpflichteterPLZ() As String Get Return Me._hauptverpflichteterPLZ End Get Set - Me._hauptverpflichteterPLZ = value + Me._hauptverpflichteterPLZ = Value End Set End Property - + + Public Property HauptverpflichteterOrt() As String Get Return Me._hauptverpflichteterOrt End Get Set - Me._hauptverpflichteterOrt = value + Me._hauptverpflichteterOrt = Value End Set End Property - + + Public Property HauptverpflichteterAnsprechpartner() As HauptverpflichteterAnsprechpartnerMITyp Get Return Me._hauptverpflichteterAnsprechpartner End Get Set - Me._hauptverpflichteterAnsprechpartner = value + Me._hauptverpflichteterAnsprechpartner = Value End Set End Property - + + Public Property Grund() As String Get Return Me._grund End Get Set - Me._grund = value + Me._grund = Value End Set End Property - + + Public Property Sicherheit() As List(Of SicherheitMITyp) Get Return Me._sicherheit End Get Set - Me._sicherheit = value + Me._sicherheit = Value End Set End Property - + + Public Property Fehlermeldung() As List(Of FehlermeldungMITyp) Get Return Me._fehlermeldung End Get Set - Me._fehlermeldung = value + Me._fehlermeldung = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -2648,35 +2987,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenUngueltigkeitSicherheitenTyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes KopfDatenUngueltigkeitSicherheitenTyp object ''' @@ -2687,69 +3031,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp) 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 KopfDatenUngueltigkeitSicherheitenTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),KopfDatenUngueltigkeitSicherheitenTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenUngueltigkeitSicherheitenTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenUngueltigkeitSicherheitenTyp - Return CType(SerializerXml.Deserialize(s),KopfDatenUngueltigkeitSicherheitenTyp) + Return CType(SerializerXml.Deserialize(s), KopfDatenUngueltigkeitSicherheitenTyp) End Function - #End Region - +#End Region + ''' ''' Serializes current KopfDatenUngueltigkeitSicherheitenTyp 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an KopfDatenUngueltigkeitSicherheitenTyp object ''' @@ -2757,128 +3108,146 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output KopfDatenUngueltigkeitSicherheitenTyp 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 KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp) 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 KopfDatenUngueltigkeitSicherheitenTyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KopfDatenUngueltigkeitSicherheitenTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class TransaktionNCTSTyp - - #Region "Private fields" + +#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 - +#End Region + + Public Property IOPartner() As String Get Return Me._iOPartner End Get Set - Me._iOPartner = value + Me._iOPartner = Value End Set End Property - + + Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set - Me._iODivision1 = value + Me._iODivision1 = Value End Set End Property - + + Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set - Me._iODivision2 = value + Me._iODivision2 = Value End Set End Property - + + Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set - Me._iODivision3 = value + Me._iODivision3 = Value End Set End Property - + + Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set - Me._iOReferenz = value + Me._iOReferenz = Value End Set End Property - + + Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set - Me._iODatumZeit = value + Me._iODatumZeit = Value End Set End Property - + + Public Property Version() As String Get Return Me._version End Get Set - Me._version = value + Me._version = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -2887,35 +3256,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize TransaktionNCTSTyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes TransaktionNCTSTyp object ''' @@ -2926,69 +3300,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionNCTSTyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),TransaktionNCTSTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionNCTSTyp - Return CType(SerializerXml.Deserialize(s),TransaktionNCTSTyp) + Return CType(SerializerXml.Deserialize(s), TransaktionNCTSTyp) End Function - #End Region - +#End Region + ''' ''' Serializes current TransaktionNCTSTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false - Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an TransaktionNCTSTyp object ''' @@ -2996,67 +3377,80 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output TransaktionNCTSTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionNCTSTyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionNCTSTyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As TransaktionNCTSTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose + sr.Dispose() End If End Try End Function End Class - - _ + + Partial Public Class DatenaustauschNCTSTyp - - #Region "Private fields" + +#Region "Private fields" Private _transaktion As TransaktionNCTSTyp - + Private Shared _serializerXml As XmlSerializer - #End Region - +#End Region + Public Sub New() MyBase.New Me._transaktion = New TransaktionNCTSTyp() End Sub - + + Public Property Transaktion() As TransaktionNCTSTyp Get Return Me._transaktion End Get Set - Me._transaktion = value + Me._transaktion = Value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -3065,35 +3459,40 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - - #Region "Serialize/Deserialize" + +#Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschNCTSTyp object ''' ''' XML value - Public Overridable Function Serialize() As String + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing - Try + Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true + xmlWriterSettings.Encoding = encoding + xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) - streamReader = New StreamReader(memoryStream) + streamReader = New StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose + streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose + memoryStream.Dispose() End If End Try End Function - + + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + ''' ''' Deserializes DatenaustauschNCTSTyp object ''' @@ -3104,69 +3503,76 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschNCTSTyp) - Try + Try obj = Deserialize(input) - Return true + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function - + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp Dim stringReader As StringReader = Nothing - Try + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),DatenaustauschNCTSTyp) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose + stringReader.Dispose() End If End Try End Function - + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschNCTSTyp - Return CType(SerializerXml.Deserialize(s),DatenaustauschNCTSTyp) + Return CType(SerializerXml.Deserialize(s), DatenaustauschNCTSTyp) End Function - #End Region - +#End Region + ''' ''' Serializes current DatenaustauschNCTSTyp object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false - Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return true + Try + SaveToFile(fileName, encoding) + Return True Catch e As System.Exception exception = e - Return false + Return False End Try End Function - - Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize - Dim outputFile As FileInfo = New FileInfo(fileName) - streamWriter = outputFile.CreateText + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New StreamWriter(fileName, False, encoding) streamWriter.WriteLine(dataString) - streamWriter.Close + streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose + streamWriter.Dispose() End If End Try End Sub - + ''' ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object ''' @@ -3174,217 +3580,47 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 ''' Output DatenaustauschNCTSTyp object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false - Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschNCTSTyp) - Try - obj = LoadFromFile(fileName) - Return true + Try + obj = LoadFromFile(fileName, encoding) + Return True Catch ex As System.Exception exception = ex - Return false + Return False End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschNCTSTyp + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DatenaustauschNCTSTyp Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) - sr = New StreamReader(file) + sr = New StreamReader(file, encoding) Dim dataString As String = sr.ReadToEnd - sr.Close - file.Close + sr.Close() + file.Close() Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose + file.Dispose() End If If (Not (sr) Is Nothing) Then - sr.Dispose - End If - End Try - End Function - End Class - - _ - Partial Public Class ApplicationInternalDataAdditionalDetailsType - - #Region "Private fields" - Private _data As List(Of ApplicationInternalDataAdditionalDetailsDataType) - - Private Shared _serializerXml As XmlSerializer - #End Region - - Public Sub New() - MyBase.New - Me._data = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() - End Sub - - Public Property Data() As List(Of ApplicationInternalDataAdditionalDetailsDataType) - Get - Return Me._data - End Get - Set - Me._data = value - End Set - End Property - - Private Shared ReadOnly Property SerializerXml() As XmlSerializer - Get - If (_serializerXml Is Nothing) Then - _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsType)) - End If - Return _serializerXml - End Get - End Property - - #Region "Serialize/Deserialize" - ''' - ''' Serialize ApplicationInternalDataAdditionalDetailsType object - ''' - ''' XML value - Public Overridable Function Serialize() As String - Dim streamReader As StreamReader = Nothing - Dim memoryStream As MemoryStream = Nothing - Try - memoryStream = New MemoryStream() - Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() - xmlWriterSettings.Indent = true - xmlWriterSettings.IndentChars = " " - 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 ApplicationInternalDataAdditionalDetailsType object - ''' - ''' string to deserialize - ''' Output ApplicationInternalDataAdditionalDetailsType 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 ApplicationInternalDataAdditionalDetailsType, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsType) - 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 ApplicationInternalDataAdditionalDetailsType) 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 ApplicationInternalDataAdditionalDetailsType - Dim stringReader As StringReader = Nothing - Try - stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataAdditionalDetailsType) - 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 ApplicationInternalDataAdditionalDetailsType - Return CType(SerializerXml.Deserialize(s),ApplicationInternalDataAdditionalDetailsType) - End Function - #End Region - - ''' - ''' Serializes current ApplicationInternalDataAdditionalDetailsType 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 Overloads Overridable 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 Overloads Overridable 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 ApplicationInternalDataAdditionalDetailsType object - ''' - ''' File to load and deserialize - ''' Output ApplicationInternalDataAdditionalDetailsType 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 ApplicationInternalDataAdditionalDetailsType, ByRef exception As System.Exception) As Boolean - exception = Nothing - obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsType) - 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 ApplicationInternalDataAdditionalDetailsType) 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 ApplicationInternalDataAdditionalDetailsType - 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 + sr.Dispose() End If End Try End Function diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.Designer.vb new file mode 100644 index 0000000..3ae1832 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.Designer.vb @@ -0,0 +1,1525 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"QuittungEingangsverarbeitung_005","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 QuittungEingangsverarbeitung_005 + + + Partial Public Class QuittungEingangsverarbeitungBQTyp + Inherits DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _einzelQuittung As List(Of EinzelQuittungTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelQuittung = New List(Of EinzelQuittungTyp)() + End Sub + + + Public Property EinzelQuittung() As List(Of EinzelQuittungTyp) + Get + Return Me._einzelQuittung + End Get + Set + Me._einzelQuittung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QuittungEingangsverarbeitungBQTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QuittungEingangsverarbeitungBQTyp 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 QuittungEingangsverarbeitungBQTyp object + ''' + ''' string to deserialize + ''' Output QuittungEingangsverarbeitungBQTyp 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 QuittungEingangsverarbeitungBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungEingangsverarbeitungBQTyp) + 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 QuittungEingangsverarbeitungBQTyp) 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 QuittungEingangsverarbeitungBQTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QuittungEingangsverarbeitungBQTyp) + 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 QuittungEingangsverarbeitungBQTyp + Return CType(SerializerXml.Deserialize(s), QuittungEingangsverarbeitungBQTyp) + End Function +#End Region + + ''' + ''' Serializes current QuittungEingangsverarbeitungBQTyp 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 QuittungEingangsverarbeitungBQTyp object + ''' + ''' File to load and deserialize + ''' Output QuittungEingangsverarbeitungBQTyp 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 QuittungEingangsverarbeitungBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungEingangsverarbeitungBQTyp) + 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 QuittungEingangsverarbeitungBQTyp) 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 QuittungEingangsverarbeitungBQTyp + 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 EinzelQuittungTyp + +#Region "Private fields" + Private _transaktionsreferenz As String + + Private _quittungsobjekt As QuittungsObjektBQTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._quittungsobjekt = New QuittungsObjektBQTyp() + End Sub + + + Public Property Transaktionsreferenz() As String + Get + Return Me._transaktionsreferenz + End Get + Set + Me._transaktionsreferenz = Value + End Set + End Property + + + Public Property Quittungsobjekt() As QuittungsObjektBQTyp + Get + Return Me._quittungsobjekt + End Get + Set + Me._quittungsobjekt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelQuittungTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelQuittungTyp 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 EinzelQuittungTyp object + ''' + ''' string to deserialize + ''' Output EinzelQuittungTyp 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 EinzelQuittungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelQuittungTyp) + 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 EinzelQuittungTyp) 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 EinzelQuittungTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelQuittungTyp) + 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 EinzelQuittungTyp + Return CType(SerializerXml.Deserialize(s), EinzelQuittungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelQuittungTyp 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 EinzelQuittungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelQuittungTyp 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 EinzelQuittungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelQuittungTyp) + 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 EinzelQuittungTyp) 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 EinzelQuittungTyp + 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 QuittungsObjektBQTyp + +#Region "Private fields" + Private _quittungTech As List(Of QuittungTechBQTyp) + + Private _abbruchGrund As String + + Private _fehlerValidierung As List(Of String) + + Private _quittungFach As List(Of QuittungFachBQTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._quittungFach = New List(Of QuittungFachBQTyp)() + Me._fehlerValidierung = New List(Of String)() + Me._quittungTech = New List(Of QuittungTechBQTyp)() + End Sub + + + Public Property QuittungTech() As List(Of QuittungTechBQTyp) + Get + Return Me._quittungTech + End Get + Set + Me._quittungTech = Value + End Set + End Property + + + Public Property AbbruchGrund() As String + Get + Return Me._abbruchGrund + End Get + Set + Me._abbruchGrund = Value + End Set + End Property + + + Public Property FehlerValidierung() As List(Of String) + Get + Return Me._fehlerValidierung + End Get + Set + Me._fehlerValidierung = Value + End Set + End Property + + + Public Property QuittungFach() As List(Of QuittungFachBQTyp) + Get + Return Me._quittungFach + End Get + Set + Me._quittungFach = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QuittungsObjektBQTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QuittungsObjektBQTyp 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 QuittungsObjektBQTyp object + ''' + ''' string to deserialize + ''' Output QuittungsObjektBQTyp 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 QuittungsObjektBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungsObjektBQTyp) + 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 QuittungsObjektBQTyp) 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 QuittungsObjektBQTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QuittungsObjektBQTyp) + 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 QuittungsObjektBQTyp + Return CType(SerializerXml.Deserialize(s), QuittungsObjektBQTyp) + End Function +#End Region + + ''' + ''' Serializes current QuittungsObjektBQTyp 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 QuittungsObjektBQTyp object + ''' + ''' File to load and deserialize + ''' Output QuittungsObjektBQTyp 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 QuittungsObjektBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungsObjektBQTyp) + 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 QuittungsObjektBQTyp) 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 QuittungsObjektBQTyp + 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 QuittungTechBQTyp + +#Region "Private fields" + Private _objektWdhTech As String + + Private _bezugsObjekt As String + + Private _ergebnisTech As String + + Private _fehlerTech As List(Of String) + + Private _korrekturen As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._korrekturen = New List(Of String)() + Me._fehlerTech = New List(Of String)() + End Sub + + + Public Property ObjektWdhTech() As String + Get + Return Me._objektWdhTech + End Get + Set + Me._objektWdhTech = Value + End Set + End Property + + + Public Property BezugsObjekt() As String + Get + Return Me._bezugsObjekt + End Get + Set + Me._bezugsObjekt = Value + End Set + End Property + + + Public Property ErgebnisTech() As String + Get + Return Me._ergebnisTech + End Get + Set + Me._ergebnisTech = Value + End Set + End Property + + + Public Property FehlerTech() As List(Of String) + Get + Return Me._fehlerTech + End Get + Set + Me._fehlerTech = Value + End Set + End Property + + + Public Property Korrekturen() As List(Of String) + Get + Return Me._korrekturen + End Get + Set + Me._korrekturen = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QuittungTechBQTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QuittungTechBQTyp 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 QuittungTechBQTyp object + ''' + ''' string to deserialize + ''' Output QuittungTechBQTyp 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 QuittungTechBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungTechBQTyp) + 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 QuittungTechBQTyp) 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 QuittungTechBQTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QuittungTechBQTyp) + 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 QuittungTechBQTyp + Return CType(SerializerXml.Deserialize(s), QuittungTechBQTyp) + End Function +#End Region + + ''' + ''' Serializes current QuittungTechBQTyp 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 QuittungTechBQTyp object + ''' + ''' File to load and deserialize + ''' Output QuittungTechBQTyp 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 QuittungTechBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungTechBQTyp) + 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 QuittungTechBQTyp) 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 QuittungTechBQTyp + 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 QuittungFachBQTyp + +#Region "Private fields" + Private _objektWdhFach As String + + Private _bezugsObjektFach As String + + Private _gesamtErgebnis As String + + Private _ergebnisGrund As String + + Private _aktionErfolg As List(Of String) + + Private _aktionNdf As List(Of String) + + Private _fehlerAnwendung As List(Of String) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._fehlerAnwendung = New List(Of String)() + Me._aktionNdf = New List(Of String)() + Me._aktionErfolg = New List(Of String)() + End Sub + + + Public Property ObjektWdhFach() As String + Get + Return Me._objektWdhFach + End Get + Set + Me._objektWdhFach = Value + End Set + End Property + + + Public Property BezugsObjektFach() As String + Get + Return Me._bezugsObjektFach + End Get + Set + Me._bezugsObjektFach = Value + End Set + End Property + + + Public Property GesamtErgebnis() As String + Get + Return Me._gesamtErgebnis + End Get + Set + Me._gesamtErgebnis = Value + End Set + End Property + + + Public Property ErgebnisGrund() As String + Get + Return Me._ergebnisGrund + End Get + Set + Me._ergebnisGrund = Value + End Set + End Property + + + Public Property AktionErfolg() As List(Of String) + Get + Return Me._aktionErfolg + End Get + Set + Me._aktionErfolg = Value + End Set + End Property + + + Public Property AktionNdf() As List(Of String) + Get + Return Me._aktionNdf + End Get + Set + Me._aktionNdf = Value + End Set + End Property + + + Public Property FehlerAnwendung() As List(Of String) + Get + Return Me._fehlerAnwendung + End Get + Set + Me._fehlerAnwendung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QuittungFachBQTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QuittungFachBQTyp 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 QuittungFachBQTyp object + ''' + ''' string to deserialize + ''' Output QuittungFachBQTyp 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 QuittungFachBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungFachBQTyp) + 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 QuittungFachBQTyp) 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 QuittungFachBQTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QuittungFachBQTyp) + 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 QuittungFachBQTyp + Return CType(SerializerXml.Deserialize(s), QuittungFachBQTyp) + End Function +#End Region + + ''' + ''' Serializes current QuittungFachBQTyp 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 QuittungFachBQTyp object + ''' + ''' File to load and deserialize + ''' Output QuittungFachBQTyp 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 QuittungFachBQTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QuittungFachBQTyp) + 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 QuittungFachBQTyp) 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 QuittungFachBQTyp + 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 TransaktionAllgemeinTyp + +#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(TransaktionAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionAllgemeinTyp 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 TransaktionAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output TransaktionAllgemeinTyp 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 TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + 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 TransaktionAllgemeinTyp) 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 TransaktionAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionAllgemeinTyp) + 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 TransaktionAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), TransaktionAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionAllgemeinTyp 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 TransaktionAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionAllgemeinTyp 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 TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + 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 TransaktionAllgemeinTyp) 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 TransaktionAllgemeinTyp + 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 DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _transaktion As TransaktionAllgemeinTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionAllgemeinTyp() + End Sub + + + Public Property Transaktion() As TransaktionAllgemeinTyp + 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(DatenaustauschAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschAllgemeinTyp 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 DatenaustauschAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschAllgemeinTyp 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 DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + 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 DatenaustauschAllgemeinTyp) 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 DatenaustauschAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschAllgemeinTyp) + 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 DatenaustauschAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschAllgemeinTyp 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 DatenaustauschAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschAllgemeinTyp 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 DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + 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 DatenaustauschAllgemeinTyp) 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 DatenaustauschAllgemeinTyp + 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/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd new file mode 100644 index 0000000..dbcd33b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 48c89d0..bf24c9c 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -149,6 +149,7 @@ + @@ -426,6 +427,9 @@ Designer + + Designer + Designer diff --git a/DAKOSY_Worker/cDY_Statusliste.vb b/DAKOSY_Worker/cDY_Statusliste.vb index 003e4e8..8f8b39e 100644 --- a/DAKOSY_Worker/cDY_Statusliste.vb +++ b/DAKOSY_Worker/cDY_Statusliste.vb @@ -13,6 +13,7 @@ Public Class cDY_Statusliste Shared Property S_07 As Integer = 7 ' Zoll OK + Shared Property S_08 As Integer = 8 ' Validierungsfehler Dakosy Shared Property S_09 As Integer = 9 ' Sendefehler an Dakosy Shared Property S_10 As Integer = 10 ' Vorankündigung entgegengenommen diff --git a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb index 222c1b1..58726f2 100644 --- a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb +++ b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb @@ -56,7 +56,8 @@ Public Class cDakosy_Statusmeldungen Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 'Primär wird nach erg_datum geprüft! 'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull(isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum),[dySt_ts])> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL") - Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL") + 'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL") + Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(dySt_ergZeitpunkt as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL") ' AND [dySt_status] > 5 --> Weil bei den 5er Status keine korrekte Zeitangabe vorliegt und die hoheren Staten sind immer danach. ' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr) diff --git a/initATLASAufschubkonten/My Project/Application.Designer.vb b/initATLASAufschubkonten/My Project/Application.Designer.vb index 2584a6d..782bb50 100644 --- a/initATLASAufschubkonten/My Project/Application.Designer.vb +++ b/initATLASAufschubkonten/My Project/Application.Designer.vb @@ -1,5 +1,6 @@ '------------------------------------------------------------------------------ -' +' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index eff00c1..5412aab 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -549,6 +549,18 @@ Public Class cGetMsgType Return False End Function + Shared Function isNCTS_QuittungEingangsverarbeitung(doc As XmlDocument, ByRef version As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("QuittungEingangsverarbeitung").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + version = doc.GetElementsByTagName("Version")(0).InnerText + End If + Return True + End If + End If + Return False + End Function + Shared Function isVERAG_KD(doc As XmlDocument) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("VERAG_Kundenstamm_IMPORT").Count > 0 Then diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 1844fa8..099711b 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -3773,30 +3773,39 @@ Public Class cWorker_NCTS Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then + For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails + If a.Key = "LimitDate" Then + Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) + End If + Next + End If + End If 'Verschluesse If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then - If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then - Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art - Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl - If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then - If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then - For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen - Verschluss_Zeichen.Add(z) - Next + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then + Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art + Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then + For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen + Verschluss_Zeichen.Add(z) + Next + End If End If End If End If + End If + + + + End If - - - - - End If - End If ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. @@ -3917,6 +3926,21 @@ Public Class cWorker_NCTS ' End If End If End Sub + + Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) + If dy_BezugsNr = "" Then Exit Sub + Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) + If (dy_BezugsNr.Contains("ATEZ") Or dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then + ' If ATEZ.status IsNot Nothing Then + 'If ATEZ.status < 40 Then + Dim fio As New IO.FileInfo(filePath) + FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) + 'End If + ' End If + End If + End Sub + + Shared Sub checkATEZ_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String) 'If DY_TMP Is Nothing Then Exit Sub Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 2cfa97e..92c5398 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -6,6 +6,8 @@ Imports System.Net.Mail Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing Imports DocumentFormat.OpenXml.Wordprocessing Imports DAKOSY_Worker +Imports Renci.SshNet.Messages +Imports System.Windows.Forms.VisualStyles.VisualStyleElement Public Class frmDYNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0 @@ -602,6 +604,15 @@ Public Class frmDYNachrichtenVerarbeitung End If + 'SONDERFALL: Betrifft div. Arten von Anmeldungen: QuittungEingangsverarbeitung + If Not found And cGetMsgType.isNCTS_QuittungEingangsverarbeitung(doc, VERSION) Then + Select Case VERSION + Case "005" : If readNCTS_QuittungEingangsverarbeitung_005(d, statusTMP) Then found = True + ' Case Else : If readNCTS_GenerellesEreignis(d) Then found = True + End Select + + End If + '------------------------------------------------------------------------------------------------------------------------------ @@ -647,7 +658,10 @@ Public Class frmDYNachrichtenVerarbeitung End If End If Else - frmStartOptions.moveFile(d, ERROR_PFAD) + Dim destErr = ERROR_PFAD & Now.ToString("yyyy_MM") & "\" + If Not IO.Directory.Exists(destErr) Then IO.Directory.CreateDirectory(destErr) + + frmStartOptions.moveFile(d, destErr) End If End If @@ -1146,6 +1160,109 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readNCTS_QuittungEingangsverarbeitung_005(d As String, ByRef STATUSTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As Boolean + Try + + + Dim NCTS As DAKOSY_Worker.QuittungEingangsverarbeitung_005.QuittungEingangsverarbeitungBQTyp = DAKOSY_Worker.QuittungEingangsverarbeitung_005.QuittungEingangsverarbeitungBQTyp.LoadFromFile(d) + Dim division = "" + Dim BezugsNr = "" + readNCTS_QuittungEingangsverarbeitung_005 = False + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + + End If + If NCTS.EinzelQuittung IsNot Nothing Then + For Each ge In NCTS.EinzelQuittung + If ge.Quittungsobjekt IsNot Nothing Then + If ge.Quittungsobjekt.QuittungTech IsNot Nothing Then + + If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then + ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName) + + + + Dim STATUS2 As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + + STATUS2.dySt_artMitteilung = "QUITT" + STATUS2.dySt_dyArt = "" '"NCTS" 'T1/T2 + STATUS2.dySt_BezugsNr = ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt + BezugsNr = ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt + STATUS2.dySt_ergCode = "" 'erg.EreignisCode + STATUS2.dySt_ergMitteilung = "" 'erg.Ereignismitteilung + If ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("OKAY") Then + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_04 + ElseIf ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("INFO") Then + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_08 + Else + STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98 + End If + readNCTS_QuittungEingangsverarbeitung_005 = True + + Select Case getVerahrensartFromBezugsNr(ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt) + Case "NCTS" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS") + Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id + cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division) + STATUS2.dySt_dyArt = getVerahrensartFromBezugsNr(ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt) + + Case "EZA", "" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id + SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division) + STATUS2.dySt_dyArt = "EZA" + Case "AES" + Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "AES") + Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "", "") + If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id + SaveAES_FirmaNL(AES_TMP, division) + STATUS2.dySt_dyArt = "AES" + End Select + + STATUS2.SAVE() + + + STATUSTMP = STATUS2 + addDGVEinarbeitung("** QuittungEingangsverarbeitung **", BezugsNr) + + End If + End If + + + If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then + + + If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then + + End If + End If + + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d) + '================================== + + + End If + Next + End If + End If + + + + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_QuittungEingangsverarbeitung_005 = False + End Try + End Function + Function saveDY_AES(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyAES 'EINTRAG IN tblDakosyAESOut diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index f6ad977..2120a04 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -805,9 +805,6 @@ Public Class frmStartOptions Dim cStandort = cStandorteDAL.LesenStandort(-1, "", "SELECT * FROM Standorte WHERE Standort = '" & Standort & "'") Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SND.FilialenNr) - '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & Standort & vbNewLine & cStandort.eMail_Zollbeleg_Betreff & vbNewLine & cStandort.eMail_Zollbeleg_Text, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) - '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg" @@ -876,7 +873,14 @@ Public Class frmStartOptions ' EMails_BCC = "al@verag.ag" 'Else ' EMails_BCC &= ";al@verag.ag" + ''End If + ''!!!!!!!!!!!!!!!!!!!!!!!!!! + 'If KundenNr = 706113 Then + ' EMails = "al@verag.ag" + ' EMails_CC = "" + ' EMails_BCC = "" 'End If + ''!!!!!!!!!!!!!!!!!!!!!!!!!! Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr) @@ -888,10 +892,13 @@ Public Class frmStartOptions API.api_EMailText = body API.api_EMailAttCnt = pfadList.Count + betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ") + Select Case art Case "STB" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then + betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr) If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then API.UPDTAE_OK() @@ -2237,7 +2244,7 @@ Public Class frmStartOptions IO.File.Move(file, dest) ' Verschiebt die Datei Return True Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file & vbNewLine & "DestPfad: " & toDirectory, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function