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