Files
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_012.Designer.vb
2024-10-13 00:43:45 +02:00

7377 lines
272 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net47","NameSpace":"Abgabenbescheid_012","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"Miscellaneous":{}}
'' </auto-generated>
'' ------------------------------------------------------------------------------
#Disable Warning
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Runtime.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Namespace Abgabenbescheid_012
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlRoot("Abgabenbescheid", [Namespace]:="", IsNullable:=False)>
Partial Public Class AbgabenbescheidEinfuhrTAXTyp
Inherits DatenaustauschFreierVerkehrTyp
#Region "Private fields"
Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp
Get
Return Me._einzelAbgabenbescheid
End Get
Set
Me._einzelAbgabenbescheid = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AbgabenbescheidEinfuhrTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AbgabenbescheidEinfuhrTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AbgabenbescheidEinfuhrTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenbescheidEinfuhrTAXTyp
Return CType(SerializerXml.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AbgabenbescheidEinfuhrTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenbescheidEinfuhrTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EinzelAbgabenbescheidTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp
Private _kopfDaten As KopfDatenEinfuhrbescheidTyp
Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)()
Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
<XmlElement("Position", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp)
Get
Return Me._position
End Get
Set
Me._position = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EinzelAbgabenbescheidTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EinzelAbgabenbescheidTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EinzelAbgabenbescheidTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbgabenbescheidTyp
Return CType(SerializerXml.Deserialize(s), EinzelAbgabenbescheidTyp)
End Function
#End Region
''' <summary>
''' Serializes current EinzelAbgabenbescheidTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EinzelAbgabenbescheidTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelAbgabenbescheidTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ObjektIdentifizierungTAXTyp
#Region "Private fields"
Private _objektName As String
Private _objektAlias As String
Private _eDIFACTNachrichtenNr As String
Private _zeitpunktEingang As Date
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektAlias() As String
Get
Return Me._objektAlias
End Get
Set
Me._objektAlias = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me._eDIFACTNachrichtenNr
End Get
Set
Me._eDIFACTNachrichtenNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZeitpunktEingang() As Date
Get
Return Me._zeitpunktEingang
End Get
Set
Me._zeitpunktEingang = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ObjektIdentifizierungTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ObjektIdentifizierungTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTAXTyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current ObjektIdentifizierungTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EinzelAbgabenSatzTAXTyp
#Region "Private fields"
Private _abgabensatz As Decimal
Private _bemessungsmassstab As String
Private _gehaltsangabenArt As String
Private _gehaltsangabenGradProzent As Decimal
Private _bemessungsgrundlageKz As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Abgabensatz() As Decimal
Get
Return Me._abgabensatz
End Get
Set
Me._abgabensatz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Bemessungsmassstab() As String
Get
Return Me._bemessungsmassstab
End Get
Set
Me._bemessungsmassstab = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GehaltsangabenArt() As String
Get
Return Me._gehaltsangabenArt
End Get
Set
Me._gehaltsangabenArt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GehaltsangabenGradProzent() As Decimal
Get
Return Me._gehaltsangabenGradProzent
End Get
Set
Me._gehaltsangabenGradProzent = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BemessungsgrundlageKz() As String
Get
Return Me._bemessungsgrundlageKz
End Get
Set
Me._bemessungsgrundlageKz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EinzelAbgabenSatzTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EinzelAbgabenSatzTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EinzelAbgabenSatzTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbgabenSatzTAXTyp
Return CType(SerializerXml.Deserialize(s), EinzelAbgabenSatzTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current EinzelAbgabenSatzTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EinzelAbgabenSatzTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelAbgabenSatzTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AbgabengruppeTAXTyp
#Region "Private fields"
Private _abgabengruppe As String
Private _abgabeArt As String
Private _berechnungshinweis As String
Private _errechneterAbgabenbetrag As Decimal
Private _abgabenbetrag As Decimal
Private _abgabensatzKontNr As String
Private _verbrauchssteuerCode As String
Private _verbrauchssteuerMenge As Decimal
Private _verbrauchssteuerMasseinheit As String
Private _verbrauchssteuerQualifikator As String
Private _verbrauchssteuerGradProzent As Decimal
Private _verbrauchssteuerWert As Decimal
Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Abgabengruppe() As String
Get
Return Me._abgabengruppe
End Get
Set
Me._abgabengruppe = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabeArt() As String
Get
Return Me._abgabeArt
End Get
Set
Me._abgabeArt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Berechnungshinweis() As String
Get
Return Me._berechnungshinweis
End Get
Set
Me._berechnungshinweis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErrechneterAbgabenbetrag() As Decimal
Get
Return Me._errechneterAbgabenbetrag
End Get
Set
Me._errechneterAbgabenbetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Abgabenbetrag() As Decimal
Get
Return Me._abgabenbetrag
End Get
Set
Me._abgabenbetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabensatzKontNr() As String
Get
Return Me._abgabensatzKontNr
End Get
Set
Me._abgabensatzKontNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerCode() As String
Get
Return Me._verbrauchssteuerCode
End Get
Set
Me._verbrauchssteuerCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerMenge() As Decimal
Get
Return Me._verbrauchssteuerMenge
End Get
Set
Me._verbrauchssteuerMenge = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerMasseinheit() As String
Get
Return Me._verbrauchssteuerMasseinheit
End Get
Set
Me._verbrauchssteuerMasseinheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerQualifikator() As String
Get
Return Me._verbrauchssteuerQualifikator
End Get
Set
Me._verbrauchssteuerQualifikator = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerGradProzent() As Decimal
Get
Return Me._verbrauchssteuerGradProzent
End Get
Set
Me._verbrauchssteuerGradProzent = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerbrauchssteuerWert() As Decimal
Get
Return Me._verbrauchssteuerWert
End Get
Set
Me._verbrauchssteuerWert = Value
End Set
End Property
<XmlElement("EinzelAbgabenSatz", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp)
Get
Return Me._einzelAbgabenSatz
End Get
Set
Me._einzelAbgabenSatz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AbgabengruppeTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AbgabengruppeTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AbgabengruppeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabengruppeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabengruppeTAXTyp
Return CType(SerializerXml.Deserialize(s), AbgabengruppeTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current AbgabengruppeTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AbgabengruppeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabengruppeTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabengruppeTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PauschalierungTAXTyp
#Region "Private fields"
Private _warenkategorie As String
Private _kzPauschalierterAbgabensatz As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Warenkategorie() As String
Get
Return Me._warenkategorie
End Get
Set
Me._warenkategorie = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KzPauschalierterAbgabensatz() As String
Get
Return Me._kzPauschalierterAbgabensatz
End Get
Set
Me._kzPauschalierterAbgabensatz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PauschalierungTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PauschalierungTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PauschalierungTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PauschalierungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PauschalierungTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PauschalierungTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PauschalierungTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PauschalierungTAXTyp
Return CType(SerializerXml.Deserialize(s), PauschalierungTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current PauschalierungTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PauschalierungTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PauschalierungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PauschalierungTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PauschalierungTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AbweichendeFestsetzungTAXTyp
#Region "Private fields"
Private _feldname As String
Private _qualifikator As String
Private _qualifikatorInhalt As String
Private _artAbweichendeFestsetzung As String
Private _festgesetztVon As String
Private _festgesetztAuf As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Feldname() As String
Get
Return Me._feldname
End Get
Set
Me._feldname = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Qualifikator() As String
Get
Return Me._qualifikator
End Get
Set
Me._qualifikator = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property QualifikatorInhalt() As String
Get
Return Me._qualifikatorInhalt
End Get
Set
Me._qualifikatorInhalt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtAbweichendeFestsetzung() As String
Get
Return Me._artAbweichendeFestsetzung
End Get
Set
Me._artAbweichendeFestsetzung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FestgesetztVon() As String
Get
Return Me._festgesetztVon
End Get
Set
Me._festgesetztVon = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FestgesetztAuf() As String
Get
Return Me._festgesetztAuf
End Get
Set
Me._festgesetztAuf = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AbweichendeFestsetzungTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AbweichendeFestsetzungTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AbweichendeFestsetzungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbweichendeFestsetzungTAXTyp
Return CType(SerializerXml.Deserialize(s), AbweichendeFestsetzungTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current AbweichendeFestsetzungTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AbweichendeFestsetzungTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbweichendeFestsetzungTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KontingentAngerechnetWarenMengeTAXTyp
#Region "Private fields"
Private _menge As String
Private _masseinheit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Menge() As String
Get
Return Me._menge
End Get
Set
Me._menge = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Masseinheit() As String
Get
Return Me._masseinheit
End Get
Set
Me._masseinheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KontingentAngerechnetWarenMengeTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KontingentAngerechnetWarenMengeTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KontingentAngerechnetWarenMengeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KontingentAngerechnetWarenMengeTAXTyp
Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KontingentAngerechnetWarenMengeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KontingentAngerechnetWarenMengeTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KontingentAngerechnetTAXTyp
#Region "Private fields"
Private _kontNrAngerechnet As String
Private _zollwertAngerechnet As Decimal
Private _eUStKostenAngerechnet As Decimal
Private _beguenstMengeAngerechnet As Decimal
Private _masseinhBegMengeAng As String
Private _qualifBegMengeAng As String
Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KontNrAngerechnet() As String
Get
Return Me._kontNrAngerechnet
End Get
Set
Me._kontNrAngerechnet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollwertAngerechnet() As Decimal
Get
Return Me._zollwertAngerechnet
End Get
Set
Me._zollwertAngerechnet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EUStKostenAngerechnet() As Decimal
Get
Return Me._eUStKostenAngerechnet
End Get
Set
Me._eUStKostenAngerechnet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BeguenstMengeAngerechnet() As Decimal
Get
Return Me._beguenstMengeAngerechnet
End Get
Set
Me._beguenstMengeAngerechnet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MasseinhBegMengeAng() As String
Get
Return Me._masseinhBegMengeAng
End Get
Set
Me._masseinhBegMengeAng = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property QualifBegMengeAng() As String
Get
Return Me._qualifBegMengeAng
End Get
Set
Me._qualifBegMengeAng = Value
End Set
End Property
<XmlElement("WarenMenge", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp)
Get
Return Me._warenMenge
End Get
Set
Me._warenMenge = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KontingentAngerechnetTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KontingentAngerechnetTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KontingentAngerechnetTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KontingentAngerechnetTAXTyp
Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current KontingentAngerechnetTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KontingentAngerechnetTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KontingentAngerechnetTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class SonderfalleingabeTAXTyp
#Region "Private fields"
Private _sonderabgabenGruppe As String
Private _anwendungsart As String
Private _satzBetragFaktor As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SonderabgabenGruppe() As String
Get
Return Me._sonderabgabenGruppe
End Get
Set
Me._sonderabgabenGruppe = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Anwendungsart() As String
Get
Return Me._anwendungsart
End Get
Set
Me._anwendungsart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SatzBetragFaktor() As Decimal
Get
Return Me._satzBetragFaktor
End Get
Set
Me._satzBetragFaktor = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize SonderfalleingabeTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes SonderfalleingabeTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SonderfalleingabeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderfalleingabeTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SonderfalleingabeTAXTyp
Return CType(SerializerXml.Deserialize(s), SonderfalleingabeTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current SonderfalleingabeTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SonderfalleingabeTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderfalleingabeTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalleingabeTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EZAAVVeredelungserzeugnisTyp
#Region "Private fields"
Private _warenbezeichnung As String
Private _ausbeuteart As String
Private _ausbeutesatz As String
Private _kNCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Warenbezeichnung() As String
Get
Return Me._warenbezeichnung
End Get
Set
Me._warenbezeichnung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ausbeuteart() As String
Get
Return Me._ausbeuteart
End Get
Set
Me._ausbeuteart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ausbeutesatz() As String
Get
Return Me._ausbeutesatz
End Get
Set
Me._ausbeutesatz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KNCode() As String
Get
Return Me._kNCode
End Get
Set
Me._kNCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EZAAVVeredelungserzeugnisTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EZAAVVeredelungserzeugnisTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EZAAVVeredelungserzeugnisTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVVeredelungserzeugnisTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVVeredelungserzeugnisTyp
Return CType(SerializerXml.Deserialize(s), EZAAVVeredelungserzeugnisTyp)
End Function
#End Region
''' <summary>
''' Serializes current EZAAVVeredelungserzeugnisTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EZAAVVeredelungserzeugnisTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVVeredelungserzeugnisTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EZAAVAngabenPosTyp
#Region "Private fields"
Private _aVWirtschaftlicheVoraussetzungen As String
Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp)
Private _aVNaemlichkeitsmittel As String
Private _aVErlaeuterungNaemlichkeit As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AVWirtschaftlicheVoraussetzungen() As String
Get
Return Me._aVWirtschaftlicheVoraussetzungen
End Get
Set
Me._aVWirtschaftlicheVoraussetzungen = Value
End Set
End Property
<XmlElement("AVVeredelungserzeugnis", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp)
Get
Return Me._aVVeredelungserzeugnis
End Get
Set
Me._aVVeredelungserzeugnis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AVNaemlichkeitsmittel() As String
Get
Return Me._aVNaemlichkeitsmittel
End Get
Set
Me._aVNaemlichkeitsmittel = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AVErlaeuterungNaemlichkeit() As String
Get
Return Me._aVErlaeuterungNaemlichkeit
End Get
Set
Me._aVErlaeuterungNaemlichkeit = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EZAAVAngabenPosTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EZAAVAngabenPosTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EZAAVAngabenPosTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenPosTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenPosTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenPosTyp
Return CType(SerializerXml.Deserialize(s), EZAAVAngabenPosTyp)
End Function
#End Region
''' <summary>
''' Serializes current EZAAVAngabenPosTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EZAAVAngabenPosTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EZAAVAngabenPosTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenPosTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenPosTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AngemeldeteUnterlageTAXTyp
#Region "Private fields"
Private _unterlageArt As String
Private _unterlageBereich As String
Private _unterlageNr As String
Private _anerkennungKz As String
Private _abschreibungKz As String
Private _einbehaltenKz As String
Private _periodischeVorlageKz As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnterlageArt() As String
Get
Return Me._unterlageArt
End Get
Set
Me._unterlageArt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnterlageBereich() As String
Get
Return Me._unterlageBereich
End Get
Set
Me._unterlageBereich = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnterlageNr() As String
Get
Return Me._unterlageNr
End Get
Set
Me._unterlageNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnerkennungKz() As String
Get
Return Me._anerkennungKz
End Get
Set
Me._anerkennungKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbschreibungKz() As String
Get
Return Me._abschreibungKz
End Get
Set
Me._abschreibungKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinbehaltenKz() As String
Get
Return Me._einbehaltenKz
End Get
Set
Me._einbehaltenKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PeriodischeVorlageKz() As String
Get
Return Me._periodischeVorlageKz
End Get
Set
Me._periodischeVorlageKz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AngemeldeteUnterlageTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AngemeldeteUnterlageTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AngemeldeteUnterlageTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AngemeldeteUnterlageTAXTyp
Return CType(SerializerXml.Deserialize(s), AngemeldeteUnterlageTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current AngemeldeteUnterlageTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AngemeldeteUnterlageTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AngemeldeteUnterlageTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KursAbzugHinzuTAXTyp
#Region "Private fields"
Private _artAbHinzu As String
Private _angewandterKurs As Decimal
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtAbHinzu() As String
Get
Return Me._artAbHinzu
End Get
Set
Me._artAbHinzu = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AngewandterKurs() As Decimal
Get
Return Me._angewandterKurs
End Get
Set
Me._angewandterKurs = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KursAbzugHinzuTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KursAbzugHinzuTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KursAbzugHinzuTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KursAbzugHinzuTAXTyp
Return CType(SerializerXml.Deserialize(s), KursAbzugHinzuTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current KursAbzugHinzuTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KursAbzugHinzuTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KursAbzugHinzuTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PositionAbgabenbescheidEinfuhrTyp
#Region "Private fields"
Private _positionsNr As String
Private _erledigungKz As String
Private _warenNummerEZT As String
Private _warenNummerZusatzCode As List(Of String)
Private _warenBezeichnung As String
Private _beschauMitteilung As String
Private _erledigungMitteilung As String
Private _ablehnungAenderung As String
Private _weitererNachweis As String
Private _gewaehrteBeguenstigung As String
Private _anordnungKz As String
Private _eUStWert As Decimal
Private _kostenFuerEUSt As Decimal
Private _zollWert As Decimal
Private _annahmeAenderung As String
Private _sicherheitsLeistungBetrag As Decimal
Private _registrierNrvZAAZ As String
Private _veralteteWeitereRegistrierNrvZAAZ As String
Private _positionsNrInvZAAZ As String
Private _annahmeKz As String
Private _annahmeDatum As Date
Private _ueberlassungDatum As Date
Private _lagerfrist As Date
Private _wiederAusfuhrFrist As Date
Private _fristWeitererNachweis As Date
Private _befund As String
Private _dV1AbweichendFestgesetztKz As String
Private _sonderfalleingabeKz As String
Private _angewandterKursNettopreis As Decimal
Private _angewandterKursMittelbZahlungen As Decimal
Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp)
Private _luftFrachtGesamtProzentsatz As String
Private _luftFrachtGesamtAngewandterKurs As Decimal
Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp)
Private _eZAAVAngabenPos As EZAAVAngabenPosTyp
Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp)
Private _kontNrAngewandt As List(Of String)
Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp)
Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp)
Private _pauschalierung As PauschalierungTAXTyp
Private _abgaben As List(Of AbgabengruppeTAXTyp)
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._abgaben = New List(Of AbgabengruppeTAXTyp)()
Me._pauschalierung = New PauschalierungTAXTyp()
Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)()
Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)()
Me._kontNrAngewandt = New List(Of String)()
Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)()
Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp()
Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)()
Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)()
Me._warenNummerZusatzCode = New List(Of String)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property PositionsNr() As String
Get
Return Me._positionsNr
End Get
Set
Me._positionsNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErledigungKz() As String
Get
Return Me._erledigungKz
End Get
Set
Me._erledigungKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerEZT() As String
Get
Return Me._warenNummerEZT
End Get
Set
Me._warenNummerEZT = Value
End Set
End Property
<XmlElement("WarenNummerZusatzCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerZusatzCode() As List(Of String)
Get
Return Me._warenNummerZusatzCode
End Get
Set
Me._warenNummerZusatzCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set
Me._warenBezeichnung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BeschauMitteilung() As String
Get
Return Me._beschauMitteilung
End Get
Set
Me._beschauMitteilung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErledigungMitteilung() As String
Get
Return Me._erledigungMitteilung
End Get
Set
Me._erledigungMitteilung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AblehnungAenderung() As String
Get
Return Me._ablehnungAenderung
End Get
Set
Me._ablehnungAenderung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WeitererNachweis() As String
Get
Return Me._weitererNachweis
End Get
Set
Me._weitererNachweis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GewaehrteBeguenstigung() As String
Get
Return Me._gewaehrteBeguenstigung
End Get
Set
Me._gewaehrteBeguenstigung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnordnungKz() As String
Get
Return Me._anordnungKz
End Get
Set
Me._anordnungKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EUStWert() As Decimal
Get
Return Me._eUStWert
End Get
Set
Me._eUStWert = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KostenFuerEUSt() As Decimal
Get
Return Me._kostenFuerEUSt
End Get
Set
Me._kostenFuerEUSt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollWert() As Decimal
Get
Return Me._zollWert
End Get
Set
Me._zollWert = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnnahmeAenderung() As String
Get
Return Me._annahmeAenderung
End Get
Set
Me._annahmeAenderung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SicherheitsLeistungBetrag() As Decimal
Get
Return Me._sicherheitsLeistungBetrag
End Get
Set
Me._sicherheitsLeistungBetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RegistrierNrvZAAZ() As String
Get
Return Me._registrierNrvZAAZ
End Get
Set
Me._registrierNrvZAAZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeralteteWeitereRegistrierNrvZAAZ() As String
Get
Return Me._veralteteWeitereRegistrierNrvZAAZ
End Get
Set
Me._veralteteWeitereRegistrierNrvZAAZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PositionsNrInvZAAZ() As String
Get
Return Me._positionsNrInvZAAZ
End Get
Set
Me._positionsNrInvZAAZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnnahmeKz() As String
Get
Return Me._annahmeKz
End Get
Set
Me._annahmeKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property AnnahmeDatum() As Date
Get
Return Me._annahmeDatum
End Get
Set
Me._annahmeDatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property UeberlassungDatum() As Date
Get
Return Me._ueberlassungDatum
End Get
Set
Me._ueberlassungDatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property Lagerfrist() As Date
Get
Return Me._lagerfrist
End Get
Set
Me._lagerfrist = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property WiederAusfuhrFrist() As Date
Get
Return Me._wiederAusfuhrFrist
End Get
Set
Me._wiederAusfuhrFrist = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property FristWeitererNachweis() As Date
Get
Return Me._fristWeitererNachweis
End Get
Set
Me._fristWeitererNachweis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Befund() As String
Get
Return Me._befund
End Get
Set
Me._befund = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DV1AbweichendFestgesetztKz() As String
Get
Return Me._dV1AbweichendFestgesetztKz
End Get
Set
Me._dV1AbweichendFestgesetztKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SonderfalleingabeKz() As String
Get
Return Me._sonderfalleingabeKz
End Get
Set
Me._sonderfalleingabeKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AngewandterKursNettopreis() As Decimal
Get
Return Me._angewandterKursNettopreis
End Get
Set
Me._angewandterKursNettopreis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AngewandterKursMittelbZahlungen() As Decimal
Get
Return Me._angewandterKursMittelbZahlungen
End Get
Set
Me._angewandterKursMittelbZahlungen = Value
End Set
End Property
<XmlElement("AbzugHinzurechnungen", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp)
Get
Return Me._abzugHinzurechnungen
End Get
Set
Me._abzugHinzurechnungen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property LuftFrachtGesamtProzentsatz() As String
Get
Return Me._luftFrachtGesamtProzentsatz
End Get
Set
Me._luftFrachtGesamtProzentsatz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LuftFrachtGesamtAngewandterKurs() As Decimal
Get
Return Me._luftFrachtGesamtAngewandterKurs
End Get
Set
Me._luftFrachtGesamtAngewandterKurs = Value
End Set
End Property
<XmlElement("AngemeldeteUnterlage", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp)
Get
Return Me._angemeldeteUnterlage
End Get
Set
Me._angemeldeteUnterlage = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp
Get
Return Me._eZAAVAngabenPos
End Get
Set
Me._eZAAVAngabenPos = Value
End Set
End Property
<XmlElement("SonderabgabenGruppe", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp)
Get
Return Me._sonderabgabenGruppe
End Get
Set
Me._sonderabgabenGruppe = Value
End Set
End Property
<XmlElement("KontNrAngewandt", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KontNrAngewandt() As List(Of String)
Get
Return Me._kontNrAngewandt
End Get
Set
Me._kontNrAngewandt = Value
End Set
End Property
<XmlElement("KontingentAngerechnet", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp)
Get
Return Me._kontingentAngerechnet
End Get
Set
Me._kontingentAngerechnet = Value
End Set
End Property
<XmlElement("AbweichendeFestsetzung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp)
Get
Return Me._abweichendeFestsetzung
End Get
Set
Me._abweichendeFestsetzung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Pauschalierung() As PauschalierungTAXTyp
Get
Return Me._pauschalierung
End Get
Set
Me._pauschalierung = Value
End Set
End Property
<XmlElement("Abgaben", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Abgaben() As List(Of AbgabengruppeTAXTyp)
Get
Return Me._abgaben
End Get
Set
Me._abgaben = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PositionAbgabenbescheidEinfuhrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PositionAbgabenbescheidEinfuhrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PositionAbgabenbescheidEinfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionAbgabenbescheidEinfuhrTyp
Return CType(SerializerXml.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp)
End Function
#End Region
''' <summary>
''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PositionAbgabenbescheidEinfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionAbgabenbescheidEinfuhrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataType
#Region "Private fields"
Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
End Sub
<XmlArray(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified),
XmlArrayItem("Data", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=False)>
Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Get
Return Me._additionalDetails
End Get
Set
Me._additionalDetails = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataAdditionalDetailsDataType
#Region "Private fields"
Private _key As String
Private _value As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Value() As String
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp
#Region "Private fields"
Private _strasse As String
Private _land As String
Private _pLZ As String
Private _ort As String
Private _ortsteil As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Land() As String
Get
Return Me._land
End Get
Set
Me._land = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EZAAVAngabenKopfWeitererVeredelungsortTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EZAAVAngabenKopfWeitererVeredelungsortTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EZAAVAngabenKopfWeitererVeredelungsortTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp
Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp)
End Function
#End Region
''' <summary>
''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EZAAVAngabenKopfWeitererVeredelungsortTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EZAAVAngabenKopfTyp
#Region "Private fields"
Private _kzBemessungEinfuhrabgabenbetrag As String
Private _kzAbrechnung As String
Private _kzVereinfBefoerderung As String
Private _zusaetzlicheAngaben As String
Private _kzVerzichtSicherheit As String
Private _erlaeuterungenZurSicherheit As String
Private _betragDerSicherheit As Decimal
Private _deutschesUeHZA As String
Private _einzelheitenGeplantVeredelungsvorgang As String
Private _hauptbuchhaltungStrasse As String
Private _hauptbuchhaltungLand As String
Private _hauptbuchhaltungPLZ As String
Private _hauptbuchhaltungOrt As String
Private _hauptbuchhaltungOrtsteil As String
Private _veredelungStrasse As String
Private _veredelungLand As String
Private _veredelungPLZ As String
Private _veredelungOrt As String
Private _veredelungOrtsteil As String
Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
Private _zollstelleErledigung As List(Of String)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._zollstelleErledigung = New List(Of String)()
Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KzBemessungEinfuhrabgabenbetrag() As String
Get
Return Me._kzBemessungEinfuhrabgabenbetrag
End Get
Set
Me._kzBemessungEinfuhrabgabenbetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KzAbrechnung() As String
Get
Return Me._kzAbrechnung
End Get
Set
Me._kzAbrechnung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KzVereinfBefoerderung() As String
Get
Return Me._kzVereinfBefoerderung
End Get
Set
Me._kzVereinfBefoerderung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZusaetzlicheAngaben() As String
Get
Return Me._zusaetzlicheAngaben
End Get
Set
Me._zusaetzlicheAngaben = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KzVerzichtSicherheit() As String
Get
Return Me._kzVerzichtSicherheit
End Get
Set
Me._kzVerzichtSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErlaeuterungenZurSicherheit() As String
Get
Return Me._erlaeuterungenZurSicherheit
End Get
Set
Me._erlaeuterungenZurSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BetragDerSicherheit() As Decimal
Get
Return Me._betragDerSicherheit
End Get
Set
Me._betragDerSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DeutschesUeHZA() As String
Get
Return Me._deutschesUeHZA
End Get
Set
Me._deutschesUeHZA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelheitenGeplantVeredelungsvorgang() As String
Get
Return Me._einzelheitenGeplantVeredelungsvorgang
End Get
Set
Me._einzelheitenGeplantVeredelungsvorgang = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HauptbuchhaltungStrasse() As String
Get
Return Me._hauptbuchhaltungStrasse
End Get
Set
Me._hauptbuchhaltungStrasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HauptbuchhaltungLand() As String
Get
Return Me._hauptbuchhaltungLand
End Get
Set
Me._hauptbuchhaltungLand = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HauptbuchhaltungPLZ() As String
Get
Return Me._hauptbuchhaltungPLZ
End Get
Set
Me._hauptbuchhaltungPLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HauptbuchhaltungOrt() As String
Get
Return Me._hauptbuchhaltungOrt
End Get
Set
Me._hauptbuchhaltungOrt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HauptbuchhaltungOrtsteil() As String
Get
Return Me._hauptbuchhaltungOrtsteil
End Get
Set
Me._hauptbuchhaltungOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeredelungStrasse() As String
Get
Return Me._veredelungStrasse
End Get
Set
Me._veredelungStrasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeredelungLand() As String
Get
Return Me._veredelungLand
End Get
Set
Me._veredelungLand = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeredelungPLZ() As String
Get
Return Me._veredelungPLZ
End Get
Set
Me._veredelungPLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeredelungOrt() As String
Get
Return Me._veredelungOrt
End Get
Set
Me._veredelungOrt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeredelungOrtsteil() As String
Get
Return Me._veredelungOrtsteil
End Get
Set
Me._veredelungOrtsteil = Value
End Set
End Property
<XmlElement("WeitererVeredelungsort", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
Get
Return Me._weitererVeredelungsort
End Get
Set
Me._weitererVeredelungsort = Value
End Set
End Property
<XmlElement("ZollstelleErledigung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollstelleErledigung() As List(Of String)
Get
Return Me._zollstelleErledigung
End Get
Set
Me._zollstelleErledigung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EZAAVAngabenKopfTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EZAAVAngabenKopfTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EZAAVAngabenKopfTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EZAAVAngabenKopfTyp
Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfTyp)
End Function
#End Region
''' <summary>
''' Serializes current EZAAVAngabenKopfTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EZAAVAngabenKopfTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EZAAVAngabenKopfTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EZAAVAngabenKopfTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EZAAVAngabenKopfTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class SicherheitTAXTyp
#Region "Private fields"
Private _einzelbetragUnbareSicherheit As Decimal
Private _artUnbareSicherheitsleistung As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelbetragUnbareSicherheit() As Decimal
Get
Return Me._einzelbetragUnbareSicherheit
End Get
Set
Me._einzelbetragUnbareSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtUnbareSicherheitsleistung() As String
Get
Return Me._artUnbareSicherheitsleistung
End Get
Set
Me._artUnbareSicherheitsleistung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize SicherheitTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes SicherheitTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SicherheitTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SicherheitTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SicherheitTAXTyp
Return CType(SerializerXml.Deserialize(s), SicherheitTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current SicherheitTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an SicherheitTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SicherheitTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SicherheitTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SicherheitTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AbgabenNachArtKopfTAXTyp
#Region "Private fields"
Private _abgabeArt As String
Private _abgabenbetrag As Decimal
Private _zahlungsart As String
Private _aufschubnehmerName As String
Private _aufschubnehmerTIN As String
Private _artAufschubAntrag As String
Private _kennBuchstabenAufschub As String
Private _aufschubkontoNr As String
Private _faelligkeit As Date
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabeArt() As String
Get
Return Me._abgabeArt
End Get
Set
Me._abgabeArt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Abgabenbetrag() As Decimal
Get
Return Me._abgabenbetrag
End Get
Set
Me._abgabenbetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Zahlungsart() As String
Get
Return Me._zahlungsart
End Get
Set
Me._zahlungsart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AufschubnehmerName() As String
Get
Return Me._aufschubnehmerName
End Get
Set
Me._aufschubnehmerName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AufschubnehmerTIN() As String
Get
Return Me._aufschubnehmerTIN
End Get
Set
Me._aufschubnehmerTIN = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtAufschubAntrag() As String
Get
Return Me._artAufschubAntrag
End Get
Set
Me._artAufschubAntrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KennBuchstabenAufschub() As String
Get
Return Me._kennBuchstabenAufschub
End Get
Set
Me._kennBuchstabenAufschub = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AufschubkontoNr() As String
Get
Return Me._aufschubkontoNr
End Get
Set
Me._aufschubkontoNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property Faelligkeit() As Date
Get
Return Me._faelligkeit
End Get
Set
Me._faelligkeit = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AbgabenNachArtKopfTAXTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AbgabenNachArtKopfTAXTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AbgabenNachArtKopfTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenNachArtKopfTAXTyp
Return CType(SerializerXml.Deserialize(s), AbgabenNachArtKopfTAXTyp)
End Function
#End Region
''' <summary>
''' Serializes current AbgabenNachArtKopfTAXTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AbgabenNachArtKopfTAXTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenNachArtKopfTAXTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KopfDatenEinfuhrbescheidTyp
#Region "Private fields"
Private _artAnmeldung As String
Private _erledigungKopfKz As String
Private _waehrung As String
Private _gesamtabgabenBetrag As Decimal
Private _abgabenbetragZuZahlen As Decimal
Private _abgabenbetragZuErstatten As Decimal
Private _vertretungsverhaeltnis As String
Private _zahlungsaufforderungArtAufschub As String
Private _zahlungsaufforderungArtAbgaben As String
Private _zahlungsaufforderungArtSicherheit As String
Private _kleinbetragKz As String
Private _kleinbetragRechtsbehelf As String
Private _gesamtschuldnerschaftKz As String
Private _eingangszollstelleGeaendertKz As String
Private _aVbewilligtKz As String
Private _benutzererstelltKz As String
Private _eUStKz As String
Private _registriernummer As String
Private _veralteteWeitereRegistriernummer As String
Private _registrierdatum As Date
Private _nizzaRegistrierKz As String
Private _nizzaRegistrierKzSicherheit As String
Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp)
Private _gesamtsicherheitssumme As Decimal
Private _errechneteSicherheitsSumme As Decimal
Private _unbarSicherheitsbetraege As Decimal
Private _barSicherheitsbetraege As Decimal
Private _freizugebenSicherheit As Decimal
Private _auszuzahlenSicherheit As Decimal
Private _einbehaltenSicherheit As Decimal
Private _sicherheitsleistungForm As String
Private _sicherheitsleistungsVerzicht As String
Private _auszahlungsArt As String
Private _unbareSicherheiten As List(Of SicherheitTAXTyp)
Private _bescheidendeDienststelleNr As String
Private _bescheidendeDienststelleName As String
Private _bescheidendeDienststelleStrasseHausNr As String
Private _bescheidendeDienststelleOrtS As String
Private _bescheidendeDienststellePLZS As String
Private _bearbeiter As String
Private _bescheidendeDienststelleTelefonNr As String
Private _rechtsbehelfHauptzollamt As String
Private _rechtsbehelfHZAEmailAdresse As String
Private _rechtsbehelfHZADEmailAdresse As String
Private _rechtsbehelfHauptzollamtStrHausNr As String
Private _rechtsbehelfHauptzollamtPLZS As String
Private _rechtsbehelfHauptzollamtOrtS As String
Private _rechtsbehelfHauptzollamtOrtsteil As String
Private _rechtsbehelfHauptzollamtPostfach As String
Private _rechtsbehelfHauptzollamtPLZP As String
Private _rechtsbehelfHauptzollamtOrtP As String
Private _zollzahlstelle As String
Private _zollzahlstelleKreditinstitut As String
Private _zollzahlstelleStrasseHausNr As String
Private _zollzahlstellePLZS As String
Private _zollzahlstelleOrtS As String
Private _zollzahlstellePostfach As String
Private _zollzahlstellePLZP As String
Private _zollzahlstelleOrtP As String
Private _zollzahlstelleIBAN As String
Private _zollzahlstelleBIC As String
Private _anmelderEORI As String
Private _anmelderNLNR As String
Private _vorsteuerabzugKz As String
Private _anmelderName As String
Private _anmelderNationalitaet As String
Private _anmelderStrasseHausNr As String
Private _anmelderPLZS As String
Private _anmelderOrtS As String
Private _anmelderOrtsteil As String
Private _vertreterEORI As String
Private _vertreterNLNR As String
Private _vertreterName As String
Private _vertreterNationalitaet As String
Private _vertreterStrasseHausNr As String
Private _vertreterPLZS As String
Private _vertreterOrtS As String
Private _vertreterOrtsteil As String
Private _fRechnungEORI As String
Private _fRechnungNLNR As String
Private _fRechnungNationalitaet As String
Private _fRechnungName As String
Private _fRechnungStrasseHausNr As String
Private _fRechnungPLZS As String
Private _fRechnungOrtS As String
Private _fRechnungOrtsteil As String
Private _lagerhalterEORI As String
Private _lagerhalterNLNR As String
Private _lagerhalterName As String
Private _lagerhalterStrasseHausNr As String
Private _lagerhalterNationalitaet As String
Private _lagerhalterPLZ As String
Private _lagerhalterOrt As String
Private _lagerhalterOrtsteil As String
Private _empfaengerEORI As String
Private _empfaengerNLNR As String
Private _empfaengerNationalitaet As String
Private _empfaengerName As String
Private _empfaengerStrasseHausNr As String
Private _empfaengerPLZS As String
Private _empfaengerOrtS As String
Private _empfaengerOrtsteil As String
Private _zahlungsEmpfaengerEORI As String
Private _zahlungsEmpfaengerNLNR As String
Private _zahlungsEmpfaengerKreditinstitut As String
Private _zahlungsEmpfaengerName As String
Private _zahlungsEmpfaengerNationalitaet As String
Private _zahlungsEmpfaengerStrasseHausNr As String
Private _zahlungsEmpfaengerPLZS As String
Private _zahlungsEmpfaengerOrtS As String
Private _zahlungsEmpfaengerOrtsteil As String
Private _zahlungsEmpfaengerIBAN As String
Private _zahlungsEmpfaengerBIC As String
Private _erstellungsDatumBefund As Date
Private _erfassungsdatum As Date
Private _barzahlungFaelligkeit As Date
Private _sicherheitsleistungFaelligkeit As Date
Private _abrechnungszeitraumBeginn As Date
Private _abrechnungszeitraumEnde As Date
Private _zollbefund As String
Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp
Private _lieferbedingungCode As String
Private _lieferbedingungText As String
Private _lieferbedingungOrt As String
Private _lieferbedingungSchluessel As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp()
Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)()
Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtAnmeldung() As String
Get
Return Me._artAnmeldung
End Get
Set
Me._artAnmeldung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErledigungKopfKz() As String
Get
Return Me._erledigungKopfKz
End Get
Set
Me._erledigungKopfKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Waehrung() As String
Get
Return Me._waehrung
End Get
Set
Me._waehrung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GesamtabgabenBetrag() As Decimal
Get
Return Me._gesamtabgabenBetrag
End Get
Set
Me._gesamtabgabenBetrag = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabenbetragZuZahlen() As Decimal
Get
Return Me._abgabenbetragZuZahlen
End Get
Set
Me._abgabenbetragZuZahlen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabenbetragZuErstatten() As Decimal
Get
Return Me._abgabenbetragZuErstatten
End Get
Set
Me._abgabenbetragZuErstatten = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Vertretungsverhaeltnis() As String
Get
Return Me._vertretungsverhaeltnis
End Get
Set
Me._vertretungsverhaeltnis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsaufforderungArtAufschub() As String
Get
Return Me._zahlungsaufforderungArtAufschub
End Get
Set
Me._zahlungsaufforderungArtAufschub = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsaufforderungArtAbgaben() As String
Get
Return Me._zahlungsaufforderungArtAbgaben
End Get
Set
Me._zahlungsaufforderungArtAbgaben = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsaufforderungArtSicherheit() As String
Get
Return Me._zahlungsaufforderungArtSicherheit
End Get
Set
Me._zahlungsaufforderungArtSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KleinbetragKz() As String
Get
Return Me._kleinbetragKz
End Get
Set
Me._kleinbetragKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KleinbetragRechtsbehelf() As String
Get
Return Me._kleinbetragRechtsbehelf
End Get
Set
Me._kleinbetragRechtsbehelf = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GesamtschuldnerschaftKz() As String
Get
Return Me._gesamtschuldnerschaftKz
End Get
Set
Me._gesamtschuldnerschaftKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EingangszollstelleGeaendertKz() As String
Get
Return Me._eingangszollstelleGeaendertKz
End Get
Set
Me._eingangszollstelleGeaendertKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AVbewilligtKz() As String
Get
Return Me._aVbewilligtKz
End Get
Set
Me._aVbewilligtKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BenutzererstelltKz() As String
Get
Return Me._benutzererstelltKz
End Get
Set
Me._benutzererstelltKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EUStKz() As String
Get
Return Me._eUStKz
End Get
Set
Me._eUStKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Registriernummer() As String
Get
Return Me._registriernummer
End Get
Set
Me._registriernummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VeralteteWeitereRegistriernummer() As String
Get
Return Me._veralteteWeitereRegistriernummer
End Get
Set
Me._veralteteWeitereRegistriernummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property Registrierdatum() As Date
Get
Return Me._registrierdatum
End Get
Set
Me._registrierdatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NizzaRegistrierKz() As String
Get
Return Me._nizzaRegistrierKz
End Get
Set
Me._nizzaRegistrierKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NizzaRegistrierKzSicherheit() As String
Get
Return Me._nizzaRegistrierKzSicherheit
End Get
Set
Me._nizzaRegistrierKzSicherheit = Value
End Set
End Property
<XmlElement("AbgabenNachArt", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp)
Get
Return Me._abgabenNachArt
End Get
Set
Me._abgabenNachArt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Gesamtsicherheitssumme() As Decimal
Get
Return Me._gesamtsicherheitssumme
End Get
Set
Me._gesamtsicherheitssumme = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErrechneteSicherheitsSumme() As Decimal
Get
Return Me._errechneteSicherheitsSumme
End Get
Set
Me._errechneteSicherheitsSumme = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnbarSicherheitsbetraege() As Decimal
Get
Return Me._unbarSicherheitsbetraege
End Get
Set
Me._unbarSicherheitsbetraege = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BarSicherheitsbetraege() As Decimal
Get
Return Me._barSicherheitsbetraege
End Get
Set
Me._barSicherheitsbetraege = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FreizugebenSicherheit() As Decimal
Get
Return Me._freizugebenSicherheit
End Get
Set
Me._freizugebenSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AuszuzahlenSicherheit() As Decimal
Get
Return Me._auszuzahlenSicherheit
End Get
Set
Me._auszuzahlenSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinbehaltenSicherheit() As Decimal
Get
Return Me._einbehaltenSicherheit
End Get
Set
Me._einbehaltenSicherheit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SicherheitsleistungForm() As String
Get
Return Me._sicherheitsleistungForm
End Get
Set
Me._sicherheitsleistungForm = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SicherheitsleistungsVerzicht() As String
Get
Return Me._sicherheitsleistungsVerzicht
End Get
Set
Me._sicherheitsleistungsVerzicht = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AuszahlungsArt() As String
Get
Return Me._auszahlungsArt
End Get
Set
Me._auszahlungsArt = Value
End Set
End Property
<XmlElement("UnbareSicherheiten", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp)
Get
Return Me._unbareSicherheiten
End Get
Set
Me._unbareSicherheiten = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststelleNr() As String
Get
Return Me._bescheidendeDienststelleNr
End Get
Set
Me._bescheidendeDienststelleNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststelleName() As String
Get
Return Me._bescheidendeDienststelleName
End Get
Set
Me._bescheidendeDienststelleName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststelleStrasseHausNr() As String
Get
Return Me._bescheidendeDienststelleStrasseHausNr
End Get
Set
Me._bescheidendeDienststelleStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststelleOrtS() As String
Get
Return Me._bescheidendeDienststelleOrtS
End Get
Set
Me._bescheidendeDienststelleOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststellePLZS() As String
Get
Return Me._bescheidendeDienststellePLZS
End Get
Set
Me._bescheidendeDienststellePLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BescheidendeDienststelleTelefonNr() As String
Get
Return Me._bescheidendeDienststelleTelefonNr
End Get
Set
Me._bescheidendeDienststelleTelefonNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamt() As String
Get
Return Me._rechtsbehelfHauptzollamt
End Get
Set
Me._rechtsbehelfHauptzollamt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHZAEmailAdresse() As String
Get
Return Me._rechtsbehelfHZAEmailAdresse
End Get
Set
Me._rechtsbehelfHZAEmailAdresse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHZADEmailAdresse() As String
Get
Return Me._rechtsbehelfHZADEmailAdresse
End Get
Set
Me._rechtsbehelfHZADEmailAdresse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtStrHausNr() As String
Get
Return Me._rechtsbehelfHauptzollamtStrHausNr
End Get
Set
Me._rechtsbehelfHauptzollamtStrHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtPLZS() As String
Get
Return Me._rechtsbehelfHauptzollamtPLZS
End Get
Set
Me._rechtsbehelfHauptzollamtPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtOrtS() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtS
End Get
Set
Me._rechtsbehelfHauptzollamtOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtOrtsteil() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtsteil
End Get
Set
Me._rechtsbehelfHauptzollamtOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtPostfach() As String
Get
Return Me._rechtsbehelfHauptzollamtPostfach
End Get
Set
Me._rechtsbehelfHauptzollamtPostfach = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtPLZP() As String
Get
Return Me._rechtsbehelfHauptzollamtPLZP
End Get
Set
Me._rechtsbehelfHauptzollamtPLZP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RechtsbehelfHauptzollamtOrtP() As String
Get
Return Me._rechtsbehelfHauptzollamtOrtP
End Get
Set
Me._rechtsbehelfHauptzollamtOrtP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Zollzahlstelle() As String
Get
Return Me._zollzahlstelle
End Get
Set
Me._zollzahlstelle = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleKreditinstitut() As String
Get
Return Me._zollzahlstelleKreditinstitut
End Get
Set
Me._zollzahlstelleKreditinstitut = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleStrasseHausNr() As String
Get
Return Me._zollzahlstelleStrasseHausNr
End Get
Set
Me._zollzahlstelleStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstellePLZS() As String
Get
Return Me._zollzahlstellePLZS
End Get
Set
Me._zollzahlstellePLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleOrtS() As String
Get
Return Me._zollzahlstelleOrtS
End Get
Set
Me._zollzahlstelleOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstellePostfach() As String
Get
Return Me._zollzahlstellePostfach
End Get
Set
Me._zollzahlstellePostfach = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstellePLZP() As String
Get
Return Me._zollzahlstellePLZP
End Get
Set
Me._zollzahlstellePLZP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleOrtP() As String
Get
Return Me._zollzahlstelleOrtP
End Get
Set
Me._zollzahlstelleOrtP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleIBAN() As String
Get
Return Me._zollzahlstelleIBAN
End Get
Set
Me._zollzahlstelleIBAN = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollzahlstelleBIC() As String
Get
Return Me._zollzahlstelleBIC
End Get
Set
Me._zollzahlstelleBIC = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderEORI() As String
Get
Return Me._anmelderEORI
End Get
Set
Me._anmelderEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderNLNR() As String
Get
Return Me._anmelderNLNR
End Get
Set
Me._anmelderNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VorsteuerabzugKz() As String
Get
Return Me._vorsteuerabzugKz
End Get
Set
Me._vorsteuerabzugKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderName() As String
Get
Return Me._anmelderName
End Get
Set
Me._anmelderName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderNationalitaet() As String
Get
Return Me._anmelderNationalitaet
End Get
Set
Me._anmelderNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderStrasseHausNr() As String
Get
Return Me._anmelderStrasseHausNr
End Get
Set
Me._anmelderStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderPLZS() As String
Get
Return Me._anmelderPLZS
End Get
Set
Me._anmelderPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderOrtS() As String
Get
Return Me._anmelderOrtS
End Get
Set
Me._anmelderOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmelderOrtsteil() As String
Get
Return Me._anmelderOrtsteil
End Get
Set
Me._anmelderOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterEORI() As String
Get
Return Me._vertreterEORI
End Get
Set
Me._vertreterEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterNLNR() As String
Get
Return Me._vertreterNLNR
End Get
Set
Me._vertreterNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterName() As String
Get
Return Me._vertreterName
End Get
Set
Me._vertreterName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterNationalitaet() As String
Get
Return Me._vertreterNationalitaet
End Get
Set
Me._vertreterNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterStrasseHausNr() As String
Get
Return Me._vertreterStrasseHausNr
End Get
Set
Me._vertreterStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterPLZS() As String
Get
Return Me._vertreterPLZS
End Get
Set
Me._vertreterPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterOrtS() As String
Get
Return Me._vertreterOrtS
End Get
Set
Me._vertreterOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterOrtsteil() As String
Get
Return Me._vertreterOrtsteil
End Get
Set
Me._vertreterOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungEORI() As String
Get
Return Me._fRechnungEORI
End Get
Set
Me._fRechnungEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungNLNR() As String
Get
Return Me._fRechnungNLNR
End Get
Set
Me._fRechnungNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungNationalitaet() As String
Get
Return Me._fRechnungNationalitaet
End Get
Set
Me._fRechnungNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungName() As String
Get
Return Me._fRechnungName
End Get
Set
Me._fRechnungName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungStrasseHausNr() As String
Get
Return Me._fRechnungStrasseHausNr
End Get
Set
Me._fRechnungStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungPLZS() As String
Get
Return Me._fRechnungPLZS
End Get
Set
Me._fRechnungPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungOrtS() As String
Get
Return Me._fRechnungOrtS
End Get
Set
Me._fRechnungOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FRechnungOrtsteil() As String
Get
Return Me._fRechnungOrtsteil
End Get
Set
Me._fRechnungOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterEORI() As String
Get
Return Me._lagerhalterEORI
End Get
Set
Me._lagerhalterEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterNLNR() As String
Get
Return Me._lagerhalterNLNR
End Get
Set
Me._lagerhalterNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterName() As String
Get
Return Me._lagerhalterName
End Get
Set
Me._lagerhalterName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterStrasseHausNr() As String
Get
Return Me._lagerhalterStrasseHausNr
End Get
Set
Me._lagerhalterStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterNationalitaet() As String
Get
Return Me._lagerhalterNationalitaet
End Get
Set
Me._lagerhalterNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterPLZ() As String
Get
Return Me._lagerhalterPLZ
End Get
Set
Me._lagerhalterPLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterOrt() As String
Get
Return Me._lagerhalterOrt
End Get
Set
Me._lagerhalterOrt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LagerhalterOrtsteil() As String
Get
Return Me._lagerhalterOrtsteil
End Get
Set
Me._lagerhalterOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerEORI() As String
Get
Return Me._empfaengerEORI
End Get
Set
Me._empfaengerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerNLNR() As String
Get
Return Me._empfaengerNLNR
End Get
Set
Me._empfaengerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerNationalitaet() As String
Get
Return Me._empfaengerNationalitaet
End Get
Set
Me._empfaengerNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerName() As String
Get
Return Me._empfaengerName
End Get
Set
Me._empfaengerName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerStrasseHausNr() As String
Get
Return Me._empfaengerStrasseHausNr
End Get
Set
Me._empfaengerStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerPLZS() As String
Get
Return Me._empfaengerPLZS
End Get
Set
Me._empfaengerPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerOrtS() As String
Get
Return Me._empfaengerOrtS
End Get
Set
Me._empfaengerOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EmpfaengerOrtsteil() As String
Get
Return Me._empfaengerOrtsteil
End Get
Set
Me._empfaengerOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerEORI() As String
Get
Return Me._zahlungsEmpfaengerEORI
End Get
Set
Me._zahlungsEmpfaengerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerNLNR() As String
Get
Return Me._zahlungsEmpfaengerNLNR
End Get
Set
Me._zahlungsEmpfaengerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerKreditinstitut() As String
Get
Return Me._zahlungsEmpfaengerKreditinstitut
End Get
Set
Me._zahlungsEmpfaengerKreditinstitut = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerName() As String
Get
Return Me._zahlungsEmpfaengerName
End Get
Set
Me._zahlungsEmpfaengerName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerNationalitaet() As String
Get
Return Me._zahlungsEmpfaengerNationalitaet
End Get
Set
Me._zahlungsEmpfaengerNationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerStrasseHausNr() As String
Get
Return Me._zahlungsEmpfaengerStrasseHausNr
End Get
Set
Me._zahlungsEmpfaengerStrasseHausNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerPLZS() As String
Get
Return Me._zahlungsEmpfaengerPLZS
End Get
Set
Me._zahlungsEmpfaengerPLZS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerOrtS() As String
Get
Return Me._zahlungsEmpfaengerOrtS
End Get
Set
Me._zahlungsEmpfaengerOrtS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerOrtsteil() As String
Get
Return Me._zahlungsEmpfaengerOrtsteil
End Get
Set
Me._zahlungsEmpfaengerOrtsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerIBAN() As String
Get
Return Me._zahlungsEmpfaengerIBAN
End Get
Set
Me._zahlungsEmpfaengerIBAN = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZahlungsEmpfaengerBIC() As String
Get
Return Me._zahlungsEmpfaengerBIC
End Get
Set
Me._zahlungsEmpfaengerBIC = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property ErstellungsDatumBefund() As Date
Get
Return Me._erstellungsDatumBefund
End Get
Set
Me._erstellungsDatumBefund = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property Erfassungsdatum() As Date
Get
Return Me._erfassungsdatum
End Get
Set
Me._erfassungsdatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property BarzahlungFaelligkeit() As Date
Get
Return Me._barzahlungFaelligkeit
End Get
Set
Me._barzahlungFaelligkeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property SicherheitsleistungFaelligkeit() As Date
Get
Return Me._sicherheitsleistungFaelligkeit
End Get
Set
Me._sicherheitsleistungFaelligkeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property AbrechnungszeitraumBeginn() As Date
Get
Return Me._abrechnungszeitraumBeginn
End Get
Set
Me._abrechnungszeitraumBeginn = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property AbrechnungszeitraumEnde() As Date
Get
Return Me._abrechnungszeitraumEnde
End Get
Set
Me._abrechnungszeitraumEnde = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Zollbefund() As String
Get
Return Me._zollbefund
End Get
Set
Me._zollbefund = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp
Get
Return Me._eZAAVAngabenKopf
End Get
Set
Me._eZAAVAngabenKopf = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LieferbedingungCode() As String
Get
Return Me._lieferbedingungCode
End Get
Set
Me._lieferbedingungCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LieferbedingungText() As String
Get
Return Me._lieferbedingungText
End Get
Set
Me._lieferbedingungText = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LieferbedingungOrt() As String
Get
Return Me._lieferbedingungOrt
End Get
Set
Me._lieferbedingungOrt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LieferbedingungSchluessel() As String
Get
Return Me._lieferbedingungSchluessel
End Get
Set
Me._lieferbedingungSchluessel = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KopfDatenEinfuhrbescheidTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KopfDatenEinfuhrbescheidTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KopfDatenEinfuhrbescheidTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrbescheidTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEinfuhrbescheidTyp
Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrbescheidTyp)
End Function
#End Region
''' <summary>
''' Serializes current KopfDatenEinfuhrbescheidTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KopfDatenEinfuhrbescheidTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEinfuhrbescheidTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransaktionFreierVerkehrTyp
#Region "Private fields"
Private _iOPartner As String
Private _iODivision1 As String
Private _iODivision2 As String
Private _iODivision3 As String
Private _iOReferenz As String
Private _iODatumZeit As Date
Private _version As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOPartner() As String
Get
Return Me._iOPartner
End Get
Set
Me._iOPartner = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision1() As String
Get
Return Me._iODivision1
End Get
Set
Me._iODivision1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision2() As String
Get
Return Me._iODivision2
End Get
Set
Me._iODivision2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision3() As String
Get
Return Me._iODivision3
End Get
Set
Me._iODivision3 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOReferenz() As String
Get
Return Me._iOReferenz
End Get
Set
Me._iOReferenz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODatumZeit() As Date
Get
Return Me._iODatumZeit
End Get
Set
Me._iODatumZeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property Version() As String
Get
Return Me._version
End Get
Set
Me._version = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransaktionFreierVerkehrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransaktionFreierVerkehrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransaktionFreierVerkehrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp
Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransaktionFreierVerkehrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransaktionFreierVerkehrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<XmlIncludeAttribute(GetType(AbgabenbescheidEinfuhrTAXTyp)),
System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class DatenaustauschFreierVerkehrTyp
#Region "Private fields"
Private _transaktion As TransaktionFreierVerkehrTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transaktion = New TransaktionFreierVerkehrTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Transaktion() As TransaktionFreierVerkehrTyp
Get
Return Me._transaktion
End Get
Set
Me._transaktion = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize DatenaustauschFreierVerkehrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes DatenaustauschFreierVerkehrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp)
End Function
#End Region
''' <summary>
''' Serializes current DatenaustauschFreierVerkehrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
End Namespace
#Enable Warning