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 36336b6..72a18cd 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net45","NameSpace":"UngueltigkeitSicherheitenNCTSDE_004","Language":"VisualBasic","CollectionBase":"","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{"EnableWarning":true}} +'' {"TargetFramework":"Net45","NameSpace":"UngueltigkeitSicherheitenNCTSDE_004","Language":"VisualBasic","CollectionBase":"","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{"EnableWarning":true}} '' '' ------------------------------------------------------------------------------ Imports System @@ -62,6 +62,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -262,6 +264,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -477,6 +481,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -659,6 +665,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -835,6 +843,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1039,6 +1049,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1210,6 +1222,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1436,6 +1450,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1714,6 +1730,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1907,6 +1925,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2100,6 +2120,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2315,6 +2337,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2636,6 +2660,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2873,6 +2899,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3049,6 +3077,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3225,6 +3255,8 @@ Namespace UngueltigkeitSicherheitenNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb index 7d93196..de43979 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb @@ -1,7 +1,7 @@ '' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com -'' {"TargetFramework":"Net47","NameSpace":"VersandanmeldungNCTSDE_004","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' {"TargetFramework":"Net47","NameSpace":"VersandanmeldungNCTSDE_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning @@ -68,6 +68,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -261,6 +263,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -561,6 +565,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -748,6 +754,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -935,6 +943,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1146,6 +1156,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1573,6 +1585,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -1825,6 +1839,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2024,6 +2040,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2229,6 +2247,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2440,6 +2460,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -2964,6 +2986,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3240,6 +3264,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3439,6 +3465,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3626,6 +3654,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3807,6 +3837,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -3994,6 +4026,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4181,6 +4215,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4368,6 +4404,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4555,6 +4593,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -4766,6 +4806,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5135,6 +5177,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5334,6 +5378,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5521,6 +5567,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5708,6 +5756,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -5895,6 +5945,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6106,6 +6158,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6322,6 +6376,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6509,6 +6565,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6713,6 +6771,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -6989,6 +7049,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7176,6 +7238,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7399,6 +7463,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7598,6 +7664,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -7953,6 +8021,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8157,6 +8227,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8374,6 +8446,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8561,6 +8635,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -8777,6 +8853,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9484,6 +9562,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9731,6 +9811,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -9912,6 +9994,8 @@ Namespace VersandanmeldungNCTSDE_004 Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) @@ -10044,5 +10128,188 @@ Namespace VersandanmeldungNCTSDE_004 End Try End Function End Class + + + Partial Public Class ApplicationInternalDataAdditionalDetailsType + +#Region "Private fields" + Private _data As List(Of ApplicationInternalDataAdditionalDetailsDataType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._data = New List(Of ApplicationInternalDataAdditionalDetailsDataType)() + End Sub + + + Public Property Data() As List(Of ApplicationInternalDataAdditionalDetailsDataType) + Get + Return Me._data + End Get + Set + Me._data = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicationInternalDataAdditionalDetailsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicationInternalDataAdditionalDetailsType object + ''' + ''' string to deserialize + ''' Output ApplicationInternalDataAdditionalDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsType + Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsType) + End Function +#End Region + + ''' + ''' Serializes current ApplicationInternalDataAdditionalDetailsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsType object + ''' + ''' File to load and deserialize + ''' Output ApplicationInternalDataAdditionalDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class End Namespace #Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb index 4f1388f..5168c8d 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb @@ -77,6 +77,7 @@ Public Class cDakosyNCTSOut004 Property ncts_BindingItinerary As Object = Nothing Property ncts_ContainerIndicator As Object = Nothing Property ncts_InlandModeOfTransport As Object = Nothing + Property ncts_ModeOfTransportAtTheBorder As Object = Nothing Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing @@ -248,6 +249,38 @@ Public Class cDakosyNCTSOut004 Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing + + + Property ncts_PreviousDocument_1_Type As Object = Nothing + Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_2_Type As Object = Nothing + Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_3_Type As Object = Nothing + Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_4_Type As Object = Nothing + Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_5_Type As Object = Nothing + Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_6_Type As Object = Nothing + Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_7_Type As Object = Nothing + Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_8_Type As Object = Nothing + Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_9_Type As Object = Nothing + Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing + + + Property ncts_TransportDocument_1_Type As Object = Nothing Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing Property ncts_TransportDocument_2_Type As Object = Nothing @@ -305,6 +338,9 @@ Public Class cDakosyNCTSOut004 Property ncts_AUTOIMPIndicator As Object = Nothing Property ncts_Stammreferenz As Object = Nothing + Property ncts_Eroeffnung As Object = Nothing + Property ncts_Ankunft As Object = Nothing + Property ncts_Erledigung As Object = Nothing Property ncts_GUARANTEE As New List(Of cDakosy_NCTSOut004_Guarantee) @@ -404,6 +440,7 @@ Public Class cDakosyNCTSOut004 list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality)) @@ -575,6 +612,39 @@ Public Class cDakosyNCTSOut004 list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation)) + + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type)) @@ -631,6 +701,9 @@ Public Class cDakosyNCTSOut004 list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung)) @@ -646,9 +719,9 @@ Public Class cDakosyNCTSOut004 Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOut004 WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " & - " BEGIN " & getUpdateCmd() & " END " & + " BEGIN " & getUpdateCmd() & " End " & " Else " & - " BEGIN " & getInsertCmd() & " END " & + " BEGIN " & getInsertCmd() & " End " & " commit tran " Dim ncts_IdTMP = ncts_Id @@ -657,6 +730,29 @@ Public Class cDakosyNCTSOut004 Return ncts_Id > 0 End Function + Public Function GET_PKCNT() As Integer + GET_PKCNT = 0 + For Each HC In Me.ncts_HOUSE_CONSIGNMENT + For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM + For Each PK In HCCI.nctsHCCI_PACKAGING + If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then + GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages + End If + Next + Next + Next + End Function + + + Public Function GET_POSCNT() As Integer + GET_POSCNT = 0 + For Each HC In Me.ncts_HOUSE_CONSIGNMENT + GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count + Next + End Function + + + Public Function SAVE_ALL(Optional errHinweis = "") As Boolean If Not SAVE(errHinweis) Then Return False If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment() Then Return False @@ -673,7 +769,7 @@ Public Class cDakosyNCTSOut004 ncts_TRANSPORTEQUIPMENT.Clear() End If Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id ", conn) + Using cmd As New SqlCommand("Select * FROM tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id ", conn) cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -1289,22 +1385,22 @@ Public Class cDakosyNCTSOut004 'Ermittlung ob T1 oder T2 If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then - If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then + If If(DY.ncts_Declarationtype, "").ToString.Contains("T2") Then SPEDITIONSBUCH.Abfertigungsart = 6 - For Each s In DY.ncts_SICHERHEITSANGABEN - Select Case If(s.nctsSA_GRN, "") + For Each s In DY.ncts_GUARANTEE + Select Case If(s.nctsGRT_GRN, "") Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 End Select Next - ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then + ElseIf If(DY.ncts_Declarationtype, "").ToString.Contains("TIR") Then 'For Each s In DY.ncts_SICHERHEITSANGABEN ' If If(s.nctsSA_ArtCode, "") = "B" Then ' SPEDITIONSBUCH.Abfertigungsart = 8 ' End If 'Next - If DY.ncts_BestimmungslandCode = "TR" Then + If DY.ncts_CountryOfDestination = "TR" Then SPEDITIONSBUCH.Abfertigungsart = 12 Else SPEDITIONSBUCH.Abfertigungsart = 8 @@ -1424,35 +1520,35 @@ Public Class cDakosyNCTSOut004 Dim packSt = "" - Dim PkCnt = 0 - For Each HC In DY.ncts_HOUSE_CONSIGNMENT - For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM - For Each PK In HCCI.nctsHCCI_PACKAGING - If PK.nctsHCCIPK_NumberOfPackages Is Not Nothing Then - PkCnt += PK.nctsHCCIPK_NumberOfPackages - End If - Next - Next - - Next - If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. " + Dim pkcnt = DY.GET_PKCNT() + If pkcnt > 0 Then packSt = pkcnt & " Pk. " - If DY.ncts_WARENPOS.Count > 0 Then - 'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "") + If DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then SPEDITIONSBUCH.Währungsschlüssel = "900" - If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "") + Dim sumBrg As Double = 0 - For Each S In DY.ncts_WARENPOS - sumBrg += If(S.nctsWP_Warenwert, 0) + For Each HC In DY.ncts_HOUSE_CONSIGNMENT + For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM + sumBrg += If(HCCI.nctsHCCI_GoodsValue, 0) + Next Next If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg + + If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then + + If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods IsNot Nothing Then + packSt &= If(DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, "") + End If + + End If End If - If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg" - If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") + If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GrossMass).ToString("N1") & " kg" + + If DY.ncts_GrossMass IsNot Nothing AndAlso IsNumeric(DY.ncts_GrossMass) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GrossMass) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") 'Personal Abfertigung: Try If DY.ncts_Bearbeiter IsNot Nothing Then @@ -1755,6 +1851,39 @@ Public Class cDakosy_NCTSOut004_HouseConsignment Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing + + + + + Property nctsHC_PreviousDocument_1_Type As Object = Nothing + Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_2_Type As Object = Nothing + Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_3_Type As Object = Nothing + Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_4_Type As Object = Nothing + Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_5_Type As Object = Nothing + Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_6_Type As Object = Nothing + Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_7_Type As Object = Nothing + Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_8_Type As Object = Nothing + Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_9_Type As Object = Nothing + Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing + + Property nctsHC_TransportDocument_1_Type As Object = Nothing Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing Property nctsHC_TransportDocument_2_Type As Object = Nothing @@ -1914,6 +2043,38 @@ Public Class cDakosy_NCTSOut004_HouseConsignment list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type)) diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/xsd2code.config b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/xsd2code.config index 6c3efc7..d702183 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/xsd2code.config +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/xsd2code.config @@ -3,7 +3,11 @@ Net47 VersandanmeldungNCTSDE_004 VisualBasic - xsd2code.exe <XSD File> VersandanmeldungNCTSDE_004 <Output file> /l VisualBasic /p Net47 /clean /s /xml /xa /Indent2Space + xsd2code.exe <XSD File> VersandanmeldungNCTSDE_004 <Output file> /l VisualBasic /p Net47 /emt /clean /uct /expattg /s /xml /ust /xa /in /Indent2Space + true + true + true + true true diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index c587c4e..96f2eba 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -100,17 +100,25 @@ Public Class cZollsysteme_Aktenbeschriftung Select Case Abfertigungsart Case 38, 26 'AT ' getADFrom_EZOLL - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Ü-T1 - isUeT1 = (getDataByBezugsnummer) - Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... + getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! + If Not getDataByBezugsnummer Then 'Falls doch nicht + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) + isUeT1 = (getDataByBezugsnummer) + Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... + End If Case 1, 2, 3, 28, 39 getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) '... and Systeme Case Else - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) + + getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! If Not getDataByBezugsnummer Then 'Falls doch nicht - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) + If Not getDataByBezugsnummer Then 'Falls doch nicht + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + End If End If End Select End Select @@ -274,6 +282,11 @@ Public Class cZollsysteme_Aktenbeschriftung If NCTS Is Nothing Then Return False Return load_NCTS_FromDAKOSY(NCTS, PosNrAngeben) End Function + Function load_NCTS004_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False, Optional PosNrAngeben As Boolean = False) As Boolean + Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True, checkValidStatus) + If NCTS Is Nothing Then Return False + Return load_NCTS004_FromDAKOSY(NCTS, PosNrAngeben) + End Function Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut, PosNrAngeben As Boolean) As Boolean Try @@ -389,6 +402,144 @@ Public Class cZollsysteme_Aktenbeschriftung Return False End Function + Function load_NCTS004_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut004, PosNrAngeben As Boolean) As Boolean + Try + If NCTS Is Nothing Then Return Nothing + NCTS.LOAD_HouseConsignment() + + ' + If IsNumeric(If(NCTS.ncts_GrossMass, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GrossMass).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GrossMass).ToString("N1") + + ' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "") + 'Property Absender As String + 'Property Empfaenger As String + 'Property Anmelder As String + + Dim RG_List As New List(Of String) + Dim ATR_List As New List(Of String) + Dim PAR_List As New List(Of String) ' präfAufRg + Dim Colli As Integer = 0 + Dim cnt As Integer = 0 + Dim Warenwert As Double = 0 + Dim WarenwertWaehrung As String = "" + + + + If NCTS.ncts_HOUSE_CONSIGNMENT.Count > 0 Then + + Me.Warenbezeichung = NCTS.ncts_HOUSE_CONSIGNMENT.Count & "/" & NCTS.GET_POSCNT & " POS: " + + If NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then + Me.Warenbezeichung &= If(NCTS.GET_POSCNT = 1, If(NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, ""), "* diverse *") + End If + + + For Each HC In NCTS.ncts_HOUSE_CONSIGNMENT + For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_1_Type, HCCI.nctsHCCI_SupportingDocument_1_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_2_Type, HCCI.nctsHCCI_SupportingDocument_2_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_3_Type, HCCI.nctsHCCI_SupportingDocument_3_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_4_Type, HCCI.nctsHCCI_SupportingDocument_4_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_5_Type, HCCI.nctsHCCI_SupportingDocument_5_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_6_Type, HCCI.nctsHCCI_SupportingDocument_6_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_7_Type, HCCI.nctsHCCI_SupportingDocument_7_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_8_Type, HCCI.nctsHCCI_SupportingDocument_8_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_9_Type, HCCI.nctsHCCI_SupportingDocument_9_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber) + + If IsNumeric(If(HCCI.nctsHCCI_GoodsValue, "")) Then Warenwert += HCCI.nctsHCCI_GoodsValue + + Next + + cnt += 1 + Next + If NCTS.GET_POSCNT = 1 Then + WarenwertWaehrung = If(NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_CurrencyOfGoodsValue, "") + End If + + Colli = NCTS.GET_PKCNT + + End If + num_Colli = Colli + Me.Colli = Colli & " Pk." + Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung + + + Absender = (If(NCTS.ncts_Consignor_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignor_Name, "") & " " & If(NCTS.ncts_Consignor_Country, "") & " " & If(NCTS.ncts_Consignor_City, "")).ToString.Trim + Empfaenger = (If(NCTS.ncts_Consignee_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignee_Name, "") & " " & If(NCTS.ncts_Consignee_Country, "") & " " & If(NCTS.ncts_Consignee_City, "")).ToString.Trim + Anmelder = (If(NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_Name, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_Country, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_City, "")).ToString.Trim + Sachbearbeiter = If(NCTS.ncts_Bearbeiter, "") + + + ATCMRN = If(If(NCTS.ncts_MRN, "") = "", If(NCTS.ncts_ANR, ""), If(NCTS.ncts_MRN, "")) + + VerBestLandZst = If(NCTS.ncts_CountryOfDispatch, "") & " --> " + If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") + If If(NCTS.ncts_CountryOfRoutingOfConsignment_1, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_1 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_2, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_2 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_3, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_3 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_4, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_4 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_5, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_5 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_6, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_6 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_7, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_7 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_8, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_8 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_9, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_9 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_10, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_10 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_11, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_11 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_12, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_12 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_13, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_13 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_14, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_14 + If If(NCTS.ncts_CountryOfRoutingOfConsignment_15, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_15 + VerBestLandZst &= " --> " & If(NCTS.ncts_CountryOfDestination, "") & ", " + + VerBestLandZst &= If(NCTS.ncts_CustomsOfficeOfDeparture, "") & " --> " + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber + If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber + + If If(NCTS.ncts_CustomsOfficeOfDestinationDeclared, "") <> "" Then VerBestLandZst &= " --> " & NCTS.ncts_CustomsOfficeOfDestinationDeclared + + VerBestLandZst = VerBestLandZst.Replace(" --> --> ", " --> ") + + Handelsrechnung = listToString(RG_List) + Praeferenznachweis = listToString(ATR_List) + PräferenzAufRechnung = listToString(PAR_List) + + Dim AUFSCHUB_List As New List(Of String) + Dim GRNBetrag As Double = 0 + For Each AB In NCTS.ncts_GUARANTEE + addIfNotExists(AUFSCHUB_List, (If(AB.nctsGRT_GRN, "")).Trim) + If IsNumeric(If(AB.nctsGRT_AmountToBeCovered, "")) Then GRNBetrag += AB.nctsGRT_AmountToBeCovered + Next + + Garantie = listToString(AUFSCHUB_List) + Garantie &= ", " & GRNBetrag.ToString("C2") + + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + Return False + End Function + + + Sub addULNCTS004(ByRef RG_List, PosNrAngeben, SupportingDocument_Type, SupportingDocument_ReferenceNumber, nctsHCCI_GoodsItemNumber) + Select Case If(SupportingDocument_Type, "") + Case "N380", "N325" + If PosNrAngeben Then + addIfNotExists(RG_List, If(SupportingDocument_ReferenceNumber, "") & " (" & nctsHCCI_GoodsItemNumber & ")") + Else + addIfNotExists(RG_List, If(SupportingDocument_ReferenceNumber, "")) + End If + End Select + + End Sub Function load_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As Boolean Try If DY_TMP Is Nothing Then Return Nothing @@ -419,21 +570,52 @@ Public Class cZollsysteme_Aktenbeschriftung Return False End Function + 'Function load_NCTS004_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As Boolean + ' Try + ' If DY_TMP Is Nothing Then Return Nothing + ' If NCTS_TMP Is Nothing Then Return Nothing + ' NCTS_TMP.LOAD_HouseConsignment() + ' num_Colli = NCTS_TMP.GET_PKCNT + ' Me.Colli = NCTS_TMP.GET_PKCNT & " Pk." + ' If IsNumeric(If(NCTS_TMP.ncts_GrossMass, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GrossMass).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS_TMP.ncts_GrossMass).ToString("N1") + + + ' Dim RG_List As New List(Of String) + ' Dim ATR_List As New List(Of String) + ' Dim NAR_List As New List(Of String) + + ' For Each POS In NCTS_TMP.LOAD_HouseConsignment + ' For Each UL In POS.nctsWP_UNTERLAGEN + ' If UL.nctsWpUl_Typ = 380 Then addIfNotExists(RG_List, UL.nctsWpUl_Referenz) + ' If UL.nctsWpUl_Typ = 380 Then addIfNotExists(ATR_List, UL.nctsWpUl_Referenz) + ' If UL.nctsWpUl_Typ = 380 Then addIfNotExists(NAR_List, UL.nctsWpUl_Referenz) + ' Next + ' Next + + ' Return True + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' Return Nothing + ' End Try + ' Return False + 'End Function + + Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts - Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & + Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & " WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" & " ORDER BY GeaendertAm DESC", "EZOLL") - If dEZOLL Is Nothing Then Return Nothing - If dEZOLL.Rows.Count = 0 Then Return Nothing + If dEZOLL Is Nothing Then Return Nothing + If dEZOLL.Rows.Count = 0 Then Return Nothing - Dim r As DataRow = dEZOLL.Rows(0) + Dim r As DataRow = dEZOLL.Rows(0) - Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId) - End Function + Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId) + End Function - Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts + Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim LRN = "" Try diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index dc80a75..840eea4 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb @@ -3,6 +3,7 @@ Shared GLO_NCTS_DY As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Shared GLO_NCTS004_DY As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing Shared GLO_DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing Shared GLO_NCTS_TC As TELOTEC_Worker.cTelotec_Anmeldung = Nothing @@ -169,6 +170,138 @@ 'End If + 'Dim destFile = "" + 'Dim filePath = "" + 'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing + '' --> FTP Bereitstellung + 'Select Case GRN + ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + 'End Select + + Return found + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + Shared Function copyFileFTP_VERAGncts004_DY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean + Try + If NCTS_TMP Is Nothing Then Return False + If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False + If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False + If If(NCTS_TMP.ncts_firma, "").ToString = "DURMAZ" Then Return False + + GLO_NCTS004_DY = NCTS_TMP + GLO_DY = DY_TMP + + GLO_SND = Nothing + GLO_AVISO = Nothing + + If DY_TMP.dy_SendungsId IsNot Nothing AndAlso DY_TMP.dy_SendungsId > 0 Then + GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_TMP.dy_SendungsId) + ElseIf FilialenNrTmp IsNot Nothing And AbfertigungsNrTmp IsNot Nothing Then + GLO_SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp) + End If + + If DY_TMP.dy_AvisoId IsNot Nothing AndAlso DY_TMP.dy_AvisoId > 0 Then + GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY_TMP.dy_AvisoId) + ElseIf GLO_SND IsNot Nothing Then + GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(GLO_SND.tblSnd_AvisoID) + End If + + ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL") + + Dim GRN = "" + NCTS_TMP.LOAD_Guarantee() + If NCTS_TMP.ncts_GUARANTEE IsNot Nothing AndAlso NCTS_TMP.ncts_GUARANTEE.Count > 0 Then + GRN = NCTS_TMP.ncts_GUARANTEE(0).nctsGRT_GRN + End If + + Dim destFile = "" + Dim filePath = "" + Dim UniqueId = "" + ' --> FTP Bereitstellung + ' Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing + + Dim found As Boolean = False + Dim vorsystem = "DY" + Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + + If getFTP_Paths(GRN, IF_Obj) Then + For Each o In IF_Obj + + Select Case o.CooName + 'Case "EKOL", "TOBB" + ' 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId) + ' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + ' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) + ' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + Case "GASTON_SCHUL" + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS004_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) + + Dim GASTON_SCHUL_EX As New VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType + GASTON_SCHUL_EX.requestDateTime = Now + GASTON_SCHUL_EX.creationDateTime = NCTS_VERAG_OUT.NCTS_Data.DatDeterminationLimit + + GASTON_SCHUL_EX.movementReferenceNumber = NCTS_VERAG_OUT.ProcessData.MRN + GASTON_SCHUL_EX.dispatchCountry = NCTS_VERAG_OUT.NCTS_Data.DepartureCountry + GASTON_SCHUL_EX.destinationCountry = NCTS_VERAG_OUT.NCTS_Data.DestinationCountry + + 'filePath??? + cGASTON_SCHUL_Interface.copyNCTSToFTP_V1_0_0(GASTON_SCHUL_EX, o, vorsystem, "", destFile, UniqueId, checkAlreadyProvided, found) + Case "TOBB" + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("KONTROLLE --------- TOBB: BezugsNr: " & NCTS_TMP.ncts_ObjectName, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)") + 'Wenn TOBB, nur mit KDNR: + If getTOBBKdnr() > 0 Then + + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS004_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId, getTOBBKdnr) + If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & NCTS_TMP.ncts_ObjectName & vbNewLine & getTOBBDetails(), "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)") + End If + Case Else + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS004_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) + If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + 'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + End Select + Next + End If + + 'If getFTP_Paths(GRN, IF_Obj) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + ' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided) + 'End If + + 'Dim vorsystem = "DY" + 'Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + 'If getFTP_Paths(GRN, IF_Obj) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + ' For Each o In IF_Obj + ' If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then + ' If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then + ' frmStartOptions.copyFile(filePath, o.FTP_Path, destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, o.CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP") + ' End If + ' End If + ' Next + 'End If + + 'Dim destFile = "" 'Dim filePath = "" 'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing @@ -1271,6 +1404,152 @@ End Function + Shared Function genVERAG_OUT_NCTS004_FromDAKOSY_V2_0_2(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String, Optional ClientReference As String = "") As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts + Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts + Try + If DY_TMP Is Nothing Then Return Nothing + If NCTS_TMP Is Nothing Then Return Nothing + If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing + NCTS_TMP.LOAD_HouseConsignment() + + VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht? + + If NCTS_TMP.ncts_firma <> "" Then + VERAG_NCTS.Company = NCTS_TMP.ncts_firma + Else + VERAG_NCTS.Company = "VERAG" + End If + + ' If VERAG_NCTS.Company = "UNISPED" Then Return Nothing ' ---> KEIN UNISPED, erst klären!!!!!!! + + VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung + + 'VERAG_NCTS.InternalReference.OfficeCode = If( + 'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung + + Select Case DY_TMP.dy_Status + Case < 50 + VERAG_NCTS.ProcessData.Status = 0 + Case 50, 53 + VERAG_NCTS.ProcessData.Status = 50 + Case 60 + VERAG_NCTS.ProcessData.Status = 60 + End Select + + VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit + + VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "") + VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "") + VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_Declarationtype, "") + + If IsDate(If(NCTS_TMP.ncts_LimitDate, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_LimitDate, "")) + VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_ActiveBorderTransportMeans_1_IdentificationNumber, "") + VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_CustomsOfficeOfDeparture, "") + VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_CustomsOfficeOfDestinationDeclared, "") + VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_CountryOfDispatch, "").Replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_CountryOfDestination, "").Replace("SRB", "RS") + + 'Versender + VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Consignor_Name, "") + VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Consignor_IdentificationNumber, "") + VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Consignor_SubsidiaryNumber, "") + 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Consignor_Country, "").Replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Consignor_Postcode, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Consignor_StreetNumber, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Consignor_City, "") + + 'Empfänger + VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Consignee_Name, "") + VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Consignee_IdentificationNumber, "") + VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Consignee_SubsidiaryNumber, "") + 'VERAG_NCTS.NCTS_Data.consignee.UID_Nr = If(NCTS_TMP.vers, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Consignee_Country, "").Replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Consignee_Postcode, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Consignee_StreetNumber, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Consignee_City, "") + + + 'Frächter + Dim FRAECHTER_KDNR = getFraechterKdnr() + If FRAECHTER_KDNR > 0 Then + Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR) + Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR) + VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "") + VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "") + VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "") + VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "").replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "") + VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR + + Else + VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_Carrier_ContactPerson_Name, "") + VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_Carrier_IdentificationNumber, "") + VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Carrier_SubsidiaryNumber, "") + 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "") + ' VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_Carrier_, "").Replace("SRB", "RS") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "") + End If + + If ClientReference <> "" Then + VERAG_NCTS.ClientReference = ClientReference + Else + Dim AVISIERER_KDNR = getAvisiererKdnr() + If AVISIERER_KDNR > 0 Then + VERAG_NCTS.ClientReference = AVISIERER_KDNR + Else + VERAG_NCTS.ClientReference = "" + End If + End If + + If NCTS_TMP.ncts_GUARANTEE IsNot Nothing AndAlso NCTS_TMP.ncts_GUARANTEE.Count > 0 Then + VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_GUARANTEE(0).nctsGRT_GRN, "") + VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_GUARANTEE(0).nctsGRT_AmountToBeCovered, "0") + End If + + VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GrossMass, "0") + Dim cntPos = 1 + If NCTS_TMP.ncts_HOUSE_CONSIGNMENT IsNot Nothing Then + For Each HC In NCTS_TMP.ncts_HOUSE_CONSIGNMENT + For Each POS In HC.nctsWP_CONSIGNMENT_ITEM + Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition + V_POS.PosNr = cntPos + Dim pkGes = 0 + Dim pkArt = "" + If POS.nctsHCCI_PACKAGING IsNot Nothing Then + For Each PK In POS.nctsHCCI_PACKAGING + If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then pkGes += PK.nctsHCCIPK_NumberOfPackages + If PK.nctsHCCIPK_TypeOfPackages IsNot Nothing Then pkArt = PK.nctsHCCIPK_TypeOfPackages + Next + End If + V_POS.Quantity = pkGes + V_POS.Packaging = pkArt + V_POS.GrossWeight = POS.nctsHCCI_GrossMass + V_POS.GoodsDescription = POS.nctsHCCI_DescriptionOfGoods + + VERAG_NCTS.NCTS_Data.Position.Add(V_POS) + cntPos += 1 + Next + Next + End If + + UniqueId = DY_TMP.dy_Id + 'VERAG_NCTS.SaveToFile(XMLFilePath) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + Return VERAG_NCTS + + End Function + + Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index f8eb200..8f48a0b 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -841,7 +841,7 @@ Public Class cWorker_NCTS NCTS.ncts_InlandModeOfTransport = DETPDD.Consignment.inlandModeOfTransport - ' NCTS.border = DETPDD.Consignment.modeOfTransportAtTheBorder + NCTS.ncts_ModeOfTransportAtTheBorder = DETPDD.Consignment.modeOfTransportAtTheBorder End If @@ -1091,7 +1091,7 @@ Public Class cWorker_NCTS - frmDYNachrichtenVerarbeitung.tryGetNCTSBasicData(NCTS) 'Versuchen Daten aus der Vorerfassung zu laden - ansonsten werden diese überschrieben! + frmDYNachrichtenVerarbeitung.tryGetNCTS004BasicData(NCTS) 'Versuchen Daten aus der Vorerfassung zu laden - ansonsten werden diese überschrieben! frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, readNCTS_VersandanmeldungXML_DETPDD) @@ -1983,6 +1983,70 @@ Public Class cWorker_NCTS readNCTS_Versandbestaetigung002 = "" End Try End Function + Shared Function readNCTS004_Versandbestaetigung002(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Try + + Dim NCTS As DAKOSY_Worker.VersandbestaetigungNCTSDE_002.VersandbestaetigungMCTyp = DAKOSY_Worker.VersandbestaetigungNCTSDE_002.VersandbestaetigungMCTyp.LoadFromFile(d) + Dim anr = "" + Dim zp As Object = Nothing + Dim division = "" + + readNCTS004_Versandbestaetigung002 = "" + If NCTS IsNot Nothing Then + + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + + If NCTS.EinzelVersandbestaetigung IsNot Nothing Then + If NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_Versandbestaetigung002 = NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ObjektName + End If + zp = NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ZeitpunktEingang + End If + If NCTS.EinzelVersandbestaetigung.KopfDaten IsNot Nothing Then + If NCTS.EinzelVersandbestaetigung.KopfDaten.ANR IsNot Nothing Then + anr = NCTS.EinzelVersandbestaetigung.KopfDaten.ANR + ' MsgBox(anr) + End If + End If + End If + End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS004_Versandbestaetigung002 <> "" Then 'And anr <> "" Then 'BEZUGSNR vorhanden + + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_Versandbestaetigung002 + STATUS.dySt_artMitteilung = "VB" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41 + STATUS.dySt_ergCode = "ANR" + STATUS.dySt_ergMitteilung = anr + STATUS.dySt_ergZeitpunkt = zp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), anr) + + + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + FORM.addDGVEinarbeitung("NCTS: Versandbestätigung", STATUS.dySt_BezugsNr) + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_Versandbestaetigung002 = "" + End Try + End Function @@ -2017,6 +2081,37 @@ Public Class cWorker_NCTS saveDY_NCTS = NCTS_TMP End Function + Shared Function saveDY_NCTS004(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyNCTSOut004 + 'EINTRAG IN tblDakosyNCTSOut + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing + NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False) + If NCTS_TMP Is Nothing Then + NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut004 + NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr + If NCTS_TMP IsNot Nothing Then NCTS_TMP.ncts_dyaAnmID = DY_TMP.dy_Id + + If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then + NCTS_TMP.ncts_Status = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + NCTS_TMP.ncts_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + End If + 'NCTS_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status + If ANR <> "" Or MRN <> "" Then + If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR + If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN + End If + NCTS_TMP.SAVE() + 'Eintragen + Else + 'Update + NCTS_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + If ANR <> "" Or MRN <> "" Then + If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE() + If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE() + End If + End If + saveDY_NCTS004 = NCTS_TMP + End Function + Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String) If division <> "" Then @@ -2071,6 +2166,57 @@ Public Class cWorker_NCTS + Shared Sub SaveNCTS004_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String) + + If division <> "" Then + If (NCTS_TMP.ncts_firma Is Nothing OrElse NCTS_TMP.ncts_firma = "") Or (NCTS_TMP.ncts_niederlassung Is Nothing OrElse NCTS_TMP.ncts_niederlassung = "") Then + Select Case division + Case "SUW" + 'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer + frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS_TMP.ncts_firma, NCTS_TMP.ncts_niederlassung, "", NCTS_TMP.ncts_ObjectName) + + If If(NCTS_TMP.ncts_firma, "") = "" Then NCTS_TMP.ncts_firma = "ATILLA" + If If(NCTS_TMP.ncts_niederlassung, "") = "" Then NCTS_TMP.ncts_niederlassung = "SUB" + Case "SUB" + NCTS_TMP.ncts_firma = "VERAG" + NCTS_TMP.ncts_niederlassung = "SUB" + Case "DUR" + NCTS_TMP.ncts_firma = "ATILLA" + NCTS_TMP.ncts_niederlassung = "SBG" + Case "NKD" + NCTS_TMP.ncts_firma = "VERAG" + NCTS_TMP.ncts_niederlassung = "NKD" + Case "WAI" + NCTS_TMP.ncts_firma = "VERAG" + NCTS_TMP.ncts_niederlassung = "WAI" + Case "SBG" + NCTS_TMP.ncts_firma = "VERAG" + NCTS_TMP.ncts_niederlassung = "SBG" + Case "IME" + NCTS_TMP.ncts_firma = "IMEX" + NCTS_TMP.ncts_niederlassung = "SUB" + Case "GLO" + NCTS_TMP.ncts_firma = "IMEX" + NCTS_TMP.ncts_niederlassung = "GLO" + Case "AMB" + NCTS_TMP.ncts_firma = "AMBAR" + NCTS_TMP.ncts_niederlassung = "AMBAR" + Case "NEU" + NCTS_TMP.ncts_firma = "VERAG" + NCTS_TMP.ncts_niederlassung = "NEU" + Case "ATSP", "ATSPED" + NCTS_TMP.ncts_firma = "UNISPED" + NCTS_TMP.ncts_niederlassung = "ATSP" + End Select + NCTS_TMP.SAVE() + End If + + End If + If DY_TMP.dy_AvisoId Is Nothing Then + DY_TMP.tryFindAviso() + DY_TMP.SAVE() + End If + End Sub @@ -2318,6 +2464,126 @@ Public Class cWorker_NCTS + Shared Function readNCTS004_StatusmeldungNCTSDE003(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Try + + Dim NCTS As DAKOSY_Worker.StatusmeldungNCTSDE_003.StatusmeldungMSTyp = DAKOSY_Worker.StatusmeldungNCTSDE_003.StatusmeldungMSTyp.LoadFromFile(d) + Dim MRN = "" + Dim division = "" + Dim tstmp As Object = Nothing + Dim grund As String = "" + Dim status_DY As String = "" + + Dim EntgegennahmeDatumZeit As Object = Nothing + Dim EntscheidungAnnahmeDatumZeit As Object = Nothing + Dim EntscheidungUeberlassungDatumZeit As Object = Nothing + Dim EntscheidungStornierungDatumZeit As Object = Nothing + Dim ZeitpunktAnrechnungReferenzbetraege As Object = Nothing + readNCTS004_StatusmeldungNCTSDE003 = "" + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + + If NCTS.EinzelStatusmeldung IsNot Nothing Then + If NCTS.EinzelStatusmeldung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelStatusmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_StatusmeldungNCTSDE003 = NCTS.EinzelStatusmeldung.ObjektIdentifizierung.ObjektName + + End If + End If + If NCTS.EinzelStatusmeldung.KopfDaten IsNot Nothing Then + If NCTS.EinzelStatusmeldung.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelStatusmeldung.KopfDaten.MRN + End If + + If NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit > "01.01.2000" Then + tstmp = NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit '00:00:00 + End If + + + If NCTS.EinzelStatusmeldung.KopfDaten.EntgegennahmeDatumZeit > "01.01.2000" Then + EntgegennahmeDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntgegennahmeDatumZeit '00:00:00 + End If + If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungAnnahmeDatumZeit > "01.01.2000" Then + EntscheidungAnnahmeDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungAnnahmeDatumZeit '00:00:00 + End If + If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungUeberlassungDatumZeit > "01.01.2000" Then + EntscheidungUeberlassungDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungUeberlassungDatumZeit '00:00:00 + End If + If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungStornierungDatumZeit > "01.01.2000" Then + EntscheidungStornierungDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungStornierungDatumZeit '00:00:00 + End If + If NCTS.EinzelStatusmeldung.KopfDaten.ZeitpunktAnrechnungReferenzbetraege > "01.01.2000" Then + ZeitpunktAnrechnungReferenzbetraege = NCTS.EinzelStatusmeldung.KopfDaten.ZeitpunktAnrechnungReferenzbetraege '00:00:00 + End If + + 'tstmp = NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit '00:00:00 + If NCTS.EinzelStatusmeldung.KopfDaten.Grund IsNot Nothing Then grund = NCTS.EinzelStatusmeldung.KopfDaten.Grund + status_DY = NCTS.EinzelStatusmeldung.KopfDaten.StatusUeberwachung + + If NCTS.EinzelStatusmeldung.KopfDaten.Fehlermeldung IsNot Nothing Then + For Each F In NCTS.EinzelStatusmeldung.KopfDaten.Fehlermeldung + '??? + Next + End If + End If + + + End If + End If + + + If readNCTS004_StatusmeldungNCTSDE003 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_StatusmeldungNCTSDE003 + STATUS.dySt_artMitteilung = "STAT" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + Select Case status_DY + Case "13", "14", "15", "16", "31", "34", "35", "37", "38" : tstmp = If(EntscheidungAnnahmeDatumZeit, tstmp) + Case "15", "31", "34", "35", "37", "38" : tstmp = If(EntscheidungUeberlassungDatumZeit, tstmp) + Case "38" : tstmp = If(EntscheidungStornierungDatumZeit, tstmp) + Case "34", "35", "37", "38" : tstmp = If(ZeitpunktAnrechnungReferenzbetraege, tstmp) + End Select + Select Case status_DY + Case "13" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_13 + Case "14" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_14 + Case "16" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_16 + Case "31" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_31 + Case "38" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_38 + Case "39" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_39 + Case Else + STATUS.dySt_status = -1 + 'UNBEKANNT ????? + End Select + STATUS.dySt_ergCode = "DY_" & status_DY + STATUS.dySt_ergMitteilung = MRN & grund + If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, , "") 'MRN) + + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr) + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_StatusmeldungNCTSDE003 = "" + End Try + End Function + + + + @@ -2616,6 +2882,79 @@ Public Class cWorker_NCTS End Try End Function + Shared Function readNCTS004_UngueltigkeitSicherheitenNCTSDE004(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Try + + Dim NCTS As DAKOSY_Worker.UngueltigkeitSicherheitenNCTSDE_004.UngueltigkeitSicherheitenMITyp = DAKOSY_Worker.UngueltigkeitSicherheitenNCTSDE_004.UngueltigkeitSicherheitenMITyp.LoadFromFile(d) + Dim ANR = "" + Dim tstmp As Object = Nothing + Dim grund As String = "" + Dim sicherheit As String = "" + + readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = "" + If NCTS IsNot Nothing Then + If NCTS.EinzelUngueltigkeitSicherheiten IsNot Nothing Then + If NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung.ObjektName + End If + End If + If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten IsNot Nothing Then + If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Arbeitsnummer IsNot Nothing Then + ANR = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Arbeitsnummer + End If + If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.ZeitpunktUngueltigkeitUnwirksamkeit > "01.01.2000" Then + tstmp = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.ZeitpunktUngueltigkeitUnwirksamkeit + End If + grund = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Grund + + If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Sicherheit IsNot Nothing Then + For Each s In NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Sicherheit + If s.GRN IsNot Nothing Then + sicherheit &= s.GRN & " " + End If + Next + End If + + If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Fehlermeldung IsNot Nothing Then + For Each F In NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Fehlermeldung + '??? + Next + End If + End If + + + End If + End If + + sicherheit = sicherheit.Trim + + If readNCTS004_UngueltigkeitSicherheitenNCTSDE004 <> "" And ANR <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_UngueltigkeitSicherheitenNCTSDE004 + STATUS.dySt_artMitteilung = "UNG" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_15 + STATUS.dySt_ergCode = "UN" + STATUS.dySt_ergMitteilung = grund + If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), ANR) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + FORM.addDGVEinarbeitung("NCTS: UngueltigkeitSicherheitenNCTSDE_004", STATUS.dySt_BezugsNr) + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = "" + End Try + End Function + Shared Function readNCTS_Erledigungsmeldung(FORM As frmDYNachrichtenVerarbeitung, d As String) As String Try @@ -2748,19 +3087,85 @@ Public Class cWorker_NCTS End Try End Function + Shared Function readNCTS004_Erledigungsmeldung003(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Try - Shared Function readNCTS_Erledigungsmeldung001(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE_003.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE_003.ErledigungsmeldungMOTyp.LoadFromFile(d) + Dim MRN = "" + Dim tstmp As Object = Nothing + readNCTS004_Erledigungsmeldung003 = "" + If NCTS IsNot Nothing Then + If NCTS.EinzelErledigungsmeldung IsNot Nothing Then + If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_Erledigungsmeldung003 = NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName + End If + End If + If NCTS.EinzelErledigungsmeldung.KopfDaten IsNot Nothing Then + If NCTS.EinzelErledigungsmeldung.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelErledigungsmeldung.KopfDaten.MRN + End If + If NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung > "01.01.2000" Then + tstmp = NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung + End If + End If + End If + End If + + If readNCTS004_Erledigungsmeldung003 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_Erledigungsmeldung003 + STATUS.dySt_artMitteilung = "EM" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergCode = "TSTMP" + STATUS.dySt_ergMitteilung = "" + If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN) + + NCTS_TMP.ncts_Erledigung = tstmp + 'Gestellung eintragen, falls nochnicht geschehen + If Not NCTS_TMP.ncts_Gestellt Then + NCTS_TMP.ncts_Gestellt = True + End If + NCTS_TMP.SAVE() + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + '=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME======= + cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) + '====================================================== + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", STATUS.dySt_BezugsNr) + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_Erledigungsmeldung003 = "" + End Try + End Function + + + Shared Function readNCTS_Ereignismitteilung(FORM As frmDYNachrichtenVerarbeitung, d As String) As String Try Dim NCTS As DAKOSY_Worker.EreignismitteilungNCTSDE_001.EreignismitteilungMETyp = DAKOSY_Worker.EreignismitteilungNCTSDE_001.EreignismitteilungMETyp.LoadFromFile(d) Dim MRN = "" Dim tstmp As Object = Nothing - readNCTS_Erledigungsmeldung001 = "" + readNCTS_Ereignismitteilung = "" If NCTS IsNot Nothing Then If NCTS.EinzelEreignismitteilung IsNot Nothing Then If NCTS.EinzelEreignismitteilung.ObjektIdentifizierung IsNot Nothing Then If NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName IsNot Nothing Then - readNCTS_Erledigungsmeldung001 = NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName + readNCTS_Ereignismitteilung = NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName End If End If If NCTS.EinzelEreignismitteilung.TransitOperation IsNot Nothing Then @@ -2776,9 +3181,9 @@ Public Class cWorker_NCTS End If End If - If readNCTS_Erledigungsmeldung001 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + If readNCTS_Ereignismitteilung <> "" And MRN <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) - STATUS.dySt_BezugsNr = readNCTS_Erledigungsmeldung001 + STATUS.dySt_BezugsNr = readNCTS_Ereignismitteilung STATUS.dySt_artMitteilung = "EGM" STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 @@ -2788,31 +3193,32 @@ Public Class cWorker_NCTS If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp 'EINTRAG IN tblDakosy_Zollanmeldungen Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS") - Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN) + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN) + NCTS_TMP.ncts_Erledigung = tstmp 'Gestellung eintragen, falls nochnicht geschehen If Not NCTS_TMP.ncts_Gestellt Then NCTS_TMP.ncts_Gestellt = True - NCTS_TMP.SAVE() End If + NCTS_TMP.SAVE() If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() '=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME======= - cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP) + cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) '====================================================== '=====ATEZ BEREITSTELLUNG========== checkATEZ_Bereitstellung(DY_TMP, d) '================================== - FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung001", STATUS.dySt_BezugsNr) + FORM.addDGVEinarbeitung("NCTS: Ereignismitteilung001", STATUS.dySt_BezugsNr) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - readNCTS_Erledigungsmeldung001 = "" + readNCTS_Ereignismitteilung = "" End Try End Function @@ -3227,6 +3633,130 @@ Public Class cWorker_NCTS readNCTS_Ueberlassungsmeldung008 = "" End Try End Function + Shared Function readNCTS004_Ueberlassungsmeldung008(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String + Try + ' Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_008.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_008.UeberlassungsmeldungMRTyp.LoadFromFile(d) + Dim MRN = "" + Dim division = "" + Dim Wiedergestellungsdatum As Object = Nothing + ' Dim bearbeiter = "" + Dim zp As Object = Nothing + Dim Verschluss_Art = "" + Dim Verschluss_Anzahl = 0 + Dim Verschluss_Zeichen As New List(Of String) + + + readNCTS004_Ueberlassungsmeldung008 = "" + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + If NCTS.EinzelUeberlassungsmeldung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_Ueberlassungsmeldung008 = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName + End If + If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang > "01.01.2000" Then + zp = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang + End If + End If + If NCTS.EinzelUeberlassungsmeldung.KopfDaten IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN + End If + + + Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum + ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. + + 'Verschluesse + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then + Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art + Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then + If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then + For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen + Verschluss_Zeichen.Add(z) + Next + End If + End If + End If + End If + + End If + + End If + + + End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS004_Ueberlassungsmeldung008 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_Ueberlassungsmeldung008 + STATUS.dySt_artMitteilung = "UEM" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 + STATUS.dySt_ergCode = "MRN" + STATUS.dySt_ergMitteilung = MRN + STATUS.dySt_ergZeitpunkt = zp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN) + + + NCTS_TMP.ncts_Eroeffnung = zp + 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT + ' If TE.nctsTE_NumberOfSeals > 0 Then + + ' End If + 'Next + + 'If Verschluss_Anzahl > 0 Then + ' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl + ' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art + ' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) + ' NCTS_TMP.SAVE() + 'End If + + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + statusTMP = STATUS + cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE + ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then + + NCTS_TMP.insertIntoSpedBuch(DY_TMP) + + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_Ueberlassungsmeldung008 = "" + End Try + End Function Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object) @@ -3235,6 +3765,13 @@ Public Class cWorker_NCTS NCTS_TMP.SAVE() End If End Sub + Shared Sub SaveNCTS004_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, WGDAT As Object) + + If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) AndAlso CDate(WGDAT) > "01.01.2000" Then + NCTS_TMP.ncts_LimitDate = CDate(WGDAT) + NCTS_TMP.SAVE() + End If + End Sub Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String) If DY_TMP Is Nothing Then Exit Sub @@ -3389,5 +3926,74 @@ Public Class cWorker_NCTS End Try End Function + Shared Function readNCTS004_AnrechnungReferenzbetraege002(FORM As frmDYNachrichtenVerarbeitung, d As String) As String + Try + Dim NCTS As DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE_002.AnrechnungReferenzbetraegeMATyp = DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE_002.AnrechnungReferenzbetraegeMATyp.LoadFromFile(d) + Dim MRN = "" + Dim tstmp As Object = Nothing + Dim division = "" + readNCTS004_AnrechnungReferenzbetraege002 = "" + If NCTS IsNot Nothing Then + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + End If + End If + If NCTS.EinzelAnrechnungReferenzbetraege IsNot Nothing Then + If NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS004_AnrechnungReferenzbetraege002 = NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung.ObjektName + End If + End If + If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten IsNot Nothing Then + If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.MRN IsNot Nothing Then + MRN = NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.MRN + If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.ZeitpunktAnrechnungReferenzbetraege > "01.01.2000" Then + tstmp = NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.ZeitpunktAnrechnungReferenzbetraege + End If + End If + End If + End If + End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS004_AnrechnungReferenzbetraege002 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS004_AnrechnungReferenzbetraege002 + STATUS.dySt_artMitteilung = "AR" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_53 + STATUS.dySt_ergCode = "TSTMP" + STATUS.dySt_ergMitteilung = MRN + ' STATUS.dySt_ergMitteilung = "" + If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN) + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + + 'Gestellung eintragen + NCTS_TMP.ncts_Gestellt = True + NCTS_TMP.ncts_GestelltAm = tstmp + NCTS_TMP.ncts_Ankunft = tstmp + NCTS_TMP.SAVE() + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS004_AnrechnungReferenzbetraege002 = "" + End Try + End Function + End Class diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index c91497a..380e7ac 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -278,6 +278,7 @@ Public Class frmDYNachrichtenVerarbeitung '------------------------------------------ '------------------ NCTS ------------------ '------------------------------------------ + ' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW 'TEEEEESSSSTTT 'NCTS: Versandanmeldung ATLAS 9.1 If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML_DETPDD(doc) Then @@ -302,7 +303,9 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Versandbestätigung If Not found And cGetMsgType.isNCTS_Versandbestaetigung(doc, VERSION) Then Select Case VERSION - Case "002" : If cWorker_NCTS.readNCTS_Versandbestaetigung002(Me, d) <> "" Then found = True + Case "002" + If cWorker_NCTS.readNCTS004_Versandbestaetigung002(Me, d) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_Versandbestaetigung002(Me, d) <> "" Then found = True 'WENN NOCH ALT Case Else : If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True End Select ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True @@ -311,7 +314,9 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Ueberlassungsmeldung If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then Select Case VERSION - Case "008" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") + Case "008" + If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") @@ -322,7 +327,9 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: AnrechnungReferenzbetraege If Not found And cGetMsgType.isNCTS_AnrechnungReferenzbetraege(doc, VERSION) Then Select Case VERSION - Case "002" : If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege002(Me, d) <> "" Then found = True + Case "002" + If cWorker_NCTS.readNCTS004_AnrechnungReferenzbetraege002(Me, d) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege002(Me, d) <> "" Then found = True Case Else : If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege(Me, d) <> "" Then found = True End Select End If @@ -330,7 +337,9 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Erledigungsmeldung If Not found And cGetMsgType.isNCTS_Erledigungsmeldung(doc, VERSION) Then Select Case VERSION - Case "003" : If cWorker_NCTS.readNCTS_Erledigungsmeldung003(Me, d) <> "" Then found = True + Case "003" + If cWorker_NCTS.readNCTS004_Erledigungsmeldung003(Me, d) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_Erledigungsmeldung003(Me, d) <> "" Then found = True Case Else : If cWorker_NCTS.readNCTS_Erledigungsmeldung(Me, d) <> "" Then found = True End Select End If @@ -338,15 +347,16 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Ereignismitteilung If Not found And cGetMsgType.isNCTS_Ereignismitteilung(doc, VERSION) Then Select Case VERSION - 'Case "001" : If cWorker_NCTS.readNCTS_Erledigungsmeldung001(Me, d) <> "" Then found = True - Case Else : If cWorker_NCTS.readNCTS_Erledigungsmeldung001(Me, d) <> "" Then found = True + Case Else : If cWorker_NCTS.readNCTS_Ereignismitteilung(Me, d) <> "" Then found = True End Select End If 'NCTS: StatusmeldungNCTSDE If Not found And cGetMsgType.isNCTS_StatusmeldungNCTSDE(doc, VERSION) Then Select Case VERSION - Case "003" : If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE003(Me, d) <> "" Then found = True + Case "003" + If cWorker_NCTS.readNCTS004_StatusmeldungNCTSDE003(Me, d) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE003(Me, d) <> "" Then found = True Case Else : If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE(Me, d) <> "" Then found = True End Select End If @@ -354,7 +364,9 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: UngueltigkeitSicherheitenNCTSDE If Not found And cGetMsgType.isNCTS_UngueltigkeitSicherheitenNCTSDE(doc, VERSION) Then Select Case VERSION - Case "004" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE004(Me, d) <> "" Then found = True ': MsgBox("005!") + Case "004" + If cWorker_NCTS.readNCTS004_UngueltigkeitSicherheitenNCTSDE004(Me, d) <> "" Then found = True 'NEU + If Not found Then If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE004(Me, d) <> "" Then found = True ': MsgBox("005!") Case "003" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE003(Me, d) <> "" Then found = True ': MsgBox("005!") Case Else : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE(Me, d) <> "" Then found = True End Select @@ -5848,6 +5860,24 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Sub + Public Shared Sub tryGetNCTS004BasicData(ByRef NCTS_new As DAKOSY_Worker.cDakosyNCTSOut004) + 'Try + ' Dim WP_LIST_old As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) = DAKOSY_Worker.cDakosyNCTSOut.get_Warenposition(NCTS_new.ncts_Id) + ' If WP_LIST_old IsNot Nothing And NCTS_new IsNot Nothing Then + ' If WP_LIST_old IsNot Nothing And NCTS_new.ncts_WARENPOS IsNot Nothing Then + ' For Each POS In NCTS_new.ncts_WARENPOS + ' If WP_LIST_old.Count > NCTS_new.ncts_WARENPOS.IndexOf(POS) Then + ' ' MsgBox(POS.nctsWP_KdRefNr & " --- " & WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr) + ' POS.nctsWP_KdRefNr = WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr + ' End If + ' Next + ' End If + ' End If + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + End Sub + diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 42f3db9..39dc7b0 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -43,9 +43,7 @@ Partial Class frmStartOptions Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() Me.Button10 = New System.Windows.Forms.Button() - Me.piceZollAnh = New System.Windows.Forms.PictureBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.piceZollAnh = New System.Windows.Forms.PictureBox() + Me.piceZollAnh = New System.Windows.Forms.PictureBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() @@ -127,15 +125,6 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -167,8 +156,6 @@ Partial Class frmStartOptions Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.PictureBox12 = New System.Windows.Forms.PictureBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() Me.LinkLabel19 = New System.Windows.Forms.LinkLabel() @@ -222,7 +209,7 @@ Partial Class frmStartOptions CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage3.SuspendLayout() + Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit() @@ -232,7 +219,7 @@ Partial Class frmStartOptions CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() ' 'pnl @@ -2428,25 +2415,7 @@ Partial Class frmStartOptions Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) Me.cboBMDUnispedFirma.TabIndex = 42 ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' + 'txtVRGOut_MRN ' Me.txtVRGOut_MRN._DateTimeOnly = False diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 2d13df1..36eed9b 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -1741,6 +1741,7 @@ Public Class frmStartOptions 'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", "")) If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then + Dim found = False betreff = betreff.replace("WG: ", "") betreff = betreff.replace("FW: ", "") betreff = betreff.replace("VBD - Versandbegleitdokument (DE), ", "") @@ -1748,11 +1749,11 @@ Public Class frmStartOptions 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") Dim dy_id As String = "" If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") Else - dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") End If - + If IsNumeric(dy_id) AndAlso dy_id > 0 Then found = True ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") @@ -1775,6 +1776,39 @@ Public Class frmStartOptions End If End If + + If Not found Then 'OLD --- NCTS < 004! + 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") + dy_id = "" + If betreff.ToString.Length > 15 Then + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL") + Else + dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") + End If + + + ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" + If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + destFull = "" + moveFile(pfad, ZIEL_PFAD, destFull) + + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(dy_id) AndAlso dy_id > 0 Then + sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id) + End If + End If + + End If ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then betreff = betreff.replace("WG: ", "") betreff = betreff.replace("FW: ", "")