6865 lines
246 KiB
VB.net
6865 lines
246 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
|
|
'' <NameSpace>Abgabenbescheid_010</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net20</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
|
|
'' </auto-generated>
|
|
'' ------------------------------------------------------------------------------
|
|
Imports System
|
|
Imports System.Diagnostics
|
|
Imports System.Xml.Serialization
|
|
Imports System.Collections
|
|
Imports System.Xml.Schema
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Collections.Generic
|
|
|
|
Namespace Abgabenbescheid_010
|
|
|
|
Partial Public Class AbgabenbescheidEinfuhrTAXTyp
|
|
Inherits DatenaustauschFreierVerkehrTyp
|
|
|
|
Private einzelAbgabenbescheidField As EinzelAbgabenbescheidTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.einzelAbgabenbescheidField = New EinzelAbgabenbescheidTyp()
|
|
End Sub
|
|
|
|
Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp
|
|
Get
|
|
Return Me.einzelAbgabenbescheidField
|
|
End Get
|
|
Set
|
|
Me.einzelAbgabenbescheidField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbgabenbescheidEinfuhrTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbgabenbescheidEinfuhrTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenbescheidEinfuhrTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbgabenbescheidEinfuhrTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbgabenbescheidEinfuhrTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbgabenbescheidEinfuhrTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
|
|
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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EinzelAbgabenbescheidTyp
|
|
|
|
Private objektIdentifizierungField As ObjektIdentifizierungTAXTyp
|
|
|
|
Private kopfDatenField As KopfDatenEinfuhrbescheidTyp
|
|
|
|
Private positionField As List(Of PositionAbgabenbescheidEinfuhrTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.positionField = New List(Of PositionAbgabenbescheidEinfuhrTyp)()
|
|
Me.kopfDatenField = New KopfDatenEinfuhrbescheidTyp()
|
|
Me.objektIdentifizierungField = New ObjektIdentifizierungTAXTyp()
|
|
End Sub
|
|
|
|
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp
|
|
Get
|
|
Return Me.objektIdentifizierungField
|
|
End Get
|
|
Set
|
|
Me.objektIdentifizierungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp
|
|
Get
|
|
Return Me.kopfDatenField
|
|
End Get
|
|
Set
|
|
Me.kopfDatenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp)
|
|
Get
|
|
Return Me.positionField
|
|
End Get
|
|
Set
|
|
Me.positionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbgabenbescheidTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EinzelAbgabenbescheidTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EinzelAbgabenbescheidTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EinzelAbgabenbescheidTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenbescheidTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EinzelAbgabenbescheidTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EinzelAbgabenbescheidTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EinzelAbgabenbescheidTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
|
|
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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class ObjektIdentifizierungTAXTyp
|
|
|
|
Private objektNameField As String
|
|
|
|
Private objektAliasField As String
|
|
|
|
Private eDIFACTNachrichtenNrField As String
|
|
|
|
Private zeitpunktEingangField As Date
|
|
|
|
Private shipmentReferenzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ObjektName() As String
|
|
Get
|
|
Return Me.objektNameField
|
|
End Get
|
|
Set
|
|
Me.objektNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ObjektAlias() As String
|
|
Get
|
|
Return Me.objektAliasField
|
|
End Get
|
|
Set
|
|
Me.objektAliasField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EDIFACTNachrichtenNr() As String
|
|
Get
|
|
Return Me.eDIFACTNachrichtenNrField
|
|
End Get
|
|
Set
|
|
Me.eDIFACTNachrichtenNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZeitpunktEingang() As Date
|
|
Get
|
|
Return Me.zeitpunktEingangField
|
|
End Get
|
|
Set
|
|
Me.zeitpunktEingangField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ShipmentReferenz() As String
|
|
Get
|
|
Return Me.shipmentReferenzField
|
|
End Get
|
|
Set
|
|
Me.shipmentReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current ObjektIdentifizierungTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an ObjektIdentifizierungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output ObjektIdentifizierungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current ObjektIdentifizierungTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 ObjektIdentifizierungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output ObjektIdentifizierungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
|
|
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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EinzelAbgabenSatzTAXTyp
|
|
|
|
Private lfdNrAbgabensatzField As List(Of String)
|
|
|
|
Private abgabensatzField As List(Of Decimal)
|
|
|
|
Private bemessungsmassstabField As List(Of String)
|
|
|
|
Private gehaltsangabenArtField As List(Of String)
|
|
|
|
Private gehaltsangabenGradProzentField As List(Of Decimal)
|
|
|
|
Private bemessungsgrundlageKzField As List(Of String)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.bemessungsgrundlageKzField = New List(Of String)()
|
|
Me.gehaltsangabenGradProzentField = New List(Of Decimal)()
|
|
Me.gehaltsangabenArtField = New List(Of String)()
|
|
Me.bemessungsmassstabField = New List(Of String)()
|
|
Me.abgabensatzField = New List(Of Decimal)()
|
|
Me.lfdNrAbgabensatzField = New List(Of String)()
|
|
End Sub
|
|
|
|
Public Property LfdNrAbgabensatz() As List(Of String)
|
|
Get
|
|
Return Me.lfdNrAbgabensatzField
|
|
End Get
|
|
Set
|
|
Me.lfdNrAbgabensatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Abgabensatz() As List(Of Decimal)
|
|
Get
|
|
Return Me.abgabensatzField
|
|
End Get
|
|
Set
|
|
Me.abgabensatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bemessungsmassstab() As List(Of String)
|
|
Get
|
|
Return Me.bemessungsmassstabField
|
|
End Get
|
|
Set
|
|
Me.bemessungsmassstabField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GehaltsangabenArt() As List(Of String)
|
|
Get
|
|
Return Me.gehaltsangabenArtField
|
|
End Get
|
|
Set
|
|
Me.gehaltsangabenArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GehaltsangabenGradProzent() As List(Of Decimal)
|
|
Get
|
|
Return Me.gehaltsangabenGradProzentField
|
|
End Get
|
|
Set
|
|
Me.gehaltsangabenGradProzentField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BemessungsgrundlageKz() As List(Of String)
|
|
Get
|
|
Return Me.bemessungsgrundlageKzField
|
|
End Get
|
|
Set
|
|
Me.bemessungsgrundlageKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbgabenSatzTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EinzelAbgabenSatzTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EinzelAbgabenSatzTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EinzelAbgabenSatzTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenSatzTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EinzelAbgabenSatzTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EinzelAbgabenSatzTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EinzelAbgabenSatzTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
|
|
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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AbgabengruppeTAXTyp
|
|
|
|
Private abgabengruppeField As String
|
|
|
|
Private abgabeArtField As String
|
|
|
|
Private berechnungshinweisField As String
|
|
|
|
Private errechneterAbgabenbetragField As Decimal
|
|
|
|
Private errechneterAbgabenbetragFieldSpecified As Boolean
|
|
|
|
Private abgabenbetragField As Decimal
|
|
|
|
Private abgabenbetragFieldSpecified As Boolean
|
|
|
|
Private abgabensatzKontNrField As String
|
|
|
|
Private verbrauchssteuerCodeField As String
|
|
|
|
Private verbrauchssteuerMengeField As Decimal
|
|
|
|
Private verbrauchssteuerMengeFieldSpecified As Boolean
|
|
|
|
Private verbrauchssteuerMasseinheitField As String
|
|
|
|
Private verbrauchssteuerQualifikatorField As String
|
|
|
|
Private verbrauchssteuerGradProzentField As Decimal
|
|
|
|
Private verbrauchssteuerGradProzentFieldSpecified As Boolean
|
|
|
|
Private verbrauchssteuerWertField As Decimal
|
|
|
|
Private verbrauchssteuerWertFieldSpecified As Boolean
|
|
|
|
Private einzelAbgabenSatzField As List(Of EinzelAbgabenSatzTAXTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.einzelAbgabenSatzField = New List(Of EinzelAbgabenSatzTAXTyp)()
|
|
End Sub
|
|
|
|
Public Property Abgabengruppe() As String
|
|
Get
|
|
Return Me.abgabengruppeField
|
|
End Get
|
|
Set
|
|
Me.abgabengruppeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabeArt() As String
|
|
Get
|
|
Return Me.abgabeArtField
|
|
End Get
|
|
Set
|
|
Me.abgabeArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Berechnungshinweis() As String
|
|
Get
|
|
Return Me.berechnungshinweisField
|
|
End Get
|
|
Set
|
|
Me.berechnungshinweisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErrechneterAbgabenbetrag() As Decimal
|
|
Get
|
|
Return Me.errechneterAbgabenbetragField
|
|
End Get
|
|
Set
|
|
Me.errechneterAbgabenbetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ErrechneterAbgabenbetragSpecified() As Boolean
|
|
Get
|
|
Return Me.errechneterAbgabenbetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.errechneterAbgabenbetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Abgabenbetrag() As Decimal
|
|
Get
|
|
Return Me.abgabenbetragField
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbgabenbetragSpecified() As Boolean
|
|
Get
|
|
Return Me.abgabenbetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabensatzKontNr() As String
|
|
Get
|
|
Return Me.abgabensatzKontNrField
|
|
End Get
|
|
Set
|
|
Me.abgabensatzKontNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerCode() As String
|
|
Get
|
|
Return Me.verbrauchssteuerCodeField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerMenge() As Decimal
|
|
Get
|
|
Return Me.verbrauchssteuerMengeField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VerbrauchssteuerMengeSpecified() As Boolean
|
|
Get
|
|
Return Me.verbrauchssteuerMengeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMengeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerMasseinheit() As String
|
|
Get
|
|
Return Me.verbrauchssteuerMasseinheitField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMasseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerQualifikator() As String
|
|
Get
|
|
Return Me.verbrauchssteuerQualifikatorField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerQualifikatorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerGradProzent() As Decimal
|
|
Get
|
|
Return Me.verbrauchssteuerGradProzentField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerGradProzentField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VerbrauchssteuerGradProzentSpecified() As Boolean
|
|
Get
|
|
Return Me.verbrauchssteuerGradProzentFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerGradProzentFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerWert() As Decimal
|
|
Get
|
|
Return Me.verbrauchssteuerWertField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerWertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VerbrauchssteuerWertSpecified() As Boolean
|
|
Get
|
|
Return Me.verbrauchssteuerWertFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerWertFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp)
|
|
Get
|
|
Return Me.einzelAbgabenSatzField
|
|
End Get
|
|
Set
|
|
Me.einzelAbgabenSatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabengruppeTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbgabengruppeTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbgabengruppeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbgabengruppeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabengruppeTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabengruppeTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabengruppeTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbgabengruppeTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbgabengruppeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbgabengruppeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabengruppeTAXTyp)
|
|
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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class PauschalierungTAXTyp
|
|
|
|
Private warenkategorieField As String
|
|
|
|
Private kzPauschalierterAbgabensatzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Warenkategorie() As String
|
|
Get
|
|
Return Me.warenkategorieField
|
|
End Get
|
|
Set
|
|
Me.warenkategorieField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzPauschalierterAbgabensatz() As String
|
|
Get
|
|
Return Me.kzPauschalierterAbgabensatzField
|
|
End Get
|
|
Set
|
|
Me.kzPauschalierterAbgabensatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PauschalierungTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current PauschalierungTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an PauschalierungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output PauschalierungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PauschalierungTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As PauschalierungTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PauschalierungTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current PauschalierungTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 PauschalierungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output PauschalierungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PauschalierungTAXTyp)
|
|
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 PauschalierungTAXTyp) 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 PauschalierungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AbweichendeFestsetzungTAXTyp
|
|
|
|
Private feldnameField As String
|
|
|
|
Private qualifikatorField As String
|
|
|
|
Private qualifikatorInhaltField As String
|
|
|
|
Private artAbweichendeFestsetzungField As String
|
|
|
|
Private festgesetztVonField As String
|
|
|
|
Private festgesetztAufField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Feldname() As String
|
|
Get
|
|
Return Me.feldnameField
|
|
End Get
|
|
Set
|
|
Me.feldnameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Qualifikator() As String
|
|
Get
|
|
Return Me.qualifikatorField
|
|
End Get
|
|
Set
|
|
Me.qualifikatorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property QualifikatorInhalt() As String
|
|
Get
|
|
Return Me.qualifikatorInhaltField
|
|
End Get
|
|
Set
|
|
Me.qualifikatorInhaltField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtAbweichendeFestsetzung() As String
|
|
Get
|
|
Return Me.artAbweichendeFestsetzungField
|
|
End Get
|
|
Set
|
|
Me.artAbweichendeFestsetzungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FestgesetztVon() As String
|
|
Get
|
|
Return Me.festgesetztVonField
|
|
End Get
|
|
Set
|
|
Me.festgesetztVonField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FestgesetztAuf() As String
|
|
Get
|
|
Return Me.festgesetztAufField
|
|
End Get
|
|
Set
|
|
Me.festgesetztAufField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichendeFestsetzungTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbweichendeFestsetzungTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbweichendeFestsetzungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbweichendeFestsetzungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichendeFestsetzungTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbweichendeFestsetzungTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbweichendeFestsetzungTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbweichendeFestsetzungTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
|
|
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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class KontingentAngerechnetWarenMengeTAXTyp
|
|
|
|
Private mengeField As String
|
|
|
|
Private masseinheitField As String
|
|
|
|
Private qualifierField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Menge() As String
|
|
Get
|
|
Return Me.mengeField
|
|
End Get
|
|
Set
|
|
Me.mengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Masseinheit() As String
|
|
Get
|
|
Return Me.masseinheitField
|
|
End Get
|
|
Set
|
|
Me.masseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me.qualifierField
|
|
End Get
|
|
Set
|
|
Me.qualifierField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KontingentAngerechnetWarenMengeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetWarenMengeTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current KontingentAngerechnetWarenMengeTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 KontingentAngerechnetWarenMengeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output KontingentAngerechnetWarenMengeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
|
|
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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class KontingentAngerechnetTAXTyp
|
|
|
|
Private kontNrAngerechnetField As String
|
|
|
|
Private zollwertAngerechnetField As Decimal
|
|
|
|
Private zollwertAngerechnetFieldSpecified As Boolean
|
|
|
|
Private eUStKostenAngerechnetField As Decimal
|
|
|
|
Private eUStKostenAngerechnetFieldSpecified As Boolean
|
|
|
|
Private beguenstMengeAngerechnetField As Decimal
|
|
|
|
Private beguenstMengeAngerechnetFieldSpecified As Boolean
|
|
|
|
Private masseinhBegMengeAngField As String
|
|
|
|
Private qualifBegMengeAngField As String
|
|
|
|
Private warenMengeField As List(Of KontingentAngerechnetWarenMengeTAXTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.warenMengeField = New List(Of KontingentAngerechnetWarenMengeTAXTyp)()
|
|
End Sub
|
|
|
|
Public Property KontNrAngerechnet() As String
|
|
Get
|
|
Return Me.kontNrAngerechnetField
|
|
End Get
|
|
Set
|
|
Me.kontNrAngerechnetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertAngerechnet() As Decimal
|
|
Get
|
|
Return Me.zollwertAngerechnetField
|
|
End Get
|
|
Set
|
|
Me.zollwertAngerechnetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ZollwertAngerechnetSpecified() As Boolean
|
|
Get
|
|
Return Me.zollwertAngerechnetFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.zollwertAngerechnetFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EUStKostenAngerechnet() As Decimal
|
|
Get
|
|
Return Me.eUStKostenAngerechnetField
|
|
End Get
|
|
Set
|
|
Me.eUStKostenAngerechnetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property EUStKostenAngerechnetSpecified() As Boolean
|
|
Get
|
|
Return Me.eUStKostenAngerechnetFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.eUStKostenAngerechnetFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeguenstMengeAngerechnet() As Decimal
|
|
Get
|
|
Return Me.beguenstMengeAngerechnetField
|
|
End Get
|
|
Set
|
|
Me.beguenstMengeAngerechnetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property BeguenstMengeAngerechnetSpecified() As Boolean
|
|
Get
|
|
Return Me.beguenstMengeAngerechnetFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.beguenstMengeAngerechnetFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MasseinhBegMengeAng() As String
|
|
Get
|
|
Return Me.masseinhBegMengeAngField
|
|
End Get
|
|
Set
|
|
Me.masseinhBegMengeAngField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property QualifBegMengeAng() As String
|
|
Get
|
|
Return Me.qualifBegMengeAngField
|
|
End Get
|
|
Set
|
|
Me.qualifBegMengeAngField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp)
|
|
Get
|
|
Return Me.warenMengeField
|
|
End Get
|
|
Set
|
|
Me.warenMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KontingentAngerechnetTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KontingentAngerechnetTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an KontingentAngerechnetTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KontingentAngerechnetTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current KontingentAngerechnetTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 KontingentAngerechnetTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output KontingentAngerechnetTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
|
|
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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class SonderfalleingabeTAXTyp
|
|
|
|
Private sonderabgabenGruppeField As String
|
|
|
|
Private anwendungsartField As String
|
|
|
|
Private satzBetragFaktorField As Decimal
|
|
|
|
Private satzBetragFaktorFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property SonderabgabenGruppe() As String
|
|
Get
|
|
Return Me.sonderabgabenGruppeField
|
|
End Get
|
|
Set
|
|
Me.sonderabgabenGruppeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Anwendungsart() As String
|
|
Get
|
|
Return Me.anwendungsartField
|
|
End Get
|
|
Set
|
|
Me.anwendungsartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SatzBetragFaktor() As Decimal
|
|
Get
|
|
Return Me.satzBetragFaktorField
|
|
End Get
|
|
Set
|
|
Me.satzBetragFaktorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property SatzBetragFaktorSpecified() As Boolean
|
|
Get
|
|
Return Me.satzBetragFaktorFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.satzBetragFaktorFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderfalleingabeTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current SonderfalleingabeTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an SonderfalleingabeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output SonderfalleingabeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderfalleingabeTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderfalleingabeTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current SonderfalleingabeTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 SonderfalleingabeTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output SonderfalleingabeTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderfalleingabeTAXTyp)
|
|
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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EZAAVVeredelungserzeugnisTyp
|
|
|
|
Private warenbezeichnungField As String
|
|
|
|
Private ausbeuteartField As String
|
|
|
|
Private ausbeutesatzField As String
|
|
|
|
Private kNCodeField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Warenbezeichnung() As String
|
|
Get
|
|
Return Me.warenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.warenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Ausbeuteart() As String
|
|
Get
|
|
Return Me.ausbeuteartField
|
|
End Get
|
|
Set
|
|
Me.ausbeuteartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Ausbeutesatz() As String
|
|
Get
|
|
Return Me.ausbeutesatzField
|
|
End Get
|
|
Set
|
|
Me.ausbeutesatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KNCode() As String
|
|
Get
|
|
Return Me.kNCodeField
|
|
End Get
|
|
Set
|
|
Me.kNCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVVeredelungserzeugnisTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EZAAVVeredelungserzeugnisTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EZAAVVeredelungserzeugnisTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EZAAVVeredelungserzeugnisTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVVeredelungserzeugnisTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EZAAVVeredelungserzeugnisTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EZAAVVeredelungserzeugnisTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EZAAVVeredelungserzeugnisTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
|
|
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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EZAAVAngabenPosTyp
|
|
|
|
Private aVWirtschaftlicheVoraussetzungenField As String
|
|
|
|
Private aVVeredelungserzeugnisField As List(Of EZAAVVeredelungserzeugnisTyp)
|
|
|
|
Private aVNaemlichkeitsmittelField As String
|
|
|
|
Private aVErlaeuterungNaemlichkeitField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.aVVeredelungserzeugnisField = New List(Of EZAAVVeredelungserzeugnisTyp)()
|
|
End Sub
|
|
|
|
Public Property AVWirtschaftlicheVoraussetzungen() As String
|
|
Get
|
|
Return Me.aVWirtschaftlicheVoraussetzungenField
|
|
End Get
|
|
Set
|
|
Me.aVWirtschaftlicheVoraussetzungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp)
|
|
Get
|
|
Return Me.aVVeredelungserzeugnisField
|
|
End Get
|
|
Set
|
|
Me.aVVeredelungserzeugnisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AVNaemlichkeitsmittel() As String
|
|
Get
|
|
Return Me.aVNaemlichkeitsmittelField
|
|
End Get
|
|
Set
|
|
Me.aVNaemlichkeitsmittelField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AVErlaeuterungNaemlichkeit() As String
|
|
Get
|
|
Return Me.aVErlaeuterungNaemlichkeitField
|
|
End Get
|
|
Set
|
|
Me.aVErlaeuterungNaemlichkeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenPosTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenPosTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EZAAVAngabenPosTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenPosTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenPosTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenPosTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenPosTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenPosTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EZAAVAngabenPosTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenPosTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenPosTyp)
|
|
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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AngemeldeteUnterlageTAXTyp
|
|
|
|
Private unterlageArtField As String
|
|
|
|
Private unterlageBereichField As String
|
|
|
|
Private unterlageNrField As String
|
|
|
|
Private anerkennungKzField As String
|
|
|
|
Private abschreibungKzField As String
|
|
|
|
Private einbehaltenKzField As String
|
|
|
|
Private periodischeVorlageKzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property UnterlageArt() As String
|
|
Get
|
|
Return Me.unterlageArtField
|
|
End Get
|
|
Set
|
|
Me.unterlageArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UnterlageBereich() As String
|
|
Get
|
|
Return Me.unterlageBereichField
|
|
End Get
|
|
Set
|
|
Me.unterlageBereichField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UnterlageNr() As String
|
|
Get
|
|
Return Me.unterlageNrField
|
|
End Get
|
|
Set
|
|
Me.unterlageNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnerkennungKz() As String
|
|
Get
|
|
Return Me.anerkennungKzField
|
|
End Get
|
|
Set
|
|
Me.anerkennungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbschreibungKz() As String
|
|
Get
|
|
Return Me.abschreibungKzField
|
|
End Get
|
|
Set
|
|
Me.abschreibungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EinbehaltenKz() As String
|
|
Get
|
|
Return Me.einbehaltenKzField
|
|
End Get
|
|
Set
|
|
Me.einbehaltenKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PeriodischeVorlageKz() As String
|
|
Get
|
|
Return Me.periodischeVorlageKzField
|
|
End Get
|
|
Set
|
|
Me.periodischeVorlageKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AngemeldeteUnterlageTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AngemeldeteUnterlageTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AngemeldeteUnterlageTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AngemeldeteUnterlageTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AngemeldeteUnterlageTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AngemeldeteUnterlageTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AngemeldeteUnterlageTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AngemeldeteUnterlageTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
|
|
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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class KursAbzugHinzuTAXTyp
|
|
|
|
Private artAbHinzuField As String
|
|
|
|
Private angewandterKursField As Decimal
|
|
|
|
Private angewandterKursFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ArtAbHinzu() As String
|
|
Get
|
|
Return Me.artAbHinzuField
|
|
End Get
|
|
Set
|
|
Me.artAbHinzuField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AngewandterKurs() As Decimal
|
|
Get
|
|
Return Me.angewandterKursField
|
|
End Get
|
|
Set
|
|
Me.angewandterKursField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AngewandterKursSpecified() As Boolean
|
|
Get
|
|
Return Me.angewandterKursFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.angewandterKursFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KursAbzugHinzuTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KursAbzugHinzuTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an KursAbzugHinzuTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KursAbzugHinzuTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KursAbzugHinzuTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current KursAbzugHinzuTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 KursAbzugHinzuTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output KursAbzugHinzuTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
|
|
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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class PositionAbgabenbescheidEinfuhrTyp
|
|
|
|
Private positionsNrField As String
|
|
|
|
Private erledigungKzField As String
|
|
|
|
Private warenNummerEZTField As String
|
|
|
|
Private warenNummerZusatzCodeField As List(Of String)
|
|
|
|
Private warenBezeichnungField As String
|
|
|
|
Private beschauMitteilungField As String
|
|
|
|
Private erledigungMitteilungField As String
|
|
|
|
Private ablehnungAenderungField As String
|
|
|
|
Private weitererNachweisField As String
|
|
|
|
Private gewaehrteBeguenstigungField As String
|
|
|
|
Private anordnungKzField As String
|
|
|
|
Private eUStWertField As Decimal
|
|
|
|
Private eUStWertFieldSpecified As Boolean
|
|
|
|
Private kostenFuerEUStField As Decimal
|
|
|
|
Private kostenFuerEUStFieldSpecified As Boolean
|
|
|
|
Private zollWertField As Decimal
|
|
|
|
Private zollWertFieldSpecified As Boolean
|
|
|
|
Private annahmeAenderungField As String
|
|
|
|
Private sicherheitsLeistungBetragField As Decimal
|
|
|
|
Private sicherheitsLeistungBetragFieldSpecified As Boolean
|
|
|
|
Private registrierNrvZAAZField As String
|
|
|
|
Private positionsNrInvZAAZField As String
|
|
|
|
Private annahmeKzField As String
|
|
|
|
Private annahmeDatumField As Date
|
|
|
|
Private annahmeDatumFieldSpecified As Boolean
|
|
|
|
Private ueberlassungDatumField As Date
|
|
|
|
Private ueberlassungDatumFieldSpecified As Boolean
|
|
|
|
Private lagerfristField As Date
|
|
|
|
Private lagerfristFieldSpecified As Boolean
|
|
|
|
Private wiederAusfuhrFristField As Date
|
|
|
|
Private wiederAusfuhrFristFieldSpecified As Boolean
|
|
|
|
Private fristWeitererNachweisField As Date
|
|
|
|
Private fristWeitererNachweisFieldSpecified As Boolean
|
|
|
|
Private befundField As String
|
|
|
|
Private dV1AbweichendFestgesetztKzField As String
|
|
|
|
Private sonderfalleingabeKzField As String
|
|
|
|
Private angewandterKursNettopreisField As Decimal
|
|
|
|
Private angewandterKursNettopreisFieldSpecified As Boolean
|
|
|
|
Private angewandterKursMittelbZahlungenField As Decimal
|
|
|
|
Private angewandterKursMittelbZahlungenFieldSpecified As Boolean
|
|
|
|
Private abzugHinzurechnungenField As List(Of KursAbzugHinzuTAXTyp)
|
|
|
|
Private luftFrachtGesamtProzentsatzField As String
|
|
|
|
Private luftFrachtGesamtAngewandterKursField As Decimal
|
|
|
|
Private luftFrachtGesamtAngewandterKursFieldSpecified As Boolean
|
|
|
|
Private angemeldeteUnterlageField As List(Of AngemeldeteUnterlageTAXTyp)
|
|
|
|
Private eZAAVAngabenPosField As EZAAVAngabenPosTyp
|
|
|
|
Private sonderabgabenGruppeField As List(Of SonderfalleingabeTAXTyp)
|
|
|
|
Private kontNrAngewandtField As List(Of String)
|
|
|
|
Private kontingentAngerechnetField As List(Of KontingentAngerechnetTAXTyp)
|
|
|
|
Private abweichendeFestsetzungField As List(Of AbweichendeFestsetzungTAXTyp)
|
|
|
|
Private pauschalierungField As PauschalierungTAXTyp
|
|
|
|
Private abgabenField As List(Of AbgabengruppeTAXTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.abgabenField = New List(Of AbgabengruppeTAXTyp)()
|
|
Me.pauschalierungField = New PauschalierungTAXTyp()
|
|
Me.abweichendeFestsetzungField = New List(Of AbweichendeFestsetzungTAXTyp)()
|
|
Me.kontingentAngerechnetField = New List(Of KontingentAngerechnetTAXTyp)()
|
|
Me.kontNrAngewandtField = New List(Of String)()
|
|
Me.sonderabgabenGruppeField = New List(Of SonderfalleingabeTAXTyp)()
|
|
Me.eZAAVAngabenPosField = New EZAAVAngabenPosTyp()
|
|
Me.angemeldeteUnterlageField = New List(Of AngemeldeteUnterlageTAXTyp)()
|
|
Me.abzugHinzurechnungenField = New List(Of KursAbzugHinzuTAXTyp)()
|
|
Me.warenNummerZusatzCodeField = New List(Of String)()
|
|
End Sub
|
|
|
|
Public Property PositionsNr() As String
|
|
Get
|
|
Return Me.positionsNrField
|
|
End Get
|
|
Set
|
|
Me.positionsNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErledigungKz() As String
|
|
Get
|
|
Return Me.erledigungKzField
|
|
End Get
|
|
Set
|
|
Me.erledigungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenNummerEZT() As String
|
|
Get
|
|
Return Me.warenNummerEZTField
|
|
End Get
|
|
Set
|
|
Me.warenNummerEZTField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenNummerZusatzCode() As List(Of String)
|
|
Get
|
|
Return Me.warenNummerZusatzCodeField
|
|
End Get
|
|
Set
|
|
Me.warenNummerZusatzCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenBezeichnung() As String
|
|
Get
|
|
Return Me.warenBezeichnungField
|
|
End Get
|
|
Set
|
|
Me.warenBezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeschauMitteilung() As String
|
|
Get
|
|
Return Me.beschauMitteilungField
|
|
End Get
|
|
Set
|
|
Me.beschauMitteilungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErledigungMitteilung() As String
|
|
Get
|
|
Return Me.erledigungMitteilungField
|
|
End Get
|
|
Set
|
|
Me.erledigungMitteilungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AblehnungAenderung() As String
|
|
Get
|
|
Return Me.ablehnungAenderungField
|
|
End Get
|
|
Set
|
|
Me.ablehnungAenderungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WeitererNachweis() As String
|
|
Get
|
|
Return Me.weitererNachweisField
|
|
End Get
|
|
Set
|
|
Me.weitererNachweisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GewaehrteBeguenstigung() As String
|
|
Get
|
|
Return Me.gewaehrteBeguenstigungField
|
|
End Get
|
|
Set
|
|
Me.gewaehrteBeguenstigungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnordnungKz() As String
|
|
Get
|
|
Return Me.anordnungKzField
|
|
End Get
|
|
Set
|
|
Me.anordnungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EUStWert() As Decimal
|
|
Get
|
|
Return Me.eUStWertField
|
|
End Get
|
|
Set
|
|
Me.eUStWertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property EUStWertSpecified() As Boolean
|
|
Get
|
|
Return Me.eUStWertFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.eUStWertFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KostenFuerEUSt() As Decimal
|
|
Get
|
|
Return Me.kostenFuerEUStField
|
|
End Get
|
|
Set
|
|
Me.kostenFuerEUStField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KostenFuerEUStSpecified() As Boolean
|
|
Get
|
|
Return Me.kostenFuerEUStFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kostenFuerEUStFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollWert() As Decimal
|
|
Get
|
|
Return Me.zollWertField
|
|
End Get
|
|
Set
|
|
Me.zollWertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ZollWertSpecified() As Boolean
|
|
Get
|
|
Return Me.zollWertFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.zollWertFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnnahmeAenderung() As String
|
|
Get
|
|
Return Me.annahmeAenderungField
|
|
End Get
|
|
Set
|
|
Me.annahmeAenderungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SicherheitsLeistungBetrag() As Decimal
|
|
Get
|
|
Return Me.sicherheitsLeistungBetragField
|
|
End Get
|
|
Set
|
|
Me.sicherheitsLeistungBetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property SicherheitsLeistungBetragSpecified() As Boolean
|
|
Get
|
|
Return Me.sicherheitsLeistungBetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.sicherheitsLeistungBetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RegistrierNrvZAAZ() As String
|
|
Get
|
|
Return Me.registrierNrvZAAZField
|
|
End Get
|
|
Set
|
|
Me.registrierNrvZAAZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PositionsNrInvZAAZ() As String
|
|
Get
|
|
Return Me.positionsNrInvZAAZField
|
|
End Get
|
|
Set
|
|
Me.positionsNrInvZAAZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnnahmeKz() As String
|
|
Get
|
|
Return Me.annahmeKzField
|
|
End Get
|
|
Set
|
|
Me.annahmeKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnnahmeDatum() As Date
|
|
Get
|
|
Return Me.annahmeDatumField
|
|
End Get
|
|
Set
|
|
Me.annahmeDatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AnnahmeDatumSpecified() As Boolean
|
|
Get
|
|
Return Me.annahmeDatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.annahmeDatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UeberlassungDatum() As Date
|
|
Get
|
|
Return Me.ueberlassungDatumField
|
|
End Get
|
|
Set
|
|
Me.ueberlassungDatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property UeberlassungDatumSpecified() As Boolean
|
|
Get
|
|
Return Me.ueberlassungDatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.ueberlassungDatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Lagerfrist() As Date
|
|
Get
|
|
Return Me.lagerfristField
|
|
End Get
|
|
Set
|
|
Me.lagerfristField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property LagerfristSpecified() As Boolean
|
|
Get
|
|
Return Me.lagerfristFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.lagerfristFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WiederAusfuhrFrist() As Date
|
|
Get
|
|
Return Me.wiederAusfuhrFristField
|
|
End Get
|
|
Set
|
|
Me.wiederAusfuhrFristField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property WiederAusfuhrFristSpecified() As Boolean
|
|
Get
|
|
Return Me.wiederAusfuhrFristFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.wiederAusfuhrFristFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FristWeitererNachweis() As Date
|
|
Get
|
|
Return Me.fristWeitererNachweisField
|
|
End Get
|
|
Set
|
|
Me.fristWeitererNachweisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property FristWeitererNachweisSpecified() As Boolean
|
|
Get
|
|
Return Me.fristWeitererNachweisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.fristWeitererNachweisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Befund() As String
|
|
Get
|
|
Return Me.befundField
|
|
End Get
|
|
Set
|
|
Me.befundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1AbweichendFestgesetztKz() As String
|
|
Get
|
|
Return Me.dV1AbweichendFestgesetztKzField
|
|
End Get
|
|
Set
|
|
Me.dV1AbweichendFestgesetztKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SonderfalleingabeKz() As String
|
|
Get
|
|
Return Me.sonderfalleingabeKzField
|
|
End Get
|
|
Set
|
|
Me.sonderfalleingabeKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AngewandterKursNettopreis() As Decimal
|
|
Get
|
|
Return Me.angewandterKursNettopreisField
|
|
End Get
|
|
Set
|
|
Me.angewandterKursNettopreisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AngewandterKursNettopreisSpecified() As Boolean
|
|
Get
|
|
Return Me.angewandterKursNettopreisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.angewandterKursNettopreisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AngewandterKursMittelbZahlungen() As Decimal
|
|
Get
|
|
Return Me.angewandterKursMittelbZahlungenField
|
|
End Get
|
|
Set
|
|
Me.angewandterKursMittelbZahlungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AngewandterKursMittelbZahlungenSpecified() As Boolean
|
|
Get
|
|
Return Me.angewandterKursMittelbZahlungenFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.angewandterKursMittelbZahlungenFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp)
|
|
Get
|
|
Return Me.abzugHinzurechnungenField
|
|
End Get
|
|
Set
|
|
Me.abzugHinzurechnungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LuftFrachtGesamtProzentsatz() As String
|
|
Get
|
|
Return Me.luftFrachtGesamtProzentsatzField
|
|
End Get
|
|
Set
|
|
Me.luftFrachtGesamtProzentsatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LuftFrachtGesamtAngewandterKurs() As Decimal
|
|
Get
|
|
Return Me.luftFrachtGesamtAngewandterKursField
|
|
End Get
|
|
Set
|
|
Me.luftFrachtGesamtAngewandterKursField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property LuftFrachtGesamtAngewandterKursSpecified() As Boolean
|
|
Get
|
|
Return Me.luftFrachtGesamtAngewandterKursFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.luftFrachtGesamtAngewandterKursFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp)
|
|
Get
|
|
Return Me.angemeldeteUnterlageField
|
|
End Get
|
|
Set
|
|
Me.angemeldeteUnterlageField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp
|
|
Get
|
|
Return Me.eZAAVAngabenPosField
|
|
End Get
|
|
Set
|
|
Me.eZAAVAngabenPosField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp)
|
|
Get
|
|
Return Me.sonderabgabenGruppeField
|
|
End Get
|
|
Set
|
|
Me.sonderabgabenGruppeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KontNrAngewandt() As List(Of String)
|
|
Get
|
|
Return Me.kontNrAngewandtField
|
|
End Get
|
|
Set
|
|
Me.kontNrAngewandtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp)
|
|
Get
|
|
Return Me.kontingentAngerechnetField
|
|
End Get
|
|
Set
|
|
Me.kontingentAngerechnetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp)
|
|
Get
|
|
Return Me.abweichendeFestsetzungField
|
|
End Get
|
|
Set
|
|
Me.abweichendeFestsetzungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Pauschalierung() As PauschalierungTAXTyp
|
|
Get
|
|
Return Me.pauschalierungField
|
|
End Get
|
|
Set
|
|
Me.pauschalierungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Abgaben() As List(Of AbgabengruppeTAXTyp)
|
|
Get
|
|
Return Me.abgabenField
|
|
End Get
|
|
Set
|
|
Me.abgabenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an PositionAbgabenbescheidEinfuhrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output PositionAbgabenbescheidEinfuhrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbgabenbescheidEinfuhrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current PositionAbgabenbescheidEinfuhrTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 PositionAbgabenbescheidEinfuhrTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output PositionAbgabenbescheidEinfuhrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
|
|
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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp
|
|
|
|
Private strasseField As String
|
|
|
|
Private landField As String
|
|
|
|
Private pLZField As String
|
|
|
|
Private ortField As String
|
|
|
|
Private ortsteilField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Strasse() As String
|
|
Get
|
|
Return Me.strasseField
|
|
End Get
|
|
Set
|
|
Me.strasseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Land() As String
|
|
Get
|
|
Return Me.landField
|
|
End Get
|
|
Set
|
|
Me.landField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PLZ() As String
|
|
Get
|
|
Return Me.pLZField
|
|
End Get
|
|
Set
|
|
Me.pLZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Ort() As String
|
|
Get
|
|
Return Me.ortField
|
|
End Get
|
|
Set
|
|
Me.ortField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Ortsteil() As String
|
|
Get
|
|
Return Me.ortsteilField
|
|
End Get
|
|
Set
|
|
Me.ortsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenKopfWeitererVeredelungsortTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EZAAVAngabenKopfWeitererVeredelungsortTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenKopfWeitererVeredelungsortTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EZAAVAngabenKopfTyp
|
|
|
|
Private kzBemessungEinfuhrabgabenbetragField As String
|
|
|
|
Private kzAbrechnungField As String
|
|
|
|
Private kzVereinfBefoerderungField As String
|
|
|
|
Private zusaetzlicheAngabenField As String
|
|
|
|
Private kzVerzichtSicherheitField As String
|
|
|
|
Private erlaeuterungenZurSicherheitField As String
|
|
|
|
Private betragDerSicherheitField As Decimal
|
|
|
|
Private betragDerSicherheitFieldSpecified As Boolean
|
|
|
|
Private deutschesUeHZAField As String
|
|
|
|
Private einzelheitenGeplantVeredelungsvorgangField As String
|
|
|
|
Private hauptbuchhaltungStrasseField As String
|
|
|
|
Private hauptbuchhaltungLandField As String
|
|
|
|
Private hauptbuchhaltungPLZField As String
|
|
|
|
Private hauptbuchhaltungOrtField As String
|
|
|
|
Private hauptbuchhaltungOrtsteilField As String
|
|
|
|
Private veredelungStrasseField As String
|
|
|
|
Private veredelungLandField As String
|
|
|
|
Private veredelungPLZField As String
|
|
|
|
Private veredelungOrtField As String
|
|
|
|
Private veredelungOrtsteilField As String
|
|
|
|
Private weitererVeredelungsortField As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
|
|
Private zollstelleErledigungField As List(Of String)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.zollstelleErledigungField = New List(Of String)()
|
|
Me.weitererVeredelungsortField = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)()
|
|
End Sub
|
|
|
|
Public Property KzBemessungEinfuhrabgabenbetrag() As String
|
|
Get
|
|
Return Me.kzBemessungEinfuhrabgabenbetragField
|
|
End Get
|
|
Set
|
|
Me.kzBemessungEinfuhrabgabenbetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzAbrechnung() As String
|
|
Get
|
|
Return Me.kzAbrechnungField
|
|
End Get
|
|
Set
|
|
Me.kzAbrechnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzVereinfBefoerderung() As String
|
|
Get
|
|
Return Me.kzVereinfBefoerderungField
|
|
End Get
|
|
Set
|
|
Me.kzVereinfBefoerderungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZusaetzlicheAngaben() As String
|
|
Get
|
|
Return Me.zusaetzlicheAngabenField
|
|
End Get
|
|
Set
|
|
Me.zusaetzlicheAngabenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzVerzichtSicherheit() As String
|
|
Get
|
|
Return Me.kzVerzichtSicherheitField
|
|
End Get
|
|
Set
|
|
Me.kzVerzichtSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErlaeuterungenZurSicherheit() As String
|
|
Get
|
|
Return Me.erlaeuterungenZurSicherheitField
|
|
End Get
|
|
Set
|
|
Me.erlaeuterungenZurSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BetragDerSicherheit() As Decimal
|
|
Get
|
|
Return Me.betragDerSicherheitField
|
|
End Get
|
|
Set
|
|
Me.betragDerSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property BetragDerSicherheitSpecified() As Boolean
|
|
Get
|
|
Return Me.betragDerSicherheitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.betragDerSicherheitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DeutschesUeHZA() As String
|
|
Get
|
|
Return Me.deutschesUeHZAField
|
|
End Get
|
|
Set
|
|
Me.deutschesUeHZAField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EinzelheitenGeplantVeredelungsvorgang() As String
|
|
Get
|
|
Return Me.einzelheitenGeplantVeredelungsvorgangField
|
|
End Get
|
|
Set
|
|
Me.einzelheitenGeplantVeredelungsvorgangField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HauptbuchhaltungStrasse() As String
|
|
Get
|
|
Return Me.hauptbuchhaltungStrasseField
|
|
End Get
|
|
Set
|
|
Me.hauptbuchhaltungStrasseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HauptbuchhaltungLand() As String
|
|
Get
|
|
Return Me.hauptbuchhaltungLandField
|
|
End Get
|
|
Set
|
|
Me.hauptbuchhaltungLandField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HauptbuchhaltungPLZ() As String
|
|
Get
|
|
Return Me.hauptbuchhaltungPLZField
|
|
End Get
|
|
Set
|
|
Me.hauptbuchhaltungPLZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HauptbuchhaltungOrt() As String
|
|
Get
|
|
Return Me.hauptbuchhaltungOrtField
|
|
End Get
|
|
Set
|
|
Me.hauptbuchhaltungOrtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HauptbuchhaltungOrtsteil() As String
|
|
Get
|
|
Return Me.hauptbuchhaltungOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.hauptbuchhaltungOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungStrasse() As String
|
|
Get
|
|
Return Me.veredelungStrasseField
|
|
End Get
|
|
Set
|
|
Me.veredelungStrasseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungLand() As String
|
|
Get
|
|
Return Me.veredelungLandField
|
|
End Get
|
|
Set
|
|
Me.veredelungLandField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungPLZ() As String
|
|
Get
|
|
Return Me.veredelungPLZField
|
|
End Get
|
|
Set
|
|
Me.veredelungPLZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungOrt() As String
|
|
Get
|
|
Return Me.veredelungOrtField
|
|
End Get
|
|
Set
|
|
Me.veredelungOrtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungOrtsteil() As String
|
|
Get
|
|
Return Me.veredelungOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.veredelungOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
Get
|
|
Return Me.weitererVeredelungsortField
|
|
End Get
|
|
Set
|
|
Me.weitererVeredelungsortField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollstelleErledigung() As List(Of String)
|
|
Get
|
|
Return Me.zollstelleErledigungField
|
|
End Get
|
|
Set
|
|
Me.zollstelleErledigungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenKopfTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenKopfTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EZAAVAngabenKopfTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenKopfTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EZAAVAngabenKopfTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EZAAVAngabenKopfTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EZAAVAngabenKopfTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfTyp)
|
|
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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class SicherheitTAXTyp
|
|
|
|
Private einzelbetragUnbareSicherheitField As Decimal
|
|
|
|
Private einzelbetragUnbareSicherheitFieldSpecified As Boolean
|
|
|
|
Private artUnbareSicherheitsleistungField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property EinzelbetragUnbareSicherheit() As Decimal
|
|
Get
|
|
Return Me.einzelbetragUnbareSicherheitField
|
|
End Get
|
|
Set
|
|
Me.einzelbetragUnbareSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property EinzelbetragUnbareSicherheitSpecified() As Boolean
|
|
Get
|
|
Return Me.einzelbetragUnbareSicherheitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.einzelbetragUnbareSicherheitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtUnbareSicherheitsleistung() As String
|
|
Get
|
|
Return Me.artUnbareSicherheitsleistungField
|
|
End Get
|
|
Set
|
|
Me.artUnbareSicherheitsleistungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SicherheitTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current SicherheitTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an SicherheitTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output SicherheitTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SicherheitTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As SicherheitTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SicherheitTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current SicherheitTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 SicherheitTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output SicherheitTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SicherheitTAXTyp)
|
|
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 SicherheitTAXTyp) 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 SicherheitTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AbgabenNachArtKopfTAXTyp
|
|
|
|
Private abgabeArtField As String
|
|
|
|
Private abgabenbetragField As Decimal
|
|
|
|
Private abgabenbetragFieldSpecified As Boolean
|
|
|
|
Private zahlungsartField As String
|
|
|
|
Private aufschubnehmerNameField As String
|
|
|
|
Private aufschubnehmerTINField As String
|
|
|
|
Private artAufschubAntragField As String
|
|
|
|
Private kennBuchstabenAufschubField As String
|
|
|
|
Private aufschubkontoNrField As String
|
|
|
|
Private faelligkeitField As Date
|
|
|
|
Private faelligkeitFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property AbgabeArt() As String
|
|
Get
|
|
Return Me.abgabeArtField
|
|
End Get
|
|
Set
|
|
Me.abgabeArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Abgabenbetrag() As Decimal
|
|
Get
|
|
Return Me.abgabenbetragField
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbgabenbetragSpecified() As Boolean
|
|
Get
|
|
Return Me.abgabenbetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Zahlungsart() As String
|
|
Get
|
|
Return Me.zahlungsartField
|
|
End Get
|
|
Set
|
|
Me.zahlungsartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AufschubnehmerName() As String
|
|
Get
|
|
Return Me.aufschubnehmerNameField
|
|
End Get
|
|
Set
|
|
Me.aufschubnehmerNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AufschubnehmerTIN() As String
|
|
Get
|
|
Return Me.aufschubnehmerTINField
|
|
End Get
|
|
Set
|
|
Me.aufschubnehmerTINField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtAufschubAntrag() As String
|
|
Get
|
|
Return Me.artAufschubAntragField
|
|
End Get
|
|
Set
|
|
Me.artAufschubAntragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KennBuchstabenAufschub() As String
|
|
Get
|
|
Return Me.kennBuchstabenAufschubField
|
|
End Get
|
|
Set
|
|
Me.kennBuchstabenAufschubField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AufschubkontoNr() As String
|
|
Get
|
|
Return Me.aufschubkontoNrField
|
|
End Get
|
|
Set
|
|
Me.aufschubkontoNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Faelligkeit() As Date
|
|
Get
|
|
Return Me.faelligkeitField
|
|
End Get
|
|
Set
|
|
Me.faelligkeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property FaelligkeitSpecified() As Boolean
|
|
Get
|
|
Return Me.faelligkeitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.faelligkeitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenNachArtKopfTAXTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbgabenNachArtKopfTAXTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbgabenNachArtKopfTAXTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbgabenNachArtKopfTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenNachArtKopfTAXTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbgabenNachArtKopfTAXTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbgabenNachArtKopfTAXTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbgabenNachArtKopfTAXTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
|
|
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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class KopfDatenEinfuhrbescheidTyp
|
|
|
|
Private artAnmeldungField As String
|
|
|
|
Private erledigungKopfKzField As String
|
|
|
|
Private waehrungField As String
|
|
|
|
Private gesamtabgabenBetragField As Decimal
|
|
|
|
Private gesamtabgabenBetragFieldSpecified As Boolean
|
|
|
|
Private abgabenbetragZuZahlenField As Decimal
|
|
|
|
Private abgabenbetragZuZahlenFieldSpecified As Boolean
|
|
|
|
Private abgabenbetragZuErstattenField As Decimal
|
|
|
|
Private abgabenbetragZuErstattenFieldSpecified As Boolean
|
|
|
|
Private vertretungsverhaeltnisField As String
|
|
|
|
Private zahlungsaufforderungArtAufschubField As String
|
|
|
|
Private zahlungsaufforderungArtAbgabenField As String
|
|
|
|
Private zahlungsaufforderungArtSicherheitField As String
|
|
|
|
Private kleinbetragKzField As String
|
|
|
|
Private kleinbetragRechtsbehelfField As String
|
|
|
|
Private gesamtschuldnerschaftKzField As String
|
|
|
|
Private eingangszollstelleGeaendertKzField As String
|
|
|
|
Private aVbewilligtKzField As String
|
|
|
|
Private benutzererstelltKzField As String
|
|
|
|
Private eUStKzField As String
|
|
|
|
Private registriernummerField As String
|
|
|
|
Private registrierdatumField As Date
|
|
|
|
Private registrierdatumFieldSpecified As Boolean
|
|
|
|
Private nizzaRegistrierKzField As String
|
|
|
|
Private nizzaRegistrierKzSicherheitField As String
|
|
|
|
Private abgabenNachArtField As List(Of AbgabenNachArtKopfTAXTyp)
|
|
|
|
Private gesamtsicherheitssummeField As Decimal
|
|
|
|
Private gesamtsicherheitssummeFieldSpecified As Boolean
|
|
|
|
Private errechneteSicherheitsSummeField As Decimal
|
|
|
|
Private errechneteSicherheitsSummeFieldSpecified As Boolean
|
|
|
|
Private unbarSicherheitsbetraegeField As Decimal
|
|
|
|
Private unbarSicherheitsbetraegeFieldSpecified As Boolean
|
|
|
|
Private barSicherheitsbetraegeField As Decimal
|
|
|
|
Private barSicherheitsbetraegeFieldSpecified As Boolean
|
|
|
|
Private freizugebenSicherheitField As Decimal
|
|
|
|
Private freizugebenSicherheitFieldSpecified As Boolean
|
|
|
|
Private auszuzahlenSicherheitField As Decimal
|
|
|
|
Private auszuzahlenSicherheitFieldSpecified As Boolean
|
|
|
|
Private einbehaltenSicherheitField As Decimal
|
|
|
|
Private einbehaltenSicherheitFieldSpecified As Boolean
|
|
|
|
Private sicherheitsleistungFormField As String
|
|
|
|
Private sicherheitsleistungsVerzichtField As String
|
|
|
|
Private auszahlungsArtField As String
|
|
|
|
Private unbareSicherheitenField As List(Of SicherheitTAXTyp)
|
|
|
|
Private bescheidendeDienststelleNrField As String
|
|
|
|
Private bescheidendeDienststelleNameField As String
|
|
|
|
Private bescheidendeDienststelleStrasseHausNrField As String
|
|
|
|
Private bescheidendeDienststelleOrtSField As String
|
|
|
|
Private bescheidendeDienststellePLZSField As String
|
|
|
|
Private bearbeiterField As String
|
|
|
|
Private bescheidendeDienststelleTelefonNrField As String
|
|
|
|
Private rechtsbehelfHauptzollamtField As String
|
|
|
|
Private rechtsbehelfHZAEmailAdresseField As String
|
|
|
|
Private rechtsbehelfHZADEmailAdresseField As String
|
|
|
|
Private rechtsbehelfHauptzollamtStrHausNrField As String
|
|
|
|
Private rechtsbehelfHauptzollamtPLZSField As String
|
|
|
|
Private rechtsbehelfHauptzollamtOrtSField As String
|
|
|
|
Private rechtsbehelfHauptzollamtOrtsteilField As String
|
|
|
|
Private rechtsbehelfHauptzollamtPostfachField As String
|
|
|
|
Private rechtsbehelfHauptzollamtPLZPField As String
|
|
|
|
Private rechtsbehelfHauptzollamtOrtPField As String
|
|
|
|
Private zollzahlstelleField As String
|
|
|
|
Private zollzahlstelleKreditinstitutField As String
|
|
|
|
Private zollzahlstelleStrasseHausNrField As String
|
|
|
|
Private zollzahlstellePLZSField As String
|
|
|
|
Private zollzahlstelleOrtSField As String
|
|
|
|
Private zollzahlstellePostfachField As String
|
|
|
|
Private zollzahlstellePLZPField As String
|
|
|
|
Private zollzahlstelleOrtPField As String
|
|
|
|
Private zollzahlstelleIBANField As String
|
|
|
|
Private zollzahlstelleBICField As String
|
|
|
|
Private anmelderEORIField As String
|
|
|
|
Private anmelderNLNRField As String
|
|
|
|
Private vorsteuerabzugKzField As String
|
|
|
|
Private anmelderNameField As String
|
|
|
|
Private anmelderNationalitaetField As String
|
|
|
|
Private anmelderStrasseHausNrField As String
|
|
|
|
Private anmelderPLZSField As String
|
|
|
|
Private anmelderOrtSField As String
|
|
|
|
Private anmelderOrtsteilField As String
|
|
|
|
Private vertreterEORIField As String
|
|
|
|
Private vertreterNLNRField As String
|
|
|
|
Private vertreterNameField As String
|
|
|
|
Private vertreterNationalitaetField As String
|
|
|
|
Private vertreterStrasseHausNrField As String
|
|
|
|
Private vertreterPLZSField As String
|
|
|
|
Private vertreterOrtSField As String
|
|
|
|
Private vertreterOrtsteilField As String
|
|
|
|
Private fRechnungEORIField As String
|
|
|
|
Private fRechnungNLNRField As String
|
|
|
|
Private fRechnungNationalitaetField As String
|
|
|
|
Private fRechnungNameField As String
|
|
|
|
Private fRechnungStrasseHausNrField As String
|
|
|
|
Private fRechnungPLZSField As String
|
|
|
|
Private fRechnungOrtSField As String
|
|
|
|
Private fRechnungOrtsteilField As String
|
|
|
|
Private empfaengerEORIField As String
|
|
|
|
Private empfaengerNLNRField As String
|
|
|
|
Private empfaengerNationalitaetField As String
|
|
|
|
Private empfaengerNameField As String
|
|
|
|
Private empfaengerStrasseHausNrField As String
|
|
|
|
Private empfaengerPLZSField As String
|
|
|
|
Private empfaengerOrtSField As String
|
|
|
|
Private empfaengerOrtsteilField As String
|
|
|
|
Private zahlungsEmpfaengerEORIField As String
|
|
|
|
Private zahlungsEmpfaengerNLNRField As String
|
|
|
|
Private zahlungsEmpfaengerKreditinstitutField As String
|
|
|
|
Private zahlungsEmpfaengerNameField As String
|
|
|
|
Private zahlungsEmpfaengerNationalitaetField As String
|
|
|
|
Private zahlungsEmpfaengerStrasseHausNrField As String
|
|
|
|
Private zahlungsEmpfaengerPLZSField As String
|
|
|
|
Private zahlungsEmpfaengerOrtSField As String
|
|
|
|
Private zahlungsEmpfaengerOrtsteilField As String
|
|
|
|
Private zahlungsEmpfaengerIBANField As String
|
|
|
|
Private zahlungsEmpfaengerBICField As String
|
|
|
|
Private erstellungsDatumBefundField As Date
|
|
|
|
Private erstellungsDatumBefundFieldSpecified As Boolean
|
|
|
|
Private erfassungsdatumField As Date
|
|
|
|
Private erfassungsdatumFieldSpecified As Boolean
|
|
|
|
Private barzahlungFaelligkeitField As Date
|
|
|
|
Private barzahlungFaelligkeitFieldSpecified As Boolean
|
|
|
|
Private sicherheitsleistungFaelligkeitField As Date
|
|
|
|
Private sicherheitsleistungFaelligkeitFieldSpecified As Boolean
|
|
|
|
Private abrechnungszeitraumBeginnField As Date
|
|
|
|
Private abrechnungszeitraumBeginnFieldSpecified As Boolean
|
|
|
|
Private abrechnungszeitraumEndeField As Date
|
|
|
|
Private abrechnungszeitraumEndeFieldSpecified As Boolean
|
|
|
|
Private zollbefundField As String
|
|
|
|
Private eZAAVAngabenKopfField As EZAAVAngabenKopfTyp
|
|
|
|
Private lieferbedingungCodeField As String
|
|
|
|
Private lieferbedingungTextField As String
|
|
|
|
Private lieferbedingungOrtField As String
|
|
|
|
Private lieferbedingungSchluesselField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.eZAAVAngabenKopfField = New EZAAVAngabenKopfTyp()
|
|
Me.unbareSicherheitenField = New List(Of SicherheitTAXTyp)()
|
|
Me.abgabenNachArtField = New List(Of AbgabenNachArtKopfTAXTyp)()
|
|
End Sub
|
|
|
|
Public Property ArtAnmeldung() As String
|
|
Get
|
|
Return Me.artAnmeldungField
|
|
End Get
|
|
Set
|
|
Me.artAnmeldungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErledigungKopfKz() As String
|
|
Get
|
|
Return Me.erledigungKopfKzField
|
|
End Get
|
|
Set
|
|
Me.erledigungKopfKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Waehrung() As String
|
|
Get
|
|
Return Me.waehrungField
|
|
End Get
|
|
Set
|
|
Me.waehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GesamtabgabenBetrag() As Decimal
|
|
Get
|
|
Return Me.gesamtabgabenBetragField
|
|
End Get
|
|
Set
|
|
Me.gesamtabgabenBetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property GesamtabgabenBetragSpecified() As Boolean
|
|
Get
|
|
Return Me.gesamtabgabenBetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.gesamtabgabenBetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenbetragZuZahlen() As Decimal
|
|
Get
|
|
Return Me.abgabenbetragZuZahlenField
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragZuZahlenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbgabenbetragZuZahlenSpecified() As Boolean
|
|
Get
|
|
Return Me.abgabenbetragZuZahlenFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragZuZahlenFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenbetragZuErstatten() As Decimal
|
|
Get
|
|
Return Me.abgabenbetragZuErstattenField
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragZuErstattenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbgabenbetragZuErstattenSpecified() As Boolean
|
|
Get
|
|
Return Me.abgabenbetragZuErstattenFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abgabenbetragZuErstattenFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Vertretungsverhaeltnis() As String
|
|
Get
|
|
Return Me.vertretungsverhaeltnisField
|
|
End Get
|
|
Set
|
|
Me.vertretungsverhaeltnisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsaufforderungArtAufschub() As String
|
|
Get
|
|
Return Me.zahlungsaufforderungArtAufschubField
|
|
End Get
|
|
Set
|
|
Me.zahlungsaufforderungArtAufschubField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsaufforderungArtAbgaben() As String
|
|
Get
|
|
Return Me.zahlungsaufforderungArtAbgabenField
|
|
End Get
|
|
Set
|
|
Me.zahlungsaufforderungArtAbgabenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsaufforderungArtSicherheit() As String
|
|
Get
|
|
Return Me.zahlungsaufforderungArtSicherheitField
|
|
End Get
|
|
Set
|
|
Me.zahlungsaufforderungArtSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KleinbetragKz() As String
|
|
Get
|
|
Return Me.kleinbetragKzField
|
|
End Get
|
|
Set
|
|
Me.kleinbetragKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KleinbetragRechtsbehelf() As String
|
|
Get
|
|
Return Me.kleinbetragRechtsbehelfField
|
|
End Get
|
|
Set
|
|
Me.kleinbetragRechtsbehelfField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GesamtschuldnerschaftKz() As String
|
|
Get
|
|
Return Me.gesamtschuldnerschaftKzField
|
|
End Get
|
|
Set
|
|
Me.gesamtschuldnerschaftKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EingangszollstelleGeaendertKz() As String
|
|
Get
|
|
Return Me.eingangszollstelleGeaendertKzField
|
|
End Get
|
|
Set
|
|
Me.eingangszollstelleGeaendertKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AVbewilligtKz() As String
|
|
Get
|
|
Return Me.aVbewilligtKzField
|
|
End Get
|
|
Set
|
|
Me.aVbewilligtKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BenutzererstelltKz() As String
|
|
Get
|
|
Return Me.benutzererstelltKzField
|
|
End Get
|
|
Set
|
|
Me.benutzererstelltKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EUStKz() As String
|
|
Get
|
|
Return Me.eUStKzField
|
|
End Get
|
|
Set
|
|
Me.eUStKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Registriernummer() As String
|
|
Get
|
|
Return Me.registriernummerField
|
|
End Get
|
|
Set
|
|
Me.registriernummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Registrierdatum() As Date
|
|
Get
|
|
Return Me.registrierdatumField
|
|
End Get
|
|
Set
|
|
Me.registrierdatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property RegistrierdatumSpecified() As Boolean
|
|
Get
|
|
Return Me.registrierdatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.registrierdatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property NizzaRegistrierKz() As String
|
|
Get
|
|
Return Me.nizzaRegistrierKzField
|
|
End Get
|
|
Set
|
|
Me.nizzaRegistrierKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property NizzaRegistrierKzSicherheit() As String
|
|
Get
|
|
Return Me.nizzaRegistrierKzSicherheitField
|
|
End Get
|
|
Set
|
|
Me.nizzaRegistrierKzSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp)
|
|
Get
|
|
Return Me.abgabenNachArtField
|
|
End Get
|
|
Set
|
|
Me.abgabenNachArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Gesamtsicherheitssumme() As Decimal
|
|
Get
|
|
Return Me.gesamtsicherheitssummeField
|
|
End Get
|
|
Set
|
|
Me.gesamtsicherheitssummeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property GesamtsicherheitssummeSpecified() As Boolean
|
|
Get
|
|
Return Me.gesamtsicherheitssummeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.gesamtsicherheitssummeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErrechneteSicherheitsSumme() As Decimal
|
|
Get
|
|
Return Me.errechneteSicherheitsSummeField
|
|
End Get
|
|
Set
|
|
Me.errechneteSicherheitsSummeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ErrechneteSicherheitsSummeSpecified() As Boolean
|
|
Get
|
|
Return Me.errechneteSicherheitsSummeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.errechneteSicherheitsSummeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UnbarSicherheitsbetraege() As Decimal
|
|
Get
|
|
Return Me.unbarSicherheitsbetraegeField
|
|
End Get
|
|
Set
|
|
Me.unbarSicherheitsbetraegeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property UnbarSicherheitsbetraegeSpecified() As Boolean
|
|
Get
|
|
Return Me.unbarSicherheitsbetraegeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.unbarSicherheitsbetraegeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BarSicherheitsbetraege() As Decimal
|
|
Get
|
|
Return Me.barSicherheitsbetraegeField
|
|
End Get
|
|
Set
|
|
Me.barSicherheitsbetraegeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property BarSicherheitsbetraegeSpecified() As Boolean
|
|
Get
|
|
Return Me.barSicherheitsbetraegeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.barSicherheitsbetraegeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreizugebenSicherheit() As Decimal
|
|
Get
|
|
Return Me.freizugebenSicherheitField
|
|
End Get
|
|
Set
|
|
Me.freizugebenSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property FreizugebenSicherheitSpecified() As Boolean
|
|
Get
|
|
Return Me.freizugebenSicherheitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.freizugebenSicherheitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AuszuzahlenSicherheit() As Decimal
|
|
Get
|
|
Return Me.auszuzahlenSicherheitField
|
|
End Get
|
|
Set
|
|
Me.auszuzahlenSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AuszuzahlenSicherheitSpecified() As Boolean
|
|
Get
|
|
Return Me.auszuzahlenSicherheitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.auszuzahlenSicherheitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EinbehaltenSicherheit() As Decimal
|
|
Get
|
|
Return Me.einbehaltenSicherheitField
|
|
End Get
|
|
Set
|
|
Me.einbehaltenSicherheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property EinbehaltenSicherheitSpecified() As Boolean
|
|
Get
|
|
Return Me.einbehaltenSicherheitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.einbehaltenSicherheitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SicherheitsleistungForm() As String
|
|
Get
|
|
Return Me.sicherheitsleistungFormField
|
|
End Get
|
|
Set
|
|
Me.sicherheitsleistungFormField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SicherheitsleistungsVerzicht() As String
|
|
Get
|
|
Return Me.sicherheitsleistungsVerzichtField
|
|
End Get
|
|
Set
|
|
Me.sicherheitsleistungsVerzichtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AuszahlungsArt() As String
|
|
Get
|
|
Return Me.auszahlungsArtField
|
|
End Get
|
|
Set
|
|
Me.auszahlungsArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp)
|
|
Get
|
|
Return Me.unbareSicherheitenField
|
|
End Get
|
|
Set
|
|
Me.unbareSicherheitenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststelleNr() As String
|
|
Get
|
|
Return Me.bescheidendeDienststelleNrField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststelleNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststelleName() As String
|
|
Get
|
|
Return Me.bescheidendeDienststelleNameField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststelleNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststelleStrasseHausNr() As String
|
|
Get
|
|
Return Me.bescheidendeDienststelleStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststelleStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststelleOrtS() As String
|
|
Get
|
|
Return Me.bescheidendeDienststelleOrtSField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststelleOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststellePLZS() As String
|
|
Get
|
|
Return Me.bescheidendeDienststellePLZSField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststellePLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bearbeiter() As String
|
|
Get
|
|
Return Me.bearbeiterField
|
|
End Get
|
|
Set
|
|
Me.bearbeiterField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheidendeDienststelleTelefonNr() As String
|
|
Get
|
|
Return Me.bescheidendeDienststelleTelefonNrField
|
|
End Get
|
|
Set
|
|
Me.bescheidendeDienststelleTelefonNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamt() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAEmailAdresse() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZADEmailAdresse() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZADEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZADEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtStrHausNr() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtStrHausNrField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtStrHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtPLZS() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtPLZSField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtOrtS() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtOrtSField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtOrtsteil() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtPostfach() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtPostfachField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtPostfachField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtPLZP() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtPLZPField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtPLZPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHauptzollamtOrtP() As String
|
|
Get
|
|
Return Me.rechtsbehelfHauptzollamtOrtPField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHauptzollamtOrtPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Zollzahlstelle() As String
|
|
Get
|
|
Return Me.zollzahlstelleField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleKreditinstitut() As String
|
|
Get
|
|
Return Me.zollzahlstelleKreditinstitutField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleKreditinstitutField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleStrasseHausNr() As String
|
|
Get
|
|
Return Me.zollzahlstelleStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstellePLZS() As String
|
|
Get
|
|
Return Me.zollzahlstellePLZSField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstellePLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleOrtS() As String
|
|
Get
|
|
Return Me.zollzahlstelleOrtSField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstellePostfach() As String
|
|
Get
|
|
Return Me.zollzahlstellePostfachField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstellePostfachField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstellePLZP() As String
|
|
Get
|
|
Return Me.zollzahlstellePLZPField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstellePLZPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleOrtP() As String
|
|
Get
|
|
Return Me.zollzahlstelleOrtPField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleOrtPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleIBAN() As String
|
|
Get
|
|
Return Me.zollzahlstelleIBANField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleIBANField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollzahlstelleBIC() As String
|
|
Get
|
|
Return Me.zollzahlstelleBICField
|
|
End Get
|
|
Set
|
|
Me.zollzahlstelleBICField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderEORI() As String
|
|
Get
|
|
Return Me.anmelderEORIField
|
|
End Get
|
|
Set
|
|
Me.anmelderEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderNLNR() As String
|
|
Get
|
|
Return Me.anmelderNLNRField
|
|
End Get
|
|
Set
|
|
Me.anmelderNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VorsteuerabzugKz() As String
|
|
Get
|
|
Return Me.vorsteuerabzugKzField
|
|
End Get
|
|
Set
|
|
Me.vorsteuerabzugKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderName() As String
|
|
Get
|
|
Return Me.anmelderNameField
|
|
End Get
|
|
Set
|
|
Me.anmelderNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderNationalitaet() As String
|
|
Get
|
|
Return Me.anmelderNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.anmelderNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderStrasseHausNr() As String
|
|
Get
|
|
Return Me.anmelderStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.anmelderStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderPLZS() As String
|
|
Get
|
|
Return Me.anmelderPLZSField
|
|
End Get
|
|
Set
|
|
Me.anmelderPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderOrtS() As String
|
|
Get
|
|
Return Me.anmelderOrtSField
|
|
End Get
|
|
Set
|
|
Me.anmelderOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderOrtsteil() As String
|
|
Get
|
|
Return Me.anmelderOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.anmelderOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterEORI() As String
|
|
Get
|
|
Return Me.vertreterEORIField
|
|
End Get
|
|
Set
|
|
Me.vertreterEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterNLNR() As String
|
|
Get
|
|
Return Me.vertreterNLNRField
|
|
End Get
|
|
Set
|
|
Me.vertreterNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterName() As String
|
|
Get
|
|
Return Me.vertreterNameField
|
|
End Get
|
|
Set
|
|
Me.vertreterNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterNationalitaet() As String
|
|
Get
|
|
Return Me.vertreterNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.vertreterNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterStrasseHausNr() As String
|
|
Get
|
|
Return Me.vertreterStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.vertreterStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterPLZS() As String
|
|
Get
|
|
Return Me.vertreterPLZSField
|
|
End Get
|
|
Set
|
|
Me.vertreterPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterOrtS() As String
|
|
Get
|
|
Return Me.vertreterOrtSField
|
|
End Get
|
|
Set
|
|
Me.vertreterOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterOrtsteil() As String
|
|
Get
|
|
Return Me.vertreterOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.vertreterOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungEORI() As String
|
|
Get
|
|
Return Me.fRechnungEORIField
|
|
End Get
|
|
Set
|
|
Me.fRechnungEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungNLNR() As String
|
|
Get
|
|
Return Me.fRechnungNLNRField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungNationalitaet() As String
|
|
Get
|
|
Return Me.fRechnungNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungName() As String
|
|
Get
|
|
Return Me.fRechnungNameField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungStrasseHausNr() As String
|
|
Get
|
|
Return Me.fRechnungStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.fRechnungStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungPLZS() As String
|
|
Get
|
|
Return Me.fRechnungPLZSField
|
|
End Get
|
|
Set
|
|
Me.fRechnungPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungOrtS() As String
|
|
Get
|
|
Return Me.fRechnungOrtSField
|
|
End Get
|
|
Set
|
|
Me.fRechnungOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungOrtsteil() As String
|
|
Get
|
|
Return Me.fRechnungOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.fRechnungOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerEORI() As String
|
|
Get
|
|
Return Me.empfaengerEORIField
|
|
End Get
|
|
Set
|
|
Me.empfaengerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerNLNR() As String
|
|
Get
|
|
Return Me.empfaengerNLNRField
|
|
End Get
|
|
Set
|
|
Me.empfaengerNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerNationalitaet() As String
|
|
Get
|
|
Return Me.empfaengerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.empfaengerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerName() As String
|
|
Get
|
|
Return Me.empfaengerNameField
|
|
End Get
|
|
Set
|
|
Me.empfaengerNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me.empfaengerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.empfaengerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerPLZS() As String
|
|
Get
|
|
Return Me.empfaengerPLZSField
|
|
End Get
|
|
Set
|
|
Me.empfaengerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerOrtS() As String
|
|
Get
|
|
Return Me.empfaengerOrtSField
|
|
End Get
|
|
Set
|
|
Me.empfaengerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerOrtsteil() As String
|
|
Get
|
|
Return Me.empfaengerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.empfaengerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerEORI() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerEORIField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerNLNR() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerNLNRField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerKreditinstitut() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerKreditinstitutField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerKreditinstitutField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerName() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerNameField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerNationalitaet() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerPLZS() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerPLZSField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerOrtS() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerOrtSField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerOrtsteil() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerIBAN() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerIBANField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerIBANField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsEmpfaengerBIC() As String
|
|
Get
|
|
Return Me.zahlungsEmpfaengerBICField
|
|
End Get
|
|
Set
|
|
Me.zahlungsEmpfaengerBICField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErstellungsDatumBefund() As Date
|
|
Get
|
|
Return Me.erstellungsDatumBefundField
|
|
End Get
|
|
Set
|
|
Me.erstellungsDatumBefundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ErstellungsDatumBefundSpecified() As Boolean
|
|
Get
|
|
Return Me.erstellungsDatumBefundFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.erstellungsDatumBefundFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Erfassungsdatum() As Date
|
|
Get
|
|
Return Me.erfassungsdatumField
|
|
End Get
|
|
Set
|
|
Me.erfassungsdatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ErfassungsdatumSpecified() As Boolean
|
|
Get
|
|
Return Me.erfassungsdatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.erfassungsdatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BarzahlungFaelligkeit() As Date
|
|
Get
|
|
Return Me.barzahlungFaelligkeitField
|
|
End Get
|
|
Set
|
|
Me.barzahlungFaelligkeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property BarzahlungFaelligkeitSpecified() As Boolean
|
|
Get
|
|
Return Me.barzahlungFaelligkeitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.barzahlungFaelligkeitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SicherheitsleistungFaelligkeit() As Date
|
|
Get
|
|
Return Me.sicherheitsleistungFaelligkeitField
|
|
End Get
|
|
Set
|
|
Me.sicherheitsleistungFaelligkeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property SicherheitsleistungFaelligkeitSpecified() As Boolean
|
|
Get
|
|
Return Me.sicherheitsleistungFaelligkeitFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.sicherheitsleistungFaelligkeitFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbrechnungszeitraumBeginn() As Date
|
|
Get
|
|
Return Me.abrechnungszeitraumBeginnField
|
|
End Get
|
|
Set
|
|
Me.abrechnungszeitraumBeginnField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbrechnungszeitraumBeginnSpecified() As Boolean
|
|
Get
|
|
Return Me.abrechnungszeitraumBeginnFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abrechnungszeitraumBeginnFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbrechnungszeitraumEnde() As Date
|
|
Get
|
|
Return Me.abrechnungszeitraumEndeField
|
|
End Get
|
|
Set
|
|
Me.abrechnungszeitraumEndeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbrechnungszeitraumEndeSpecified() As Boolean
|
|
Get
|
|
Return Me.abrechnungszeitraumEndeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abrechnungszeitraumEndeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Zollbefund() As String
|
|
Get
|
|
Return Me.zollbefundField
|
|
End Get
|
|
Set
|
|
Me.zollbefundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp
|
|
Get
|
|
Return Me.eZAAVAngabenKopfField
|
|
End Get
|
|
Set
|
|
Me.eZAAVAngabenKopfField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungCode() As String
|
|
Get
|
|
Return Me.lieferbedingungCodeField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungText() As String
|
|
Get
|
|
Return Me.lieferbedingungTextField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungTextField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungOrt() As String
|
|
Get
|
|
Return Me.lieferbedingungOrtField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungOrtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungSchluessel() As String
|
|
Get
|
|
Return Me.lieferbedingungSchluesselField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungSchluesselField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenEinfuhrbescheidTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KopfDatenEinfuhrbescheidTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an KopfDatenEinfuhrbescheidTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KopfDatenEinfuhrbescheidTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenEinfuhrbescheidTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current KopfDatenEinfuhrbescheidTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 KopfDatenEinfuhrbescheidTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output KopfDatenEinfuhrbescheidTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp)
|
|
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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class TransaktionFreierVerkehrTyp
|
|
|
|
Private iOPartnerField As String
|
|
|
|
Private iODivision1Field As String
|
|
|
|
Private iODivision2Field As String
|
|
|
|
Private iODivision3Field As String
|
|
|
|
Private iOReferenzField As String
|
|
|
|
Private iODatumZeitField As Date
|
|
|
|
Private versionField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property IOPartner() As String
|
|
Get
|
|
Return Me.iOPartnerField
|
|
End Get
|
|
Set
|
|
Me.iOPartnerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision1() As String
|
|
Get
|
|
Return Me.iODivision1Field
|
|
End Get
|
|
Set
|
|
Me.iODivision1Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision2() As String
|
|
Get
|
|
Return Me.iODivision2Field
|
|
End Get
|
|
Set
|
|
Me.iODivision2Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision3() As String
|
|
Get
|
|
Return Me.iODivision3Field
|
|
End Get
|
|
Set
|
|
Me.iODivision3Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IOReferenz() As String
|
|
Get
|
|
Return Me.iOReferenzField
|
|
End Get
|
|
Set
|
|
Me.iOReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODatumZeit() As Date
|
|
Get
|
|
Return Me.iODatumZeitField
|
|
End Get
|
|
Set
|
|
Me.iODatumZeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Version() As String
|
|
Get
|
|
Return Me.versionField
|
|
End Get
|
|
Set
|
|
Me.versionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current TransaktionFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an TransaktionFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current TransaktionFreierVerkehrTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 TransaktionFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
<System.Xml.Serialization.XmlIncludeAttribute(GetType(AbgabenbescheidEinfuhrTAXTyp))>
|
|
Partial Public Class DatenaustauschFreierVerkehrTyp
|
|
|
|
Private transaktionField As TransaktionFreierVerkehrTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.transaktionField = New TransaktionFreierVerkehrTyp()
|
|
End Sub
|
|
|
|
Public Property Transaktion() As TransaktionFreierVerkehrTyp
|
|
Get
|
|
Return Me.transaktionField
|
|
End Get
|
|
Set
|
|
Me.transaktionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an DatenaustauschFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current DatenaustauschFreierVerkehrTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 DatenaustauschFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
End Namespace
|