'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
'' Abgabenbescheid_009ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse
''
'' ------------------------------------------------------------------------------
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.Xml
Imports System.Collections.Generic
Namespace Abgabenbescheid_009
Partial Public Class AbgabenbescheidEinfuhrTAXTyp
Inherits DatenaustauschFreierVerkehrTyp
#Region "Private fields"
Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp()
End Sub
Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp
Get
Return Me._einzelAbgabenbescheid
End Get
Set
Me._einzelAbgabenbescheid = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object
'''
''' string workflow markup to deserialize
''' Output AbgabenbescheidEinfuhrTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp
Return CType(Serializer.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp)
End Function
#End Region
'''
''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object
'''
''' string xml file to load and deserialize
''' Output AbgabenbescheidEinfuhrTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EinzelAbgabenbescheidTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp
Private _kopfDaten As KopfDatenEinfuhrbescheidTyp
Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)()
Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp)
Get
Return Me._position
End Get
Set
Me._position = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EinzelAbgabenbescheidTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EinzelAbgabenbescheidTyp object
'''
''' string workflow markup to deserialize
''' Output EinzelAbgabenbescheidTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp
Return CType(Serializer.Deserialize(s), EinzelAbgabenbescheidTyp)
End Function
#End Region
'''
''' Serializes current EinzelAbgabenbescheidTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object
'''
''' string xml file to load and deserialize
''' Output EinzelAbgabenbescheidTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class ObjektIdentifizierungTAXTyp
#Region "Private fields"
Private _objektName As String
Private _objektAlias As String
Private _eDIFACTNachrichtenNr As String
Private _zeitpunktEingang As Date
Private _shipmentReferenz As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
Public Property ObjektAlias() As String
Get
Return Me._objektAlias
End Get
Set
Me._objektAlias = Value
End Set
End Property
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me._eDIFACTNachrichtenNr
End Get
Set
Me._eDIFACTNachrichtenNr = Value
End Set
End Property
Public Property ZeitpunktEingang() As Date
Get
Return Me._zeitpunktEingang
End Get
Set
Me._zeitpunktEingang = Value
End Set
End Property
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current ObjektIdentifizierungTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object
'''
''' string workflow markup to deserialize
''' Output ObjektIdentifizierungTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp
Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXTyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object
'''
''' string xml file to load and deserialize
''' Output ObjektIdentifizierungTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EinzelAbgabenSatzTAXTyp
#Region "Private fields"
Private _lfdNrAbgabensatz As List(Of String)
Private _abgabensatz As List(Of Decimal)
Private _bemessungsmassstab As List(Of String)
Private _gehaltsangabenArt As List(Of String)
Private _gehaltsangabenGradProzent As List(Of Decimal)
Private _bemessungsgrundlageKz As List(Of String)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._bemessungsgrundlageKz = New List(Of String)()
Me._gehaltsangabenGradProzent = New List(Of Decimal)()
Me._gehaltsangabenArt = New List(Of String)()
Me._bemessungsmassstab = New List(Of String)()
Me._abgabensatz = New List(Of Decimal)()
Me._lfdNrAbgabensatz = New List(Of String)()
End Sub
Public Property LfdNrAbgabensatz() As List(Of String)
Get
Return Me._lfdNrAbgabensatz
End Get
Set
Me._lfdNrAbgabensatz = Value
End Set
End Property
Public Property Abgabensatz() As List(Of Decimal)
Get
Return Me._abgabensatz
End Get
Set
Me._abgabensatz = Value
End Set
End Property
Public Property Bemessungsmassstab() As List(Of String)
Get
Return Me._bemessungsmassstab
End Get
Set
Me._bemessungsmassstab = Value
End Set
End Property
Public Property GehaltsangabenArt() As List(Of String)
Get
Return Me._gehaltsangabenArt
End Get
Set
Me._gehaltsangabenArt = Value
End Set
End Property
Public Property GehaltsangabenGradProzent() As List(Of Decimal)
Get
Return Me._gehaltsangabenGradProzent
End Get
Set
Me._gehaltsangabenGradProzent = Value
End Set
End Property
Public Property BemessungsgrundlageKz() As List(Of String)
Get
Return Me._bemessungsgrundlageKz
End Get
Set
Me._bemessungsgrundlageKz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EinzelAbgabenSatzTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object
'''
''' string workflow markup to deserialize
''' Output EinzelAbgabenSatzTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp
Return CType(Serializer.Deserialize(s), EinzelAbgabenSatzTAXTyp)
End Function
#End Region
'''
''' Serializes current EinzelAbgabenSatzTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object
'''
''' string xml file to load and deserialize
''' Output EinzelAbgabenSatzTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class AbgabengruppeTAXTyp
#Region "Private fields"
Private _abgabengruppe As String
Private _abgabeArt As String
Private _berechnungshinweis As String
Private _angewandterPVMinderungsBetrag As Decimal
Private _errechneterAbgabenbetrag As Decimal
Private _abgabenbetrag As Decimal
Private _abgabensatzKontNr As String
Private _verbrauchssteuerCode As String
Private _verbrauchssteuerMenge As Decimal
Private _verbrauchssteuerMasseinheit As String
Private _verbrauchssteuerQualifikator As String
Private _verbrauchssteuerGradProzent As Decimal
Private _verbrauchssteuerWert As Decimal
Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)()
End Sub
Public Property Abgabengruppe() As String
Get
Return Me._abgabengruppe
End Get
Set
Me._abgabengruppe = Value
End Set
End Property
Public Property AbgabeArt() As String
Get
Return Me._abgabeArt
End Get
Set
Me._abgabeArt = Value
End Set
End Property
Public Property Berechnungshinweis() As String
Get
Return Me._berechnungshinweis
End Get
Set
Me._berechnungshinweis = Value
End Set
End Property
Public Property AngewandterPVMinderungsBetrag() As Decimal
Get
Return Me._angewandterPVMinderungsBetrag
End Get
Set
Me._angewandterPVMinderungsBetrag = Value
End Set
End Property
Public Property ErrechneterAbgabenbetrag() As Decimal
Get
Return Me._errechneterAbgabenbetrag
End Get
Set
Me._errechneterAbgabenbetrag = Value
End Set
End Property
Public Property Abgabenbetrag() As Decimal
Get
Return Me._abgabenbetrag
End Get
Set
Me._abgabenbetrag = Value
End Set
End Property
Public Property AbgabensatzKontNr() As String
Get
Return Me._abgabensatzKontNr
End Get
Set
Me._abgabensatzKontNr = Value
End Set
End Property
Public Property VerbrauchssteuerCode() As String
Get
Return Me._verbrauchssteuerCode
End Get
Set
Me._verbrauchssteuerCode = Value
End Set
End Property
Public Property VerbrauchssteuerMenge() As Decimal
Get
Return Me._verbrauchssteuerMenge
End Get
Set
Me._verbrauchssteuerMenge = Value
End Set
End Property
Public Property VerbrauchssteuerMasseinheit() As String
Get
Return Me._verbrauchssteuerMasseinheit
End Get
Set
Me._verbrauchssteuerMasseinheit = Value
End Set
End Property
Public Property VerbrauchssteuerQualifikator() As String
Get
Return Me._verbrauchssteuerQualifikator
End Get
Set
Me._verbrauchssteuerQualifikator = Value
End Set
End Property
Public Property VerbrauchssteuerGradProzent() As Decimal
Get
Return Me._verbrauchssteuerGradProzent
End Get
Set
Me._verbrauchssteuerGradProzent = Value
End Set
End Property
Public Property VerbrauchssteuerWert() As Decimal
Get
Return Me._verbrauchssteuerWert
End Get
Set
Me._verbrauchssteuerWert = Value
End Set
End Property
Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp)
Get
Return Me._einzelAbgabenSatz
End Get
Set
Me._einzelAbgabenSatz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AbgabengruppeTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an AbgabengruppeTAXTyp object
'''
''' string workflow markup to deserialize
''' Output AbgabengruppeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabengruppeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp
Return CType(Serializer.Deserialize(s), AbgabengruppeTAXTyp)
End Function
#End Region
'''
''' Serializes current AbgabengruppeTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object
'''
''' string xml file to load and deserialize
''' Output AbgabengruppeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class AbweichendeFestsetzungTAXTyp
#Region "Private fields"
Private _feldname As String
Private _qualifikator As String
Private _qualifikatorInhalt As String
Private _artAbweichendeFestsetzung As String
Private _festgesetztVon As String
Private _festgesetztAuf As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Feldname() As String
Get
Return Me._feldname
End Get
Set
Me._feldname = Value
End Set
End Property
Public Property Qualifikator() As String
Get
Return Me._qualifikator
End Get
Set
Me._qualifikator = Value
End Set
End Property
Public Property QualifikatorInhalt() As String
Get
Return Me._qualifikatorInhalt
End Get
Set
Me._qualifikatorInhalt = Value
End Set
End Property
Public Property ArtAbweichendeFestsetzung() As String
Get
Return Me._artAbweichendeFestsetzung
End Get
Set
Me._artAbweichendeFestsetzung = Value
End Set
End Property
Public Property FestgesetztVon() As String
Get
Return Me._festgesetztVon
End Get
Set
Me._festgesetztVon = Value
End Set
End Property
Public Property FestgesetztAuf() As String
Get
Return Me._festgesetztAuf
End Get
Set
Me._festgesetztAuf = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AbweichendeFestsetzungTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object
'''
''' string workflow markup to deserialize
''' Output AbweichendeFestsetzungTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp
Return CType(Serializer.Deserialize(s), AbweichendeFestsetzungTAXTyp)
End Function
#End Region
'''
''' Serializes current AbweichendeFestsetzungTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object
'''
''' string xml file to load and deserialize
''' Output AbweichendeFestsetzungTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class KontingentAngerechnetWarenMengeTAXTyp
#Region "Private fields"
Private _menge As String
Private _masseinheit As String
Private _qualifier As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Menge() As String
Get
Return Me._menge
End Get
Set
Me._menge = Value
End Set
End Property
Public Property Masseinheit() As String
Get
Return Me._masseinheit
End Get
Set
Me._masseinheit = Value
End Set
End Property
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object
'''
''' string workflow markup to deserialize
''' Output KontingentAngerechnetWarenMengeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp
Return CType(Serializer.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp)
End Function
#End Region
'''
''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object
'''
''' string xml file to load and deserialize
''' Output KontingentAngerechnetWarenMengeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class KontingentAngerechnetTAXTyp
#Region "Private fields"
Private _kontNrAngerechnet As String
Private _zollwertAngerechnet As Decimal
Private _eUStKostenAngerechnet As Decimal
Private _beguenstMengeAngerechnet As Decimal
Private _masseinhBegMengeAng As String
Private _qualifBegMengeAng As String
Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)()
End Sub
Public Property KontNrAngerechnet() As String
Get
Return Me._kontNrAngerechnet
End Get
Set
Me._kontNrAngerechnet = Value
End Set
End Property
Public Property ZollwertAngerechnet() As Decimal
Get
Return Me._zollwertAngerechnet
End Get
Set
Me._zollwertAngerechnet = Value
End Set
End Property
Public Property EUStKostenAngerechnet() As Decimal
Get
Return Me._eUStKostenAngerechnet
End Get
Set
Me._eUStKostenAngerechnet = Value
End Set
End Property
Public Property BeguenstMengeAngerechnet() As Decimal
Get
Return Me._beguenstMengeAngerechnet
End Get
Set
Me._beguenstMengeAngerechnet = Value
End Set
End Property
Public Property MasseinhBegMengeAng() As String
Get
Return Me._masseinhBegMengeAng
End Get
Set
Me._masseinhBegMengeAng = Value
End Set
End Property
Public Property QualifBegMengeAng() As String
Get
Return Me._qualifBegMengeAng
End Get
Set
Me._qualifBegMengeAng = Value
End Set
End Property
Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp)
Get
Return Me._warenMenge
End Get
Set
Me._warenMenge = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current KontingentAngerechnetTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an KontingentAngerechnetTAXTyp object
'''
''' string workflow markup to deserialize
''' Output KontingentAngerechnetTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp
Return CType(Serializer.Deserialize(s), KontingentAngerechnetTAXTyp)
End Function
#End Region
'''
''' Serializes current KontingentAngerechnetTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object
'''
''' string xml file to load and deserialize
''' Output KontingentAngerechnetTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class SonderfalleingabeTAXTyp
#Region "Private fields"
Private _sonderabgabenGruppe As String
Private _anwendungsart As String
Private _satzBetragFaktor As Decimal
Private Shared sSerializer As XmlSerializer
#End Region
Public Property SonderabgabenGruppe() As String
Get
Return Me._sonderabgabenGruppe
End Get
Set
Me._sonderabgabenGruppe = Value
End Set
End Property
Public Property Anwendungsart() As String
Get
Return Me._anwendungsart
End Get
Set
Me._anwendungsart = Value
End Set
End Property
Public Property SatzBetragFaktor() As Decimal
Get
Return Me._satzBetragFaktor
End Get
Set
Me._satzBetragFaktor = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current SonderfalleingabeTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an SonderfalleingabeTAXTyp object
'''
''' string workflow markup to deserialize
''' Output SonderfalleingabeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderfalleingabeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp
Return CType(Serializer.Deserialize(s), SonderfalleingabeTAXTyp)
End Function
#End Region
'''
''' Serializes current SonderfalleingabeTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object
'''
''' string xml file to load and deserialize
''' Output SonderfalleingabeTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EZAAVVeredelungserzeugnisTyp
#Region "Private fields"
Private _warenbezeichnung As String
Private _ausbeuteart As String
Private _ausbeutesatz As String
Private _kNCode As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Warenbezeichnung() As String
Get
Return Me._warenbezeichnung
End Get
Set
Me._warenbezeichnung = Value
End Set
End Property
Public Property Ausbeuteart() As String
Get
Return Me._ausbeuteart
End Get
Set
Me._ausbeuteart = Value
End Set
End Property
Public Property Ausbeutesatz() As String
Get
Return Me._ausbeutesatz
End Get
Set
Me._ausbeutesatz = Value
End Set
End Property
Public Property KNCode() As String
Get
Return Me._kNCode
End Get
Set
Me._kNCode = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EZAAVVeredelungserzeugnisTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EZAAVVeredelungserzeugnisTyp object
'''
''' string workflow markup to deserialize
''' Output EZAAVVeredelungserzeugnisTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVVeredelungserzeugnisTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVVeredelungserzeugnisTyp
Return CType(Serializer.Deserialize(s), EZAAVVeredelungserzeugnisTyp)
End Function
#End Region
'''
''' Serializes current EZAAVVeredelungserzeugnisTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object
'''
''' string xml file to load and deserialize
''' Output EZAAVVeredelungserzeugnisTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EZAAVAngabenPosTyp
#Region "Private fields"
Private _aVWirtschaftlicheVoraussetzungen As String
Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp)
Private _aVNaemlichkeitsmittel As String
Private _aVErlaeuterungNaemlichkeit As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)()
End Sub
Public Property AVWirtschaftlicheVoraussetzungen() As String
Get
Return Me._aVWirtschaftlicheVoraussetzungen
End Get
Set
Me._aVWirtschaftlicheVoraussetzungen = Value
End Set
End Property
Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp)
Get
Return Me._aVVeredelungserzeugnis
End Get
Set
Me._aVVeredelungserzeugnis = Value
End Set
End Property
Public Property AVNaemlichkeitsmittel() As String
Get
Return Me._aVNaemlichkeitsmittel
End Get
Set
Me._aVNaemlichkeitsmittel = Value
End Set
End Property
Public Property AVErlaeuterungNaemlichkeit() As String
Get
Return Me._aVErlaeuterungNaemlichkeit
End Get
Set
Me._aVErlaeuterungNaemlichkeit = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EZAAVAngabenPosTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EZAAVAngabenPosTyp object
'''
''' string workflow markup to deserialize
''' Output EZAAVAngabenPosTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenPosTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenPosTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenPosTyp
Return CType(Serializer.Deserialize(s), EZAAVAngabenPosTyp)
End Function
#End Region
'''
''' Serializes current EZAAVAngabenPosTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EZAAVAngabenPosTyp object
'''
''' string xml file to load and deserialize
''' Output EZAAVAngabenPosTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class AngemeldeteUnterlageTAXTyp
#Region "Private fields"
Private _unterlageArt As String
Private _unterlageBereich As String
Private _unterlageNr As String
Private _anerkennungKz As String
Private _abschreibungKz As String
Private _einbehaltenKz As String
Private _periodischeVorlageKz As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property UnterlageArt() As String
Get
Return Me._unterlageArt
End Get
Set
Me._unterlageArt = Value
End Set
End Property
Public Property UnterlageBereich() As String
Get
Return Me._unterlageBereich
End Get
Set
Me._unterlageBereich = Value
End Set
End Property
Public Property UnterlageNr() As String
Get
Return Me._unterlageNr
End Get
Set
Me._unterlageNr = Value
End Set
End Property
Public Property AnerkennungKz() As String
Get
Return Me._anerkennungKz
End Get
Set
Me._anerkennungKz = Value
End Set
End Property
Public Property AbschreibungKz() As String
Get
Return Me._abschreibungKz
End Get
Set
Me._abschreibungKz = Value
End Set
End Property
Public Property EinbehaltenKz() As String
Get
Return Me._einbehaltenKz
End Get
Set
Me._einbehaltenKz = Value
End Set
End Property
Public Property PeriodischeVorlageKz() As String
Get
Return Me._periodischeVorlageKz
End Get
Set
Me._periodischeVorlageKz = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AngemeldeteUnterlageTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object
'''
''' string workflow markup to deserialize
''' Output AngemeldeteUnterlageTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp
Return CType(Serializer.Deserialize(s), AngemeldeteUnterlageTAXTyp)
End Function
#End Region
'''
''' Serializes current AngemeldeteUnterlageTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object
'''
''' string xml file to load and deserialize
''' Output AngemeldeteUnterlageTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class KursAbzugHinzuTAXTyp
#Region "Private fields"
Private _artAbHinzu As String
Private _angewandterKurs As Decimal
Private Shared sSerializer As XmlSerializer
#End Region
Public Property ArtAbHinzu() As String
Get
Return Me._artAbHinzu
End Get
Set
Me._artAbHinzu = Value
End Set
End Property
Public Property AngewandterKurs() As Decimal
Get
Return Me._angewandterKurs
End Get
Set
Me._angewandterKurs = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current KursAbzugHinzuTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an KursAbzugHinzuTAXTyp object
'''
''' string workflow markup to deserialize
''' Output KursAbzugHinzuTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp
Return CType(Serializer.Deserialize(s), KursAbzugHinzuTAXTyp)
End Function
#End Region
'''
''' Serializes current KursAbzugHinzuTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object
'''
''' string xml file to load and deserialize
''' Output KursAbzugHinzuTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class PositionAbgabenbescheidEinfuhrTyp
#Region "Private fields"
Private _positionsNr As String
Private _erledigungKz As String
Private _warenNummerEZT As String
Private _warenNummerZusatzCode As List(Of String)
Private _warenBezeichnung As String
Private _beschauMitteilung As String
Private _erledigungMitteilung As String
Private _ablehnungAenderung As String
Private _weitererNachweis As String
Private _gewaehrteBeguenstigung As String
Private _anordnungKz As String
Private _eUStWert As Decimal
Private _kostenFuerEUSt As Decimal
Private _zollWert As Decimal
Private _annahmeAenderung As String
Private _sicherheitsLeistungBetrag As Decimal
Private _registrierNrvZAAZ As String
Private _positionsNrInvZAAZ As String
Private _annahmeKz As String
Private _annahmeDatum As Date
Private _ueberlassungDatum As Date
Private _lagerfrist As String
Private _wiederAusfuhrFrist As Date
Private _fristWeitererNachweis As Date
Private _befund As String
Private _dV1AbweichendFestgesetztKz As String
Private _sonderfalleingabeKz As String
Private _angewandterKursNettopreis As Decimal
Private _angewandterKursMittelbZahlungen As Decimal
Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp)
Private _luftFrachtGesamtProzentsatz As String
Private _luftFrachtGesamtAngewandterKurs As Decimal
Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp)
Private _eZAAVAngabenPos As EZAAVAngabenPosTyp
Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp)
Private _kontNrAngewandt As List(Of String)
Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp)
Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp)
Private _abgaben As List(Of AbgabengruppeTAXTyp)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._abgaben = New List(Of AbgabengruppeTAXTyp)()
Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)()
Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)()
Me._kontNrAngewandt = New List(Of String)()
Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)()
Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp()
Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)()
Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)()
Me._warenNummerZusatzCode = New List(Of String)()
End Sub
Public Property PositionsNr() As String
Get
Return Me._positionsNr
End Get
Set
Me._positionsNr = Value
End Set
End Property
Public Property ErledigungKz() As String
Get
Return Me._erledigungKz
End Get
Set
Me._erledigungKz = Value
End Set
End Property
Public Property WarenNummerEZT() As String
Get
Return Me._warenNummerEZT
End Get
Set
Me._warenNummerEZT = Value
End Set
End Property
Public Property WarenNummerZusatzCode() As List(Of String)
Get
Return Me._warenNummerZusatzCode
End Get
Set
Me._warenNummerZusatzCode = Value
End Set
End Property
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set
Me._warenBezeichnung = Value
End Set
End Property
Public Property BeschauMitteilung() As String
Get
Return Me._beschauMitteilung
End Get
Set
Me._beschauMitteilung = Value
End Set
End Property
Public Property ErledigungMitteilung() As String
Get
Return Me._erledigungMitteilung
End Get
Set
Me._erledigungMitteilung = Value
End Set
End Property
Public Property AblehnungAenderung() As String
Get
Return Me._ablehnungAenderung
End Get
Set
Me._ablehnungAenderung = Value
End Set
End Property
Public Property WeitererNachweis() As String
Get
Return Me._weitererNachweis
End Get
Set
Me._weitererNachweis = Value
End Set
End Property
Public Property GewaehrteBeguenstigung() As String
Get
Return Me._gewaehrteBeguenstigung
End Get
Set
Me._gewaehrteBeguenstigung = Value
End Set
End Property
Public Property AnordnungKz() As String
Get
Return Me._anordnungKz
End Get
Set
Me._anordnungKz = Value
End Set
End Property
Public Property EUStWert() As Decimal
Get
Return Me._eUStWert
End Get
Set
Me._eUStWert = Value
End Set
End Property
Public Property KostenFuerEUSt() As Decimal
Get
Return Me._kostenFuerEUSt
End Get
Set
Me._kostenFuerEUSt = Value
End Set
End Property
Public Property ZollWert() As Decimal
Get
Return Me._zollWert
End Get
Set
Me._zollWert = Value
End Set
End Property
Public Property AnnahmeAenderung() As String
Get
Return Me._annahmeAenderung
End Get
Set
Me._annahmeAenderung = Value
End Set
End Property
Public Property SicherheitsLeistungBetrag() As Decimal
Get
Return Me._sicherheitsLeistungBetrag
End Get
Set
Me._sicherheitsLeistungBetrag = Value
End Set
End Property
Public Property RegistrierNrvZAAZ() As String
Get
Return Me._registrierNrvZAAZ
End Get
Set
Me._registrierNrvZAAZ = Value
End Set
End Property
Public Property PositionsNrInvZAAZ() As String
Get
Return Me._positionsNrInvZAAZ
End Get
Set
Me._positionsNrInvZAAZ = Value
End Set
End Property
Public Property AnnahmeKz() As String
Get
Return Me._annahmeKz
End Get
Set
Me._annahmeKz = Value
End Set
End Property
Public Property AnnahmeDatum() As Date
Get
Return Me._annahmeDatum
End Get
Set
Me._annahmeDatum = Value
End Set
End Property
Public Property UeberlassungDatum() As Date
Get
Return Me._ueberlassungDatum
End Get
Set
Me._ueberlassungDatum = Value
End Set
End Property
Public Property Lagerfrist() As String
Get
Return Me._lagerfrist
End Get
Set
Me._lagerfrist = Value
End Set
End Property
Public Property WiederAusfuhrFrist() As Date
Get
Return Me._wiederAusfuhrFrist
End Get
Set
Me._wiederAusfuhrFrist = Value
End Set
End Property
Public Property FristWeitererNachweis() As Date
Get
Return Me._fristWeitererNachweis
End Get
Set
Me._fristWeitererNachweis = Value
End Set
End Property
Public Property Befund() As String
Get
Return Me._befund
End Get
Set
Me._befund = Value
End Set
End Property
Public Property DV1AbweichendFestgesetztKz() As String
Get
Return Me._dV1AbweichendFestgesetztKz
End Get
Set
Me._dV1AbweichendFestgesetztKz = Value
End Set
End Property
Public Property SonderfalleingabeKz() As String
Get
Return Me._sonderfalleingabeKz
End Get
Set
Me._sonderfalleingabeKz = Value
End Set
End Property
Public Property AngewandterKursNettopreis() As Decimal
Get
Return Me._angewandterKursNettopreis
End Get
Set
Me._angewandterKursNettopreis = Value
End Set
End Property
Public Property AngewandterKursMittelbZahlungen() As Decimal
Get
Return Me._angewandterKursMittelbZahlungen
End Get
Set
Me._angewandterKursMittelbZahlungen = Value
End Set
End Property
Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp)
Get
Return Me._abzugHinzurechnungen
End Get
Set
Me._abzugHinzurechnungen = Value
End Set
End Property
Public Property LuftFrachtGesamtProzentsatz() As String
Get
Return Me._luftFrachtGesamtProzentsatz
End Get
Set
Me._luftFrachtGesamtProzentsatz = Value
End Set
End Property
Public Property LuftFrachtGesamtAngewandterKurs() As Decimal
Get
Return Me._luftFrachtGesamtAngewandterKurs
End Get
Set
Me._luftFrachtGesamtAngewandterKurs = Value
End Set
End Property
Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp)
Get
Return Me._angemeldeteUnterlage
End Get
Set
Me._angemeldeteUnterlage = Value
End Set
End Property
Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp
Get
Return Me._eZAAVAngabenPos
End Get
Set
Me._eZAAVAngabenPos = Value
End Set
End Property
Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp)
Get
Return Me._sonderabgabenGruppe
End Get
Set
Me._sonderabgabenGruppe = Value
End Set
End Property
Public Property KontNrAngewandt() As List(Of String)
Get
Return Me._kontNrAngewandt
End Get
Set
Me._kontNrAngewandt = Value
End Set
End Property
Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp)
Get
Return Me._kontingentAngerechnet
End Get
Set
Me._kontingentAngerechnet = Value
End Set
End Property
Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp)
Get
Return Me._abweichendeFestsetzung
End Get
Set
Me._abweichendeFestsetzung = Value
End Set
End Property
Public Property Abgaben() As List(Of AbgabengruppeTAXTyp)
Get
Return Me._abgaben
End Get
Set
Me._abgaben = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object
'''
''' string workflow markup to deserialize
''' Output PositionAbgabenbescheidEinfuhrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp
Return CType(Serializer.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp)
End Function
#End Region
'''
''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object
'''
''' string xml file to load and deserialize
''' Output PositionAbgabenbescheidEinfuhrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp
#Region "Private fields"
Private _strasse As String
Private _land As String
Private _pLZ As String
Private _ort As String
Private _ortsteil As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Land() As String
Get
Return Me._land
End Get
Set
Me._land = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object
'''
''' string workflow markup to deserialize
''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp
Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp)
End Function
#End Region
'''
''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object
'''
''' string xml file to load and deserialize
''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class EZAAVAngabenKopfTyp
#Region "Private fields"
Private _kzBemessungEinfuhrabgabenbetrag As String
Private _kzAbrechnung As String
Private _kzVereinfBefoerderung As String
Private _zusaetzlicheAngaben As String
Private _kzVerzichtSicherheit As String
Private _erlaeuterungenZurSicherheit As String
Private _betragDerSicherheit As Decimal
Private _deutschesUeHZA As String
Private _einzelheitenGeplantVeredelungsvorgang As String
Private _hauptbuchhaltungStrasse As String
Private _hauptbuchhaltungLand As String
Private _hauptbuchhaltungPLZ As String
Private _hauptbuchhaltungOrt As String
Private _hauptbuchhaltungOrtsteil As String
Private _veredelungStrasse As String
Private _veredelungLand As String
Private _veredelungPLZ As String
Private _veredelungOrt As String
Private _veredelungOrtsteil As String
Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
Private _zollstelleErledigung As List(Of String)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._zollstelleErledigung = New List(Of String)()
Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)()
End Sub
Public Property KzBemessungEinfuhrabgabenbetrag() As String
Get
Return Me._kzBemessungEinfuhrabgabenbetrag
End Get
Set
Me._kzBemessungEinfuhrabgabenbetrag = Value
End Set
End Property
Public Property KzAbrechnung() As String
Get
Return Me._kzAbrechnung
End Get
Set
Me._kzAbrechnung = Value
End Set
End Property
Public Property KzVereinfBefoerderung() As String
Get
Return Me._kzVereinfBefoerderung
End Get
Set
Me._kzVereinfBefoerderung = Value
End Set
End Property
Public Property ZusaetzlicheAngaben() As String
Get
Return Me._zusaetzlicheAngaben
End Get
Set
Me._zusaetzlicheAngaben = Value
End Set
End Property
Public Property KzVerzichtSicherheit() As String
Get
Return Me._kzVerzichtSicherheit
End Get
Set
Me._kzVerzichtSicherheit = Value
End Set
End Property
Public Property ErlaeuterungenZurSicherheit() As String
Get
Return Me._erlaeuterungenZurSicherheit
End Get
Set
Me._erlaeuterungenZurSicherheit = Value
End Set
End Property
Public Property BetragDerSicherheit() As Decimal
Get
Return Me._betragDerSicherheit
End Get
Set
Me._betragDerSicherheit = Value
End Set
End Property
Public Property DeutschesUeHZA() As String
Get
Return Me._deutschesUeHZA
End Get
Set
Me._deutschesUeHZA = Value
End Set
End Property
Public Property EinzelheitenGeplantVeredelungsvorgang() As String
Get
Return Me._einzelheitenGeplantVeredelungsvorgang
End Get
Set
Me._einzelheitenGeplantVeredelungsvorgang = Value
End Set
End Property
Public Property HauptbuchhaltungStrasse() As String
Get
Return Me._hauptbuchhaltungStrasse
End Get
Set
Me._hauptbuchhaltungStrasse = Value
End Set
End Property
Public Property HauptbuchhaltungLand() As String
Get
Return Me._hauptbuchhaltungLand
End Get
Set
Me._hauptbuchhaltungLand = Value
End Set
End Property
Public Property HauptbuchhaltungPLZ() As String
Get
Return Me._hauptbuchhaltungPLZ
End Get
Set
Me._hauptbuchhaltungPLZ = Value
End Set
End Property
Public Property HauptbuchhaltungOrt() As String
Get
Return Me._hauptbuchhaltungOrt
End Get
Set
Me._hauptbuchhaltungOrt = Value
End Set
End Property
Public Property HauptbuchhaltungOrtsteil() As String
Get
Return Me._hauptbuchhaltungOrtsteil
End Get
Set
Me._hauptbuchhaltungOrtsteil = Value
End Set
End Property
Public Property VeredelungStrasse() As String
Get
Return Me._veredelungStrasse
End Get
Set
Me._veredelungStrasse = Value
End Set
End Property
Public Property VeredelungLand() As String
Get
Return Me._veredelungLand
End Get
Set
Me._veredelungLand = Value
End Set
End Property
Public Property VeredelungPLZ() As String
Get
Return Me._veredelungPLZ
End Get
Set
Me._veredelungPLZ = Value
End Set
End Property
Public Property VeredelungOrt() As String
Get
Return Me._veredelungOrt
End Get
Set
Me._veredelungOrt = Value
End Set
End Property
Public Property VeredelungOrtsteil() As String
Get
Return Me._veredelungOrtsteil
End Get
Set
Me._veredelungOrtsteil = Value
End Set
End Property
Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
Get
Return Me._weitererVeredelungsort
End Get
Set
Me._weitererVeredelungsort = Value
End Set
End Property
Public Property ZollstelleErledigung() As List(Of String)
Get
Return Me._zollstelleErledigung
End Get
Set
Me._zollstelleErledigung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current EZAAVAngabenKopfTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an EZAAVAngabenKopfTyp object
'''
''' string workflow markup to deserialize
''' Output EZAAVAngabenKopfTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfTyp
Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfTyp)
End Function
#End Region
'''
''' Serializes current EZAAVAngabenKopfTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an EZAAVAngabenKopfTyp object
'''
''' string xml file to load and deserialize
''' Output EZAAVAngabenKopfTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class SicherheitTAXTyp
#Region "Private fields"
Private _einzelbetragUnbareSicherheit As Decimal
Private _artUnbareSicherheitsleistung As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property EinzelbetragUnbareSicherheit() As Decimal
Get
Return Me._einzelbetragUnbareSicherheit
End Get
Set
Me._einzelbetragUnbareSicherheit = Value
End Set
End Property
Public Property ArtUnbareSicherheitsleistung() As String
Get
Return Me._artUnbareSicherheitsleistung
End Get
Set
Me._artUnbareSicherheitsleistung = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current SicherheitTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an SicherheitTAXTyp object
'''
''' string workflow markup to deserialize
''' Output SicherheitTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SicherheitTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp
Return CType(Serializer.Deserialize(s), SicherheitTAXTyp)
End Function
#End Region
'''
''' Serializes current SicherheitTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an SicherheitTAXTyp object
'''
''' string xml file to load and deserialize
''' Output SicherheitTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class AbgabenNachArtKopfTAXTyp
#Region "Private fields"
Private _abgabeArt As String
Private _abgabenbetrag As Decimal
Private _zahlungsart As String
Private _aufschubnehmerName As String
Private _aufschubnehmerTIN As String
Private _artAufschubAntrag As String
Private _kennBuchstabenAufschub As String
Private _aufschubkontoNr As String
Private _faelligkeit As Date
Private Shared sSerializer As XmlSerializer
#End Region
Public Property AbgabeArt() As String
Get
Return Me._abgabeArt
End Get
Set
Me._abgabeArt = Value
End Set
End Property
Public Property Abgabenbetrag() As Decimal
Get
Return Me._abgabenbetrag
End Get
Set
Me._abgabenbetrag = Value
End Set
End Property
Public Property Zahlungsart() As String
Get
Return Me._zahlungsart
End Get
Set
Me._zahlungsart = Value
End Set
End Property
Public Property AufschubnehmerName() As String
Get
Return Me._aufschubnehmerName
End Get
Set
Me._aufschubnehmerName = Value
End Set
End Property
Public Property AufschubnehmerTIN() As String
Get
Return Me._aufschubnehmerTIN
End Get
Set
Me._aufschubnehmerTIN = Value
End Set
End Property
Public Property ArtAufschubAntrag() As String
Get
Return Me._artAufschubAntrag
End Get
Set
Me._artAufschubAntrag = Value
End Set
End Property
Public Property KennBuchstabenAufschub() As String
Get
Return Me._kennBuchstabenAufschub
End Get
Set
Me._kennBuchstabenAufschub = Value
End Set
End Property
Public Property AufschubkontoNr() As String
Get
Return Me._aufschubkontoNr
End Get
Set
Me._aufschubkontoNr = Value
End Set
End Property
Public Property Faelligkeit() As Date
Get
Return Me._faelligkeit
End Get
Set
Me._faelligkeit = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serializes current AbgabenNachArtKopfTAXTyp object into an XML string
'''
''' string XML value
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()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, 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
'''
''' Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object
'''
''' string workflow markup to deserialize
''' Output AbgabenNachArtKopfTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp
Return CType(Serializer.Deserialize(s), AbgabenNachArtKopfTAXTyp)
End Function
#End Region
'''
''' Serializes current AbgabenNachArtKopfTAXTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As 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
'''
''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object
'''
''' string xml file to load and deserialize
''' Output AbgabenNachArtKopfTAXTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 Class
Partial Public Class KopfDatenEinfuhrbescheidTyp
#Region "Private fields"
Private _artAnmeldung As String
Private _erledigungKopfKz As String
Private _waehrung As String
Private _gesamtabgabenBetrag As Decimal
Private _abgabenbetragZuZahlen As Decimal
Private _abgabenbetragZuErstatten As Decimal
Private _vertretungsverhaeltnis As String
Private _zahlungsaufforderungArtAufschub As String
Private _zahlungsaufforderungArtAbgaben As String
Private _zahlungsaufforderungArtSicherheit As String
Private _kleinbetragKz As String
Private _kleinbetragRechtsbehelf As String
Private _gesamtschuldnerschaftKz As String
Private _eingangszollstelleGeaendertKz As String
Private _aVbewilligtKz As String
Private _benutzererstelltKz As String
Private _eUStKz As String
Private _ustID As String
Private _registriernummer As String
Private _registrierdatum As Date
Private _nizzaRegistrierKz As String
Private _nizzaRegistrierKzSicherheit As String
Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp)
Private _gesamtsicherheitssumme As Decimal
Private _errechneteSicherheitsSumme As Decimal
Private _unbarSicherheitsbetraege As Decimal
Private _barSicherheitsbetraege As Decimal
Private _freizugebenSicherheit As Decimal
Private _auszuzahlenSicherheit As Decimal
Private _einbehaltenSicherheit As Decimal
Private _sicherheitsleistungForm As String
Private _sicherheitsleistungsVerzicht As String
Private _auszahlungsArt As String
Private _unbareSicherheiten As List(Of SicherheitTAXTyp)
Private _bescheidendeDienststelleNr As String
Private _bescheidendeDienststelleName As String
Private _bescheidendeDienststelleStrasseHausNr As String
Private _bescheidendeDienststelleOrtS As String
Private _bescheidendeDienststellePLZS As String
Private _bearbeiter As String
Private _bescheidendeDienststelleTelefonNr As String
Private _rechtsbehelfHauptzollamt As String
Private _rechtsbehelfHZAEmailAdresse As String
Private _rechtsbehelfHZADEmailAdresse As String
Private _rechtsbehelfHauptzollamtStrHausNr As String
Private _rechtsbehelfHauptzollamtPLZS As String
Private _rechtsbehelfHauptzollamtOrtS As String
Private _rechtsbehelfHauptzollamtOrtsteil As String
Private _rechtsbehelfHauptzollamtPostfach As String
Private _rechtsbehelfHauptzollamtPLZP As String
Private _rechtsbehelfHauptzollamtOrtP As String
Private _zollzahlstelle As String
Private _zollzahlstelleKreditinstitut As String
Private _zollzahlstelleStrasseHausNr As String
Private _zollzahlstellePLZS As String
Private _zollzahlstelleOrtS As String
Private _zollzahlstellePostfach As String
Private _zollzahlstellePLZP As String
Private _zollzahlstelleOrtP As String
Private _zollzahlstelleIBAN As String
Private _zollzahlstelleBIC As String
Private _anmelderEORI As String
Private _anmelderNLNR As String
Private _vorsteuerabzugKz As String
Private _anmelderName As String
Private _anmelderNationalitaet As String
Private _anmelderStrasseHausNr As String
Private _anmelderPLZS As String
Private _anmelderOrtS As String
Private _anmelderOrtsteil As String
Private _vertreterEORI As String
Private _vertreterNLNR As String
Private _vertreterName As String
Private _vertreterNationalitaet As String
Private _vertreterStrasseHausNr As String
Private _vertreterPLZS As String
Private _vertreterOrtS As String
Private _vertreterOrtsteil As String
Private _fRechnungEORI As String
Private _fRechnungNLNR As String
Private _fRechnungNationalitaet As String
Private _fRechnungName As String
Private _fRechnungStrasseHausNr As String
Private _fRechnungPLZS As String
Private _fRechnungOrtS As String
Private _fRechnungOrtsteil As String
Private _lagerhalterEORI As String
Private _lagerhalterNLNR As String
Private _lagerhalterName As String
Private _lagerhalterStrasseHausNr As String
Private _lagerhalterNationalitaet As String
Private _lagerhalterPLZ As String
Private _lagerhalterOrt As String
Private _lagerhalterOrtsteil As String
Private _empfaengerEORI As String
Private _empfaengerNLNR As String
Private _empfaengerNationalitaet As String
Private _empfaengerName As String
Private _empfaengerStrasseHausNr As String
Private _empfaengerPLZS As String
Private _empfaengerOrtS As String
Private _empfaengerOrtsteil As String
Private _zahlungsEmpfaengerEORI As String
Private _zahlungsEmpfaengerNLNR As String
Private _zahlungsEmpfaengerKreditinstitut As String
Private _zahlungsEmpfaengerName As String
Private _zahlungsEmpfaengerNationalitaet As String
Private _zahlungsEmpfaengerStrasseHausNr As String
Private _zahlungsEmpfaengerPLZS As String
Private _zahlungsEmpfaengerOrtS As String
Private _zahlungsEmpfaengerOrtsteil As String
Private _zahlungsEmpfaengerIBAN As String
Private _zahlungsEmpfaengerBIC As String
Private _erstellungsDatumBefund As Date
Private _erfassungsdatum As Date
Private _barzahlungFaelligkeit As Date
Private _sicherheitsleistungFaelligkeit As String
Private _abrechnungszeitraumBeginn As Date
Private _abrechnungszeitraumEnde As Date
Private _zollbefund As String
Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp
Private _lieferbedingungCode As String
Private _lieferbedingungText As String
Private _lieferbedingungOrt As String
Private _lieferbedingungSchluessel As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp()
Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)()
Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)()
End Sub
Public Property ArtAnmeldung() As String
Get
Return Me._artAnmeldung
End Get
Set
Me._artAnmeldung = Value
End Set
End Property
Public Property ErledigungKopfKz() As String
Get
Return Me._erledigungKopfKz
End Get
Set
Me._erledigungKopfKz = Value
End Set
End Property
Public Property Waehrung() As String
Get
Return Me._waehrung
End Get
Set
Me._waehrung = Value
End Set
End Property
Public Property GesamtabgabenBetrag() As Decimal
Get
Return Me._gesamtabgabenBetrag
End Get
Set
Me._gesamtabgabenBetrag = Value
End Set
End Property
Public Property AbgabenbetragZuZahlen() As Decimal
Get
Return Me._abgabenbetragZuZahlen
End Get
Set
Me._abgabenbetragZuZahlen = Value
End Set
End Property
Public Property AbgabenbetragZuErstatten() As Decimal
Get
Return Me._abgabenbetragZuErstatten
End Get
Set
Me._abgabenbetragZuErstatten = Value
End Set
End Property
Public Property Vertretungsverhaeltnis() As String
Get
Return Me._vertretungsverhaeltnis
End Get
Set
Me._vertretungsverhaeltnis = Value
End Set
End Property
Public Property ZahlungsaufforderungArtAufschub() As String
Get
Return Me._zahlungsaufforderungArtAufschub
End Get
Set
Me._zahlungsaufforderungArtAufschub = Value
End Set
End Property
Public Property ZahlungsaufforderungArtAbgaben() As String
Get
Return Me._zahlungsaufforderungArtAbgaben
End Get
Set
Me._zahlungsaufforderungArtAbgaben = Value
End Set
End Property
Public Property ZahlungsaufforderungArtSicherheit() As String
Get
Return Me._zahlungsaufforderungArtSicherheit
End Get
Set
Me._zahlungsaufforderungArtSicherheit = Value
End Set
End Property
Public Property KleinbetragKz() As String
Get
Return Me._kleinbetragKz
End Get
Set
Me._kleinbetragKz = Value
End Set
End Property
Public Property KleinbetragRechtsbehelf() As String
Get
Return Me._kleinbetragRechtsbehelf
End Get
Set
Me._kleinbetragRechtsbehelf = Value
End Set
End Property
Public Property GesamtschuldnerschaftKz() As String
Get
Return Me._gesamtschuldnerschaftKz
End Get
Set
Me._gesamtschuldnerschaftKz = Value
End Set
End Property
Public Property EingangszollstelleGeaendertKz() As String
Get
Return Me._eingangszollstelleGeaendertKz
End Get
Set
Me._eingangszollstelleGeaendertKz = Value
End Set
End Property
Public Property AVbewilligtKz() As String
Get
Return Me._aVbewilligtKz
End Get
Set
Me._aVbewilligtKz = Value
End Set
End Property
Public Property BenutzererstelltKz() As String
Get
Return Me._benutzererstelltKz
End Get
Set
Me._benutzererstelltKz = Value
End Set
End Property
Public Property EUStKz() As String
Get
Return Me._eUStKz
End Get
Set
Me._eUStKz = Value
End Set
End Property
Public Property UstID() As String
Get
Return Me._ustID
End Get
Set
Me._ustID = Value
End Set
End Property
Public Property Registriernummer() As String
Get
Return Me._registriernummer
End Get
Set
Me._registriernummer = Value
End Set
End Property
Public Property Registrierdatum() As Date
Get
Return Me._registrierdatum
End Get
Set
Me._registrierdatum = Value
End Set
End Property
Public Property NizzaRegistrierKz() As String
Get
Return Me._nizzaRegistrierKz
End Get
Set
Me._nizzaRegistrierKz = Value
End Set
End Property
Public Property NizzaRegistrierKzSicherheit() As String
Get
Return Me._nizzaRegistrierKzSicherheit
End Get
Set
Me._nizzaRegistrierKzSicherheit = Value
End Set
End Property
Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp)
Get
Return Me._abgabenNachArt
End Get
Set
Me._abgabenNachArt = Value
End Set
End Property
Public Property Gesamtsicherheitssumme() As Decimal
Get
Return Me._gesamtsicherheitssumme
End Get
Set
Me._gesamtsicherheitssumme = Value
End Set
End Property
Public Property ErrechneteSicherheitsSumme() As Decimal
Get
Return Me._errechneteSicherheitsSumme
End Get
Set
Me._errechneteSicherheitsSumme = Value
End Set
End Property
Public Property UnbarSicherheitsbetraege() As Decimal
Get
Return Me._unbarSicherheitsbetraege
End Get
Set
Me._unbarSicherheitsbetraege = Value
End Set
End Property
Public Property BarSicherheitsbetraege() As Decimal
Get
Return Me._barSicherheitsbetraege
End Get
Set
Me._barSicherheitsbetraege = Value
End Set
End Property
Public Property FreizugebenSicherheit() As Decimal
Get
Return Me._freizugebenSicherheit
End Get
Set
Me._freizugebenSicherheit = Value
End Set
End Property
Public Property AuszuzahlenSicherheit() As Decimal
Get
Return Me._auszuzahlenSicherheit
End Get
Set
Me._auszuzahlenSicherheit = Value
End Set
End Property
Public Property EinbehaltenSicherheit() As Decimal
Get
Return Me._einbehaltenSicherheit
End Get
Set
Me._einbehaltenSicherheit = Value
End Set
End Property
Public Property SicherheitsleistungForm() As String
Get
Return Me._sicherheitsleistungForm
End Get
Set
Me._sicherheitsleistungForm = Value
End Set
End Property
Public Property SicherheitsleistungsVerzicht() As String
Get
Return Me._sicherheitsleistungsVerzicht
End Get
Set
Me._sicherheitsleistungsVerzicht = Value
End Set
End Property
Public Property AuszahlungsArt() As String
Get
Return Me._auszahlungsArt
End Get
Set
Me._auszahlungsArt = Value
End Set
End Property
Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp)
Get
Return Me._unbareSicherheiten
End Get
Set
Me._unbareSicherheiten = Value
End Set
End Property
Public Property BescheidendeDienststelleNr() As String
Get
Return Me._bescheidendeDienststelleNr
End Get
Set
Me._bescheidendeDienststelleNr = Value
End Set
End Property
Public Property BescheidendeDienststelleName() As String
Get
Return Me._bescheidendeDienststelleName
End Get
Set
Me._bescheidendeDienststelleName = Value
End Set
End Property
Public Property BescheidendeDienststelleStrasseHausNr() As String
Get
Return Me._bescheidendeDienststelleStrasseHausNr
End Get
Set
Me._bescheidendeDienststelleStrasseHausNr = Value
End Set
End Property
Public Property BescheidendeDienststelleOrtS() As String
Get
Return Me._bescheidendeDienststelleOrtS
End Get
Set
Me._bescheidendeDienststelleOrtS = Value
End Set
End Property
Public Property BescheidendeDienststellePLZS() As String
Get
Return Me._bescheidendeDienststellePLZS
End Get
Set
Me._bescheidendeDienststellePLZS = Value
End Set
End Property
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
Public Property BescheidendeDienststelleTelefonNr() As String
Get
Return Me._bescheidendeDienststelleTelefonNr
End Get
Set
Me._bescheidendeDienststelleTelefonNr = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamt() As String
Get
Return Me._rechtsbehelfHauptzollamt
End Get
Set
Me._rechtsbehelfHauptzollamt = Value
End Set
End Property
Public Property RechtsbehelfHZAEmailAdresse() As String
Get
Return Me._rechtsbehelfHZAEmailAdresse
End Get
Set
Me._rechtsbehelfHZAEmailAdresse = Value
End Set
End Property
Public Property RechtsbehelfHZADEmailAdresse() As String
Get
Return Me._rechtsbehelfHZADEmailAdresse
End Get
Set
Me._rechtsbehelfHZADEmailAdresse = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtStrHausNr() As String
Get
Return Me._rechtsbehelfHauptzollamtStrHausNr
End Get
Set
Me._rechtsbehelfHauptzollamtStrHausNr = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtPLZS() As String
Get
Return Me._rechtsbehelfHauptzollamtPLZS
End Get
Set
Me._rechtsbehelfHauptzollamtPLZS = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtOrtS() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtS
End Get
Set
Me._rechtsbehelfHauptzollamtOrtS = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtOrtsteil() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtsteil
End Get
Set
Me._rechtsbehelfHauptzollamtOrtsteil = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtPostfach() As String
Get
Return Me._rechtsbehelfHauptzollamtPostfach
End Get
Set
Me._rechtsbehelfHauptzollamtPostfach = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtPLZP() As String
Get
Return Me._rechtsbehelfHauptzollamtPLZP
End Get
Set
Me._rechtsbehelfHauptzollamtPLZP = Value
End Set
End Property
Public Property RechtsbehelfHauptzollamtOrtP() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtP
End Get
Set
Me._rechtsbehelfHauptzollamtOrtP = Value
End Set
End Property
Public Property Zollzahlstelle() As String
Get
Return Me._zollzahlstelle
End Get
Set
Me._zollzahlstelle = Value
End Set
End Property
Public Property ZollzahlstelleKreditinstitut() As String
Get
Return Me._zollzahlstelleKreditinstitut
End Get
Set
Me._zollzahlstelleKreditinstitut = Value
End Set
End Property
Public Property ZollzahlstelleStrasseHausNr() As String
Get
Return Me._zollzahlstelleStrasseHausNr
End Get
Set
Me._zollzahlstelleStrasseHausNr = Value
End Set
End Property
Public Property ZollzahlstellePLZS() As String
Get
Return Me._zollzahlstellePLZS
End Get
Set
Me._zollzahlstellePLZS = Value
End Set
End Property
Public Property ZollzahlstelleOrtS() As String
Get
Return Me._zollzahlstelleOrtS
End Get
Set
Me._zollzahlstelleOrtS = Value
End Set
End Property
Public Property ZollzahlstellePostfach() As String
Get
Return Me._zollzahlstellePostfach
End Get
Set
Me._zollzahlstellePostfach = Value
End Set
End Property
Public Property ZollzahlstellePLZP() As String
Get
Return Me._zollzahlstellePLZP
End Get
Set
Me._zollzahlstellePLZP = Value
End Set
End Property
Public Property ZollzahlstelleOrtP() As String
Get
Return Me._zollzahlstelleOrtP
End Get
Set
Me._zollzahlstelleOrtP = Value
End Set
End Property
Public Property ZollzahlstelleIBAN() As String
Get
Return Me._zollzahlstelleIBAN
End Get
Set
Me._zollzahlstelleIBAN = Value
End Set
End Property
Public Property ZollzahlstelleBIC() As String
Get
Return Me._zollzahlstelleBIC
End Get
Set
Me._zollzahlstelleBIC = Value
End Set
End Property
Public Property AnmelderEORI() As String
Get
Return Me._anmelderEORI
End Get
Set
Me._anmelderEORI = Value
End Set
End Property
Public Property AnmelderNLNR() As String
Get
Return Me._anmelderNLNR
End Get
Set
Me._anmelderNLNR = Value
End Set
End Property
Public Property VorsteuerabzugKz() As String
Get
Return Me._vorsteuerabzugKz
End Get
Set
Me._vorsteuerabzugKz = Value
End Set
End Property
Public Property AnmelderName() As String
Get
Return Me._anmelderName
End Get
Set
Me._anmelderName = Value
End Set
End Property
Public Property AnmelderNationalitaet() As String
Get
Return Me._anmelderNationalitaet
End Get
Set
Me._anmelderNationalitaet = Value
End Set
End Property
Public Property AnmelderStrasseHausNr() As String
Get
Return Me._anmelderStrasseHausNr
End Get
Set
Me._anmelderStrasseHausNr = Value
End Set
End Property
Public Property AnmelderPLZS() As String
Get
Return Me._anmelderPLZS
End Get
Set
Me._anmelderPLZS = Value
End Set
End Property
Public Property AnmelderOrtS() As String
Get
Return Me._anmelderOrtS
End Get
Set
Me._anmelderOrtS = Value
End Set
End Property
Public Property AnmelderOrtsteil() As String
Get
Return Me._anmelderOrtsteil
End Get
Set
Me._anmelderOrtsteil = Value
End Set
End Property
Public Property VertreterEORI() As String
Get
Return Me._vertreterEORI
End Get
Set
Me._vertreterEORI = Value
End Set
End Property
Public Property VertreterNLNR() As String
Get
Return Me._vertreterNLNR
End Get
Set
Me._vertreterNLNR = Value
End Set
End Property
Public Property VertreterName() As String
Get
Return Me._vertreterName
End Get
Set
Me._vertreterName = Value
End Set
End Property
Public Property VertreterNationalitaet() As String
Get
Return Me._vertreterNationalitaet
End Get
Set
Me._vertreterNationalitaet = Value
End Set
End Property
Public Property VertreterStrasseHausNr() As String
Get
Return Me._vertreterStrasseHausNr
End Get
Set
Me._vertreterStrasseHausNr = Value
End Set
End Property
Public Property VertreterPLZS() As String
Get
Return Me._vertreterPLZS
End Get
Set
Me._vertreterPLZS = Value
End Set
End Property
Public Property VertreterOrtS() As String
Get
Return Me._vertreterOrtS
End Get
Set
Me._vertreterOrtS = Value
End Set
End Property
Public Property VertreterOrtsteil() As String
Get
Return Me._vertreterOrtsteil
End Get
Set
Me._vertreterOrtsteil = Value
End Set
End Property
Public Property FRechnungEORI() As String
Get
Return Me._fRechnungEORI
End Get
Set
Me._fRechnungEORI = Value
End Set
End Property
Public Property FRechnungNLNR() As String
Get
Return Me._fRechnungNLNR
End Get
Set
Me._fRechnungNLNR = Value
End Set
End Property
Public Property FRechnungNationalitaet() As String
Get
Return Me._fRechnungNationalitaet
End Get
Set
Me._fRechnungNationalitaet = Value
End Set
End Property
Public Property FRechnungName() As String
Get
Return Me._fRechnungName
End Get
Set
Me._fRechnungName = Value
End Set
End Property
Public Property FRechnungStrasseHausNr() As String
Get
Return Me._fRechnungStrasseHausNr
End Get
Set
Me._fRechnungStrasseHausNr = Value
End Set
End Property
Public Property FRechnungPLZS() As String
Get
Return Me._fRechnungPLZS
End Get
Set
Me._fRechnungPLZS = Value
End Set
End Property
Public Property FRechnungOrtS() As String
Get
Return Me._fRechnungOrtS
End Get
Set
Me._fRechnungOrtS = Value
End Set
End Property
Public Property FRechnungOrtsteil() As String
Get
Return Me._fRechnungOrtsteil
End Get
Set
Me._fRechnungOrtsteil = Value
End Set
End Property
Public Property LagerhalterEORI() As String
Get
Return Me._lagerhalterEORI
End Get
Set
Me._lagerhalterEORI = Value
End Set
End Property
Public Property LagerhalterNLNR() As String
Get
Return Me._lagerhalterNLNR
End Get
Set
Me._lagerhalterNLNR = Value
End Set
End Property
Public Property LagerhalterName() As String
Get
Return Me._lagerhalterName
End Get
Set
Me._lagerhalterName = Value
End Set
End Property
Public Property LagerhalterStrasseHausNr() As String
Get
Return Me._lagerhalterStrasseHausNr
End Get
Set
Me._lagerhalterStrasseHausNr = Value
End Set
End Property
Public Property LagerhalterNationalitaet() As String
Get
Return Me._lagerhalterNationalitaet
End Get
Set
Me._lagerhalterNationalitaet = Value
End Set
End Property
Public Property LagerhalterPLZ() As String
Get
Return Me._lagerhalterPLZ
End Get
Set
Me._lagerhalterPLZ = Value
End Set
End Property
Public Property LagerhalterOrt() As String
Get
Return Me._lagerhalterOrt
End Get
Set
Me._lagerhalterOrt = Value
End Set
End Property
Public Property LagerhalterOrtsteil() As String
Get
Return Me._lagerhalterOrtsteil
End Get
Set
Me._lagerhalterOrtsteil = Value
End Set
End Property