1999 lines
75 KiB
VB.net
1999 lines
75 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
|
|
'' <NameSpace>AbschliessendeFestsetzung_005</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net20</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
|
|
'' </auto-generated>
|
|
'' ------------------------------------------------------------------------------
|
|
Imports System
|
|
Imports System.Diagnostics
|
|
Imports System.Xml.Serialization
|
|
Imports System.Collections
|
|
Imports System.Xml.Schema
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Collections.Generic
|
|
|
|
Namespace AbschliessendeFestsetzung_005
|
|
|
|
Partial Public Class AbschliessendeFestsetzungTAXATyp
|
|
Inherits DatenaustauschFreierVerkehrTyp
|
|
|
|
Private einzelAbschliessendeFestsetzungField As EinzelAbschliessendeFestsetzungTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.einzelAbschliessendeFestsetzungField = New EinzelAbschliessendeFestsetzungTyp()
|
|
End Sub
|
|
|
|
Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp
|
|
Get
|
|
Return Me.einzelAbschliessendeFestsetzungField
|
|
End Get
|
|
Set
|
|
Me.einzelAbschliessendeFestsetzungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbschliessendeFestsetzungTAXATyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbschliessendeFestsetzungTAXATyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an AbschliessendeFestsetzungTAXATyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbschliessendeFestsetzungTAXATyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbschliessendeFestsetzungTAXATyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
Partial Public Class EinzelAbschliessendeFestsetzungTyp
|
|
|
|
Private objektIdentifizierungField As ObjektIdentifizierungTAXATyp
|
|
|
|
Private kopfDatenField As KopfDatenAbschliessendeFestsetzungTyp
|
|
|
|
Private positionField As List(Of PositionAbschliessendeFestsetzungTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.positionField = New List(Of PositionAbschliessendeFestsetzungTyp)()
|
|
Me.kopfDatenField = New KopfDatenAbschliessendeFestsetzungTyp()
|
|
Me.objektIdentifizierungField = New ObjektIdentifizierungTAXATyp()
|
|
End Sub
|
|
|
|
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp
|
|
Get
|
|
Return Me.objektIdentifizierungField
|
|
End Get
|
|
Set
|
|
Me.objektIdentifizierungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp
|
|
Get
|
|
Return Me.kopfDatenField
|
|
End Get
|
|
Set
|
|
Me.kopfDatenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp)
|
|
Get
|
|
Return Me.positionField
|
|
End Get
|
|
Set
|
|
Me.positionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbschliessendeFestsetzungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EinzelAbschliessendeFestsetzungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an EinzelAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EinzelAbschliessendeFestsetzungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbschliessendeFestsetzungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
Partial Public Class ObjektIdentifizierungTAXATyp
|
|
|
|
Private objektNameField As String
|
|
|
|
Private objektAliasField As String
|
|
|
|
Private eDIFACTNachrichtenNrField As String
|
|
|
|
Private zeitpunktEingangField As Date
|
|
|
|
Private shipmentReferenzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ObjektName() As String
|
|
Get
|
|
Return Me.objektNameField
|
|
End Get
|
|
Set
|
|
Me.objektNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ObjektAlias() As String
|
|
Get
|
|
Return Me.objektAliasField
|
|
End Get
|
|
Set
|
|
Me.objektAliasField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EDIFACTNachrichtenNr() As String
|
|
Get
|
|
Return Me.eDIFACTNachrichtenNrField
|
|
End Get
|
|
Set
|
|
Me.eDIFACTNachrichtenNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZeitpunktEingang() As Date
|
|
Get
|
|
Return Me.zeitpunktEingangField
|
|
End Get
|
|
Set
|
|
Me.zeitpunktEingangField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ShipmentReferenz() As String
|
|
Get
|
|
Return Me.shipmentReferenzField
|
|
End Get
|
|
Set
|
|
Me.shipmentReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXATyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current ObjektIdentifizierungTAXATyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an ObjektIdentifizierungTAXATyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output ObjektIdentifizierungTAXATyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungTAXATyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXATyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
Partial Public Class PositionAbschliessendeFestsetzungTyp
|
|
|
|
Private positionsnummerField As String
|
|
|
|
Private freigabeSicherheitenKzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Positionsnummer() As String
|
|
Get
|
|
Return Me.positionsnummerField
|
|
End Get
|
|
Set
|
|
Me.positionsnummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreigabeSicherheitenKz() As String
|
|
Get
|
|
Return Me.freigabeSicherheitenKzField
|
|
End Get
|
|
Set
|
|
Me.freigabeSicherheitenKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionAbschliessendeFestsetzungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current PositionAbschliessendeFestsetzungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an PositionAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output PositionAbschliessendeFestsetzungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbschliessendeFestsetzungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
Partial Public Class KopfDatenAbschliessendeFestsetzungTyp
|
|
|
|
Private waehrungKzField As String
|
|
|
|
Private rechtsbehelfKzField As String
|
|
|
|
Private gesamtschuldnerschaftKzField As String
|
|
|
|
Private umsatzsteuerIDNrField As String
|
|
|
|
Private registrierNrField As String
|
|
|
|
Private nIZZARegistrierKzField As String
|
|
|
|
Private freizugebeneSicherheitEURField As Decimal
|
|
|
|
Private freizugebeneSicherheitEURFieldSpecified As Boolean
|
|
|
|
Private auszahlungArtField As String
|
|
|
|
Private freigegebeneSicherheitGesamtField As Decimal
|
|
|
|
Private freigegebeneSicherheitGesamtFieldSpecified As Boolean
|
|
|
|
Private freigabeSicherheitKzField As String
|
|
|
|
Private freigabeSicherheitArtField As String
|
|
|
|
Private sonstigeMitteilungField As String
|
|
|
|
Private bearbeiterField As String
|
|
|
|
Private rechtsbehelfHZABezeichungField As String
|
|
|
|
Private rechtsbehelfHZAEmailAdresseField As String
|
|
|
|
Private rechtsbehelfHZADEmailAdresseField As String
|
|
|
|
Private rechtsbehelfHZAStrasseHausNrField As String
|
|
|
|
Private rechtsbehelfHZAPLZSField As String
|
|
|
|
Private rechtsbehelfHZAOrtSField As String
|
|
|
|
Private rechtsbehelfHZAOrtsteilField As String
|
|
|
|
Private rechtsbehelfHZAPostfachField As String
|
|
|
|
Private rechtsbehelfHZAPLZPField As String
|
|
|
|
Private rechtsbehelfHZAOrtPField As String
|
|
|
|
Private rechnungEORIField As String
|
|
|
|
Private rechnungNLNRField As String
|
|
|
|
Private rechnungNationalitaetField As String
|
|
|
|
Private rechnungNameFirmenbezeichnungField As String
|
|
|
|
Private rechnungStrasseHausNrField As String
|
|
|
|
Private rechnungPLZSField As String
|
|
|
|
Private rechnungOrtSField As String
|
|
|
|
Private rechnungOrtsteilField As String
|
|
|
|
Private zahlungsempfaengerFreigegebeneSicherheitenEORIField As String
|
|
|
|
Private zahlungsempfaengerFreigegebeneSicherheitenNLNRField As String
|
|
|
|
Private zahlungsempfaengerKreditinstitutField As String
|
|
|
|
Private zahlungsempfaengerFreigegebeneSicherheitenNameField As String
|
|
|
|
Private zahlungsempfaengerNationalitaetField As String
|
|
|
|
Private zahlungsempfaengerStrasseHausNrField As String
|
|
|
|
Private zahlungsempfaengerPLZSField As String
|
|
|
|
Private zahlungsempfaengerOrtSField As String
|
|
|
|
Private zahlungsempfaengerOrtsteilField As String
|
|
|
|
Private zahlungsempfaengerIBANField As String
|
|
|
|
Private zahlungsempfaengerBICField As String
|
|
|
|
Private bescheideempfaengerEORIField As String
|
|
|
|
Private bescheideempfaengerNLNRField As String
|
|
|
|
Private bescheideempfaengerKreditinstitutField As String
|
|
|
|
Private bescheideempfaengerNameField As String
|
|
|
|
Private bescheideempfaengerNationalitaetField As String
|
|
|
|
Private bescheideempfaengerStrasseHausNrField As String
|
|
|
|
Private bescheideempfaengerPLZSField As String
|
|
|
|
Private bescheideempfaengerOrtSField As String
|
|
|
|
Private bescheideempfaengerOrtsteilField As String
|
|
|
|
Private bescheideempfaengerIBANField As String
|
|
|
|
Private bescheideempfaengerBICField As String
|
|
|
|
Private abgabenschuldnerEORIField As String
|
|
|
|
Private abgabenschuldnerNLNRField As String
|
|
|
|
Private abgabenschuldnerNameField As String
|
|
|
|
Private abgabenschuldnerNationalitaetField As String
|
|
|
|
Private abgabenschuldnerStrasseHausNrField As String
|
|
|
|
Private abgabenschuldnerPLZSField As String
|
|
|
|
Private abgabenschuldnerOrtSField As String
|
|
|
|
Private abgabenschuldnerOrtsteilField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property WaehrungKz() As String
|
|
Get
|
|
Return Me.waehrungKzField
|
|
End Get
|
|
Set
|
|
Me.waehrungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfKz() As String
|
|
Get
|
|
Return Me.rechtsbehelfKzField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GesamtschuldnerschaftKz() As String
|
|
Get
|
|
Return Me.gesamtschuldnerschaftKzField
|
|
End Get
|
|
Set
|
|
Me.gesamtschuldnerschaftKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UmsatzsteuerIDNr() As String
|
|
Get
|
|
Return Me.umsatzsteuerIDNrField
|
|
End Get
|
|
Set
|
|
Me.umsatzsteuerIDNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RegistrierNr() As String
|
|
Get
|
|
Return Me.registrierNrField
|
|
End Get
|
|
Set
|
|
Me.registrierNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property NIZZARegistrierKz() As String
|
|
Get
|
|
Return Me.nIZZARegistrierKzField
|
|
End Get
|
|
Set
|
|
Me.nIZZARegistrierKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreizugebeneSicherheitEUR() As Decimal
|
|
Get
|
|
Return Me.freizugebeneSicherheitEURField
|
|
End Get
|
|
Set
|
|
Me.freizugebeneSicherheitEURField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property FreizugebeneSicherheitEURSpecified() As Boolean
|
|
Get
|
|
Return Me.freizugebeneSicherheitEURFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.freizugebeneSicherheitEURFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AuszahlungArt() As String
|
|
Get
|
|
Return Me.auszahlungArtField
|
|
End Get
|
|
Set
|
|
Me.auszahlungArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreigegebeneSicherheitGesamt() As Decimal
|
|
Get
|
|
Return Me.freigegebeneSicherheitGesamtField
|
|
End Get
|
|
Set
|
|
Me.freigegebeneSicherheitGesamtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property FreigegebeneSicherheitGesamtSpecified() As Boolean
|
|
Get
|
|
Return Me.freigegebeneSicherheitGesamtFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.freigegebeneSicherheitGesamtFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreigabeSicherheitKz() As String
|
|
Get
|
|
Return Me.freigabeSicherheitKzField
|
|
End Get
|
|
Set
|
|
Me.freigabeSicherheitKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FreigabeSicherheitArt() As String
|
|
Get
|
|
Return Me.freigabeSicherheitArtField
|
|
End Get
|
|
Set
|
|
Me.freigabeSicherheitArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SonstigeMitteilung() As String
|
|
Get
|
|
Return Me.sonstigeMitteilungField
|
|
End Get
|
|
Set
|
|
Me.sonstigeMitteilungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bearbeiter() As String
|
|
Get
|
|
Return Me.bearbeiterField
|
|
End Get
|
|
Set
|
|
Me.bearbeiterField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZABezeichung() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZABezeichungField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZABezeichungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAEmailAdresse() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZADEmailAdresse() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZADEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZADEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAStrasseHausNr() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAPLZS() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAPLZSField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAOrtS() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAOrtSField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAOrtsteil() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAPostfach() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAPostfachField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAPostfachField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAPLZP() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAPLZPField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAPLZPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechtsbehelfHZAOrtP() As String
|
|
Get
|
|
Return Me.rechtsbehelfHZAOrtPField
|
|
End Get
|
|
Set
|
|
Me.rechtsbehelfHZAOrtPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungEORI() As String
|
|
Get
|
|
Return Me.rechnungEORIField
|
|
End Get
|
|
Set
|
|
Me.rechnungEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungNLNR() As String
|
|
Get
|
|
Return Me.rechnungNLNRField
|
|
End Get
|
|
Set
|
|
Me.rechnungNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungNationalitaet() As String
|
|
Get
|
|
Return Me.rechnungNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.rechnungNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungNameFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.rechnungNameFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.rechnungNameFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungStrasseHausNr() As String
|
|
Get
|
|
Return Me.rechnungStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.rechnungStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungPLZS() As String
|
|
Get
|
|
Return Me.rechnungPLZSField
|
|
End Get
|
|
Set
|
|
Me.rechnungPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungOrtS() As String
|
|
Get
|
|
Return Me.rechnungOrtSField
|
|
End Get
|
|
Set
|
|
Me.rechnungOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property RechnungOrtsteil() As String
|
|
Get
|
|
Return Me.rechnungOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.rechnungOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerKreditinstitut() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerKreditinstitutField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerKreditinstitutField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerFreigegebeneSicherheitenNameField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerFreigegebeneSicherheitenNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerNationalitaet() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerPLZS() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerPLZSField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerOrtS() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerOrtSField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerOrtsteil() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerIBAN() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerIBANField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerIBANField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZahlungsempfaengerBIC() As String
|
|
Get
|
|
Return Me.zahlungsempfaengerBICField
|
|
End Get
|
|
Set
|
|
Me.zahlungsempfaengerBICField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerEORI() As String
|
|
Get
|
|
Return Me.bescheideempfaengerEORIField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerNLNR() As String
|
|
Get
|
|
Return Me.bescheideempfaengerNLNRField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerKreditinstitut() As String
|
|
Get
|
|
Return Me.bescheideempfaengerKreditinstitutField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerKreditinstitutField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerName() As String
|
|
Get
|
|
Return Me.bescheideempfaengerNameField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerNationalitaet() As String
|
|
Get
|
|
Return Me.bescheideempfaengerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me.bescheideempfaengerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerPLZS() As String
|
|
Get
|
|
Return Me.bescheideempfaengerPLZSField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerOrtS() As String
|
|
Get
|
|
Return Me.bescheideempfaengerOrtSField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerOrtsteil() As String
|
|
Get
|
|
Return Me.bescheideempfaengerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerIBAN() As String
|
|
Get
|
|
Return Me.bescheideempfaengerIBANField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerIBANField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BescheideempfaengerBIC() As String
|
|
Get
|
|
Return Me.bescheideempfaengerBICField
|
|
End Get
|
|
Set
|
|
Me.bescheideempfaengerBICField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerEORI() As String
|
|
Get
|
|
Return Me.abgabenschuldnerEORIField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerNLNR() As String
|
|
Get
|
|
Return Me.abgabenschuldnerNLNRField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerName() As String
|
|
Get
|
|
Return Me.abgabenschuldnerNameField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerNationalitaet() As String
|
|
Get
|
|
Return Me.abgabenschuldnerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerStrasseHausNr() As String
|
|
Get
|
|
Return Me.abgabenschuldnerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerPLZS() As String
|
|
Get
|
|
Return Me.abgabenschuldnerPLZSField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerOrtS() As String
|
|
Get
|
|
Return Me.abgabenschuldnerOrtSField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabenschuldnerOrtsteil() As String
|
|
Get
|
|
Return Me.abgabenschuldnerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.abgabenschuldnerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KopfDatenAbschliessendeFestsetzungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an KopfDatenAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KopfDatenAbschliessendeFestsetzungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenAbschliessendeFestsetzungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
Partial Public Class TransaktionFreierVerkehrTyp
|
|
|
|
Private iOPartnerField As String
|
|
|
|
Private iODivision1Field As String
|
|
|
|
Private iODivision2Field As String
|
|
|
|
Private iODivision3Field As String
|
|
|
|
Private iOReferenzField As String
|
|
|
|
Private iODatumZeitField As Date
|
|
|
|
Private versionField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property IOPartner() As String
|
|
Get
|
|
Return Me.iOPartnerField
|
|
End Get
|
|
Set
|
|
Me.iOPartnerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision1() As String
|
|
Get
|
|
Return Me.iODivision1Field
|
|
End Get
|
|
Set
|
|
Me.iODivision1Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision2() As String
|
|
Get
|
|
Return Me.iODivision2Field
|
|
End Get
|
|
Set
|
|
Me.iODivision2Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision3() As String
|
|
Get
|
|
Return Me.iODivision3Field
|
|
End Get
|
|
Set
|
|
Me.iODivision3Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IOReferenz() As String
|
|
Get
|
|
Return Me.iOReferenzField
|
|
End Get
|
|
Set
|
|
Me.iOReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODatumZeit() As Date
|
|
Get
|
|
Return Me.iODatumZeitField
|
|
End Get
|
|
Set
|
|
Me.iODatumZeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Version() As String
|
|
Get
|
|
Return Me.versionField
|
|
End Get
|
|
Set
|
|
Me.versionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current TransaktionFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
|
|
<System.Xml.Serialization.XmlIncludeAttribute(GetType(AbschliessendeFestsetzungTAXATyp))>
|
|
Partial Public Class DatenaustauschFreierVerkehrTyp
|
|
|
|
Private transaktionField As TransaktionFreierVerkehrTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.transaktionField = New TransaktionFreierVerkehrTyp()
|
|
End Sub
|
|
|
|
Public Property Transaktion() As TransaktionFreierVerkehrTyp
|
|
Get
|
|
Return Me.transaktionField
|
|
End Get
|
|
Set
|
|
Me.transaktionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
'''<summary>
|
|
'''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
End Namespace
|