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/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 69052f8..80f72ff 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -36,21 +36,13 @@ Partial Class frmMitarbDetails Me.TabPage1 = New System.Windows.Forms.TabPage() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label50 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() - Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label37 = New System.Windows.Forms.Label() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label42 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label() Me.cbxSpedBuch = New System.Windows.Forms.CheckBox() Me.Label41 = New System.Windows.Forms.Label() - Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.Label62 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label() @@ -65,9 +57,6 @@ Partial Class frmMitarbDetails Me.Label46 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() - Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.cbxShowPW = New System.Windows.Forms.CheckBox() Me.lblCheckconnection = New System.Windows.Forms.Label() @@ -86,9 +75,7 @@ Partial Class frmMitarbDetails Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox() Me.txtLohnNr = New System.Windows.Forms.TextBox() Me.btnMAanlegen = New System.Windows.Forms.Button() - Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.cbabwJahresurlaub = New System.Windows.Forms.CheckBox() @@ -109,21 +96,15 @@ Partial Class frmMitarbDetails Me.lblEmailExtension = New System.Windows.Forms.Label() Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox() Me.Label57 = New System.Windows.Forms.Label() - Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label56 = New System.Windows.Forms.Label() - Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtALIASUser2 = New System.Windows.Forms.TextBox() Me.Label54 = New System.Windows.Forms.Label() Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox() - Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label53 = New System.Windows.Forms.Label() - Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtALIASUser = New System.Windows.Forms.TextBox() Me.Label52 = New System.Windows.Forms.Label() Me.lkl = New System.Windows.Forms.LinkLabel() Me.Label45 = New System.Windows.Forms.Label() - Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label39 = New System.Windows.Forms.Label() Me.cboFirma = New System.Windows.Forms.ComboBox() Me.Label36 = New System.Windows.Forms.Label() @@ -139,13 +120,11 @@ Partial Class frmMitarbDetails Me.txtDurchwahl = New System.Windows.Forms.TextBox() Me.Label19 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() - Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtPwd = New System.Windows.Forms.TextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.txtUsername = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.txtprivateEMail = New System.Windows.Forms.TextBox() @@ -180,7 +159,6 @@ Partial Class frmMitarbDetails Me.Label2 = New System.Windows.Forms.Label() Me.txtInfo = New System.Windows.Forms.RichTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label55 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() @@ -224,6 +202,29 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cbxTimasNichtStempeln = New System.Windows.Forms.CheckBox() + Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -233,7 +234,6 @@ Partial Class frmMitarbDetails Me.TabPage4.SuspendLayout() Me.TabPage5.SuspendLayout() Me.TabPage6.SuspendLayout() - CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage7.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() @@ -246,6 +246,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'PictureBox1 @@ -403,30 +404,6 @@ Partial Class frmMitarbDetails Me.TabPage2.Text = "Intern" Me.TabPage2.UseVisualStyleBackColor = True ' - 'cboDPFirma2 - ' - Me.cboDPFirma2._allowedValuesFreiText = Nothing - Me.cboDPFirma2._allowFreiText = False - Me.cboDPFirma2._value = "" - Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDPFirma2.FormattingEnabled = True - Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151) - Me.cboDPFirma2.Name = "cboDPFirma2" - Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21) - Me.cboDPFirma2.TabIndex = 108 - ' - 'cboDPFirma - ' - Me.cboDPFirma._allowedValuesFreiText = Nothing - Me.cboDPFirma._allowFreiText = False - Me.cboDPFirma._value = "" - Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDPFirma.FormattingEnabled = True - Me.cboDPFirma.Location = New System.Drawing.Point(7, 151) - Me.cboDPFirma.Name = "cboDPFirma" - Me.cboDPFirma.Size = New System.Drawing.Size(101, 21) - Me.cboDPFirma.TabIndex = 107 - ' 'Label50 ' Me.Label50.AutoSize = True @@ -447,18 +424,6 @@ Partial Class frmMitarbDetails Me.Label38.TabIndex = 96 Me.Label38.Text = "Standard-Filiale (SpedBuch)" ' - 'cboPersonal - ' - Me.cboPersonal._allowedValuesFreiText = Nothing - Me.cboPersonal._allowFreiText = False - Me.cboPersonal._value = "" - Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboPersonal.FormattingEnabled = True - Me.cboPersonal.Location = New System.Drawing.Point(7, 65) - Me.cboPersonal.Name = "cboPersonal" - Me.cboPersonal.Size = New System.Drawing.Size(200, 21) - Me.cboPersonal.TabIndex = 95 - ' 'Label37 ' Me.Label37.AutoSize = True @@ -469,42 +434,6 @@ Partial Class frmMitarbDetails Me.Label37.TabIndex = 94 Me.Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:" ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(9, 24) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(198, 21) - Me.MyComboBox2.TabIndex = 97 - ' - 'cboDP - ' - Me.cboDP._allowedValuesFreiText = Nothing - Me.cboDP._allowFreiText = False - Me.cboDP._value = "" - Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDP.FormattingEnabled = True - Me.cboDP.Location = New System.Drawing.Point(217, 151) - Me.cboDP.Name = "cboDP" - Me.cboDP.Size = New System.Drawing.Size(198, 21) - Me.cboDP.TabIndex = 105 - ' - 'cboKasse - ' - Me.cboKasse._allowedValuesFreiText = Nothing - Me.cboKasse._allowFreiText = False - Me.cboKasse._value = "" - Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboKasse.FormattingEnabled = True - Me.cboKasse.Location = New System.Drawing.Point(7, 106) - Me.cboKasse.Name = "cboKasse" - Me.cboKasse.Size = New System.Drawing.Size(200, 21) - Me.cboKasse.TabIndex = 99 - ' 'Label42 ' Me.Label42.AutoSize = True @@ -546,31 +475,6 @@ Partial Class frmMitarbDetails Me.Label41.TabIndex = 100 Me.Label41.Text = "Standard-Preisliste:" ' - 'cboSpedbuch - ' - Me.cboSpedbuch._allowedValuesFreiText = Nothing - Me.cboSpedbuch._allowFreiText = False - Me.cboSpedbuch._value = "" - Me.cboSpedbuch.Enabled = False - Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSpedbuch.FormattingEnabled = True - Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66) - Me.cboSpedbuch.Name = "cboSpedbuch" - Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21) - Me.cboSpedbuch.TabIndex = 103 - ' - 'MyComboBox3 - ' - Me.MyComboBox3._allowedValuesFreiText = Nothing - Me.MyComboBox3._allowFreiText = False - Me.MyComboBox3._value = "" - Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyComboBox3.FormattingEnabled = True - Me.MyComboBox3.Location = New System.Drawing.Point(217, 106) - Me.MyComboBox3.Name = "MyComboBox3" - Me.MyComboBox3.Size = New System.Drawing.Size(198, 21) - Me.MyComboBox3.TabIndex = 101 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.Label62) @@ -719,48 +623,6 @@ Partial Class frmMitarbDetails Me.Label43.TabIndex = 108 Me.Label43.Text = "EZOLL Sachbearbeiter:" ' - 'cboEZOLL_SB_UNISPED - ' - Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing - Me.cboEZOLL_SB_UNISPED._allowFreiText = False - Me.cboEZOLL_SB_UNISPED._value = "" - Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True - Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29) - Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED" - Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21) - Me.cboEZOLL_SB_UNISPED.TabIndex = 121 - ' - 'cboEZOLL_SB - ' - Me.cboEZOLL_SB._allowedValuesFreiText = Nothing - Me.cboEZOLL_SB._allowFreiText = False - Me.cboEZOLL_SB._value = "" - Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboEZOLL_SB.FormattingEnabled = True - Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29) - Me.cboEZOLL_SB.Name = "cboEZOLL_SB" - Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21) - Me.cboEZOLL_SB.TabIndex = 109 - ' - 'cboATLAS_SB - ' - Me.cboATLAS_SB._allowedValuesFreiText = Nothing - Me.cboATLAS_SB._allowFreiText = False - Me.cboATLAS_SB._value = "" - Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboATLAS_SB.FormattingEnabled = True - Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29) - Me.cboATLAS_SB.Name = "cboATLAS_SB" - Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21) - Me.cboATLAS_SB.TabIndex = 107 - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.cbxShowPW) @@ -887,7 +749,7 @@ Partial Class frmMitarbDetails Me.btnDelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnDelete.BackColor = System.Drawing.Color.White Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelete.Location = New System.Drawing.Point(310, -1) + Me.btnDelete.Location = New System.Drawing.Point(310, 0) Me.btnDelete.Name = "btnDelete" Me.btnDelete.Size = New System.Drawing.Size(55, 26) Me.btnDelete.TabIndex = 123 @@ -938,7 +800,7 @@ Partial Class frmMitarbDetails 'txtLohnNr ' Me.txtLohnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtLohnNr.Location = New System.Drawing.Point(189, 3) + Me.txtLohnNr.Location = New System.Drawing.Point(179, 3) Me.txtLohnNr.Name = "txtLohnNr" Me.txtLohnNr.Size = New System.Drawing.Size(37, 20) Me.txtLohnNr.TabIndex = 114 @@ -955,16 +817,6 @@ Partial Class frmMitarbDetails Me.btnMAanlegen.Text = "anlegen" Me.btnMAanlegen.UseVisualStyleBackColor = False ' - 'dgvData - ' - Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvData.BackgroundColor = System.Drawing.Color.White - Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvData.Location = New System.Drawing.Point(2, 27) - Me.dgvData.Name = "dgvData" - Me.dgvData.Size = New System.Drawing.Size(364, 144) - Me.dgvData.TabIndex = 118 - ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.lbSprachen) @@ -975,18 +827,6 @@ Partial Class frmMitarbDetails Me.TabPage7.Text = "Sprachen" Me.TabPage7.UseVisualStyleBackColor = True ' - 'lbSprachen - ' - Me.lbSprachen._value = "" - Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lbSprachen.FormattingEnabled = True - Me.lbSprachen.Location = New System.Drawing.Point(5, 3) - Me.lbSprachen.MultiColumn = True - Me.lbSprachen.Name = "lbSprachen" - Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.lbSprachen.Size = New System.Drawing.Size(152, 134) - Me.lbSprachen.TabIndex = 97 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -1235,20 +1075,6 @@ Partial Class frmMitarbDetails Me.Label57.TabIndex = 110 Me.Label57.Text = "And. Anzeigename (Aviso,TV):" ' - 'cboFaktGrp - ' - Me.cboFaktGrp._allowedValuesFreiText = Nothing - Me.cboFaktGrp._allowFreiText = False - Me.cboFaktGrp._value = "" - Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFaktGrp.FormattingEnabled = True - Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155) - Me.cboFaktGrp.Name = "cboFaktGrp" - Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21) - Me.cboFaktGrp.TabIndex = 107 - ' 'Label56 ' Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1258,19 +1084,6 @@ Partial Class frmMitarbDetails Me.Label56.TabIndex = 108 Me.Label56.Text = "Fakturierungs-Gruppe:" ' - 'cboALIASDomain2 - ' - Me.cboALIASDomain2._allowedValuesFreiText = Nothing - Me.cboALIASDomain2._allowFreiText = False - Me.cboALIASDomain2._value = "" - Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboALIASDomain2.FormattingEnabled = True - Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60) - Me.cboALIASDomain2.Name = "cboALIASDomain2" - Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21) - Me.cboALIASDomain2.TabIndex = 106 - ' 'txtALIASUser2 ' Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1300,20 +1113,6 @@ Partial Class frmMitarbDetails Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21) Me.cboFirmaHaupt.TabIndex = 103 ' - 'cboTeam - ' - Me.cboTeam._allowedValuesFreiText = Nothing - Me.cboTeam._allowFreiText = False - Me.cboTeam._value = "" - Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboTeam.FormattingEnabled = True - Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboTeam.Location = New System.Drawing.Point(399, 116) - Me.cboTeam.Name = "cboTeam" - Me.cboTeam.Size = New System.Drawing.Size(148, 21) - Me.cboTeam.TabIndex = 101 - ' 'Label53 ' Me.Label53.AutoSize = True @@ -1324,19 +1123,6 @@ Partial Class frmMitarbDetails Me.Label53.TabIndex = 102 Me.Label53.Text = "Team:" ' - 'cboALIASDomain - ' - Me.cboALIASDomain._allowedValuesFreiText = Nothing - Me.cboALIASDomain._allowFreiText = False - Me.cboALIASDomain._value = "" - Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboALIASDomain.FormattingEnabled = True - Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37) - Me.cboALIASDomain.Name = "cboALIASDomain" - Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21) - Me.cboALIASDomain.TabIndex = 100 - ' 'txtALIASUser ' Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1376,31 +1162,6 @@ Partial Class frmMitarbDetails Me.Label45.TabIndex = 97 Me.Label45.Text = "Einsicht Firmen-Daten:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Offene Posten, Umsätze, ... )" ' - 'MyListBox1 - ' - Me.MyListBox1._value = "" - Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyListBox1.FormattingEnabled = True - Me.MyListBox1.Location = New System.Drawing.Point(551, 133) - Me.MyListBox1.MultiColumn = True - Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.MyListBox1.Size = New System.Drawing.Size(152, 95) - Me.MyListBox1.TabIndex = 96 - ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21) - Me.cboFirmaFMZOLL.TabIndex = 95 - ' 'Label39 ' Me.Label39.AutoSize = True @@ -1547,20 +1308,6 @@ Partial Class frmMitarbDetails Me.Label8.TabIndex = 1 Me.Label8.Text = "(erst bei Doppelklick sichtbar)" ' - 'cboAbteilung - ' - Me.cboAbteilung._allowedValuesFreiText = Nothing - Me.cboAbteilung._allowFreiText = False - Me.cboAbteilung._value = "" - Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAbteilung.FormattingEnabled = True - Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboAbteilung.Location = New System.Drawing.Point(211, 116) - Me.cboAbteilung.Name = "cboAbteilung" - Me.cboAbteilung.Size = New System.Drawing.Size(177, 21) - Me.cboAbteilung.TabIndex = 4 - ' 'txtPwd ' Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1607,20 +1354,6 @@ Partial Class frmMitarbDetails Me.Label3.TabIndex = 56 Me.Label3.Text = "Username:" ' - 'cboNiederlassung - ' - Me.cboNiederlassung._allowedValuesFreiText = Nothing - Me.cboNiederlassung._allowFreiText = False - Me.cboNiederlassung._value = "" - Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboNiederlassung.FormattingEnabled = True - Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116) - Me.cboNiederlassung.Name = "cboNiederlassung" - Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21) - Me.cboNiederlassung.TabIndex = 3 - ' 'Label9 ' Me.Label9.AutoSize = True @@ -2024,19 +1757,6 @@ Partial Class frmMitarbDetails Me.TabPage3.Text = "Programme" Me.TabPage3.UseVisualStyleBackColor = True ' - 'cboProgSprache - ' - Me.cboProgSprache._allowedValuesFreiText = Nothing - Me.cboProgSprache._allowFreiText = False - Me.cboProgSprache._value = "" - Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboProgSprache.FormattingEnabled = True - Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) - Me.cboProgSprache.Name = "cboProgSprache" - Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) - Me.cboProgSprache.TabIndex = 120 - ' 'Label55 ' Me.Label55.AutoSize = True @@ -2483,6 +2203,298 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' + 'cbxTimasNichtStempeln + ' + Me.cbxTimasNichtStempeln.AutoSize = True + Me.cbxTimasNichtStempeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTimasNichtStempeln.Location = New System.Drawing.Point(324, 241) + Me.cbxTimasNichtStempeln.Name = "cbxTimasNichtStempeln" + Me.cbxTimasNichtStempeln.Size = New System.Drawing.Size(164, 17) + Me.cbxTimasNichtStempeln.TabIndex = 124 + Me.cbxTimasNichtStempeln.Text = "Zeiterfassung: Kein Stempeln" + Me.cbxTimasNichtStempeln.UseVisualStyleBackColor = True + ' + 'cboDPFirma2 + ' + Me.cboDPFirma2._allowedValuesFreiText = Nothing + Me.cboDPFirma2._allowFreiText = False + Me.cboDPFirma2._value = "" + Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDPFirma2.FormattingEnabled = True + Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151) + Me.cboDPFirma2.Name = "cboDPFirma2" + Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21) + Me.cboDPFirma2.TabIndex = 108 + ' + 'cboDPFirma + ' + Me.cboDPFirma._allowedValuesFreiText = Nothing + Me.cboDPFirma._allowFreiText = False + Me.cboDPFirma._value = "" + Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDPFirma.FormattingEnabled = True + Me.cboDPFirma.Location = New System.Drawing.Point(7, 151) + Me.cboDPFirma.Name = "cboDPFirma" + Me.cboDPFirma.Size = New System.Drawing.Size(101, 21) + Me.cboDPFirma.TabIndex = 107 + ' + 'cboPersonal + ' + Me.cboPersonal._allowedValuesFreiText = Nothing + Me.cboPersonal._allowFreiText = False + Me.cboPersonal._value = "" + Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboPersonal.FormattingEnabled = True + Me.cboPersonal.Location = New System.Drawing.Point(7, 65) + Me.cboPersonal.Name = "cboPersonal" + Me.cboPersonal.Size = New System.Drawing.Size(200, 21) + Me.cboPersonal.TabIndex = 95 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(9, 24) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(198, 21) + Me.MyComboBox2.TabIndex = 97 + ' + 'cboDP + ' + Me.cboDP._allowedValuesFreiText = Nothing + Me.cboDP._allowFreiText = False + Me.cboDP._value = "" + Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDP.FormattingEnabled = True + Me.cboDP.Location = New System.Drawing.Point(217, 151) + Me.cboDP.Name = "cboDP" + Me.cboDP.Size = New System.Drawing.Size(198, 21) + Me.cboDP.TabIndex = 105 + ' + 'cboKasse + ' + Me.cboKasse._allowedValuesFreiText = Nothing + Me.cboKasse._allowFreiText = False + Me.cboKasse._value = "" + Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboKasse.FormattingEnabled = True + Me.cboKasse.Location = New System.Drawing.Point(7, 106) + Me.cboKasse.Name = "cboKasse" + Me.cboKasse.Size = New System.Drawing.Size(200, 21) + Me.cboKasse.TabIndex = 99 + ' + 'cboSpedbuch + ' + Me.cboSpedbuch._allowedValuesFreiText = Nothing + Me.cboSpedbuch._allowFreiText = False + Me.cboSpedbuch._value = "" + Me.cboSpedbuch.Enabled = False + Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSpedbuch.FormattingEnabled = True + Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66) + Me.cboSpedbuch.Name = "cboSpedbuch" + Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21) + Me.cboSpedbuch.TabIndex = 103 + ' + 'MyComboBox3 + ' + Me.MyComboBox3._allowedValuesFreiText = Nothing + Me.MyComboBox3._allowFreiText = False + Me.MyComboBox3._value = "" + Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox3.FormattingEnabled = True + Me.MyComboBox3.Location = New System.Drawing.Point(217, 106) + Me.MyComboBox3.Name = "MyComboBox3" + Me.MyComboBox3.Size = New System.Drawing.Size(198, 21) + Me.MyComboBox3.TabIndex = 101 + ' + 'cboEZOLL_SB_UNISPED + ' + Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing + Me.cboEZOLL_SB_UNISPED._allowFreiText = False + Me.cboEZOLL_SB_UNISPED._value = "" + Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True + Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29) + Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED" + Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21) + Me.cboEZOLL_SB_UNISPED.TabIndex = 121 + ' + 'cboEZOLL_SB + ' + Me.cboEZOLL_SB._allowedValuesFreiText = Nothing + Me.cboEZOLL_SB._allowFreiText = False + Me.cboEZOLL_SB._value = "" + Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboEZOLL_SB.FormattingEnabled = True + Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29) + Me.cboEZOLL_SB.Name = "cboEZOLL_SB" + Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21) + Me.cboEZOLL_SB.TabIndex = 109 + ' + 'cboATLAS_SB + ' + Me.cboATLAS_SB._allowedValuesFreiText = Nothing + Me.cboATLAS_SB._allowFreiText = False + Me.cboATLAS_SB._value = "" + Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboATLAS_SB.FormattingEnabled = True + Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29) + Me.cboATLAS_SB.Name = "cboATLAS_SB" + Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21) + Me.cboATLAS_SB.TabIndex = 107 + ' + 'dgvData + ' + Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvData.BackgroundColor = System.Drawing.Color.White + Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvData.Location = New System.Drawing.Point(2, 27) + Me.dgvData.Name = "dgvData" + Me.dgvData.Size = New System.Drawing.Size(364, 144) + Me.dgvData.TabIndex = 118 + ' + 'lbSprachen + ' + Me.lbSprachen._value = "" + Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbSprachen.FormattingEnabled = True + Me.lbSprachen.Location = New System.Drawing.Point(5, 3) + Me.lbSprachen.MultiColumn = True + Me.lbSprachen.Name = "lbSprachen" + Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.lbSprachen.Size = New System.Drawing.Size(152, 134) + Me.lbSprachen.TabIndex = 97 + ' + 'cboFaktGrp + ' + Me.cboFaktGrp._allowedValuesFreiText = Nothing + Me.cboFaktGrp._allowFreiText = False + Me.cboFaktGrp._value = "" + Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFaktGrp.FormattingEnabled = True + Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155) + Me.cboFaktGrp.Name = "cboFaktGrp" + Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21) + Me.cboFaktGrp.TabIndex = 107 + ' + 'cboALIASDomain2 + ' + Me.cboALIASDomain2._allowedValuesFreiText = Nothing + Me.cboALIASDomain2._allowFreiText = False + Me.cboALIASDomain2._value = "" + Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboALIASDomain2.FormattingEnabled = True + Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60) + Me.cboALIASDomain2.Name = "cboALIASDomain2" + Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21) + Me.cboALIASDomain2.TabIndex = 106 + ' + 'cboTeam + ' + Me.cboTeam._allowedValuesFreiText = Nothing + Me.cboTeam._allowFreiText = False + Me.cboTeam._value = "" + Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeam.FormattingEnabled = True + Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboTeam.Location = New System.Drawing.Point(399, 116) + Me.cboTeam.Name = "cboTeam" + Me.cboTeam.Size = New System.Drawing.Size(148, 21) + Me.cboTeam.TabIndex = 101 + ' + 'cboALIASDomain + ' + Me.cboALIASDomain._allowedValuesFreiText = Nothing + Me.cboALIASDomain._allowFreiText = False + Me.cboALIASDomain._value = "" + Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboALIASDomain.FormattingEnabled = True + Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37) + Me.cboALIASDomain.Name = "cboALIASDomain" + Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21) + Me.cboALIASDomain.TabIndex = 100 + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.Location = New System.Drawing.Point(551, 133) + Me.MyListBox1.MultiColumn = True + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.MyListBox1.Size = New System.Drawing.Size(152, 95) + Me.MyListBox1.TabIndex = 96 + ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21) + Me.cboFirmaFMZOLL.TabIndex = 95 + ' + 'cboAbteilung + ' + Me.cboAbteilung._allowedValuesFreiText = Nothing + Me.cboAbteilung._allowFreiText = False + Me.cboAbteilung._value = "" + Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbteilung.FormattingEnabled = True + Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboAbteilung.Location = New System.Drawing.Point(211, 116) + Me.cboAbteilung.Name = "cboAbteilung" + Me.cboAbteilung.Size = New System.Drawing.Size(177, 21) + Me.cboAbteilung.TabIndex = 4 + ' + 'cboNiederlassung + ' + Me.cboNiederlassung._allowedValuesFreiText = Nothing + Me.cboNiederlassung._allowFreiText = False + Me.cboNiederlassung._value = "" + Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboNiederlassung.FormattingEnabled = True + Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116) + Me.cboNiederlassung.Name = "cboNiederlassung" + Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21) + Me.cboNiederlassung.TabIndex = 3 + ' + 'cboProgSprache + ' + Me.cboProgSprache._allowedValuesFreiText = Nothing + Me.cboProgSprache._allowFreiText = False + Me.cboProgSprache._value = "" + Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboProgSprache.FormattingEnabled = True + Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) + Me.cboProgSprache.Name = "cboProgSprache" + Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) + Me.cboProgSprache.TabIndex = 120 + ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2512,7 +2524,6 @@ Partial Class frmMitarbDetails Me.TabPage5.PerformLayout() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() - CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage7.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() @@ -2528,6 +2539,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 1ec4097..9215de0 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -313,6 +313,7 @@ Public Class frmMitarbDetails cboTeam.changeItem(If(mitarbeiter.mit_teamId, "")) cbxHO.Checked = mitarbeiter.mit_homeoffice + cbxTimasNichtStempeln.Checked = mitarbeiter.mit_timasNichtStempeln @@ -588,6 +589,7 @@ Public Class frmMitarbDetails mitarbeiter.mit_PersonalNr = txtLohnNr.Text mitarbeiter.mit_telefonnr = txtTelNr.Text mitarbeiter.mit_homeoffice = cbxHO.Checked + mitarbeiter.mit_timasNichtStempeln = cbxTimasNichtStempeln.Checked If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index ac57394..bb100c5 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1550,8 +1550,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice) OUTPUT INSERTED.mit_id VALUES " & - "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice)" + "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln) OUTPUT INSERTED.mit_id VALUES " & + "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln)" @@ -1631,6 +1631,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT52VA6 ", If(m.mit_ATGRNAccessCode_AT52VA6, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_Sprachkentnisse ", If(m.mit_Sprachkentnisse, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_homeoffice ", m.mit_homeoffice) + cmd.Parameters.AddWithValue("@mit_timasNichtStempeln ", m.mit_timasNichtStempeln) Try mid = cmd.ExecuteScalar() @@ -1649,7 +1650,7 @@ Public Class cMitarbeiter Dim sql = "UPDATE tblMitarbeiter " & "SET mit_username=@mit_username, mit_abweichenderAnzeigename=@mit_abweichenderAnzeigename,mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt ,mit_EZOLL_SB_UNISPED=@mit_EZOLL_SB_UNISPED " & - " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice" & + " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice, mit_timasNichtStempeln=@mit_timasNichtStempeln" & " WHERE mit_id=@mit_id " @@ -1731,6 +1732,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT52VA6 ", If(m.mit_ATGRNAccessCode_AT52VA6, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_Sprachkentnisse", If(m.mit_Sprachkentnisse, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_homeoffice", m.mit_homeoffice) + cmd.Parameters.AddWithValue("@mit_timasNichtStempeln", m.mit_timasNichtStempeln) 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..b0e6b78 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,113 @@ 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 IsNot Nothing Then + 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 + 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.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index e0ef4cd..505b4af 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -160,6 +160,7 @@ Partial Class frmStartOptions Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.LinkLabel49 = New System.Windows.Forms.LinkLabel() Me.Label25 = New System.Windows.Forms.Label() Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -201,7 +202,8 @@ Partial Class frmStartOptions Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() - Me.LinkLabel49 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel50 = New System.Windows.Forms.LinkLabel() + Me.Label26 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() @@ -1848,6 +1850,8 @@ Partial Class frmStartOptions ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.LinkLabel50) + Me.TabPage3.Controls.Add(Me.Label26) Me.TabPage3.Controls.Add(Me.LinkLabel39) Me.TabPage3.Controls.Add(Me.LinkLabel40) Me.TabPage3.Controls.Add(Me.Label22) @@ -2007,6 +2011,17 @@ Partial Class frmStartOptions Me.TabPage4.Text = "Asfinag" Me.TabPage4.UseVisualStyleBackColor = True ' + 'LinkLabel49 + ' + Me.LinkLabel49.AutoSize = True + Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel49.Location = New System.Drawing.Point(17, 276) + Me.LinkLabel49.Name = "LinkLabel49" + Me.LinkLabel49.Size = New System.Drawing.Size(136, 13) + Me.LinkLabel49.TabIndex = 80 + Me.LinkLabel49.TabStop = True + Me.LinkLabel49.Text = "6. Black-List und White List" + ' 'Label25 ' Me.Label25.AutoSize = True @@ -2514,16 +2529,26 @@ Partial Class frmStartOptions Me.Button21.Text = "AAS Sendung 24h" Me.Button21.UseVisualStyleBackColor = True ' - 'LinkLabel49 + 'LinkLabel50 ' - Me.LinkLabel49.AutoSize = True - Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel49.Location = New System.Drawing.Point(17, 276) - Me.LinkLabel49.Name = "LinkLabel49" - Me.LinkLabel49.Size = New System.Drawing.Size(136, 13) - Me.LinkLabel49.TabIndex = 80 - Me.LinkLabel49.TabStop = True - Me.LinkLabel49.Text = "6. Black-List und White List" + Me.LinkLabel50.AutoSize = True + Me.LinkLabel50.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel50.Location = New System.Drawing.Point(416, 152) + Me.LinkLabel50.Name = "LinkLabel50" + Me.LinkLabel50.Size = New System.Drawing.Size(54, 13) + Me.LinkLabel50.TabIndex = 34 + Me.LinkLabel50.TabStop = True + Me.LinkLabel50.Text = "Send Mail" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(416, 125) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(38, 13) + Me.Label26.TabIndex = 33 + Me.Label26.Text = "RMC:" ' 'frmStartOptions ' @@ -2755,4 +2780,6 @@ Partial Class frmStartOptions Friend WithEvents txtTWLNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label25 As Label Friend WithEvents LinkLabel49 As LinkLabel + Friend WithEvents LinkLabel50 As LinkLabel + Friend WithEvents Label26 As Label End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 897a717..1c52ea3 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -140,174 +140,6 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= @@ -649,9 +481,6 @@ True - - True - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj @@ -698,6 +527,174 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 1b602e9..48a812c 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() @@ -1824,10 +1831,16 @@ Public Class frmStartOptions betreff = betreff.replace("FW: ", "") betreff = betreff.replace("VBD - Versandbegleitdokument (DE), ", "") + If betreff.contains(",") Then + betreff = betreff.ToString.Split(",")(0).Trim + End If 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") Dim dy_id As String = "" If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") + If dy_id = "" Then + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") + End If Else dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") End If @@ -1856,91 +1869,135 @@ Public Class frmStartOptions If Not found Then 'OLD --- NCTS < 004! - 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") - dy_id = "" - If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") - Else - dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") - End If - - - ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") - - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False - - ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" - If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - - destFull = "" - moveFile(pfad, ZIEL_PFAD, destFull) - - - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(dy_id) AndAlso dy_id > 0 Then - sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") - sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id) + 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") + dy_id = "" + If betreff.ToString.Length > 15 Then + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") + Else + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") End If + + + ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" + If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + destFull = "" + moveFile(pfad, ZIEL_PFAD, destFull) + + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(dy_id) AndAlso dy_id > 0 Then + sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id) + End If + End If + End If - End If + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull) + + '================================== - '=====ATEZ BEREITSTELLUNG========== - cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull) - - '================================== + ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then + betreff = betreff.replace("WG: ", "") + betreff = betreff.replace("FW: ", "") + betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "") + If betreff.ToString.Contains(",") Then + Dim sp = betreff.ToString.Split(",") - ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then - betreff = betreff.replace("WG: ", "") - betreff = betreff.replace("FW: ", "") - betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "") - If betreff.ToString.Contains(",") Then - Dim sp = betreff.ToString.Split(",") + If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!! + betreff = sp(0).Trim + Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO") + If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + Dim destFull = "" + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + moveFile(pfad, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + ' sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff) + End If + + End If - If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!! - betreff = sp(0).Trim - Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO") - If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + Else ' STB !!!! + + betreff = sp(0).Trim + + + Dim dy_id As String = "" + If betreff.ToString.Length > 15 Then + dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + If dy_id = "" Then + dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL") + End If + Else + dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + End If + ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS.da_vorlage = False - Dim destFull = "" - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" moveFile(pfad, ZIEL_PFAD, destFull) If DS.insertDataToDATENSERVER(destFull) Then - ' sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") - sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff) + If IsNumeric(dy_id) AndAlso dy_id > 0 Then + sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id) + End If End If End If + End If - - Else ' STB !!!! - + 'ABD + ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then + betreff = betreff.replace("WG: ", "") + betreff = betreff.replace("FW: ", "") + betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "") + If betreff.ToString.Contains(",") Then + Dim sp = betreff.ToString.Split(",") betreff = sp(0).Trim - Dim dy_id As String = "" If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL") - Else - dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + If dy_id = "" Then + dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") + End If + Else + dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") End If ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS.da_vorlage = False - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" - If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\" + If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) Dim destFull = "" @@ -1948,51 +2005,13 @@ Public Class frmStartOptions If DS.insertDataToDATENSERVER(destFull) Then If IsNumeric(dy_id) AndAlso dy_id > 0 Then - sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") - sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id) + sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id) End If End If End If - End If - - 'ABD - ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then - betreff = betreff.replace("WG: ", "") - betreff = betreff.replace("FW: ", "") - betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "") - If betreff.ToString.Contains(",") Then - Dim sp = betreff.ToString.Split(",") - betreff = sp(0).Trim - - Dim dy_id As String = "" - If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") - Else - dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") - End If - ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") - - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False - - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\" - If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - - Dim destFull = "" - moveFile(pfad, ZIEL_PFAD, destFull) - - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(dy_id) AndAlso dy_id > 0 Then - sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") - sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id) - End If - End If - - End If 'AVM ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then @@ -2005,7 +2024,10 @@ Public Class frmStartOptions Dim dy_id As String = "" If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") + dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + If dy_id = "" Then + dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") + End If Else dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") End If @@ -2237,7 +2259,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 @@ -4057,4 +4079,9 @@ Public Class frmStartOptions showPic(blt.exportiereBlackList, PictureBox19) Me.Cursor = Cursors.Default End Sub + + Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + sendWOELFL_USTVAntraege("al@verag.ag") + End Sub End Class \ No newline at end of file