NCTS 5

DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb

@@ -1,7 +1,7 @@
 '' ------------------------------------------------------------------------------
 ''  <auto-generated>
 ''    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}}
 ''  </auto-generated>
 '' ------------------------------------------------------------------------------
 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)

DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_004.Designer.vb

@@ -1,7 +1,7 @@
 '' ------------------------------------------------------------------------------
 ''  <auto-generated>
 ''    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":{}}
 ''  </auto-generated>
 '' ------------------------------------------------------------------------------
 #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
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlRoot([Namespace]:="", IsNullable:=True)>
+    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
+
+        <XmlElement("Data", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        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"
+        ''' <summary>
+        ''' Serialize ApplicationInternalDataAdditionalDetailsType object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        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
+
+        ''' <summary>
+        ''' Deserializes ApplicationInternalDataAdditionalDetailsType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        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
+
+        ''' <summary>
+        ''' Serializes current ApplicationInternalDataAdditionalDetailsType object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        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
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        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

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
+                For Each s In DY.ncts_GUARANTEE
-                    Select Case If(s.nctsSA_GRN, "")
+                    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
+        Dim pkcnt = DY.GET_PKCNT()
-        For Each HC In DY.ncts_HOUSE_CONSIGNMENT
+        If pkcnt > 0 Then packSt = pkcnt & " Pk. "
-            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. "
 
 
-        If DY.ncts_WARENPOS.Count > 0 Then
+        If DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
-            'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "")
             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
+            For Each HC In DY.ncts_HOUSE_CONSIGNMENT
-                sumBrg += If(S.nctsWP_Warenwert, 0)
+                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))

DAKOSY_Worker/DAKOSY/ATLAS/NCTS/xsd2code.config

@@ -3,7 +3,11 @@
   <TargetFramework>Net47</TargetFramework>
   <NameSpace>VersandanmeldungNCTSDE_004</NameSpace>
   <Language>VisualBasic</Language>
-  <CommandLine>xsd2code.exe &lt;XSD File&gt; VersandanmeldungNCTSDE_004 &lt;Output file&gt; /l VisualBasic /p Net47 /clean /s /xml /xa /Indent2Space </CommandLine>
+  <CommandLine>xsd2code.exe &lt;XSD File&gt; VersandanmeldungNCTSDE_004 &lt;Output file&gt; /l VisualBasic /p Net47 /emt /clean /uct /expattg /s /xml /ust /xa /in /Indent2Space </CommandLine>
+  <ExcludeImportedTypes>true</ExcludeImportedTypes>
+  <ExpandNestedAttributeGroup>true</ExpandNestedAttributeGroup>
+  <GenerateUnusedComplexType>true</GenerateUnusedComplexType>
+  <GenerateUnusedSimpleType>true</GenerateUnusedSimpleType>
   <Properties />
   <XmlAttribute>
     <Enabled>true</Enabled>

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
+                        getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
-                        isUeT1 = (getDataByBezugsnummer)
+                        If Not getDataByBezugsnummer Then 'Falls doch nicht    
-                        Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
+                            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 Is Nothing Then Return Nothing
-            If dEZOLL.Rows.Count = 0 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)
+        Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
-        End Function
+    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

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" &

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

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_Ereignismitteilung(Me, d) <> "" Then found = True
-                                    Case Else : If cWorker_NCTS.readNCTS_Erledigungsmeldung001(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
+
 
 
 

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -44,8 +44,6 @@ Partial Class frmStartOptions
         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.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

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: ", "")