'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net48","NameSpace":"AbschliessendeFestsetzung_006","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
''
'' ------------------------------------------------------------------------------
#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 AbschliessendeFestsetzung_006
Partial Public Class AbschliessendeFestsetzungTAXATyp
Inherits DatenaustauschFreierVerkehrTyp
#Region "Private fields"
Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp()
End Sub
Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp
Get
Return Me._einzelAbschliessendeFestsetzung
End Get
Set
Me._einzelAbschliessendeFestsetzung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AbschliessendeFestsetzungTAXATyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AbschliessendeFestsetzungTAXATyp object
'''
''' string to deserialize
''' Output AbschliessendeFestsetzungTAXATyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp)
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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbschliessendeFestsetzungTAXATyp
Return CType(SerializerXml.Deserialize(s), AbschliessendeFestsetzungTAXATyp)
End Function
#End Region
'''
''' Serializes current AbschliessendeFestsetzungTAXATyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object
'''
''' File to load and deserialize
''' Output AbschliessendeFestsetzungTAXATyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class EinzelAbschliessendeFestsetzungTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp
Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp
Private _position As List(Of PositionAbschliessendeFestsetzungTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)()
Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp)
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(EinzelAbschliessendeFestsetzungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EinzelAbschliessendeFestsetzungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes EinzelAbschliessendeFestsetzungTyp object
'''
''' string to deserialize
''' Output EinzelAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp)
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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelAbschliessendeFestsetzungTyp
Return CType(SerializerXml.Deserialize(s), EinzelAbschliessendeFestsetzungTyp)
End Function
#End Region
'''
''' Serializes current EinzelAbschliessendeFestsetzungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object
'''
''' File to load and deserialize
''' Output EinzelAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class ObjektIdentifizierungTAXATyp
#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
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
Public Property ObjektAlias() As String
Get
Return Me._objektAlias
End Get
Set
Me._objektAlias = Value
End Set
End Property
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me._eDIFACTNachrichtenNr
End Get
Set
Me._eDIFACTNachrichtenNr = Value
End Set
End Property
Public Property ZeitpunktEingang() As Date
Get
Return Me._zeitpunktEingang
End Get
Set
Me._zeitpunktEingang = Value
End Set
End Property
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXATyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ObjektIdentifizierungTAXATyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes ObjektIdentifizierungTAXATyp object
'''
''' string to deserialize
''' Output ObjektIdentifizierungTAXATyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTAXATyp)
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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungTAXATyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXATyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungTAXATyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object
'''
''' File to load and deserialize
''' Output ObjektIdentifizierungTAXATyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTAXATyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class PositionAbschliessendeFestsetzungTyp
#Region "Private fields"
Private _positionsnummer As String
Private _freigabeSicherheitenKz As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
End Sub
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set
Me._positionsnummer = Value
End Set
End Property
Public Property FreigabeSicherheitenKz() As String
Get
Return Me._freigabeSicherheitenKz
End Get
Set
Me._freigabeSicherheitenKz = Value
End Set
End Property
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PositionAbschliessendeFestsetzungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes PositionAbschliessendeFestsetzungTyp object
'''
''' string to deserialize
''' Output PositionAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp)
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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionAbschliessendeFestsetzungTyp
Return CType(SerializerXml.Deserialize(s), PositionAbschliessendeFestsetzungTyp)
End Function
#End Region
'''
''' Serializes current PositionAbschliessendeFestsetzungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object
'''
''' File to load and deserialize
''' Output PositionAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class ApplicationInternalDataType
#Region "Private fields"
Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
End Sub
Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Get
Return Me._additionalDetails
End Get
Set
Me._additionalDetails = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ApplicationInternalDataType object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes ApplicationInternalDataType object
'''
''' string to deserialize
''' Output ApplicationInternalDataType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
End Function
#End Region
'''
''' Serializes current ApplicationInternalDataType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ApplicationInternalDataType object
'''
''' File to load and deserialize
''' Output ApplicationInternalDataType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class ApplicationInternalDataAdditionalDetailsDataType
#Region "Private fields"
Private _key As String
Private _value As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
Public Property Value() As String
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ApplicationInternalDataAdditionalDetailsDataType object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object
'''
''' string to deserialize
''' Output ApplicationInternalDataAdditionalDetailsDataType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
End Function
#End Region
'''
''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object
'''
''' File to load and deserialize
''' Output ApplicationInternalDataAdditionalDetailsDataType object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class KopfDatenAbschliessendeFestsetzungTyp
#Region "Private fields"
Private _waehrungKz As String
Private _rechtsbehelfKz As String
Private _gesamtschuldnerschaftKz As String
Private _umsatzsteuerIDNr As String
Private _registrierNr As String
Private _veralteteWeitereRegistriernummer As String
Private _nIZZARegistrierKz As String
Private _freizugebeneSicherheitEUR As Decimal
Private _auszahlungArt As String
Private _freigegebeneSicherheitGesamt As Decimal
Private _freigabeSicherheitKz As String
Private _freigabeSicherheitArt As String
Private _sonstigeMitteilung As String
Private _bearbeiter As String
Private _rechtsbehelfHZABezeichung As String
Private _rechtsbehelfHZAEmailAdresse As String
Private _rechtsbehelfHZADEmailAdresse As String
Private _rechtsbehelfHZAStrasseHausNr As String
Private _rechtsbehelfHZAPLZS As String
Private _rechtsbehelfHZAOrtS As String
Private _rechtsbehelfHZAOrtsteil As String
Private _rechtsbehelfHZAPostfach As String
Private _rechtsbehelfHZAPLZP As String
Private _rechtsbehelfHZAOrtP As String
Private _rechnungEORI As String
Private _rechnungNLNR As String
Private _rechnungNationalitaet As String
Private _rechnungNameFirmenbezeichnung As String
Private _rechnungStrasseHausNr As String
Private _rechnungPLZS As String
Private _rechnungOrtS As String
Private _rechnungOrtsteil As String
Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String
Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String
Private _zahlungsempfaengerKreditinstitut As String
Private _zahlungsempfaengerFreigegebeneSicherheitenName 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 _bescheideempfaengerEORI As String
Private _bescheideempfaengerNLNR As String
Private _bescheideempfaengerKreditinstitut As String
Private _bescheideempfaengerName As String
Private _bescheideempfaengerNationalitaet As String
Private _bescheideempfaengerStrasseHausNr As String
Private _bescheideempfaengerPLZS As String
Private _bescheideempfaengerOrtS As String
Private _bescheideempfaengerOrtsteil As String
Private _bescheideempfaengerIBAN As String
Private _bescheideempfaengerBIC As String
Private _abgabenschuldnerEORI As String
Private _abgabenschuldnerNLNR As String
Private _abgabenschuldnerName As String
Private _abgabenschuldnerNationalitaet As String
Private _abgabenschuldnerStrasseHausNr As String
Private _abgabenschuldnerPLZS As String
Private _abgabenschuldnerOrtS As String
Private _abgabenschuldnerOrtsteil As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
End Sub
Public Property WaehrungKz() As String
Get
Return Me._waehrungKz
End Get
Set
Me._waehrungKz = Value
End Set
End Property
Public Property RechtsbehelfKz() As String
Get
Return Me._rechtsbehelfKz
End Get
Set
Me._rechtsbehelfKz = Value
End Set
End Property
Public Property GesamtschuldnerschaftKz() As String
Get
Return Me._gesamtschuldnerschaftKz
End Get
Set
Me._gesamtschuldnerschaftKz = Value
End Set
End Property
Public Property UmsatzsteuerIDNr() As String
Get
Return Me._umsatzsteuerIDNr
End Get
Set
Me._umsatzsteuerIDNr = Value
End Set
End Property
Public Property RegistrierNr() As String
Get
Return Me._registrierNr
End Get
Set
Me._registrierNr = Value
End Set
End Property
Public Property VeralteteWeitereRegistriernummer() As String
Get
Return Me._veralteteWeitereRegistriernummer
End Get
Set
Me._veralteteWeitereRegistriernummer = Value
End Set
End Property
Public Property NIZZARegistrierKz() As String
Get
Return Me._nIZZARegistrierKz
End Get
Set
Me._nIZZARegistrierKz = Value
End Set
End Property
Public Property FreizugebeneSicherheitEUR() As Decimal
Get
Return Me._freizugebeneSicherheitEUR
End Get
Set
Me._freizugebeneSicherheitEUR = Value
End Set
End Property
Public Property AuszahlungArt() As String
Get
Return Me._auszahlungArt
End Get
Set
Me._auszahlungArt = Value
End Set
End Property
Public Property FreigegebeneSicherheitGesamt() As Decimal
Get
Return Me._freigegebeneSicherheitGesamt
End Get
Set
Me._freigegebeneSicherheitGesamt = Value
End Set
End Property
Public Property FreigabeSicherheitKz() As String
Get
Return Me._freigabeSicherheitKz
End Get
Set
Me._freigabeSicherheitKz = Value
End Set
End Property
Public Property FreigabeSicherheitArt() As String
Get
Return Me._freigabeSicherheitArt
End Get
Set
Me._freigabeSicherheitArt = Value
End Set
End Property
Public Property SonstigeMitteilung() As String
Get
Return Me._sonstigeMitteilung
End Get
Set
Me._sonstigeMitteilung = Value
End Set
End Property
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
Public Property RechtsbehelfHZABezeichung() As String
Get
Return Me._rechtsbehelfHZABezeichung
End Get
Set
Me._rechtsbehelfHZABezeichung = Value
End Set
End Property
Public Property RechtsbehelfHZAEmailAdresse() As String
Get
Return Me._rechtsbehelfHZAEmailAdresse
End Get
Set
Me._rechtsbehelfHZAEmailAdresse = Value
End Set
End Property
Public Property RechtsbehelfHZADEmailAdresse() As String
Get
Return Me._rechtsbehelfHZADEmailAdresse
End Get
Set
Me._rechtsbehelfHZADEmailAdresse = Value
End Set
End Property
Public Property RechtsbehelfHZAStrasseHausNr() As String
Get
Return Me._rechtsbehelfHZAStrasseHausNr
End Get
Set
Me._rechtsbehelfHZAStrasseHausNr = Value
End Set
End Property
Public Property RechtsbehelfHZAPLZS() As String
Get
Return Me._rechtsbehelfHZAPLZS
End Get
Set
Me._rechtsbehelfHZAPLZS = Value
End Set
End Property
Public Property RechtsbehelfHZAOrtS() As String
Get
Return Me._rechtsbehelfHZAOrtS
End Get
Set
Me._rechtsbehelfHZAOrtS = Value
End Set
End Property
Public Property RechtsbehelfHZAOrtsteil() As String
Get
Return Me._rechtsbehelfHZAOrtsteil
End Get
Set
Me._rechtsbehelfHZAOrtsteil = Value
End Set
End Property
Public Property RechtsbehelfHZAPostfach() As String
Get
Return Me._rechtsbehelfHZAPostfach
End Get
Set
Me._rechtsbehelfHZAPostfach = Value
End Set
End Property
Public Property RechtsbehelfHZAPLZP() As String
Get
Return Me._rechtsbehelfHZAPLZP
End Get
Set
Me._rechtsbehelfHZAPLZP = Value
End Set
End Property
Public Property RechtsbehelfHZAOrtP() As String
Get
Return Me._rechtsbehelfHZAOrtP
End Get
Set
Me._rechtsbehelfHZAOrtP = Value
End Set
End Property
Public Property RechnungEORI() As String
Get
Return Me._rechnungEORI
End Get
Set
Me._rechnungEORI = Value
End Set
End Property
Public Property RechnungNLNR() As String
Get
Return Me._rechnungNLNR
End Get
Set
Me._rechnungNLNR = Value
End Set
End Property
Public Property RechnungNationalitaet() As String
Get
Return Me._rechnungNationalitaet
End Get
Set
Me._rechnungNationalitaet = Value
End Set
End Property
Public Property RechnungNameFirmenbezeichnung() As String
Get
Return Me._rechnungNameFirmenbezeichnung
End Get
Set
Me._rechnungNameFirmenbezeichnung = Value
End Set
End Property
Public Property RechnungStrasseHausNr() As String
Get
Return Me._rechnungStrasseHausNr
End Get
Set
Me._rechnungStrasseHausNr = Value
End Set
End Property
Public Property RechnungPLZS() As String
Get
Return Me._rechnungPLZS
End Get
Set
Me._rechnungPLZS = Value
End Set
End Property
Public Property RechnungOrtS() As String
Get
Return Me._rechnungOrtS
End Get
Set
Me._rechnungOrtS = Value
End Set
End Property
Public Property RechnungOrtsteil() As String
Get
Return Me._rechnungOrtsteil
End Get
Set
Me._rechnungOrtsteil = Value
End Set
End Property
Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String
Get
Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI
End Get
Set
Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value
End Set
End Property
Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String
Get
Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR
End Get
Set
Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value
End Set
End Property
Public Property ZahlungsempfaengerKreditinstitut() As String
Get
Return Me._zahlungsempfaengerKreditinstitut
End Get
Set
Me._zahlungsempfaengerKreditinstitut = Value
End Set
End Property
Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String
Get
Return Me._zahlungsempfaengerFreigegebeneSicherheitenName
End Get
Set
Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value
End Set
End Property
Public Property ZahlungsempfaengerNationalitaet() As String
Get
Return Me._zahlungsempfaengerNationalitaet
End Get
Set
Me._zahlungsempfaengerNationalitaet = Value
End Set
End Property
Public Property ZahlungsempfaengerStrasseHausNr() As String
Get
Return Me._zahlungsempfaengerStrasseHausNr
End Get
Set
Me._zahlungsempfaengerStrasseHausNr = Value
End Set
End Property
Public Property ZahlungsempfaengerPLZS() As String
Get
Return Me._zahlungsempfaengerPLZS
End Get
Set
Me._zahlungsempfaengerPLZS = Value
End Set
End Property
Public Property ZahlungsempfaengerOrtS() As String
Get
Return Me._zahlungsempfaengerOrtS
End Get
Set
Me._zahlungsempfaengerOrtS = Value
End Set
End Property
Public Property ZahlungsempfaengerOrtsteil() As String
Get
Return Me._zahlungsempfaengerOrtsteil
End Get
Set
Me._zahlungsempfaengerOrtsteil = Value
End Set
End Property
Public Property ZahlungsempfaengerIBAN() As String
Get
Return Me._zahlungsempfaengerIBAN
End Get
Set
Me._zahlungsempfaengerIBAN = Value
End Set
End Property
Public Property ZahlungsempfaengerBIC() As String
Get
Return Me._zahlungsempfaengerBIC
End Get
Set
Me._zahlungsempfaengerBIC = Value
End Set
End Property
Public Property BescheideempfaengerEORI() As String
Get
Return Me._bescheideempfaengerEORI
End Get
Set
Me._bescheideempfaengerEORI = Value
End Set
End Property
Public Property BescheideempfaengerNLNR() As String
Get
Return Me._bescheideempfaengerNLNR
End Get
Set
Me._bescheideempfaengerNLNR = Value
End Set
End Property
Public Property BescheideempfaengerKreditinstitut() As String
Get
Return Me._bescheideempfaengerKreditinstitut
End Get
Set
Me._bescheideempfaengerKreditinstitut = Value
End Set
End Property
Public Property BescheideempfaengerName() As String
Get
Return Me._bescheideempfaengerName
End Get
Set
Me._bescheideempfaengerName = Value
End Set
End Property
Public Property BescheideempfaengerNationalitaet() As String
Get
Return Me._bescheideempfaengerNationalitaet
End Get
Set
Me._bescheideempfaengerNationalitaet = Value
End Set
End Property
Public Property BescheideempfaengerStrasseHausNr() As String
Get
Return Me._bescheideempfaengerStrasseHausNr
End Get
Set
Me._bescheideempfaengerStrasseHausNr = Value
End Set
End Property
Public Property BescheideempfaengerPLZS() As String
Get
Return Me._bescheideempfaengerPLZS
End Get
Set
Me._bescheideempfaengerPLZS = Value
End Set
End Property
Public Property BescheideempfaengerOrtS() As String
Get
Return Me._bescheideempfaengerOrtS
End Get
Set
Me._bescheideempfaengerOrtS = Value
End Set
End Property
Public Property BescheideempfaengerOrtsteil() As String
Get
Return Me._bescheideempfaengerOrtsteil
End Get
Set
Me._bescheideempfaengerOrtsteil = Value
End Set
End Property
Public Property BescheideempfaengerIBAN() As String
Get
Return Me._bescheideempfaengerIBAN
End Get
Set
Me._bescheideempfaengerIBAN = Value
End Set
End Property
Public Property BescheideempfaengerBIC() As String
Get
Return Me._bescheideempfaengerBIC
End Get
Set
Me._bescheideempfaengerBIC = Value
End Set
End Property
Public Property AbgabenschuldnerEORI() As String
Get
Return Me._abgabenschuldnerEORI
End Get
Set
Me._abgabenschuldnerEORI = Value
End Set
End Property
Public Property AbgabenschuldnerNLNR() As String
Get
Return Me._abgabenschuldnerNLNR
End Get
Set
Me._abgabenschuldnerNLNR = Value
End Set
End Property
Public Property AbgabenschuldnerName() As String
Get
Return Me._abgabenschuldnerName
End Get
Set
Me._abgabenschuldnerName = Value
End Set
End Property
Public Property AbgabenschuldnerNationalitaet() As String
Get
Return Me._abgabenschuldnerNationalitaet
End Get
Set
Me._abgabenschuldnerNationalitaet = Value
End Set
End Property
Public Property AbgabenschuldnerStrasseHausNr() As String
Get
Return Me._abgabenschuldnerStrasseHausNr
End Get
Set
Me._abgabenschuldnerStrasseHausNr = Value
End Set
End Property
Public Property AbgabenschuldnerPLZS() As String
Get
Return Me._abgabenschuldnerPLZS
End Get
Set
Me._abgabenschuldnerPLZS = Value
End Set
End Property
Public Property AbgabenschuldnerOrtS() As String
Get
Return Me._abgabenschuldnerOrtS
End Get
Set
Me._abgabenschuldnerOrtS = Value
End Set
End Property
Public Property AbgabenschuldnerOrtsteil() As String
Get
Return Me._abgabenschuldnerOrtsteil
End Get
Set
Me._abgabenschuldnerOrtsteil = Value
End Set
End Property
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize KopfDatenAbschliessendeFestsetzungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes KopfDatenAbschliessendeFestsetzungTyp object
'''
''' string to deserialize
''' Output KopfDatenAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp)
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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenAbschliessendeFestsetzungTyp
Return CType(SerializerXml.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp)
End Function
#End Region
'''
''' Serializes current KopfDatenAbschliessendeFestsetzungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object
'''
''' File to load and deserialize
''' Output KopfDatenAbschliessendeFestsetzungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
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
Public Property IOPartner() As String
Get
Return Me._iOPartner
End Get
Set
Me._iOPartner = Value
End Set
End Property
Public Property IODivision1() As String
Get
Return Me._iODivision1
End Get
Set
Me._iODivision1 = Value
End Set
End Property
Public Property IODivision2() As String
Get
Return Me._iODivision2
End Get
Set
Me._iODivision2 = Value
End Set
End Property
Public Property IODivision3() As String
Get
Return Me._iODivision3
End Get
Set
Me._iODivision3 = Value
End Set
End Property
Public Property IOReferenz() As String
Get
Return Me._iOReferenz
End Get
Set
Me._iOReferenz = Value
End Set
End Property
Public Property IODatumZeit() As Date
Get
Return Me._iODatumZeit
End Get
Set
Me._iODatumZeit = Value
End Set
End Property
Public Property Version() As String
Get
Return Me._version
End Get
Set
Me._version = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize TransaktionFreierVerkehrTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes TransaktionFreierVerkehrTyp object
'''
''' string to deserialize
''' Output TransaktionFreierVerkehrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionFreierVerkehrTyp
Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp)
End Function
#End Region
'''
''' Serializes current TransaktionFreierVerkehrTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object
'''
''' File to load and deserialize
''' Output TransaktionFreierVerkehrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
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
Public Property Transaktion() As TransaktionFreierVerkehrTyp
Get
Return Me._transaktion
End Get
Set
Me._transaktion = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize DatenaustauschFreierVerkehrTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes DatenaustauschFreierVerkehrTyp object
'''
''' string to deserialize
''' Output DatenaustauschFreierVerkehrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschFreierVerkehrTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp)
End Function
#End Region
'''
''' Serializes current DatenaustauschFreierVerkehrTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object
'''
''' File to load and deserialize
''' Output DatenaustauschFreierVerkehrTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
End Namespace
#Enable Warning