ImportZA to DAKOSY Fix

2024-10-14 21:21:53 +02:00
parent bfbfe598ff
commit 3950f2f100
13 changed files with 524 additions and 28438 deletions
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb
@@ -1,7 +1,7 @@
 '' ------------------------------------------------------------------------------
 ''  <auto-generated>
 ''    Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
-''    {"TargetFramework":"Net47","NameSpace":"FreierVerkehrAktVeredelUmwandlung_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":{}}
+''    {"TargetFramework":"Net48","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{}}
 ''  </auto-generated>
 '' ------------------------------------------------------------------------------
 #Disable Warning
@@ -70,6 +70,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -278,6 +279,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -604,6 +606,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -889,6 +892,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -1186,6 +1190,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -1375,6 +1380,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -1636,6 +1642,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -1837,6 +1844,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -2026,6 +2034,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -2263,6 +2272,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -2464,6 +2474,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -2653,6 +2664,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -2866,6 +2878,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -3067,6 +3080,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -3361,11 +3375,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004

        Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp

+        Private _applicationInternalData As ApplicationInternalDataType
+
        Private Shared _serializerXml As XmlSerializer
 #End Region

        Public Sub New()
            MyBase.New
+            Me._applicationInternalData = New ApplicationInternalDataType()
            Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp()
            Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)()
            Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)()
@@ -4152,6 +4169,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
            End Set
        End Property

+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ApplicationInternalData() As ApplicationInternalDataType
+            Get
+                Return Me._applicationInternalData
+            End Get
+            Set
+                Me._applicationInternalData = Value
+            End Set
+        End Property
+
        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
@@ -4174,6 +4201,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -4307,6 +4335,380 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
        End Function
    End Class

+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code")>
+    Partial Public Class ApplicationInternalDataType
+
+#Region "Private fields"
+        Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
+        End Sub
+
+        <XmlArray(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified),
+         XmlArrayItem("Data", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=False)>
+        Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
+            Get
+                Return Me._additionalDetails
+            End Get
+            Set
+                Me._additionalDetails = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize ApplicationInternalDataType 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 = "  "
+                xmlWriterSettings.NewLineOnAttributes = True
+                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 ApplicationInternalDataType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataType 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 ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ApplicationInternalDataType)
+            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 ApplicationInternalDataType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
+            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 ApplicationInternalDataType
+            Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current ApplicationInternalDataType 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 ApplicationInternalDataType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataType 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 ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ApplicationInternalDataType)
+            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 ApplicationInternalDataType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                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
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code")>
+    Partial Public Class ApplicationInternalDataAdditionalDetailsDataType
+
+#Region "Private fields"
+        Private _key As String
+
+        Private _value As String
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property Key() As String
+            Get
+                Return Me._key
+            End Get
+            Set
+                Me._key = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property Value() As String
+            Get
+                Return Me._value
+            End Get
+            Set
+                Me._value = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize ApplicationInternalDataAdditionalDetailsDataType 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 = "  "
+                xmlWriterSettings.NewLineOnAttributes = True
+                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 ApplicationInternalDataAdditionalDetailsDataType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
+            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 ApplicationInternalDataAdditionalDetailsDataType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
+            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 ApplicationInternalDataAdditionalDetailsDataType
+            Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType 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 ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
+            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 ApplicationInternalDataAdditionalDetailsDataType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                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
+
    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
     System.Serializable,
     DebuggerStepThrough,
@@ -4543,6 +4945,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -4804,6 +5207,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -5029,6 +5433,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -5203,6 +5608,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004

        Private _warenbezogeneAngaben As String

+        Private _funktionPositionAusWE As String
+
        Private Shared _serializerXml As XmlSerializer
 #End Region

@@ -5376,6 +5783,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
            End Set
        End Property

+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property FunktionPositionAusWE() As String
+            Get
+                Return Me._funktionPositionAusWE
+            End Get
+            Set
+                Me._funktionPositionAusWE = Value
+            End Set
+        End Property
+
        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
@@ -5398,6 +5815,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -5659,6 +6077,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -5920,6 +6339,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -6133,6 +6553,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -6502,6 +6923,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -6823,6 +7245,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -7089,11 +7512,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004

        Private _adressen As List(Of AdressenVzImportAVUVTyp)

+        Private _applicationInternalData As ApplicationInternalDataType
+
        Private Shared _serializerXml As XmlSerializer
 #End Region

        Public Sub New()
            MyBase.New
+            Me._applicationInternalData = New ApplicationInternalDataType()
            Me._adressen = New List(Of AdressenVzImportAVUVTyp)()
            Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)()
            Me._aVErledZollstelle = New List(Of String)()
@@ -7737,6 +8163,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
            End Set
        End Property

+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ApplicationInternalData() As ApplicationInternalDataType
+            Get
+                Return Me._applicationInternalData
+            End Get
+            Set
+                Me._applicationInternalData = Value
+            End Set
+        End Property
+
        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
@@ -7759,6 +8195,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -8008,6 +8445,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)
@@ -8191,6 +8629,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                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)