Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
'' ------------------------------------------------------------------------------
|
||||
'' <auto-generated>
|
||||
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
|
||||
'' {"TargetFramework":"Net20","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}}
|
||||
'' {"TargetFramework":"Net20","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"IndentChars":"Indent1Space","NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}}
|
||||
'' </auto-generated>
|
||||
'' ------------------------------------------------------------------------------
|
||||
#Disable Warning
|
||||
@@ -69,6 +69,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -295,6 +298,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -639,6 +645,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -942,6 +951,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -1257,6 +1269,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -1464,6 +1479,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -1743,6 +1761,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -1962,6 +1983,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -2169,6 +2193,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -2424,6 +2451,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -2643,6 +2673,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -2850,6 +2883,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -3081,6 +3117,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -3300,6 +3339,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -4425,6 +4467,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -4812,6 +4857,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -5091,6 +5139,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -5334,6 +5385,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -5721,6 +5775,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -6000,6 +6057,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -6279,6 +6339,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -6510,6 +6573,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -6897,6 +6963,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -7236,6 +7305,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -8190,6 +8262,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -8457,6 +8532,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
@@ -8658,6 +8736,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
|
||||
memoryStream = New System.IO.MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Encoding = encoding
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
xmlWriterSettings.NewLineOnAttributes = True
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
|
||||
27
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config
Normal file
27
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/xsd2code.config
Normal file
@@ -0,0 +1,27 @@
|
||||
<?xml version="1.0"?>
|
||||
<GeneratorParams xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<TargetFramework>Net20</TargetFramework>
|
||||
<NameSpace>FreierVerkehrAktVeredelUmwandlung_004</NameSpace>
|
||||
<Language>VisualBasic</Language>
|
||||
<CommandLine>xsd2code.exe <XSD File> FreierVerkehrAktVeredelUmwandlung_004 <Output file> /l VisualBasic /p Net20 /vprop /s /encutf8 /xml /xa /xao /in /Indent1Space /nla </CommandLine>
|
||||
<CollectionBase />
|
||||
<Properties>
|
||||
<VirtualProperties>true</VirtualProperties>
|
||||
<PrivateFieldCustomPrefix />
|
||||
</Properties>
|
||||
<XmlAttribute>
|
||||
<Enabled>true</Enabled>
|
||||
<GenerateOrderXmlAttributes>true</GenerateOrderXmlAttributes>
|
||||
</XmlAttribute>
|
||||
<ClassParams>
|
||||
<GenerateInSeparateFilesDirectory />
|
||||
</ClassParams>
|
||||
<Serialization>
|
||||
<Enabled>true</Enabled>
|
||||
<SerializeMethodsOn>AllClasses</SerializeMethodsOn>
|
||||
<EnableEncoding>true</EnableEncoding>
|
||||
</Serialization>
|
||||
<Miscellaneous>
|
||||
<CleanupCode>false</CleanupCode>
|
||||
</Miscellaneous>
|
||||
</GeneratorParams>
|
||||
20289
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDE.Designer.vb
generated
Normal file
20289
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDE.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0"?>
|
||||
<GeneratorParams xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<TargetFramework>Net20</TargetFramework>
|
||||
<NameSpace>FCFCDF</NameSpace>
|
||||
<Language>VisualBasic</Language>
|
||||
<CollectionBase />
|
||||
<Properties>
|
||||
<PrivateFieldCustomPrefix />
|
||||
</Properties>
|
||||
<XmlAttribute>
|
||||
<Enabled>true</Enabled>
|
||||
<GenerateOrderXmlAttributes>true</GenerateOrderXmlAttributes>
|
||||
</XmlAttribute>
|
||||
<ClassParams>
|
||||
<GenerateInSeparateFilesDirectory />
|
||||
</ClassParams>
|
||||
<Serialization>
|
||||
<Enabled>true</Enabled>
|
||||
<SerializeMethodsOn>AllClasses</SerializeMethodsOn>
|
||||
<EnableEncoding>true</EnableEncoding>
|
||||
</Serialization>
|
||||
<Miscellaneous>
|
||||
<CleanupCode>false</CleanupCode>
|
||||
</Miscellaneous>
|
||||
</GeneratorParams>
|
||||
@@ -101,6 +101,7 @@
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\EntscheidungAnmeldung\EntscheidungAnmeldung_004.designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec_old.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\FCFCDE.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\FCFCDF.designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehr\FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehr\_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb" />
|
||||
@@ -241,9 +242,13 @@
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec_old.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\FCFCDE.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\FCFCDF.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\xsd2code.config" />
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehr\FreierVerkehrAktVeredelUmwandlung_004.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
@@ -256,6 +261,7 @@
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehr\FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehr\xsd2code.config" />
|
||||
<None Include="DAKOSY\ATLAS\EZA\MitteilungAbschreibung\MitteilungAbschreibung_002.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
|
||||
@@ -311,7 +311,6 @@
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Dienstplan\cArbeitstage.vb" />
|
||||
<Compile Include="Dienstplan\cFeiertage.vb" />
|
||||
<Compile Include="Dienstplan\frmDienstAbwesenheitenUebersicht.Designer.vb">
|
||||
<DependentUpon>frmDienstAbwesenheitenUebersicht.vb</DependentUpon>
|
||||
</Compile>
|
||||
|
||||
@@ -1,242 +0,0 @@
|
||||
Public Class cFeiertage
|
||||
Private _Year As Integer
|
||||
Private _Ostern As Date
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das aktuelle Jahr
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
_Year = Now.Year
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das angegebene Jahr
|
||||
''' </summary>
|
||||
Public Sub New(ByVal Year As Integer)
|
||||
_Year = Year
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostersonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostersonntag_OLD() As Date
|
||||
Get
|
||||
If _Ostern.Ticks = 0 Then
|
||||
' Datum des ersten Vollmondes nach Frühlingsanfang
|
||||
Dim a As Integer = _Year Mod 19
|
||||
Dim b As Integer = _Year Mod 4
|
||||
Dim c As Integer = _Year Mod 7
|
||||
Dim M As Integer = Val(((8 * Val(_Year / 100) + 13) / 25) - 2)
|
||||
Dim s As Integer = Val(_Year / 100) - Val(_Year / 400) - 2
|
||||
|
||||
M = (15 + s - M) Mod 30
|
||||
|
||||
Dim N As Integer = (6 + s) Mod 7
|
||||
Dim d As Integer = (M + 19 * a) Mod 30
|
||||
If d = 29 Then
|
||||
d = 28
|
||||
ElseIf d = 28 Then
|
||||
If (_Year Mod 19) > 10 Then d = 27
|
||||
End If
|
||||
|
||||
Dim e As Integer = (2 * b + 4 * c + 6 * d + N) Mod 7
|
||||
|
||||
' Ostersonntag
|
||||
_Ostern = New DateTime(_Year, 3, 21).AddDays(d + e + 1)
|
||||
End If
|
||||
Return _Ostern
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Function Ostersonntag() As Date
|
||||
Dim _month As Integer
|
||||
Dim _day As Integer
|
||||
Dim _moon As Integer
|
||||
Dim _epact As Integer
|
||||
Dim _sunday As Integer
|
||||
Dim _gold As Integer
|
||||
Dim _century As Integer
|
||||
Dim _corx As Integer
|
||||
Dim _corz As Integer
|
||||
' The Golden Number of the year in the 19 year Metonic Cycle:
|
||||
_gold = (_Year Mod 19) + 1
|
||||
' Calculate the Century:
|
||||
_century = (_Year \ 100) + 1
|
||||
' Number of years in which leap year was dropped in order
|
||||
' to keep in step with the sun:
|
||||
_corx = (3 * _century) \ 4 - 12
|
||||
' Special correction to syncronize Easter with moon's orbit:
|
||||
_corz = (8 * _century + 5) \ 25 - 5
|
||||
' Find Sunday:
|
||||
_sunday = (5 * _Year) \ 4 - _corx - 10
|
||||
' ^ evtl. long To prevent overflow at year 6554
|
||||
' Set Epact - specifies occurrence of full moon:
|
||||
_epact = (11 * _gold + 20 + _corz - _corx) Mod 30
|
||||
If _epact < 0 Then
|
||||
_epact += 30
|
||||
End If
|
||||
If (((_epact = 25) AndAlso (_gold > 11)) OrElse (_epact = 24)) Then
|
||||
_epact += 1
|
||||
End If
|
||||
' Find Full Moon:
|
||||
_moon = 44 - _epact
|
||||
If _moon < 21 Then
|
||||
_moon += 30
|
||||
End If
|
||||
' Advance to Sunday:
|
||||
_moon += 7 - ((_sunday + _moon) Mod 7)
|
||||
If (_moon > 31) Then
|
||||
_month = 4
|
||||
_day = _moon - 31
|
||||
Else
|
||||
_month = 3
|
||||
_day = _moon
|
||||
End If
|
||||
Return New DateTime(_Year, _month, _day)
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostermontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostermontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(1)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den BussUndBettag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property BussUndBettag() As Date
|
||||
Get
|
||||
Dim i As Long
|
||||
Dim VierterAdvent As Date
|
||||
For i = 24 To 1 Step -1
|
||||
If CDate(i & ".12." & _Year).ToString("ddd") = "So" Then
|
||||
VierterAdvent = CDate(i & ".12." & _Year).ToShortDateString
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
|
||||
Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
|
||||
End Get
|
||||
|
||||
End Property
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Karfreitag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Karfreitag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-2)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingstsonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstsonntag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(49)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingsmontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstmontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(50)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Christi-Himmelfahrt zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Himmelfahrt() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(39)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Fronleichnam zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Fronleichnam() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(60)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Aschermittwoch zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Aschermittwoch() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-46)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
If datum = CDate("01.01." & _Year) Then Return True
|
||||
If datum = CDate("06.01." & _Year) Then Return True
|
||||
If datum = CDate("15.08." & _Year) Then Return True
|
||||
If datum = CDate("01.11." & _Year) Then Return True
|
||||
If datum = CDate("25.12." & _Year) Then Return True
|
||||
If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
|
||||
If datum = Ostermontag Then Return True
|
||||
If datum = Ostersonntag() Then Return True
|
||||
If datum = Himmelfahrt Then Return True
|
||||
If datum = Pfingstmontag Then Return True
|
||||
If datum = Pfingstsonntag Then Return True
|
||||
If datum = Fronleichnam Then Return True
|
||||
|
||||
Select Case land
|
||||
Case "AT"
|
||||
If datum = CDate("26.10." & _Year) Then Return True
|
||||
If datum = CDate("08.12." & _Year) Then Return True
|
||||
If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
Case "DE" 'BAYERN
|
||||
If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND --> kein Feiertag in BAYERN
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
If datum = Karfreitag Then Return True
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
'Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
' If datum = CDate("01.01." & _Year) Then Return True
|
||||
' If datum = CDate("06.01." & _Year) Then Return True
|
||||
' If datum = CDate("15.08." & _Year) Then Return True
|
||||
' If datum = CDate("01.11." & _Year) Then Return True
|
||||
' If datum = CDate("25.12." & _Year) Then Return True
|
||||
' If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
|
||||
' If datum = Ostermontag Then MsgBox("Ostermontag") : Return True
|
||||
' If datum = Ostersonntag() Then MsgBox("Ostersonntag") : Return True
|
||||
' If datum = Himmelfahrt Then MsgBox("Himmelfahrt") : Return True
|
||||
' If datum = Pfingstmontag Then MsgBox("Pfingstmontag") : Return True
|
||||
' If datum = Pfingstsonntag Then MsgBox("Pfingstsonntag") : Return True
|
||||
' If datum = Fronleichnam Then MsgBox("Fronleichnam") : Return True
|
||||
|
||||
' Select Case land
|
||||
' Case "AT"
|
||||
' If datum = CDate("26.10." & _Year) Then Return True
|
||||
' If datum = CDate("08.12." & _Year) Then Return True
|
||||
' If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
' Case "DE" 'BAYERN
|
||||
' If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then MsgBox("BussUndBettag") : Return True ' Buß- und Bettag '!!!!ABEWEICHEND
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
' If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
' If datum = Karfreitag Then MsgBox("Karfreitag") : Return True
|
||||
' End Select
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
@@ -1226,7 +1226,7 @@ Public Class frmDienstplanVariabel
|
||||
|
||||
Dim datum As Date = montag
|
||||
For i = 1 To 7
|
||||
Dim FT As New cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
|
||||
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(datum.Year) 'Evtl Jahressprung, darum neu definieren
|
||||
For Each m In ma
|
||||
Dim eintrag As New cDienstEintrag
|
||||
eintrag.dstetr_dstmaId = m.dstma_id
|
||||
@@ -2503,7 +2503,7 @@ Public Class frmDienstplanVariabel
|
||||
|
||||
Blatt.Range("C1").Value = dateWork.ToString("MMMM yyyy")
|
||||
|
||||
Dim FT As New cFeiertage(dateWork.Year) 'Evtl Jahressprung, darum neu definieren
|
||||
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(dateWork.Year) 'Evtl Jahressprung, darum neu definieren
|
||||
|
||||
Dim cnt3 = 0
|
||||
While dateWork <= dateEnde
|
||||
|
||||
@@ -409,6 +409,21 @@ Public Class cGetMsgType
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then
|
||||
Dim sw = New StringWriter()
|
||||
Dim xw = New XmlTextWriter(sw)
|
||||
doc.WriteTo(xw)
|
||||
Dim XmlString = sw.ToString()
|
||||
If XmlString.Contains("<FCFCDE>") Then
|
||||
|
||||
Return True
|
||||
End If
|
||||
'End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
|
||||
@@ -345,6 +345,14 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
found = True
|
||||
End If
|
||||
End If
|
||||
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
|
||||
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc) Then
|
||||
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc)
|
||||
If bezugsNr <> "" Then
|
||||
found = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
|
||||
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc) Then
|
||||
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc)
|
||||
@@ -3092,6 +3100,624 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument) As String
|
||||
Try
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
|
||||
Dim sw = New StringWriter()
|
||||
Dim xw = New XmlTextWriter(sw)
|
||||
doc.WriteTo(xw)
|
||||
Dim XmlString = sw.ToString()
|
||||
If XmlString.Contains("<FCFCDE>") Then
|
||||
Dim xmlFCFCDE = XmlString.Substring(XmlString.IndexOf("<FCFCDE>"), XmlString.IndexOf("</FCFCDE>") + 9 - XmlString.IndexOf("<FCFCDE>"))
|
||||
' MsgBox(xmlFCFCDE)
|
||||
Dim p = Path.GetTempFileName
|
||||
|
||||
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
|
||||
outputFile.Write(xmlFCFCDE)
|
||||
outputFile.Close()
|
||||
|
||||
|
||||
|
||||
Dim FCFCDE As DAKOSY_Worker.FCFCDE.FCFCDE = DAKOSY_Worker.FCFCDE.FCFCDE.LoadFromFile(p)
|
||||
' Dim EZA As New DAKOSY_Worker.cDakosyEZA
|
||||
|
||||
|
||||
|
||||
If FCFCDE IsNot Nothing And FCFCDE.Header IsNot Nothing And FCFCDE.Header.LocalReferenceNumber IsNot Nothing Then
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = FCFCDE.Header.LocalReferenceNumber
|
||||
Else
|
||||
Return "" 'Keine Bezugsnummer
|
||||
End If
|
||||
|
||||
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE, "EZA")
|
||||
|
||||
Dim EZA As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
If EZA Is Nothing Then EZA = New DAKOSY_Worker.cDakosyEZA
|
||||
If DY_TMP IsNot Nothing Then EZA.eza_dyaAnmID = DY_TMP.dy_Id
|
||||
|
||||
If DY_TMP.dy_AvisoId Is Nothing Then
|
||||
DY_TMP.tryFindAviso()
|
||||
DY_TMP.SAVE()
|
||||
End If
|
||||
|
||||
|
||||
If FCFCDE IsNot Nothing Then
|
||||
EZA.eza_ObjectName = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE
|
||||
|
||||
If FCFCDE.MetaData IsNot Nothing Then
|
||||
If FCFCDE.MetaData.Preparation IsNot Nothing Then EZA.eza_Trans_DatumZeit = CDate(FCFCDE.MetaData.Preparation.Date).ToShortDateString
|
||||
End If
|
||||
|
||||
|
||||
If FCFCDE.Header IsNot Nothing Then
|
||||
|
||||
EZA.eza_VersendungsLandCode = FCFCDE.Header.DepartureCountry
|
||||
EZA.eza_FinanzamtAnmelder = FCFCDE.Header.TaxOffice
|
||||
'EZA.eza_UstIdAnmelder = FCFCDE.Header.TaxNumber
|
||||
|
||||
EZA.eza_Warenort = FCFCDE.Header.GoodsLocation
|
||||
EZA.eza_Ausstellungsort = FCFCDE.Header.DeclarationPlace
|
||||
|
||||
|
||||
EZA.eza_ZollrechtlicherStatus = FCFCDE.Header.CustomsGoodsStatus
|
||||
EZA.eza_Zahlungsart = FCFCDE.Header.PaymentMethod
|
||||
EZA.eza_AnmelderistEmpfaenger = FCFCDE.Header.DeclarantIsConsigneeFlag
|
||||
EZA.eza_VertretungsVerhaeltnisCode = FCFCDE.Header.RepresentativeRelationshipFlag
|
||||
EZA.eza_Vorsteuerabzug = FCFCDE.Header.InputTaxDeductionFlag
|
||||
EZA.eza_ZusatzangabenAnmeldung = FCFCDE.Header.AdditionalInformation
|
||||
|
||||
' EZA.eza_VerfahrenBeantragtCode
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If FCFCDE.Body IsNot Nothing Then
|
||||
If FCFCDE.Body.ForeignTradeStatistics IsNot Nothing Then
|
||||
|
||||
EZA.eza_ArtGeschaeftCode = FCFCDE.Body.ForeignTradeStatistics.TransactionType
|
||||
EZA.eza_Bestimmungsland = FCFCDE.Body.ForeignTradeStatistics.DestinationCountry
|
||||
EZA.eza_Bestimmungsbundesland = FCFCDE.Body.ForeignTradeStatistics.DestinationFederalState
|
||||
|
||||
If FCFCDE.Body.ForeignTradeStatistics.EntryCustomsOffice IsNot Nothing Then
|
||||
EZA.eza_Eingangszollstelle = FCFCDE.Body.ForeignTradeStatistics.EntryCustomsOffice.ReferenceNumber
|
||||
End If
|
||||
|
||||
EZA.eza_Statistikstatus = FCFCDE.Body.ForeignTradeStatistics.GoodsStatus
|
||||
EZA.eza_DV1Kz = FCFCDE.Body.CustomsValueFlag
|
||||
EZA.eza_GesamtRohmasse = FCFCDE.Body.ForeignTradeStatistics.TotalGrossMassMeasure
|
||||
|
||||
End If
|
||||
|
||||
If FCFCDE.Body.PaymentTransaction IsNot Nothing Then
|
||||
EZA.eza_Rechnungswaehrung = FCFCDE.Body.PaymentTransaction.CurrencyCode
|
||||
EZA.eza_Rechnungspreis = FCFCDE.Body.PaymentTransaction.Amount
|
||||
|
||||
End If
|
||||
|
||||
If FCFCDE.Body.CustomsValue IsNot Nothing Then
|
||||
If FCFCDE.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDE.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag
|
||||
EZA.eza_DV1FruehereEntscheidungen = FCFCDE.Body.CustomsValue.FormerDecisions
|
||||
|
||||
If FCFCDE.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDE.Body.CustomsValue.Affiliation.Type
|
||||
If FCFCDE.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDE.Body.CustomsValue.Affiliation.Description
|
||||
If FCFCDE.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDE.Body.CustomsValue.LicenseFee.Description
|
||||
If FCFCDE.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDE.Body.CustomsValue.LicenseFee.LicenseFeeFlag
|
||||
End If
|
||||
|
||||
If FCFCDE.Body.Document IsNot Nothing AndAlso FCFCDE.Body.Document.Count > 0 Then
|
||||
For Each docTMP In FCFCDE.Body.Document
|
||||
Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen
|
||||
UNTERLAGE.ezaUl_Art = docTMP.Type
|
||||
UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber
|
||||
UNTERLAGE.ezaUl_Bereich = docTMP.Division
|
||||
UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString
|
||||
|
||||
EZA.eza_UNTERLAGEN.Add(UNTERLAGE)
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)???
|
||||
' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '?
|
||||
|
||||
'Vorpapier
|
||||
If FCFCDE.PreviousAdministrativeReferences IsNot Nothing Then
|
||||
EZA.eza_VorpapierArtCode = FCFCDE.PreviousAdministrativeReferences.Type
|
||||
If FCFCDE.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDE.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber
|
||||
End If
|
||||
|
||||
'Beförderungsmittel Grenze
|
||||
If FCFCDE.BorderTransportMeans IsNot Nothing Then
|
||||
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDE.BorderTransportMeans.Type
|
||||
EZA.eza_VerkehrszweigGrenze = FCFCDE.BorderTransportMeans.Mode
|
||||
EZA.eza_BeförderungsmittelGrenze = FCFCDE.BorderTransportMeans.Information
|
||||
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDE.BorderTransportMeans.Nationality
|
||||
End If
|
||||
|
||||
'Beförderungsmittel Inland
|
||||
If FCFCDE.BorderTransportMeans IsNot Nothing Then
|
||||
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDE.BorderTransportMeans.Type
|
||||
EZA.eza_VerkehrszweigGrenze = FCFCDE.BorderTransportMeans.Mode
|
||||
EZA.eza_BeförderungsmittelGrenze = FCFCDE.BorderTransportMeans.Information
|
||||
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDE.BorderTransportMeans.Nationality
|
||||
End If
|
||||
|
||||
'Beförderungsmittel Inland
|
||||
If FCFCDE.ArrivalTransportMeans IsNot Nothing Then
|
||||
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDE.ArrivalTransportMeans.Identity
|
||||
End If
|
||||
|
||||
'Ansprechpartenr
|
||||
If FCFCDE.ContactPerson IsNot Nothing Then
|
||||
EZA.eza_AnmeldenderBearbeiterName = FCFCDE.ContactPerson.Name
|
||||
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDE.ContactPerson.MailAddress
|
||||
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDE.ContactPerson.Position
|
||||
EZA.eza_AnmeldenderBearbeiterTel = FCFCDE.ContactPerson.PhoneNumber
|
||||
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
|
||||
If SB_Tmp <> "" Then
|
||||
EZA.eza_Bearbeiter = SB_Tmp
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Anmleder
|
||||
If FCFCDE.Declarant IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "DT"
|
||||
If FCFCDE.Declarant.Name IsNot Nothing Then
|
||||
If FCFCDE.Declarant.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Declarant.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Declarant.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Declarant.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Declarant.Name.ToString.Substring(80, FCFCDE.Declarant.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Declarant.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Declarant.Name.ToString.Substring(40, FCFCDE.Declarant.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Declarant.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Declarant.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Declarant.Identification.ReferenceNumber
|
||||
ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Declarant.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDE.Declarant.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Declarant.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Declarant.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Declarant.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Declarant.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Vertreter
|
||||
If FCFCDE.Representative IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CB"
|
||||
If FCFCDE.Representative.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Representative.Identification.ReferenceNumber
|
||||
ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Representative.Identification.SubsidiaryNumber
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Empfänger
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.Consignee IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CN"
|
||||
If FCFCDE.Body.Consignee.Name IsNot Nothing Then
|
||||
If FCFCDE.Body.Consignee.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Body.Consignee.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignee.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.Consignee.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Body.Consignee.Name.ToString.Substring(80, FCFCDE.Body.Consignee.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignee.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.Consignee.Name.ToString.Substring(40, FCFCDE.Body.Consignee.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignee.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Body.Consignee.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.Consignee.Identification.ReferenceNumber
|
||||
ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.Consignee.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDE.Body.Consignee.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.Consignee.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Body.Consignee.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Body.Consignee.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Body.Consignee.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Erwerber --> NEU!!! = zusätzl. Steuerl. Angaben
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.AdditionalDutyReferences IsNot Nothing AndAlso FCFCDE.Body.AdditionalDutyReferences.Count > 0 AndAlso FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty IsNot Nothing Then
|
||||
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "UC"
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name IsNot Nothing Then
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(80, FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber IsNot Nothing Then
|
||||
ADR.ezaAd_UStIDAnmelder = FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber
|
||||
EZA.eza_UstIdAnmelder = FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber
|
||||
End If
|
||||
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
|
||||
'ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
|
||||
End If
|
||||
If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Versender/Ausführer
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.Consignor IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "CZ"
|
||||
If FCFCDE.Body.Consignor.Name IsNot Nothing Then
|
||||
If FCFCDE.Body.Consignor.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Body.Consignor.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.Consignor.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Body.Consignor.Name.ToString.Substring(80, FCFCDE.Body.Consignor.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.Consignor.Name.ToString.Substring(40, FCFCDE.Body.Consignor.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.Consignor.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Body.Consignor.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.Consignor.Identification.ReferenceNumber
|
||||
' ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.Consignor.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDE.Body.Consignor.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.Consignor.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Body.Consignor.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Body.Consignor.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Body.Consignor.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Verkäufer
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.CustomsValue IsNot Nothing AndAlso FCFCDE.Body.CustomsValue.Vendor IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "SE"
|
||||
If FCFCDE.Body.CustomsValue.Vendor.Name IsNot Nothing Then
|
||||
If FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDE.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendor.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.CustomsValue.Vendor.Identification.ReferenceNumber
|
||||
'ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDE.Body.CustomsValue.Vendor.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.CustomsValue.Vendor.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Body.CustomsValue.Vendor.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Body.CustomsValue.Vendor.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Body.CustomsValue.Vendor.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
|
||||
'Käufer
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.CustomsValue IsNot Nothing AndAlso FCFCDE.Body.CustomsValue.Vendee IsNot Nothing Then
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = "BY"
|
||||
If FCFCDE.Body.CustomsValue.Vendee.Name IsNot Nothing Then
|
||||
If FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
|
||||
If FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
|
||||
ADR.ezaAd_NameFirma3 = FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
|
||||
End If
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
|
||||
ADR.ezaAd_NameFirma2 = FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDE.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
|
||||
Else
|
||||
ADR.ezaAd_NameFirma1 = FCFCDE.Body.CustomsValue.Vendee.Name
|
||||
End If
|
||||
End If
|
||||
If FCFCDE.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
|
||||
ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.CustomsValue.Vendee.Identification.ReferenceNumber
|
||||
'ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
|
||||
End If
|
||||
If FCFCDE.Body.CustomsValue.Vendee.Address IsNot Nothing Then
|
||||
ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.CustomsValue.Vendee.Address.Line
|
||||
ADR.ezaAd_StrasseHausNr2 = Nothing
|
||||
ADR.ezaAd_Ort = FCFCDE.Body.CustomsValue.Vendee.Address.City
|
||||
ADR.ezaAd_PLZ = FCFCDE.Body.CustomsValue.Vendee.Address.Postcode
|
||||
ADR.ezaAd_LandCode = FCFCDE.Body.CustomsValue.Vendee.Address.Country
|
||||
End If
|
||||
EZA.eza_ADRESSEN.Add(ADR)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
''Zollwertanmelder
|
||||
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
|
||||
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
|
||||
|
||||
|
||||
''Vertr. Zollwertanmelder
|
||||
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
|
||||
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
|
||||
|
||||
''Rechnung
|
||||
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
|
||||
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
|
||||
|
||||
''Postfachadresse
|
||||
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
|
||||
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
|
||||
''--
|
||||
|
||||
'AUFSCHUB
|
||||
If FCFCDE.DutyDefermentApproval IsNot Nothing AndAlso FCFCDE.DutyDefermentApproval.Count > 0 Then
|
||||
For Each TMP In FCFCDE.DutyDefermentApproval
|
||||
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
|
||||
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
|
||||
AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber
|
||||
End If
|
||||
|
||||
|
||||
AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber
|
||||
AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix
|
||||
AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber
|
||||
AUFSCHUB.ezaAfb_Aufschubart = TMP.Type
|
||||
AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType
|
||||
EZA.eza_AUFSCHUB.Add(AUFSCHUB)
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'Lieferbedingungen
|
||||
If FCFCDE.Body.DeliveryTerms IsNot Nothing Then
|
||||
EZA.eza_LieferbedingungCode = FCFCDE.Body.DeliveryTerms.Code
|
||||
EZA.eza_LieferbedingungText = FCFCDE.Body.DeliveryTerms.Description
|
||||
EZA.eza_LieferbedingungOrt = FCFCDE.Body.DeliveryTerms.Place
|
||||
EZA.eza_LieferbedingungSchluessel = FCFCDE.Body.DeliveryTerms.Key
|
||||
End If
|
||||
|
||||
|
||||
' ###################################################
|
||||
'POSITIONEN
|
||||
' ###################################################
|
||||
|
||||
If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.GoodsItem IsNot Nothing AndAlso FCFCDE.Body.GoodsItem.Count > 0 Then
|
||||
For Each GOODSITEM In FCFCDE.Body.GoodsItem
|
||||
Dim POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
|
||||
|
||||
POS.ezaWP_PositionsNummer = GOODSITEM.SequenceNumber
|
||||
If GOODSITEM.CommodityCode IsNot Nothing Then POS.ezaWP_WarennummerEZT = GOODSITEM.CommodityCode.CommodityCode
|
||||
If GOODSITEM.Procedure IsNot Nothing Then POS.ezaWP_AnmeldeVErfahren = GOODSITEM.Procedure.RequestedPreviousProcedure
|
||||
|
||||
POS.ezaWP_AbgabensteuerungKz = GOODSITEM.CessionManagementFlag
|
||||
POS.ezaWP_Warenbezeichnung = GOODSITEM.GoodsDescription
|
||||
POS.ezaWP_PositionsZusatz = GOODSITEM.SupplementaryInformation
|
||||
|
||||
If GOODSITEM.CustomsValue IsNot Nothing Then
|
||||
POS.ezaWP_OrtVerbringens = GOODSITEM.CustomsValue.DestinationPlace
|
||||
POS.ezaWP_AbflughafenIATACode = GOODSITEM.CustomsValue.DepartureAirport
|
||||
If GOODSITEM.CustomsValue.NetPrice IsNot Nothing Then
|
||||
' POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.CurrencyCode
|
||||
POS.ezaWP_KursVereinbartKz = GOODSITEM.CustomsValue.NetPrice.CurrencyRateAgreedFlag
|
||||
POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.Value
|
||||
'POS.ezaWP_KursDatum= GOODSITEM.CustomsValue.NetPrice.CurrencyRate
|
||||
'POS.ezaWP_KursDatum = GOODSITEM.CustomsValue.NetPrice.
|
||||
End If
|
||||
|
||||
|
||||
If GOODSITEM.ForeignTradeStatistics IsNot Nothing Then
|
||||
POS.ezaWP_Rohmasse = GOODSITEM.ForeignTradeStatistics.GrossMassMeasure
|
||||
If GOODSITEM.ForeignTradeStatistics.Amount IsNot Nothing Then
|
||||
POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier
|
||||
POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit
|
||||
POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity
|
||||
POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity
|
||||
End If
|
||||
End If
|
||||
|
||||
POS.ezaWP_UrsprungslandCode = GOODSITEM.OriginCountry
|
||||
POS.ezaWP_Eigenmasse = GOODSITEM.NetMassMeasure
|
||||
|
||||
' POS.ezaWP_BeguenstigungBenatragtCode = Bedingun.
|
||||
POS.ezaWP_BedingungCode = GOODSITEM.Condition
|
||||
'POS.ezaWP_EUCode = GOODSITEM.EUCode
|
||||
|
||||
'If GOODSITEM.Assessment IsNot Nothing Then
|
||||
|
||||
' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount.
|
||||
' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts
|
||||
' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee
|
||||
'End If
|
||||
|
||||
|
||||
''Packstücke
|
||||
If GOODSITEM.Package IsNot Nothing Then
|
||||
POS.ezaWP_PackstueckArt = GOODSITEM.Package.Kind
|
||||
POS.ezaWP_PackstueckZeichen = GOODSITEM.Package.MarksNumbers
|
||||
POS.ezaWP_PackstueckAnzahl = GOODSITEM.Package.Quantity
|
||||
End If
|
||||
|
||||
''Packstücke
|
||||
'If GOODSITEM.Package IsNot Nothing AndAlso GOODSITEM.Package.Count > 0 Then
|
||||
' For Each PCK In GOODSITEM.Package
|
||||
' Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
|
||||
' If PCK.DutyDefermentApplicant IsNot Nothing AndAlso PCK.DutyDefermentApplicant.Identification IsNot Nothing Then
|
||||
' AUFSCHUB.ezaAfb_AufschubnehmerEORI = PCK.DutyDefermentApplicant.Identification.ReferenceNumber
|
||||
' End If
|
||||
' AUFSCHUB.ezaAfb_AufschuBIN = PCK.AuthorisationNumber
|
||||
' AUFSCHUB.ezaAfb_KontoNr = PCK.AccountNumber
|
||||
' AUFSCHUB.ezaAfb_Aufschubart = PCK.Type
|
||||
' AUFSCHUB.ezaAfb_ArtAufschubantrag = PCK.ApplicationType
|
||||
' EZA.eza_AUFSCHUB.Add(AUFSCHUB)
|
||||
' Next
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
'Preisart
|
||||
'-
|
||||
|
||||
POS.ezaWP_Artikelpreis = GOODSITEM.InvoiceAmount
|
||||
'Zusatzcode
|
||||
If GOODSITEM.SupplementaryCodes IsNot Nothing AndAlso GOODSITEM.SupplementaryCodes.Count > 0 Then
|
||||
Dim cnt = 0
|
||||
For Each s In GOODSITEM.SupplementaryCodes
|
||||
If cnt = 0 Then POS.ezaWP_WarennummerZusatzCode1 = s.Code
|
||||
If cnt = 1 Then POS.ezaWP_WarennummerZusatzCode2 = s.Code
|
||||
If cnt = 2 Then POS.ezaWP_WarennummerZusatzCode3 = s.Code
|
||||
If cnt = 3 Then POS.ezaWP_WarennummerZusatzCode4 = s.Code
|
||||
If cnt = 4 Then POS.ezaWP_WarennummerZusatzCode5 = s.Code
|
||||
If cnt = 5 Then POS.ezaWP_WarennummerZusatzCode6 = s.Code
|
||||
If cnt = 6 Then POS.ezaWP_WarennummerZusatzCode7 = s.Code
|
||||
If cnt = 7 Then POS.ezaWP_WarennummerZusatzCode8 = s.Code
|
||||
If cnt = 8 Then POS.ezaWP_WarennummerZusatzCode9 = s.Code
|
||||
If cnt = 9 Then POS.ezaWP_WarennummerZusatzCode10 = s.Code
|
||||
cnt += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
'Abgabenminderung
|
||||
'-
|
||||
|
||||
'Sonderfalldaten
|
||||
If GOODSITEM.SpecialCase IsNot Nothing AndAlso GOODSITEM.SpecialCase.Count > 0 Then
|
||||
For Each s In GOODSITEM.SpecialCase
|
||||
Dim SA As New DAKOSY_Worker.cDakosy_EZA_WarenpositionSonderfalldaten
|
||||
SA.ezaWpSfd_SonderabgabenGruppeCode = s.Group
|
||||
SA.ezaWpSfd_AnwendungArt = s.ApplicationType
|
||||
SA.ezaWpSfd_SatzBetragFaktor = s.RateOrAmountOrFactor
|
||||
POS.ezaWP_SONDERFALLDATEN.Add(SA)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Verbrauchsteuer
|
||||
If GOODSITEM.ExciseDuty IsNot Nothing AndAlso GOODSITEM.ExciseDuty.Count > 0 Then
|
||||
For Each s In GOODSITEM.ExciseDuty
|
||||
Dim VS As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVerbrauchssteuer
|
||||
VS.ezaWpVs_VerbrauchsteuerCode = s.Code
|
||||
VS.ezaWpVs_VerbrauchssteuerWertbasis = s.Value
|
||||
'VS.ezaWpVs_VerbrauchssteuerMenge = s.DegreePercentage
|
||||
If s.Amount IsNot Nothing Then
|
||||
VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.Quantity
|
||||
VS.ezaWpVs_VerbrauchssteuerMasseinheitQualifier = s.Amount.Qualifier
|
||||
VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.MeasurementUnit
|
||||
End If
|
||||
POS.ezaWP_VERBRAUCHSSTEUER.Add(VS)
|
||||
Next
|
||||
End If
|
||||
|
||||
If GOODSITEM.PreferentialTreatment IsNot Nothing Then
|
||||
POS.ezaWP_BeguenstigungBenatragtCode = GOODSITEM.PreferentialTreatment.RequestedPreferentialTreatment
|
||||
If GOODSITEM.PreferentialTreatment.Declaration IsNot Nothing AndAlso GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity IsNot Nothing Then
|
||||
POS.ezaWP_BeguenstigungsMengeMasseinheitCode = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.MeasurementUnit
|
||||
POS.ezaWP_BeguenstigungsMengeMenge = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Quantity
|
||||
POS.ezaWP_BeguenstigungsMengeQualifier = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Qualifier
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Unterlagen
|
||||
If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then
|
||||
For Each s In GOODSITEM.Document
|
||||
Dim UL As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
|
||||
UL.ezaWpUl_Bereich = s.Division
|
||||
UL.ezaWpUl_VorlageKz = s.AtHandFlag
|
||||
If s.WriteOff IsNot Nothing Then
|
||||
UL.ezaWpUl_AbschreibungsMengeMasseinheitQualifier = s.WriteOff.Qualifier
|
||||
UL.ezaWpUl_AbschreibungsMengeMasseinheit = s.WriteOff.MeasurementUnit
|
||||
UL.ezaWpUl_AbschreibungsMenge = s.WriteOff.Quantity
|
||||
|
||||
End If
|
||||
UL.ezaWpUl_Art = s.Type
|
||||
UL.ezaWpUl_Nummer = s.ReferenceNumber
|
||||
UL.ezaWpUl_DatumAusstellung = CDate(s.IssuingDate).ToShortDateString
|
||||
POS.ezaWP_UNTERLAGEN.Add(UL)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
EZA.eza_WARENPOS.Add(POS)
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If If(EZA.eza_Status, 0) <= 5 Then EZA.eza_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If If(EZA.eza_Status_KEWILL_Equivalent, 0) <= 5 Then EZA.eza_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
|
||||
|
||||
|
||||
If EZA.SAVE_ALL() Then
|
||||
If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
|
||||
Else
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
System.IO.File.Delete(p)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
addDGVEinarbeitung("EZA: FreierVerkehrAktVeredelUmwandlung", readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE)
|
||||
|
||||
End Using
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument) As String
|
||||
Try
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = ""
|
||||
|
||||
@@ -2242,7 +2242,7 @@ Public Class frmStartOptions
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
|
||||
Dim dateBack = If(TageZurueck <> "", CDate(Now.ToString("01.MM.yyyy")).AddDays(TageZurueck * -1), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
|
||||
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
|
||||
Reference in New Issue
Block a user