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