7298 lines
298 KiB
VB.net
7298 lines
298 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
|
|
'' {"NameSpace":"Abgabenbescheid_010","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}}
|
|
'' </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_010
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.DesignerCategoryAttribute("code"),
|
|
System.Xml.Serialization.XmlRootAttribute("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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabenbescheidEinfuhrTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp
|
|
Get
|
|
Return Me._objektIdentifizierung
|
|
End Get
|
|
Set
|
|
Me._objektIdentifizierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property KopfDaten() As KopfDatenEinfuhrbescheidTyp
|
|
Get
|
|
Return Me._kopfDaten
|
|
End Get
|
|
Set
|
|
Me._kopfDaten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Position", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenbescheidTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelAbgabenbescheidTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property ObjektName() As String
|
|
Get
|
|
Return Me._objektName
|
|
End Get
|
|
Set
|
|
Me._objektName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property ObjektAlias() As String
|
|
Get
|
|
Return Me._objektAlias
|
|
End Get
|
|
Set
|
|
Me._objektAlias = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property EDIFACTNachrichtenNr() As String
|
|
Get
|
|
Return Me._eDIFACTNachrichtenNr
|
|
End Get
|
|
Set
|
|
Me._eDIFACTNachrichtenNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property ZeitpunktEingang() As Date
|
|
Get
|
|
Return Me._zeitpunktEingang
|
|
End Get
|
|
Set
|
|
Me._zeitpunktEingang = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ObjektIdentifizierungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.DesignerCategoryAttribute("code")>
|
|
Partial Public Class EinzelAbgabenSatzTAXTyp
|
|
|
|
#Region "Private fields"
|
|
Private _items() As Object
|
|
|
|
Private _itemsElementName() As ItemsChoiceType
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Abgabensatz", GetType(Decimal), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0),
|
|
System.Xml.Serialization.XmlElementAttribute("BemessungsgrundlageKz", GetType(String), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0),
|
|
System.Xml.Serialization.XmlElementAttribute("Bemessungsmassstab", GetType(String), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0),
|
|
System.Xml.Serialization.XmlElementAttribute("GehaltsangabenArt", GetType(String), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0),
|
|
System.Xml.Serialization.XmlElementAttribute("GehaltsangabenGradProzent", GetType(Decimal), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0),
|
|
System.Xml.Serialization.XmlElementAttribute("LfdNrAbgabensatz", GetType(String), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger", Order:=0),
|
|
System.Xml.Serialization.XmlChoiceIdentifierAttribute("ItemsElementName")>
|
|
Public Overridable Property Items() As Object()
|
|
Get
|
|
Return Me._items
|
|
End Get
|
|
Set
|
|
Me._items = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("ItemsElementName", Order:=1),
|
|
System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Overridable Property ItemsElementName() As ItemsChoiceType()
|
|
Get
|
|
Return Me._itemsElementName
|
|
End Get
|
|
Set
|
|
Me._itemsElementName = 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbgabenSatzTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelAbgabenSatzTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Xml.Serialization.XmlTypeAttribute(IncludeInSchema:=False)>
|
|
Public Enum ItemsChoiceType
|
|
|
|
'''<remarks/>
|
|
Abgabensatz
|
|
|
|
'''<remarks/>
|
|
BemessungsgrundlageKz
|
|
|
|
'''<remarks/>
|
|
Bemessungsmassstab
|
|
|
|
'''<remarks/>
|
|
GehaltsangabenArt
|
|
|
|
'''<remarks/>
|
|
GehaltsangabenGradProzent
|
|
|
|
'''<remarks/>
|
|
LfdNrAbgabensatz
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Abgabengruppe() As String
|
|
Get
|
|
Return Me._abgabengruppe
|
|
End Get
|
|
Set
|
|
Me._abgabengruppe = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property AbgabeArt() As String
|
|
Get
|
|
Return Me._abgabeArt
|
|
End Get
|
|
Set
|
|
Me._abgabeArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property Berechnungshinweis() As String
|
|
Get
|
|
Return Me._berechnungshinweis
|
|
End Get
|
|
Set
|
|
Me._berechnungshinweis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property ErrechneterAbgabenbetrag() As Decimal
|
|
Get
|
|
Return Me._errechneterAbgabenbetrag
|
|
End Get
|
|
Set
|
|
Me._errechneterAbgabenbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property Abgabenbetrag() As Decimal
|
|
Get
|
|
Return Me._abgabenbetrag
|
|
End Get
|
|
Set
|
|
Me._abgabenbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property AbgabensatzKontNr() As String
|
|
Get
|
|
Return Me._abgabensatzKontNr
|
|
End Get
|
|
Set
|
|
Me._abgabensatzKontNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable Property VerbrauchssteuerCode() As String
|
|
Get
|
|
Return Me._verbrauchssteuerCode
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
|
|
Public Overridable Property VerbrauchssteuerMenge() As Decimal
|
|
Get
|
|
Return Me._verbrauchssteuerMenge
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerMenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
|
|
Public Overridable Property VerbrauchssteuerMasseinheit() As String
|
|
Get
|
|
Return Me._verbrauchssteuerMasseinheit
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=9)>
|
|
Public Overridable Property VerbrauchssteuerQualifikator() As String
|
|
Get
|
|
Return Me._verbrauchssteuerQualifikator
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerQualifikator = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=10)>
|
|
Public Overridable Property VerbrauchssteuerGradProzent() As Decimal
|
|
Get
|
|
Return Me._verbrauchssteuerGradProzent
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerGradProzent = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=11)>
|
|
Public Overridable Property VerbrauchssteuerWert() As Decimal
|
|
Get
|
|
Return Me._verbrauchssteuerWert
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerWert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("EinzelAbgabenSatz", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=12)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabengruppeTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabengruppeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.DesignerCategoryAttribute("code")>
|
|
Partial Public Class PauschalierungTAXTyp
|
|
|
|
#Region "Private fields"
|
|
Private _warenkategorie As String
|
|
|
|
Private _kzPauschalierterAbgabensatz As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Warenkategorie() As String
|
|
Get
|
|
Return Me._warenkategorie
|
|
End Get
|
|
Set
|
|
Me._warenkategorie = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PauschalierungTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As PauschalierungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Feldname() As String
|
|
Get
|
|
Return Me._feldname
|
|
End Get
|
|
Set
|
|
Me._feldname = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Qualifikator() As String
|
|
Get
|
|
Return Me._qualifikator
|
|
End Get
|
|
Set
|
|
Me._qualifikator = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property QualifikatorInhalt() As String
|
|
Get
|
|
Return Me._qualifikatorInhalt
|
|
End Get
|
|
Set
|
|
Me._qualifikatorInhalt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property ArtAbweichendeFestsetzung() As String
|
|
Get
|
|
Return Me._artAbweichendeFestsetzung
|
|
End Get
|
|
Set
|
|
Me._artAbweichendeFestsetzung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property FestgesetztVon() As String
|
|
Get
|
|
Return Me._festgesetztVon
|
|
End Get
|
|
Set
|
|
Me._festgesetztVon = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbweichendeFestsetzungTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbweichendeFestsetzungTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Menge() As String
|
|
Get
|
|
Return Me._menge
|
|
End Get
|
|
Set
|
|
Me._menge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Masseinheit() As String
|
|
Get
|
|
Return Me._masseinheit
|
|
End Get
|
|
Set
|
|
Me._masseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KontingentAngerechnetWarenMengeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property KontNrAngerechnet() As String
|
|
Get
|
|
Return Me._kontNrAngerechnet
|
|
End Get
|
|
Set
|
|
Me._kontNrAngerechnet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property ZollwertAngerechnet() As Decimal
|
|
Get
|
|
Return Me._zollwertAngerechnet
|
|
End Get
|
|
Set
|
|
Me._zollwertAngerechnet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property EUStKostenAngerechnet() As Decimal
|
|
Get
|
|
Return Me._eUStKostenAngerechnet
|
|
End Get
|
|
Set
|
|
Me._eUStKostenAngerechnet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property BeguenstMengeAngerechnet() As Decimal
|
|
Get
|
|
Return Me._beguenstMengeAngerechnet
|
|
End Get
|
|
Set
|
|
Me._beguenstMengeAngerechnet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property MasseinhBegMengeAng() As String
|
|
Get
|
|
Return Me._masseinhBegMengeAng
|
|
End Get
|
|
Set
|
|
Me._masseinhBegMengeAng = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property QualifBegMengeAng() As String
|
|
Get
|
|
Return Me._qualifBegMengeAng
|
|
End Get
|
|
Set
|
|
Me._qualifBegMengeAng = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("WarenMenge", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KontingentAngerechnetTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KontingentAngerechnetTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property SonderabgabenGruppe() As String
|
|
Get
|
|
Return Me._sonderabgabenGruppe
|
|
End Get
|
|
Set
|
|
Me._sonderabgabenGruppe = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Anwendungsart() As String
|
|
Get
|
|
Return Me._anwendungsart
|
|
End Get
|
|
Set
|
|
Me._anwendungsart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderfalleingabeTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SonderfalleingabeTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Warenbezeichnung() As String
|
|
Get
|
|
Return Me._warenbezeichnung
|
|
End Get
|
|
Set
|
|
Me._warenbezeichnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Ausbeuteart() As String
|
|
Get
|
|
Return Me._ausbeuteart
|
|
End Get
|
|
Set
|
|
Me._ausbeuteart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property Ausbeutesatz() As String
|
|
Get
|
|
Return Me._ausbeutesatz
|
|
End Get
|
|
Set
|
|
Me._ausbeutesatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EZAAVVeredelungserzeugnisTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property AVWirtschaftlicheVoraussetzungen() As String
|
|
Get
|
|
Return Me._aVWirtschaftlicheVoraussetzungen
|
|
End Get
|
|
Set
|
|
Me._aVWirtschaftlicheVoraussetzungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("AVVeredelungserzeugnis", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp)
|
|
Get
|
|
Return Me._aVVeredelungserzeugnis
|
|
End Get
|
|
Set
|
|
Me._aVVeredelungserzeugnis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property AVNaemlichkeitsmittel() As String
|
|
Get
|
|
Return Me._aVNaemlichkeitsmittel
|
|
End Get
|
|
Set
|
|
Me._aVNaemlichkeitsmittel = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenPosTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EZAAVAngabenPosTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property UnterlageArt() As String
|
|
Get
|
|
Return Me._unterlageArt
|
|
End Get
|
|
Set
|
|
Me._unterlageArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property UnterlageBereich() As String
|
|
Get
|
|
Return Me._unterlageBereich
|
|
End Get
|
|
Set
|
|
Me._unterlageBereich = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property UnterlageNr() As String
|
|
Get
|
|
Return Me._unterlageNr
|
|
End Get
|
|
Set
|
|
Me._unterlageNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property AnerkennungKz() As String
|
|
Get
|
|
Return Me._anerkennungKz
|
|
End Get
|
|
Set
|
|
Me._anerkennungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property AbschreibungKz() As String
|
|
Get
|
|
Return Me._abschreibungKz
|
|
End Get
|
|
Set
|
|
Me._abschreibungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property EinbehaltenKz() As String
|
|
Get
|
|
Return Me._einbehaltenKz
|
|
End Get
|
|
Set
|
|
Me._einbehaltenKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AngemeldeteUnterlageTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AngemeldeteUnterlageTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.DesignerCategoryAttribute("code")>
|
|
Partial Public Class KursAbzugHinzuTAXTyp
|
|
|
|
#Region "Private fields"
|
|
Private _artAbHinzu As String
|
|
|
|
Private _angewandterKurs As Decimal
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property ArtAbHinzu() As String
|
|
Get
|
|
Return Me._artAbHinzu
|
|
End Get
|
|
Set
|
|
Me._artAbHinzu = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KursAbzugHinzuTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KursAbzugHinzuTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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 _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 Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger", Order:=0)>
|
|
Public Overridable Property PositionsNr() As String
|
|
Get
|
|
Return Me._positionsNr
|
|
End Get
|
|
Set
|
|
Me._positionsNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property ErledigungKz() As String
|
|
Get
|
|
Return Me._erledigungKz
|
|
End Get
|
|
Set
|
|
Me._erledigungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property WarenNummerEZT() As String
|
|
Get
|
|
Return Me._warenNummerEZT
|
|
End Get
|
|
Set
|
|
Me._warenNummerEZT = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("WarenNummerZusatzCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property WarenNummerZusatzCode() As List(Of String)
|
|
Get
|
|
Return Me._warenNummerZusatzCode
|
|
End Get
|
|
Set
|
|
Me._warenNummerZusatzCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property WarenBezeichnung() As String
|
|
Get
|
|
Return Me._warenBezeichnung
|
|
End Get
|
|
Set
|
|
Me._warenBezeichnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property BeschauMitteilung() As String
|
|
Get
|
|
Return Me._beschauMitteilung
|
|
End Get
|
|
Set
|
|
Me._beschauMitteilung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable Property ErledigungMitteilung() As String
|
|
Get
|
|
Return Me._erledigungMitteilung
|
|
End Get
|
|
Set
|
|
Me._erledigungMitteilung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
|
|
Public Overridable Property AblehnungAenderung() As String
|
|
Get
|
|
Return Me._ablehnungAenderung
|
|
End Get
|
|
Set
|
|
Me._ablehnungAenderung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
|
|
Public Overridable Property WeitererNachweis() As String
|
|
Get
|
|
Return Me._weitererNachweis
|
|
End Get
|
|
Set
|
|
Me._weitererNachweis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=9)>
|
|
Public Overridable Property GewaehrteBeguenstigung() As String
|
|
Get
|
|
Return Me._gewaehrteBeguenstigung
|
|
End Get
|
|
Set
|
|
Me._gewaehrteBeguenstigung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=10)>
|
|
Public Overridable Property AnordnungKz() As String
|
|
Get
|
|
Return Me._anordnungKz
|
|
End Get
|
|
Set
|
|
Me._anordnungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=11)>
|
|
Public Overridable Property EUStWert() As Decimal
|
|
Get
|
|
Return Me._eUStWert
|
|
End Get
|
|
Set
|
|
Me._eUStWert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=12)>
|
|
Public Overridable Property KostenFuerEUSt() As Decimal
|
|
Get
|
|
Return Me._kostenFuerEUSt
|
|
End Get
|
|
Set
|
|
Me._kostenFuerEUSt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=13)>
|
|
Public Overridable Property ZollWert() As Decimal
|
|
Get
|
|
Return Me._zollWert
|
|
End Get
|
|
Set
|
|
Me._zollWert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=14)>
|
|
Public Overridable Property AnnahmeAenderung() As String
|
|
Get
|
|
Return Me._annahmeAenderung
|
|
End Get
|
|
Set
|
|
Me._annahmeAenderung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=15)>
|
|
Public Overridable Property SicherheitsLeistungBetrag() As Decimal
|
|
Get
|
|
Return Me._sicherheitsLeistungBetrag
|
|
End Get
|
|
Set
|
|
Me._sicherheitsLeistungBetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=16)>
|
|
Public Overridable Property RegistrierNrvZAAZ() As String
|
|
Get
|
|
Return Me._registrierNrvZAAZ
|
|
End Get
|
|
Set
|
|
Me._registrierNrvZAAZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=17)>
|
|
Public Overridable Property PositionsNrInvZAAZ() As String
|
|
Get
|
|
Return Me._positionsNrInvZAAZ
|
|
End Get
|
|
Set
|
|
Me._positionsNrInvZAAZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=18)>
|
|
Public Overridable Property AnnahmeKz() As String
|
|
Get
|
|
Return Me._annahmeKz
|
|
End Get
|
|
Set
|
|
Me._annahmeKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=19)>
|
|
Public Overridable Property AnnahmeDatum() As Date
|
|
Get
|
|
Return Me._annahmeDatum
|
|
End Get
|
|
Set
|
|
Me._annahmeDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=20)>
|
|
Public Overridable Property UeberlassungDatum() As Date
|
|
Get
|
|
Return Me._ueberlassungDatum
|
|
End Get
|
|
Set
|
|
Me._ueberlassungDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=21)>
|
|
Public Overridable Property Lagerfrist() As Date
|
|
Get
|
|
Return Me._lagerfrist
|
|
End Get
|
|
Set
|
|
Me._lagerfrist = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=22)>
|
|
Public Overridable Property WiederAusfuhrFrist() As Date
|
|
Get
|
|
Return Me._wiederAusfuhrFrist
|
|
End Get
|
|
Set
|
|
Me._wiederAusfuhrFrist = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=23)>
|
|
Public Overridable Property FristWeitererNachweis() As Date
|
|
Get
|
|
Return Me._fristWeitererNachweis
|
|
End Get
|
|
Set
|
|
Me._fristWeitererNachweis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=24)>
|
|
Public Overridable Property Befund() As String
|
|
Get
|
|
Return Me._befund
|
|
End Get
|
|
Set
|
|
Me._befund = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=25)>
|
|
Public Overridable Property DV1AbweichendFestgesetztKz() As String
|
|
Get
|
|
Return Me._dV1AbweichendFestgesetztKz
|
|
End Get
|
|
Set
|
|
Me._dV1AbweichendFestgesetztKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=26)>
|
|
Public Overridable Property SonderfalleingabeKz() As String
|
|
Get
|
|
Return Me._sonderfalleingabeKz
|
|
End Get
|
|
Set
|
|
Me._sonderfalleingabeKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=27)>
|
|
Public Overridable Property AngewandterKursNettopreis() As Decimal
|
|
Get
|
|
Return Me._angewandterKursNettopreis
|
|
End Get
|
|
Set
|
|
Me._angewandterKursNettopreis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=28)>
|
|
Public Overridable Property AngewandterKursMittelbZahlungen() As Decimal
|
|
Get
|
|
Return Me._angewandterKursMittelbZahlungen
|
|
End Get
|
|
Set
|
|
Me._angewandterKursMittelbZahlungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("AbzugHinzurechnungen", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=29)>
|
|
Public Overridable Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp)
|
|
Get
|
|
Return Me._abzugHinzurechnungen
|
|
End Get
|
|
Set
|
|
Me._abzugHinzurechnungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger", Order:=30)>
|
|
Public Overridable Property LuftFrachtGesamtProzentsatz() As String
|
|
Get
|
|
Return Me._luftFrachtGesamtProzentsatz
|
|
End Get
|
|
Set
|
|
Me._luftFrachtGesamtProzentsatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=31)>
|
|
Public Overridable Property LuftFrachtGesamtAngewandterKurs() As Decimal
|
|
Get
|
|
Return Me._luftFrachtGesamtAngewandterKurs
|
|
End Get
|
|
Set
|
|
Me._luftFrachtGesamtAngewandterKurs = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("AngemeldeteUnterlage", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=32)>
|
|
Public Overridable Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp)
|
|
Get
|
|
Return Me._angemeldeteUnterlage
|
|
End Get
|
|
Set
|
|
Me._angemeldeteUnterlage = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=33)>
|
|
Public Overridable Property EZAAVAngabenPos() As EZAAVAngabenPosTyp
|
|
Get
|
|
Return Me._eZAAVAngabenPos
|
|
End Get
|
|
Set
|
|
Me._eZAAVAngabenPos = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("SonderabgabenGruppe", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=34)>
|
|
Public Overridable Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp)
|
|
Get
|
|
Return Me._sonderabgabenGruppe
|
|
End Get
|
|
Set
|
|
Me._sonderabgabenGruppe = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("KontNrAngewandt", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=35)>
|
|
Public Overridable Property KontNrAngewandt() As List(Of String)
|
|
Get
|
|
Return Me._kontNrAngewandt
|
|
End Get
|
|
Set
|
|
Me._kontNrAngewandt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("KontingentAngerechnet", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=36)>
|
|
Public Overridable Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp)
|
|
Get
|
|
Return Me._kontingentAngerechnet
|
|
End Get
|
|
Set
|
|
Me._kontingentAngerechnet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("AbweichendeFestsetzung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=37)>
|
|
Public Overridable Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp)
|
|
Get
|
|
Return Me._abweichendeFestsetzung
|
|
End Get
|
|
Set
|
|
Me._abweichendeFestsetzung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=38)>
|
|
Public Overridable Property Pauschalierung() As PauschalierungTAXTyp
|
|
Get
|
|
Return Me._pauschalierung
|
|
End Get
|
|
Set
|
|
Me._pauschalierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Abgaben", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=39)>
|
|
Public Overridable Property Abgaben() As List(Of AbgabengruppeTAXTyp)
|
|
Get
|
|
Return Me._abgaben
|
|
End Get
|
|
Set
|
|
Me._abgaben = 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As PositionAbgabenbescheidEinfuhrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property Strasse() As String
|
|
Get
|
|
Return Me._strasse
|
|
End Get
|
|
Set
|
|
Me._strasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Land() As String
|
|
Get
|
|
Return Me._land
|
|
End Get
|
|
Set
|
|
Me._land = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property PLZ() As String
|
|
Get
|
|
Return Me._pLZ
|
|
End Get
|
|
Set
|
|
Me._pLZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property Ort() As String
|
|
Get
|
|
Return Me._ort
|
|
End Get
|
|
Set
|
|
Me._ort = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EZAAVAngabenKopfWeitererVeredelungsortTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property KzBemessungEinfuhrabgabenbetrag() As String
|
|
Get
|
|
Return Me._kzBemessungEinfuhrabgabenbetrag
|
|
End Get
|
|
Set
|
|
Me._kzBemessungEinfuhrabgabenbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property KzAbrechnung() As String
|
|
Get
|
|
Return Me._kzAbrechnung
|
|
End Get
|
|
Set
|
|
Me._kzAbrechnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property KzVereinfBefoerderung() As String
|
|
Get
|
|
Return Me._kzVereinfBefoerderung
|
|
End Get
|
|
Set
|
|
Me._kzVereinfBefoerderung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property ZusaetzlicheAngaben() As String
|
|
Get
|
|
Return Me._zusaetzlicheAngaben
|
|
End Get
|
|
Set
|
|
Me._zusaetzlicheAngaben = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property KzVerzichtSicherheit() As String
|
|
Get
|
|
Return Me._kzVerzichtSicherheit
|
|
End Get
|
|
Set
|
|
Me._kzVerzichtSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property ErlaeuterungenZurSicherheit() As String
|
|
Get
|
|
Return Me._erlaeuterungenZurSicherheit
|
|
End Get
|
|
Set
|
|
Me._erlaeuterungenZurSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable Property BetragDerSicherheit() As Decimal
|
|
Get
|
|
Return Me._betragDerSicherheit
|
|
End Get
|
|
Set
|
|
Me._betragDerSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
|
|
Public Overridable Property DeutschesUeHZA() As String
|
|
Get
|
|
Return Me._deutschesUeHZA
|
|
End Get
|
|
Set
|
|
Me._deutschesUeHZA = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
|
|
Public Overridable Property EinzelheitenGeplantVeredelungsvorgang() As String
|
|
Get
|
|
Return Me._einzelheitenGeplantVeredelungsvorgang
|
|
End Get
|
|
Set
|
|
Me._einzelheitenGeplantVeredelungsvorgang = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=9)>
|
|
Public Overridable Property HauptbuchhaltungStrasse() As String
|
|
Get
|
|
Return Me._hauptbuchhaltungStrasse
|
|
End Get
|
|
Set
|
|
Me._hauptbuchhaltungStrasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=10)>
|
|
Public Overridable Property HauptbuchhaltungLand() As String
|
|
Get
|
|
Return Me._hauptbuchhaltungLand
|
|
End Get
|
|
Set
|
|
Me._hauptbuchhaltungLand = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=11)>
|
|
Public Overridable Property HauptbuchhaltungPLZ() As String
|
|
Get
|
|
Return Me._hauptbuchhaltungPLZ
|
|
End Get
|
|
Set
|
|
Me._hauptbuchhaltungPLZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=12)>
|
|
Public Overridable Property HauptbuchhaltungOrt() As String
|
|
Get
|
|
Return Me._hauptbuchhaltungOrt
|
|
End Get
|
|
Set
|
|
Me._hauptbuchhaltungOrt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=13)>
|
|
Public Overridable Property HauptbuchhaltungOrtsteil() As String
|
|
Get
|
|
Return Me._hauptbuchhaltungOrtsteil
|
|
End Get
|
|
Set
|
|
Me._hauptbuchhaltungOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=14)>
|
|
Public Overridable Property VeredelungStrasse() As String
|
|
Get
|
|
Return Me._veredelungStrasse
|
|
End Get
|
|
Set
|
|
Me._veredelungStrasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=15)>
|
|
Public Overridable Property VeredelungLand() As String
|
|
Get
|
|
Return Me._veredelungLand
|
|
End Get
|
|
Set
|
|
Me._veredelungLand = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=16)>
|
|
Public Overridable Property VeredelungPLZ() As String
|
|
Get
|
|
Return Me._veredelungPLZ
|
|
End Get
|
|
Set
|
|
Me._veredelungPLZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=17)>
|
|
Public Overridable Property VeredelungOrt() As String
|
|
Get
|
|
Return Me._veredelungOrt
|
|
End Get
|
|
Set
|
|
Me._veredelungOrt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=18)>
|
|
Public Overridable Property VeredelungOrtsteil() As String
|
|
Get
|
|
Return Me._veredelungOrtsteil
|
|
End Get
|
|
Set
|
|
Me._veredelungOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("WeitererVeredelungsort", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=19)>
|
|
Public Overridable Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)
|
|
Get
|
|
Return Me._weitererVeredelungsort
|
|
End Get
|
|
Set
|
|
Me._weitererVeredelungsort = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("ZollstelleErledigung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=20)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EZAAVAngabenKopfTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EZAAVAngabenKopfTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.DesignerCategoryAttribute("code")>
|
|
Partial Public Class SicherheitTAXTyp
|
|
|
|
#Region "Private fields"
|
|
Private _einzelbetragUnbareSicherheit As Decimal
|
|
|
|
Private _artUnbareSicherheitsleistung As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property EinzelbetragUnbareSicherheit() As Decimal
|
|
Get
|
|
Return Me._einzelbetragUnbareSicherheit
|
|
End Get
|
|
Set
|
|
Me._einzelbetragUnbareSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SicherheitTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SicherheitTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property AbgabeArt() As String
|
|
Get
|
|
Return Me._abgabeArt
|
|
End Get
|
|
Set
|
|
Me._abgabeArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property Abgabenbetrag() As Decimal
|
|
Get
|
|
Return Me._abgabenbetrag
|
|
End Get
|
|
Set
|
|
Me._abgabenbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property Zahlungsart() As String
|
|
Get
|
|
Return Me._zahlungsart
|
|
End Get
|
|
Set
|
|
Me._zahlungsart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property AufschubnehmerName() As String
|
|
Get
|
|
Return Me._aufschubnehmerName
|
|
End Get
|
|
Set
|
|
Me._aufschubnehmerName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property AufschubnehmerTIN() As String
|
|
Get
|
|
Return Me._aufschubnehmerTIN
|
|
End Get
|
|
Set
|
|
Me._aufschubnehmerTIN = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property ArtAufschubAntrag() As String
|
|
Get
|
|
Return Me._artAufschubAntrag
|
|
End Get
|
|
Set
|
|
Me._artAufschubAntrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable Property KennBuchstabenAufschub() As String
|
|
Get
|
|
Return Me._kennBuchstabenAufschub
|
|
End Get
|
|
Set
|
|
Me._kennBuchstabenAufschub = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
|
|
Public Overridable Property AufschubkontoNr() As String
|
|
Get
|
|
Return Me._aufschubkontoNr
|
|
End Get
|
|
Set
|
|
Me._aufschubkontoNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=8)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenNachArtKopfTAXTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabenNachArtKopfTAXTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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 _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 _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 Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp()
|
|
Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)()
|
|
Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property ArtAnmeldung() As String
|
|
Get
|
|
Return Me._artAnmeldung
|
|
End Get
|
|
Set
|
|
Me._artAnmeldung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property ErledigungKopfKz() As String
|
|
Get
|
|
Return Me._erledigungKopfKz
|
|
End Get
|
|
Set
|
|
Me._erledigungKopfKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property Waehrung() As String
|
|
Get
|
|
Return Me._waehrung
|
|
End Get
|
|
Set
|
|
Me._waehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property GesamtabgabenBetrag() As Decimal
|
|
Get
|
|
Return Me._gesamtabgabenBetrag
|
|
End Get
|
|
Set
|
|
Me._gesamtabgabenBetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property AbgabenbetragZuZahlen() As Decimal
|
|
Get
|
|
Return Me._abgabenbetragZuZahlen
|
|
End Get
|
|
Set
|
|
Me._abgabenbetragZuZahlen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property AbgabenbetragZuErstatten() As Decimal
|
|
Get
|
|
Return Me._abgabenbetragZuErstatten
|
|
End Get
|
|
Set
|
|
Me._abgabenbetragZuErstatten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
|
|
Public Overridable Property Vertretungsverhaeltnis() As String
|
|
Get
|
|
Return Me._vertretungsverhaeltnis
|
|
End Get
|
|
Set
|
|
Me._vertretungsverhaeltnis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
|
|
Public Overridable Property ZahlungsaufforderungArtAufschub() As String
|
|
Get
|
|
Return Me._zahlungsaufforderungArtAufschub
|
|
End Get
|
|
Set
|
|
Me._zahlungsaufforderungArtAufschub = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
|
|
Public Overridable Property ZahlungsaufforderungArtAbgaben() As String
|
|
Get
|
|
Return Me._zahlungsaufforderungArtAbgaben
|
|
End Get
|
|
Set
|
|
Me._zahlungsaufforderungArtAbgaben = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=9)>
|
|
Public Overridable Property ZahlungsaufforderungArtSicherheit() As String
|
|
Get
|
|
Return Me._zahlungsaufforderungArtSicherheit
|
|
End Get
|
|
Set
|
|
Me._zahlungsaufforderungArtSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=10)>
|
|
Public Overridable Property KleinbetragKz() As String
|
|
Get
|
|
Return Me._kleinbetragKz
|
|
End Get
|
|
Set
|
|
Me._kleinbetragKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=11)>
|
|
Public Overridable Property KleinbetragRechtsbehelf() As String
|
|
Get
|
|
Return Me._kleinbetragRechtsbehelf
|
|
End Get
|
|
Set
|
|
Me._kleinbetragRechtsbehelf = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=12)>
|
|
Public Overridable Property GesamtschuldnerschaftKz() As String
|
|
Get
|
|
Return Me._gesamtschuldnerschaftKz
|
|
End Get
|
|
Set
|
|
Me._gesamtschuldnerschaftKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=13)>
|
|
Public Overridable Property EingangszollstelleGeaendertKz() As String
|
|
Get
|
|
Return Me._eingangszollstelleGeaendertKz
|
|
End Get
|
|
Set
|
|
Me._eingangszollstelleGeaendertKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=14)>
|
|
Public Overridable Property AVbewilligtKz() As String
|
|
Get
|
|
Return Me._aVbewilligtKz
|
|
End Get
|
|
Set
|
|
Me._aVbewilligtKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=15)>
|
|
Public Overridable Property BenutzererstelltKz() As String
|
|
Get
|
|
Return Me._benutzererstelltKz
|
|
End Get
|
|
Set
|
|
Me._benutzererstelltKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=16)>
|
|
Public Overridable Property EUStKz() As String
|
|
Get
|
|
Return Me._eUStKz
|
|
End Get
|
|
Set
|
|
Me._eUStKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=17)>
|
|
Public Overridable Property Registriernummer() As String
|
|
Get
|
|
Return Me._registriernummer
|
|
End Get
|
|
Set
|
|
Me._registriernummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=18)>
|
|
Public Overridable Property Registrierdatum() As Date
|
|
Get
|
|
Return Me._registrierdatum
|
|
End Get
|
|
Set
|
|
Me._registrierdatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=19)>
|
|
Public Overridable Property NizzaRegistrierKz() As String
|
|
Get
|
|
Return Me._nizzaRegistrierKz
|
|
End Get
|
|
Set
|
|
Me._nizzaRegistrierKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=20)>
|
|
Public Overridable Property NizzaRegistrierKzSicherheit() As String
|
|
Get
|
|
Return Me._nizzaRegistrierKzSicherheit
|
|
End Get
|
|
Set
|
|
Me._nizzaRegistrierKzSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("AbgabenNachArt", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=21)>
|
|
Public Overridable Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp)
|
|
Get
|
|
Return Me._abgabenNachArt
|
|
End Get
|
|
Set
|
|
Me._abgabenNachArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=22)>
|
|
Public Overridable Property Gesamtsicherheitssumme() As Decimal
|
|
Get
|
|
Return Me._gesamtsicherheitssumme
|
|
End Get
|
|
Set
|
|
Me._gesamtsicherheitssumme = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=23)>
|
|
Public Overridable Property ErrechneteSicherheitsSumme() As Decimal
|
|
Get
|
|
Return Me._errechneteSicherheitsSumme
|
|
End Get
|
|
Set
|
|
Me._errechneteSicherheitsSumme = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=24)>
|
|
Public Overridable Property UnbarSicherheitsbetraege() As Decimal
|
|
Get
|
|
Return Me._unbarSicherheitsbetraege
|
|
End Get
|
|
Set
|
|
Me._unbarSicherheitsbetraege = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=25)>
|
|
Public Overridable Property BarSicherheitsbetraege() As Decimal
|
|
Get
|
|
Return Me._barSicherheitsbetraege
|
|
End Get
|
|
Set
|
|
Me._barSicherheitsbetraege = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=26)>
|
|
Public Overridable Property FreizugebenSicherheit() As Decimal
|
|
Get
|
|
Return Me._freizugebenSicherheit
|
|
End Get
|
|
Set
|
|
Me._freizugebenSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=27)>
|
|
Public Overridable Property AuszuzahlenSicherheit() As Decimal
|
|
Get
|
|
Return Me._auszuzahlenSicherheit
|
|
End Get
|
|
Set
|
|
Me._auszuzahlenSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=28)>
|
|
Public Overridable Property EinbehaltenSicherheit() As Decimal
|
|
Get
|
|
Return Me._einbehaltenSicherheit
|
|
End Get
|
|
Set
|
|
Me._einbehaltenSicherheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=29)>
|
|
Public Overridable Property SicherheitsleistungForm() As String
|
|
Get
|
|
Return Me._sicherheitsleistungForm
|
|
End Get
|
|
Set
|
|
Me._sicherheitsleistungForm = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=30)>
|
|
Public Overridable Property SicherheitsleistungsVerzicht() As String
|
|
Get
|
|
Return Me._sicherheitsleistungsVerzicht
|
|
End Get
|
|
Set
|
|
Me._sicherheitsleistungsVerzicht = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=31)>
|
|
Public Overridable Property AuszahlungsArt() As String
|
|
Get
|
|
Return Me._auszahlungsArt
|
|
End Get
|
|
Set
|
|
Me._auszahlungsArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("UnbareSicherheiten", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=32)>
|
|
Public Overridable Property UnbareSicherheiten() As List(Of SicherheitTAXTyp)
|
|
Get
|
|
Return Me._unbareSicherheiten
|
|
End Get
|
|
Set
|
|
Me._unbareSicherheiten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=33)>
|
|
Public Overridable Property BescheidendeDienststelleNr() As String
|
|
Get
|
|
Return Me._bescheidendeDienststelleNr
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststelleNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=34)>
|
|
Public Overridable Property BescheidendeDienststelleName() As String
|
|
Get
|
|
Return Me._bescheidendeDienststelleName
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststelleName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=35)>
|
|
Public Overridable Property BescheidendeDienststelleStrasseHausNr() As String
|
|
Get
|
|
Return Me._bescheidendeDienststelleStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststelleStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=36)>
|
|
Public Overridable Property BescheidendeDienststelleOrtS() As String
|
|
Get
|
|
Return Me._bescheidendeDienststelleOrtS
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststelleOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=37)>
|
|
Public Overridable Property BescheidendeDienststellePLZS() As String
|
|
Get
|
|
Return Me._bescheidendeDienststellePLZS
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststellePLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=38)>
|
|
Public Overridable Property Bearbeiter() As String
|
|
Get
|
|
Return Me._bearbeiter
|
|
End Get
|
|
Set
|
|
Me._bearbeiter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=39)>
|
|
Public Overridable Property BescheidendeDienststelleTelefonNr() As String
|
|
Get
|
|
Return Me._bescheidendeDienststelleTelefonNr
|
|
End Get
|
|
Set
|
|
Me._bescheidendeDienststelleTelefonNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=40)>
|
|
Public Overridable Property RechtsbehelfHauptzollamt() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamt
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=41)>
|
|
Public Overridable Property RechtsbehelfHZAEmailAdresse() As String
|
|
Get
|
|
Return Me._rechtsbehelfHZAEmailAdresse
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHZAEmailAdresse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=42)>
|
|
Public Overridable Property RechtsbehelfHZADEmailAdresse() As String
|
|
Get
|
|
Return Me._rechtsbehelfHZADEmailAdresse
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHZADEmailAdresse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=43)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtStrHausNr() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtStrHausNr
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtStrHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=44)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtPLZS() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtPLZS
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=45)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtOrtS() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtOrtS
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=46)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtOrtsteil() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtOrtsteil
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=47)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtPostfach() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtPostfach
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtPostfach = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=48)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtPLZP() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtPLZP
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtPLZP = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=49)>
|
|
Public Overridable Property RechtsbehelfHauptzollamtOrtP() As String
|
|
Get
|
|
Return Me._rechtsbehelfHauptzollamtOrtP
|
|
End Get
|
|
Set
|
|
Me._rechtsbehelfHauptzollamtOrtP = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=50)>
|
|
Public Overridable Property Zollzahlstelle() As String
|
|
Get
|
|
Return Me._zollzahlstelle
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelle = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=51)>
|
|
Public Overridable Property ZollzahlstelleKreditinstitut() As String
|
|
Get
|
|
Return Me._zollzahlstelleKreditinstitut
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleKreditinstitut = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=52)>
|
|
Public Overridable Property ZollzahlstelleStrasseHausNr() As String
|
|
Get
|
|
Return Me._zollzahlstelleStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=53)>
|
|
Public Overridable Property ZollzahlstellePLZS() As String
|
|
Get
|
|
Return Me._zollzahlstellePLZS
|
|
End Get
|
|
Set
|
|
Me._zollzahlstellePLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=54)>
|
|
Public Overridable Property ZollzahlstelleOrtS() As String
|
|
Get
|
|
Return Me._zollzahlstelleOrtS
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=55)>
|
|
Public Overridable Property ZollzahlstellePostfach() As String
|
|
Get
|
|
Return Me._zollzahlstellePostfach
|
|
End Get
|
|
Set
|
|
Me._zollzahlstellePostfach = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=56)>
|
|
Public Overridable Property ZollzahlstellePLZP() As String
|
|
Get
|
|
Return Me._zollzahlstellePLZP
|
|
End Get
|
|
Set
|
|
Me._zollzahlstellePLZP = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=57)>
|
|
Public Overridable Property ZollzahlstelleOrtP() As String
|
|
Get
|
|
Return Me._zollzahlstelleOrtP
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleOrtP = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=58)>
|
|
Public Overridable Property ZollzahlstelleIBAN() As String
|
|
Get
|
|
Return Me._zollzahlstelleIBAN
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleIBAN = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=59)>
|
|
Public Overridable Property ZollzahlstelleBIC() As String
|
|
Get
|
|
Return Me._zollzahlstelleBIC
|
|
End Get
|
|
Set
|
|
Me._zollzahlstelleBIC = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=60)>
|
|
Public Overridable Property AnmelderEORI() As String
|
|
Get
|
|
Return Me._anmelderEORI
|
|
End Get
|
|
Set
|
|
Me._anmelderEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=61)>
|
|
Public Overridable Property AnmelderNLNR() As String
|
|
Get
|
|
Return Me._anmelderNLNR
|
|
End Get
|
|
Set
|
|
Me._anmelderNLNR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=62)>
|
|
Public Overridable Property VorsteuerabzugKz() As String
|
|
Get
|
|
Return Me._vorsteuerabzugKz
|
|
End Get
|
|
Set
|
|
Me._vorsteuerabzugKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=63)>
|
|
Public Overridable Property AnmelderName() As String
|
|
Get
|
|
Return Me._anmelderName
|
|
End Get
|
|
Set
|
|
Me._anmelderName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=64)>
|
|
Public Overridable Property AnmelderNationalitaet() As String
|
|
Get
|
|
Return Me._anmelderNationalitaet
|
|
End Get
|
|
Set
|
|
Me._anmelderNationalitaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=65)>
|
|
Public Overridable Property AnmelderStrasseHausNr() As String
|
|
Get
|
|
Return Me._anmelderStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._anmelderStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=66)>
|
|
Public Overridable Property AnmelderPLZS() As String
|
|
Get
|
|
Return Me._anmelderPLZS
|
|
End Get
|
|
Set
|
|
Me._anmelderPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=67)>
|
|
Public Overridable Property AnmelderOrtS() As String
|
|
Get
|
|
Return Me._anmelderOrtS
|
|
End Get
|
|
Set
|
|
Me._anmelderOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=68)>
|
|
Public Overridable Property AnmelderOrtsteil() As String
|
|
Get
|
|
Return Me._anmelderOrtsteil
|
|
End Get
|
|
Set
|
|
Me._anmelderOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=69)>
|
|
Public Overridable Property VertreterEORI() As String
|
|
Get
|
|
Return Me._vertreterEORI
|
|
End Get
|
|
Set
|
|
Me._vertreterEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=70)>
|
|
Public Overridable Property VertreterNLNR() As String
|
|
Get
|
|
Return Me._vertreterNLNR
|
|
End Get
|
|
Set
|
|
Me._vertreterNLNR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=71)>
|
|
Public Overridable Property VertreterName() As String
|
|
Get
|
|
Return Me._vertreterName
|
|
End Get
|
|
Set
|
|
Me._vertreterName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=72)>
|
|
Public Overridable Property VertreterNationalitaet() As String
|
|
Get
|
|
Return Me._vertreterNationalitaet
|
|
End Get
|
|
Set
|
|
Me._vertreterNationalitaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=73)>
|
|
Public Overridable Property VertreterStrasseHausNr() As String
|
|
Get
|
|
Return Me._vertreterStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._vertreterStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=74)>
|
|
Public Overridable Property VertreterPLZS() As String
|
|
Get
|
|
Return Me._vertreterPLZS
|
|
End Get
|
|
Set
|
|
Me._vertreterPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=75)>
|
|
Public Overridable Property VertreterOrtS() As String
|
|
Get
|
|
Return Me._vertreterOrtS
|
|
End Get
|
|
Set
|
|
Me._vertreterOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=76)>
|
|
Public Overridable Property VertreterOrtsteil() As String
|
|
Get
|
|
Return Me._vertreterOrtsteil
|
|
End Get
|
|
Set
|
|
Me._vertreterOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=77)>
|
|
Public Overridable Property FRechnungEORI() As String
|
|
Get
|
|
Return Me._fRechnungEORI
|
|
End Get
|
|
Set
|
|
Me._fRechnungEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=78)>
|
|
Public Overridable Property FRechnungNLNR() As String
|
|
Get
|
|
Return Me._fRechnungNLNR
|
|
End Get
|
|
Set
|
|
Me._fRechnungNLNR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=79)>
|
|
Public Overridable Property FRechnungNationalitaet() As String
|
|
Get
|
|
Return Me._fRechnungNationalitaet
|
|
End Get
|
|
Set
|
|
Me._fRechnungNationalitaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=80)>
|
|
Public Overridable Property FRechnungName() As String
|
|
Get
|
|
Return Me._fRechnungName
|
|
End Get
|
|
Set
|
|
Me._fRechnungName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=81)>
|
|
Public Overridable Property FRechnungStrasseHausNr() As String
|
|
Get
|
|
Return Me._fRechnungStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._fRechnungStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=82)>
|
|
Public Overridable Property FRechnungPLZS() As String
|
|
Get
|
|
Return Me._fRechnungPLZS
|
|
End Get
|
|
Set
|
|
Me._fRechnungPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=83)>
|
|
Public Overridable Property FRechnungOrtS() As String
|
|
Get
|
|
Return Me._fRechnungOrtS
|
|
End Get
|
|
Set
|
|
Me._fRechnungOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=84)>
|
|
Public Overridable Property FRechnungOrtsteil() As String
|
|
Get
|
|
Return Me._fRechnungOrtsteil
|
|
End Get
|
|
Set
|
|
Me._fRechnungOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=85)>
|
|
Public Overridable Property EmpfaengerEORI() As String
|
|
Get
|
|
Return Me._empfaengerEORI
|
|
End Get
|
|
Set
|
|
Me._empfaengerEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=86)>
|
|
Public Overridable Property EmpfaengerNLNR() As String
|
|
Get
|
|
Return Me._empfaengerNLNR
|
|
End Get
|
|
Set
|
|
Me._empfaengerNLNR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=87)>
|
|
Public Overridable Property EmpfaengerNationalitaet() As String
|
|
Get
|
|
Return Me._empfaengerNationalitaet
|
|
End Get
|
|
Set
|
|
Me._empfaengerNationalitaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=88)>
|
|
Public Overridable Property EmpfaengerName() As String
|
|
Get
|
|
Return Me._empfaengerName
|
|
End Get
|
|
Set
|
|
Me._empfaengerName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=89)>
|
|
Public Overridable Property EmpfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me._empfaengerStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._empfaengerStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=90)>
|
|
Public Overridable Property EmpfaengerPLZS() As String
|
|
Get
|
|
Return Me._empfaengerPLZS
|
|
End Get
|
|
Set
|
|
Me._empfaengerPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=91)>
|
|
Public Overridable Property EmpfaengerOrtS() As String
|
|
Get
|
|
Return Me._empfaengerOrtS
|
|
End Get
|
|
Set
|
|
Me._empfaengerOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=92)>
|
|
Public Overridable Property EmpfaengerOrtsteil() As String
|
|
Get
|
|
Return Me._empfaengerOrtsteil
|
|
End Get
|
|
Set
|
|
Me._empfaengerOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=93)>
|
|
Public Overridable Property ZahlungsEmpfaengerEORI() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerEORI
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=94)>
|
|
Public Overridable Property ZahlungsEmpfaengerNLNR() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerNLNR
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerNLNR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=95)>
|
|
Public Overridable Property ZahlungsEmpfaengerKreditinstitut() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerKreditinstitut
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerKreditinstitut = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=96)>
|
|
Public Overridable Property ZahlungsEmpfaengerName() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerName
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerName = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=97)>
|
|
Public Overridable Property ZahlungsEmpfaengerNationalitaet() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerNationalitaet
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerNationalitaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=98)>
|
|
Public Overridable Property ZahlungsEmpfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerStrasseHausNr
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerStrasseHausNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=99)>
|
|
Public Overridable Property ZahlungsEmpfaengerPLZS() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerPLZS
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerPLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=100)>
|
|
Public Overridable Property ZahlungsEmpfaengerOrtS() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerOrtS
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerOrtS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=101)>
|
|
Public Overridable Property ZahlungsEmpfaengerOrtsteil() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerOrtsteil
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerOrtsteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=102)>
|
|
Public Overridable Property ZahlungsEmpfaengerIBAN() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerIBAN
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerIBAN = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=103)>
|
|
Public Overridable Property ZahlungsEmpfaengerBIC() As String
|
|
Get
|
|
Return Me._zahlungsEmpfaengerBIC
|
|
End Get
|
|
Set
|
|
Me._zahlungsEmpfaengerBIC = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=104)>
|
|
Public Overridable Property ErstellungsDatumBefund() As Date
|
|
Get
|
|
Return Me._erstellungsDatumBefund
|
|
End Get
|
|
Set
|
|
Me._erstellungsDatumBefund = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=105)>
|
|
Public Overridable Property Erfassungsdatum() As Date
|
|
Get
|
|
Return Me._erfassungsdatum
|
|
End Get
|
|
Set
|
|
Me._erfassungsdatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=106)>
|
|
Public Overridable Property BarzahlungFaelligkeit() As Date
|
|
Get
|
|
Return Me._barzahlungFaelligkeit
|
|
End Get
|
|
Set
|
|
Me._barzahlungFaelligkeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=107)>
|
|
Public Overridable Property SicherheitsleistungFaelligkeit() As Date
|
|
Get
|
|
Return Me._sicherheitsleistungFaelligkeit
|
|
End Get
|
|
Set
|
|
Me._sicherheitsleistungFaelligkeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=108)>
|
|
Public Overridable Property AbrechnungszeitraumBeginn() As Date
|
|
Get
|
|
Return Me._abrechnungszeitraumBeginn
|
|
End Get
|
|
Set
|
|
Me._abrechnungszeitraumBeginn = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date", Order:=109)>
|
|
Public Overridable Property AbrechnungszeitraumEnde() As Date
|
|
Get
|
|
Return Me._abrechnungszeitraumEnde
|
|
End Get
|
|
Set
|
|
Me._abrechnungszeitraumEnde = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=110)>
|
|
Public Overridable Property Zollbefund() As String
|
|
Get
|
|
Return Me._zollbefund
|
|
End Get
|
|
Set
|
|
Me._zollbefund = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=111)>
|
|
Public Overridable Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp
|
|
Get
|
|
Return Me._eZAAVAngabenKopf
|
|
End Get
|
|
Set
|
|
Me._eZAAVAngabenKopf = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=112)>
|
|
Public Overridable Property LieferbedingungCode() As String
|
|
Get
|
|
Return Me._lieferbedingungCode
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=113)>
|
|
Public Overridable Property LieferbedingungText() As String
|
|
Get
|
|
Return Me._lieferbedingungText
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungText = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=114)>
|
|
Public Overridable Property LieferbedingungOrt() As String
|
|
Get
|
|
Return Me._lieferbedingungOrt
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungOrt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=115)>
|
|
Public Overridable Property LieferbedingungSchluessel() As String
|
|
Get
|
|
Return Me._lieferbedingungSchluessel
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungSchluessel = 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KopfDatenEinfuhrbescheidTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable Property IOPartner() As String
|
|
Get
|
|
Return Me._iOPartner
|
|
End Get
|
|
Set
|
|
Me._iOPartner = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
|
|
Public Overridable Property IODivision1() As String
|
|
Get
|
|
Return Me._iODivision1
|
|
End Get
|
|
Set
|
|
Me._iODivision1 = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
|
|
Public Overridable Property IODivision2() As String
|
|
Get
|
|
Return Me._iODivision2
|
|
End Get
|
|
Set
|
|
Me._iODivision2 = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
|
|
Public Overridable Property IODivision3() As String
|
|
Get
|
|
Return Me._iODivision3
|
|
End Get
|
|
Set
|
|
Me._iODivision3 = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
|
|
Public Overridable Property IOReferenz() As String
|
|
Get
|
|
Return Me._iOReferenz
|
|
End Get
|
|
Set
|
|
Me._iOReferenz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
|
|
Public Overridable Property IODatumZeit() As Date
|
|
Get
|
|
Return Me._iODatumZeit
|
|
End Get
|
|
Set
|
|
Me._iODatumZeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger", Order:=6)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As TransaktionFreierVerkehrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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.Xml.Serialization.XmlIncludeAttribute(GetType(AbgabenbescheidEinfuhrTAXTyp)),
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.4084.0"),
|
|
System.SerializableAttribute(),
|
|
System.Diagnostics.DebuggerStepThroughAttribute(),
|
|
System.ComponentModel.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
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, Order:=0)>
|
|
Public Overridable 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 Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Encoding = encoding
|
|
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
SerializerXml.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream, encoding)
|
|
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
|
|
|
|
Public Overridable Overloads Function Serialize() As String
|
|
Return Serialize(System.Text.Encoding.UTF8)
|
|
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 System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.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 System.IO.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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
Try
|
|
SaveToFile(fileName, encoding)
|
|
Return True
|
|
Catch e As System.Exception
|
|
exception = e
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
|
Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception)
|
|
End Function
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
|
SaveToFile(fileName, System.Text.Encoding.UTF8)
|
|
End Sub
|
|
|
|
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding)
|
|
Dim streamWriter As System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim dataString As String = Serialize(encoding)
|
|
streamWriter = New System.IO.StreamWriter(fileName, False, encoding)
|
|
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, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
Try
|
|
obj = LoadFromFile(fileName, encoding)
|
|
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, ByRef exception As System.Exception) As Boolean
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception)
|
|
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
|
|
Return LoadFromFile(fileName, System.Text.Encoding.UTF8)
|
|
End Function
|
|
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DatenaustauschFreierVerkehrTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file, encoding)
|
|
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
|