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

2558 lines
98 KiB
VB.net

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