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 72a18cd..aa958b0 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb @@ -17,31 +17,31 @@ 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,8 +50,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize UngueltigkeitSicherheitenMITyp object ''' @@ -59,10 +59,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -71,14 +71,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes UngueltigkeitSicherheitenMITyp object ''' @@ -89,69 +89,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -162,88 +162,88 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +252,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize EinzelUngueltigkeitSicherheitenTyp object ''' @@ -261,10 +261,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -273,14 +273,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes EinzelUngueltigkeitSicherheitenTyp object ''' @@ -291,69 +291,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -364,103 +364,103 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +469,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ObjektIdentifizierungMITyp object ''' @@ -478,10 +478,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -490,14 +490,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes ObjektIdentifizierungMITyp object ''' @@ -508,69 +508,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -581,70 +581,70 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungMITyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +653,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -662,10 +662,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -674,14 +674,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object ''' @@ -692,69 +692,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -765,64 +765,64 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +831,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataType object ''' @@ -840,10 +840,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -852,14 +852,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes ApplicationInternalDataType object ''' @@ -870,69 +870,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -943,92 +943,92 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ApplicationInternalDataType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) As Boolean Dim exception As System.Exception = Nothing Return LoadFromFile(fileName, obj, exception) End Function - + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +1037,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ErrorMIType object ''' @@ -1046,10 +1046,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -1058,14 +1058,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes ErrorMIType object ''' @@ -1076,69 +1076,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -1149,59 +1149,59 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErrorMIType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +1210,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize RepresentativeMIType object ''' @@ -1219,10 +1219,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -1231,14 +1231,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes RepresentativeMIType object ''' @@ -1249,69 +1249,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -1322,114 +1322,114 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, RepresentativeMIType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +1438,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize HolderOfTheTransitProcedureMIType object ''' @@ -1447,10 +1447,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -1459,14 +1459,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes HolderOfTheTransitProcedureMIType object ''' @@ -1477,69 +1477,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -1550,68 +1550,68 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HolderOfTheTransitProcedureMIType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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 +1619,97 @@ 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,8 +1718,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize TransitOperationMIType object ''' @@ -1727,10 +1727,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -1739,14 +1739,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes TransitOperationMIType object ''' @@ -1757,69 +1757,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -1830,81 +1830,81 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationMIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransitOperationMIType) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +1913,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize FehlermeldungMITyp object ''' @@ -1922,10 +1922,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -1934,14 +1934,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes FehlermeldungMITyp object ''' @@ -1952,69 +1952,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -2025,81 +2025,81 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FehlermeldungMITyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +2108,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize SicherheitMITyp object ''' @@ -2117,10 +2117,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -2129,14 +2129,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes SicherheitMITyp object ''' @@ -2147,69 +2147,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -2220,103 +2220,103 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitMITyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +2325,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize HauptverpflichteterAnsprechpartnerMITyp object ''' @@ -2334,10 +2334,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -2346,14 +2346,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes HauptverpflichteterAnsprechpartnerMITyp object ''' @@ -2364,69 +2364,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -2437,209 +2437,209 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +2648,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize KopfDatenUngueltigkeitSicherheitenTyp object ''' @@ -2657,10 +2657,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -2669,14 +2669,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes KopfDatenUngueltigkeitSicherheitenTyp object ''' @@ -2687,69 +2687,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -2760,125 +2760,125 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +2887,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize TransaktionNCTSTyp object ''' @@ -2896,10 +2896,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -2908,14 +2908,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes TransaktionNCTSTyp object ''' @@ -2926,69 +2926,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -2999,64 +2999,64 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionNCTSTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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,8 +3065,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize DatenaustauschNCTSTyp object ''' @@ -3074,10 +3074,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -3086,14 +3086,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes DatenaustauschNCTSTyp object ''' @@ -3104,69 +3104,69 @@ 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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ''' @@ -3177,64 +3177,64 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschNCTSTyp) - Try + Try obj = LoadFromFile(fileName) - Return True + 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) 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 Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing - Try + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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 ApplicationInternalDataAdditionalDetailsType - -#Region "Private fields" + + #Region "Private fields" Private _data As List(Of ApplicationInternalDataAdditionalDetailsDataType) - + Private Shared _serializerXml As XmlSerializer -#End Region - + #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 + Me._data = value End Set End Property - + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then @@ -3243,8 +3243,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" + + #Region "Serialize/Deserialize" ''' ''' Serialize ApplicationInternalDataAdditionalDetailsType object ''' @@ -3252,10 +3252,10 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Public Overridable Function Serialize() 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.Indent = true xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) @@ -3264,14 +3264,14 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 - + ''' ''' Deserializes ApplicationInternalDataAdditionalDetailsType object ''' @@ -3282,69 +3282,69 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 + 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 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 + Try stringReader = New StringReader(input) - Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsType) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),ApplicationInternalDataAdditionalDetailsType) 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 ApplicationInternalDataAdditionalDetailsType - Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsType) + Return CType(SerializerXml.Deserialize(s),ApplicationInternalDataAdditionalDetailsType) End Function -#End Region - + #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 Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing - Try + Try SaveToFile(fileName) - Return True + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) Dim streamWriter As StreamWriter = Nothing - Try - Dim dataString As String = Serialize() + Try + Dim dataString As String = Serialize Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText 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 ApplicationInternalDataAdditionalDetailsType object ''' @@ -3355,36 +3355,36 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 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 + Try obj = LoadFromFile(fileName) - Return True + 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 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 + Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) 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 diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index ce659d6..696a14f 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -12,6 +12,8 @@ Public Class cZOLL_IMPORT Dim strManNr As String = "VERA" Dim strManNl As String = "SUB" + Dim EZOLL_SQL As String = "EZOLL" + Dim packstueckeAVISO_TMP As String = "" Dim RohmasseAviso As String = "" Dim packstueckeZOLL_TMP As String = "" @@ -322,11 +324,11 @@ Public Class cZOLL_IMPORT Public Shared Function EZOLLImport(LRN, art, Optional ByRef SPEDBUCH_TMP = Nothing) As Boolean + Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch ' Dim cZOLL_IMPORT As New cZOLL_IMPORT - Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA If True Then 'Filiale erkennen: @@ -336,6 +338,7 @@ Public Class cZOLL_IMPORT Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" : Return False 'Keine Atoerfassung Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" + Case "5601" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" End Select Dim abfertigungsnummer = getAbfertigungsnummer(LRN) @@ -386,9 +389,13 @@ Public Class cZOLL_IMPORT End If End If End If + Else + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp Return False 'Ohne Sendungsverweis kein eintrag... End If + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp Return False End Function @@ -534,6 +541,12 @@ Public Class cZOLL_IMPORT End If notFound = Me.notFound Case 1 'ezoll + + EZOLL_SQL = "EZOLL" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" : EZOLL_SQL = "EZOLL_UNISPED" + End Select + SPEDITIONSBUCH.Zollsystem = "E" If EZA_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr @@ -730,15 +743,15 @@ Public Class cZOLL_IMPORT End If If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then - If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr - If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger - End If + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr + If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger + End If If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then - If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr) - If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber - End If + If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr) + If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber + End If End If SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr @@ -1198,13 +1211,13 @@ Public Class cZOLL_IMPORT Return KDSQL.getValueTxtBySql("SELECT TOP 1 veoant_mrn FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & NCTS_Nr & "' AND veoant_stat BETWEEN 50 AND 60 ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG) End Function Public Function getMRNFROM_EZollNCTSDatenbereitstellung(NCTS_Nr) As String - 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL") - Return KDSQL.getValueTxtBySql("SELECT top 1 CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL") + 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", EZOLL_SQL) + Return KDSQL.getValueTxtBySql("SELECT top 1 CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", EZOLL_SQL) End Function Public Function getMRNFROM_EZollNCTSDatenbereitstellungDT(NCTS_Nr) As DataTable - 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL") - Return KDSQL.loadDgvBySql("SELECT CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL") + 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", EZOLL_SQL) + Return KDSQL.loadDgvBySql("SELECT CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", EZOLL_SQL) End Function @@ -1292,12 +1305,12 @@ Public Class cZOLL_IMPORT Dim Sicherheitsbetrag As Double = 0 '??????????? dATLAS = Nothing - dATLAS = KDSQL.loadDgvBySql("SELECT veoant_beznr, veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr, veoerz_sicbsc, veoerz_basbtg, veoerz_baswrg, veoerz_sicbtg, veoerz_sicwrg, veoant_korant" & _ - " FROM veoerz t1 WHERE (veoant_beznr = '" & NCTS_Nr & "') AND (basman_nr = '" & strManNr & "') AND (basman_nl = '" & strManNl & "') AND (veoerz_typ = 2)" & _ - " AND (veoant_korant = (SELECT MAX(t2.veoant_korant) FROM veoerz t2" & _ - " WHERE t2.veoant_beznr = t1.veoant_beznr AND t2.veoant_lfdnr = t1.veoant_lfdnr AND t2.veopos_posnr = t1.veopos_posnr AND" & _ - " t2.veoerz_typ = t1.veoerz_typ AND t2.veoerz_lfdnr = t1.veoerz_lfdnr AND t2.basman_nr = t1.basman_nr AND" & _ - " t2.basman_nl = t1.basman_nl)) " & _ + dATLAS = KDSQL.loadDgvBySql("SELECT veoant_beznr, veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr, veoerz_sicbsc, veoerz_basbtg, veoerz_baswrg, veoerz_sicbtg, veoerz_sicwrg, veoant_korant" & + " FROM veoerz t1 WHERE (veoant_beznr = '" & NCTS_Nr & "') AND (basman_nr = '" & strManNr & "') AND (basman_nl = '" & strManNl & "') AND (veoerz_typ = 2)" & + " AND (veoant_korant = (SELECT MAX(t2.veoant_korant) FROM veoerz t2" & + " WHERE t2.veoant_beznr = t1.veoant_beznr AND t2.veoant_lfdnr = t1.veoant_lfdnr AND t2.veopos_posnr = t1.veopos_posnr AND" & + " t2.veoerz_typ = t1.veoerz_typ AND t2.veoerz_lfdnr = t1.veoerz_lfdnr AND t2.basman_nr = t1.basman_nr AND" & + " t2.basman_nl = t1.basman_nl)) " & " ORDER BY veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr", ATLAS_SERVER_VERBINDUNG) If dATLAS.Rows.Count > 0 Then notFound = False @@ -1345,13 +1358,13 @@ Public Class cZOLL_IMPORT Else ' In Euro umrechnen. If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then - Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _ - " FROM baskur" & _ - " WHERE (baskur_code = '" & r.Item("veoerz_sicwrg") & "')" & _ - " AND (baskur_typ = 1 OR baskur_typ = 2)" & _ - " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _ - " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _ - " AND (baskur_wkz = 'EUR')" & _ + Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & + " FROM baskur" & + " WHERE (baskur_code = '" & r.Item("veoerz_sicwrg") & "')" & + " AND (baskur_typ = 1 OR baskur_typ = 2)" & + " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & + " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & + " AND (baskur_wkz = 'EUR')" & " ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG) If dATLAS2.Rows.Count > 0 Then Dim curEurobetrag = r.Item("veoerz_sicbtg") / dATLAS2.Rows(0).Item("baskur_kurs") @@ -1406,10 +1419,10 @@ Public Class cZOLL_IMPORT Dim Bestimmungszollstelle = "" Dim Bürgschaft = "" Dim Sicherheitsbetrag As Double - Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _ - " FROM zsAnmRefs" & _ - " WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "')" & _ - " ORDER BY GeaendertAm DESC", "EZOLL") + Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & + " FROM zsAnmRefs" & + " WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "')" & + " ORDER BY GeaendertAm DESC", EZOLL_SQL) If dEZOLL Is Nothing Then notFound = True : Exit Sub If dEZOLL.Rows.Count = 0 Then @@ -1431,9 +1444,9 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Absender = "" Then ' Tabelle zsAnmConorTra lesen. - Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ - " FROM zsAnmConorTra" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & + " FROM zsAnmConorTra" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmConorTra.Rows().Count > 0 Then If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50) If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50) @@ -1445,9 +1458,9 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Empfänger = "" Then ' Tabelle zsAnmConeeTra lesen. - Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ - " FROM zsAnmConeeTra" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & + " FROM zsAnmConeeTra" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmConeeTra.Rows().Count > 0 Then If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50) @@ -1459,9 +1472,9 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmTransp lesen. - Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _ - " FROM zsAnmTransp" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & + " FROM zsAnmTransp" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmTransp.Rows().Count > 0 Then If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) @@ -1470,9 +1483,9 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmValData lesen. - Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _ - " FROM zsAnmValData" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & + " FROM zsAnmValData" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmValData.Rows().Count > 0 Then If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then @@ -1487,9 +1500,9 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmHea lesen. - Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _ - " FROM zsAnmHea" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & + " FROM zsAnmHea" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If packstueckeZOLL_TMP = "" Then If DTzsAnmHea.Rows().Count > 0 Then @@ -1498,10 +1511,10 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmGdsitem lesen. - Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _ - " FROM zsAnmGdsitem" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _ - " ORDER BY GdsItemID", "EZOLL") + Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & + " FROM zsAnmGdsitem" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & + " ORDER BY GdsItemID", EZOLL_SQL) If DTzsAnmGdsitem.Rows().Count > 0 Then If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then @@ -1514,19 +1527,19 @@ Public Class cZOLL_IMPORT End If End If ' Tabelle zsAnmDestCo lesen. - Dim DTzsAnmDestCo As DataTable = KDSQL.loadDgvBySql("SELECT Ref" & _ - " FROM zsAnmDestCo" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmDestCo As DataTable = KDSQL.loadDgvBySql("SELECT Ref" & + " FROM zsAnmDestCo" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmDestCo.Rows().Count > 0 Then If Not IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then [Bestimmungszollstelle] = DTzsAnmDestCo.Rows(0).Item("ref") End If ' Tabelle zsAnmGrteeGrteeRef lesen. - Dim DTzsAnmGrteeGrteeRef As DataTable = KDSQL.loadDgvBySql("SELECT GRN, GVal" & _ - " FROM zsAnmGrteeGrteeRef" & _ - " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _ - " ORDER BY GrteeID, GrteeRefID", "EZOLL") + Dim DTzsAnmGrteeGrteeRef As DataTable = KDSQL.loadDgvBySql("SELECT GRN, GVal" & + " FROM zsAnmGrteeGrteeRef" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & + " ORDER BY GrteeID, GrteeRefID", EZOLL_SQL) If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then [Sicherheitsbetrag] = 0 @@ -1563,10 +1576,10 @@ Public Class cZOLL_IMPORT ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) - Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _ - " FROM zsAnmRefs" & _ - " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & _ - " ORDER BY GeaendertAm DESC", "EZOLL") + Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & + " FROM zsAnmRefs" & + " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & + " ORDER BY GeaendertAm DESC", EZOLL_SQL) If dEZOLL Is Nothing Then notFound = True : Exit Sub If dEZOLL.Rows.Count = 0 Then @@ -1588,9 +1601,9 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Absender = "" Then ' Tabelle zsAnmConorTra lesen. - Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ - " FROM zsAnmConorTra" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & + " FROM zsAnmConorTra" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmConorTra.Rows().Count > 0 Then If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50) @@ -1603,9 +1616,9 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Empfänger = "" Then ' Tabelle zsAnmConeeTra lesen. - Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ - " FROM zsAnmConeeTra" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & + " FROM zsAnmConeeTra" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmConeeTra.Rows().Count > 0 Then If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50) @@ -1617,18 +1630,18 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmTransp lesen. - Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _ - " FROM zsAnmTransp" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & + " FROM zsAnmTransp" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmTransp.Rows().Count > 0 Then If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) End If ' Tabelle zsAnmValData lesen. - Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _ - " FROM zsAnmValData" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & + " FROM zsAnmValData" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL) If DTzsAnmValData.Rows().Count > 0 Then If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then @@ -1643,9 +1656,9 @@ Public Class cZOLL_IMPORT End If ' Tabelle zsAnmHea lesen. - Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _ - " FROM zsAnmHea" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & + " FROM zsAnmHea" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL) If packstueckeZOLL_TMP = "" Then If DTzsAnmHea.Rows().Count > 0 Then @@ -1653,11 +1666,14 @@ Public Class cZOLL_IMPORT If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then SPEDITIONSBUCH.Rohmasse = DTzsAnmHea.Rows(0).Item("TotGross") End If + 'Dim pkAnz = SQL.DLookup("sum(cast(Nr as float))", "[zsAnmGdsItemPack]", "(LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL, "") + + ' Tabelle zsAnmGdsitem lesen. - Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _ - " FROM zsAnmGdsitem" & _ - " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")" & _ - " ORDER BY GdsItemID", "EZOLL") + Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & + " FROM zsAnmGdsitem" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")" & + " ORDER BY GdsItemID", EZOLL_SQL) If DTzsAnmGdsitem.Rows().Count > 0 Then If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then @@ -1671,7 +1687,7 @@ Public Class cZOLL_IMPORT End If ' Qualitäts-CRN --> Tabelle zsAnmGdsItemDocCerts lesen. - Dim DTzsAnmGdsQ As DataTable = KDSQL.loadDgvBySql("Select distinct(DRef) DRef FROM [zsAnmGdsItemDocCerts] WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & " AND DocCd IN ('N002' ,'7246') )", "EZOLL") + Dim DTzsAnmGdsQ As DataTable = KDSQL.loadDgvBySql("Select distinct(DRef) DRef FROM [zsAnmGdsItemDocCerts] WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & " AND DocCd IN ('N002' ,'7246') )", EZOLL_SQL) If DTzsAnmGdsQ IsNot Nothing AndAlso DTzsAnmGdsQ.Rows().Count > 0 Then If Not IsNull(DTzsAnmGdsQ.Rows(0).Item("DRef")) Then SPEDITIONSBUCH.QKN = DTzsAnmGdsQ.Rows(0).Item("DRef") End If diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index dfba426..8f9fc91 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -205,6 +205,8 @@ Partial Class frmMitarbDetails Me.Label7 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.btnDelete = New System.Windows.Forms.Button() + Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label62 = New System.Windows.Forms.Label() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -554,6 +556,8 @@ Partial Class frmMitarbDetails ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.Label62) + Me.TabPage4.Controls.Add(Me.cboEZOLL_SB_UNISPED) Me.TabPage4.Controls.Add(Me.Label61) Me.TabPage4.Controls.Add(Me.txtATGRNAccessCode_AT51FP7) Me.TabPage4.Controls.Add(Me.txtATGRNAccessCode_AT52VA6) @@ -699,7 +703,7 @@ Partial Class frmMitarbDetails 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(214, 21) + Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21) Me.cboEZOLL_SB.TabIndex = 109 ' 'cboATLAS_SB @@ -2258,6 +2262,30 @@ Partial Class frmMitarbDetails Me.btnDelete.UseVisualStyleBackColor = False Me.btnDelete.Visible = False ' + '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 + ' + 'Label62 + ' + Me.Label62.AutoSize = True + Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label62.Location = New System.Drawing.Point(375, 13) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(61, 13) + Me.Label62.TabIndex = 122 + Me.Label62.Text = "(UNISPED)" + ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2487,4 +2515,6 @@ Partial Class frmMitarbDetails Friend WithEvents TabPage7 As TabPage Friend WithEvents lbSprachen As VERAG_PROG_ALLGEMEIN.MyListBox Friend WithEvents btnDelete As Button + Friend WithEvents Label62 As Label + Friend WithEvents cboEZOLL_SB_UNISPED As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index d5287b8..6747b1e 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -661,6 +661,7 @@ Public Class frmMitarbDetails If ZOLLDATENBEARB Then mitarbeiter.mit_EZOLL_SB = If(cboEZOLL_SB._value = "", Nothing, cboEZOLL_SB._value) mitarbeiter.mit_ATLAS_SB = If(cboATLAS_SB._value = "", Nothing, cboATLAS_SB._value) + mitarbeiter.mit_EZOLL_SB_UNISPED = If(cboEZOLL_SB_UNISPED._value = "", Nothing, cboEZOLL_SB_UNISPED._value) End If If mitarbeiter.mit_FMZollPersID IsNot Nothing And cboKasse._value <> "" Then @@ -880,7 +881,17 @@ Public Class frmMitarbDetails tbcntr.SelectedIndex = 0 Exit Sub End Try + Try + cboEZOLL_SB_UNISPED.fillWithSQL("SELECT [PersonalID],[UserID] FROM [zzPersonal] where lizenznr='S01133' ORDER BY UserID ", False, "EZOLL_UNISPED", True) + Catch ex As Exception + MsgBox("EZOLL UNISPED Problem") + tbcntr.SelectedIndex = 0 + Exit Sub + End Try + If If(mitarbeiter.mit_EZOLL_SB_UNISPED, -1) > 0 Then + cboEZOLL_SB_UNISPED._value = mitarbeiter.mit_EZOLL_SB_UNISPED + End If If If(mitarbeiter.mit_EZOLL_SB, -1) > 0 Then cboEZOLL_SB._value = mitarbeiter.mit_EZOLL_SB End If diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 00aebf4..fb584f0 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 01001d8..2b7b4d4 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) 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_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) 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)" @@ -1595,6 +1595,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_firma", m.mit_firma) cmd.Parameters.AddWithValue("@mit_firmaFMZoll", If(m.mit_firmaFMZoll, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_EZOLL_SB", If(m.mit_EZOLL_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_EZOLL_SB_UNISPED", If(m.mit_EZOLL_SB_UNISPED, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATLAS_SB", If(m.mit_ATLAS_SB, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_DAKOSY_SB", If(m.mit_DAKOSY_SB, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_DAKOSY_SBFull", If(m.mit_DAKOSY_SBFull, DBNull.Value)) @@ -1646,8 +1647,8 @@ Public Class cMitarbeiter Dim hAuswahl As String = "" 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_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" & + "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_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse" & " WHERE mit_id=@mit_id " @@ -1693,6 +1694,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_id", m.mit_id) cmd.Parameters.AddWithValue("@mit_EZOLL_SB", If(m.mit_EZOLL_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_EZOLL_SB_UNISPED", If(m.mit_EZOLL_SB_UNISPED, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATLAS_SB", If(m.mit_ATLAS_SB, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_DAKOSY_SB", If(m.mit_DAKOSY_SB, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_DAKOSY_SBFull", If(m.mit_DAKOSY_SBFull, DBNull.Value)) @@ -3792,16 +3794,16 @@ Public Class cDienstplan Public Function getDienstEintragList(datum As Date, niederlassung As String) As List(Of cDienstEintrag) - Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung " + Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung " Dim daten As List(Of cDienstEintrag) = Nothing Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) - + cmd.Parameters.AddWithValue("@dstetr_datum", datum) cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung) - 'MsgBox(daten.dstetr_dstmaId) + 'MsgBox(daten.dstetr_dstmaId) Try Dim dr = cmd.ExecuteReader() If dr.HasRows Then @@ -3835,7 +3837,7 @@ Public Class cDienstplan Public Function getDienstEintragListBenSchicht(datum As Date, niederlassung As String) As List(Of cDienstEintrag) Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung AND [dstetr_art] IN (SELECT case WHEN dedet_bezeichnungDP<>'' then dedet_bezeichnungDP ELSE dedet_abt END FROM [tblDienstplanEintraegeDetails] WHERE dedet_niederlassung=@dstetr_niederlassung AND dedet_benutzerdefinierteSchicht=1)" - + Dim daten As New List(Of cDienstEintrag) Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 450b5c3..e4d8f41 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -195,6 +195,7 @@ 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.LinkLabel48 = New System.Windows.Forms.LinkLabel() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() @@ -232,6 +233,7 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.LinkLabel48) Me.pnl.Controls.Add(Me.cbxVermerk) Me.pnl.Controls.Add(Me.cbxDatevTest) Me.pnl.Controls.Add(Me.cbxDatevOpen) @@ -2406,6 +2408,17 @@ Partial Class frmStartOptions Me.Button21.Text = "AAS Sendung 24h" Me.Button21.UseVisualStyleBackColor = True ' + 'LinkLabel48 + ' + Me.LinkLabel48.AutoSize = True + Me.LinkLabel48.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel48.Location = New System.Drawing.Point(405, 135) + Me.LinkLabel48.Name = "LinkLabel48" + Me.LinkLabel48.Size = New System.Drawing.Size(129, 13) + Me.LinkLabel48.TabIndex = 77 + Me.LinkLabel48.TabStop = True + Me.LinkLabel48.Text = "ZOLARIS Anh. UNISPED" + ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2629,4 +2642,5 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel46 As LinkLabel Friend WithEvents LinkLabel47 As LinkLabel Friend WithEvents PictureBox21 As PictureBox + Friend WithEvents LinkLabel48 As LinkLabel End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 950ed50..6a494a6 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -332,7 +332,32 @@ Public Class frmStartOptions Case "ezoll_anhaenge" Dim f As New frmInfo(PARAM) f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + importFileFromEZOLL(Now) 'VERAG + + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + importFileFromEZOLL(Now) + + closeMe() + + + Case "ezoll_anhaenge_verag" + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + importFileFromEZOLL(Now) + + closeMe() + + + Case "ezoll_anhaenge_unisped" + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" importFileFromEZOLL(Now) @@ -480,10 +505,13 @@ Public Class frmStartOptions End Function Function importFileFromEZOLL(datum As Date) As Boolean Try - + Dim db = "EZOLL" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" : db = "EZOLL_UNISPED" + End Select Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID - where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200) + where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200) If dt IsNot Nothing Then For Each row In dt.Rows Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"), row("LizenzNr")) @@ -526,7 +554,12 @@ Public Class frmStartOptions If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) destFull = "" - copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull) + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Case "UNISPED" : copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\SRV04.unisu.at\c$\"), ZIEL_PFAD, destFull) + Case Else : copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull) + + End Select If destFull <> "" Then If DS.insertDataToDATENSERVER(destFull) Then @@ -3887,4 +3920,11 @@ Public Class frmStartOptions Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try Me.Cursor = Cursors.Default End Sub + + Private Sub LinkLabel48_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel48.LinkClicked + Dim f = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now))) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f + End Sub End Class \ No newline at end of file