'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
'' WeitergabeHauptzollamt_002ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue
''
'' ------------------------------------------------------------------------------
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 WeitergabeHauptzollamt_002
Partial Public Class WeiterleitungTRATyp
Inherits DatenaustauschFreierVerkehrTyp
Private einzelWeiterleitungField As EinzelWeiterleitungTyp
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.einzelWeiterleitungField = New EinzelWeiterleitungTyp()
End Sub
Public Property EinzelWeiterleitung() As EinzelWeiterleitungTyp
Get
Return Me.einzelWeiterleitungField
End Get
Set
Me.einzelWeiterleitungField = 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(WeiterleitungTRATyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current WeiterleitungTRATyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an WeiterleitungTRATyp object
'''
'''string workflow markup to deserialize
'''Output WeiterleitungTRATyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WeiterleitungTRATyp)
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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WeiterleitungTRATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current WeiterleitungTRATyp 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 WeiterleitungTRATyp object
'''
'''string xml file to load and deserialize
'''Output WeiterleitungTRATyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WeiterleitungTRATyp)
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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp
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 EinzelWeiterleitungTyp
Private objektIdentifizierungField As ObjektIdentifizierungTRATyp
Private kopfDatenField As KopfDatenWeiterleitungTyp
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.kopfDatenField = New KopfDatenWeiterleitungTyp()
Me.objektIdentifizierungField = New ObjektIdentifizierungTRATyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungTRATyp
Get
Return Me.objektIdentifizierungField
End Get
Set
Me.objektIdentifizierungField = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenWeiterleitungTyp
Get
Return Me.kopfDatenField
End Get
Set
Me.kopfDatenField = 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(EinzelWeiterleitungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current EinzelWeiterleitungTyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an EinzelWeiterleitungTyp object
'''
'''string workflow markup to deserialize
'''Output EinzelWeiterleitungTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelWeiterleitungTyp)
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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelWeiterleitungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current EinzelWeiterleitungTyp 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 EinzelWeiterleitungTyp object
'''
'''string xml file to load and deserialize
'''Output EinzelWeiterleitungTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelWeiterleitungTyp)
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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp
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 ObjektIdentifizierungTRATyp
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(ObjektIdentifizierungTRATyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current ObjektIdentifizierungTRATyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an ObjektIdentifizierungTRATyp object
'''
'''string workflow markup to deserialize
'''Output ObjektIdentifizierungTRATyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTRATyp)
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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTRATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current ObjektIdentifizierungTRATyp 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 ObjektIdentifizierungTRATyp object
'''
'''string xml file to load and deserialize
'''Output ObjektIdentifizierungTRATyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungTRATyp)
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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp
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 KopfDatenWeiterleitungTyp
Private zollBearbeiterField As String
Private weiterleitungBegruendungField As String
Private weitergeleiteteZollanmeldungRegistrierNrField As String
Private weiterleitungDatumField As Date
Private weiterleitungDatumFieldSpecified As Boolean
Private dienststellenschluesselField As String
Private hZABezeichnungField As String
Private hZAOrtSField As String
Private hZAPLZSField As String
Private hZAStrasseHausNrField As String
Private hZAOrtPField As String
Private hZAPLZPField As String
Private hZAPostfachField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property ZollBearbeiter() As String
Get
Return Me.zollBearbeiterField
End Get
Set
Me.zollBearbeiterField = Value
End Set
End Property
Public Property WeiterleitungBegruendung() As String
Get
Return Me.weiterleitungBegruendungField
End Get
Set
Me.weiterleitungBegruendungField = Value
End Set
End Property
Public Property WeitergeleiteteZollanmeldungRegistrierNr() As String
Get
Return Me.weitergeleiteteZollanmeldungRegistrierNrField
End Get
Set
Me.weitergeleiteteZollanmeldungRegistrierNrField = Value
End Set
End Property
Public Property WeiterleitungDatum() As Date
Get
Return Me.weiterleitungDatumField
End Get
Set
Me.weiterleitungDatumField = Value
End Set
End Property
Public Property WeiterleitungDatumSpecified() As Boolean
Get
Return Me.weiterleitungDatumFieldSpecified
End Get
Set
Me.weiterleitungDatumFieldSpecified = Value
End Set
End Property
Public Property Dienststellenschluessel() As String
Get
Return Me.dienststellenschluesselField
End Get
Set
Me.dienststellenschluesselField = Value
End Set
End Property
Public Property HZABezeichnung() As String
Get
Return Me.hZABezeichnungField
End Get
Set
Me.hZABezeichnungField = Value
End Set
End Property
Public Property HZAOrtS() As String
Get
Return Me.hZAOrtSField
End Get
Set
Me.hZAOrtSField = Value
End Set
End Property
Public Property HZAPLZS() As String
Get
Return Me.hZAPLZSField
End Get
Set
Me.hZAPLZSField = Value
End Set
End Property
Public Property HZAStrasseHausNr() As String
Get
Return Me.hZAStrasseHausNrField
End Get
Set
Me.hZAStrasseHausNrField = Value
End Set
End Property
Public Property HZAOrtP() As String
Get
Return Me.hZAOrtPField
End Get
Set
Me.hZAOrtPField = Value
End Set
End Property
Public Property HZAPLZP() As String
Get
Return Me.hZAPLZPField
End Get
Set
Me.hZAPLZPField = Value
End Set
End Property
Public Property HZAPostfach() As String
Get
Return Me.hZAPostfachField
End Get
Set
Me.hZAPostfachField = 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(KopfDatenWeiterleitungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current KopfDatenWeiterleitungTyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an KopfDatenWeiterleitungTyp object
'''
'''string workflow markup to deserialize
'''Output KopfDatenWeiterleitungTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenWeiterleitungTyp)
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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenWeiterleitungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current KopfDatenWeiterleitungTyp 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 KopfDatenWeiterleitungTyp object
'''
'''string xml file to load and deserialize
'''Output KopfDatenWeiterleitungTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenWeiterleitungTyp)
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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp
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"
'''
'''Serializes current TransaktionFreierVerkehrTyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object
'''
'''string workflow markup to deserialize
'''Output TransaktionFreierVerkehrTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
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
'''
'''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 XmlSerializer 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 Region
End Class
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"
'''
'''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document
'''
'''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()
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
'''
'''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object
'''
'''string workflow markup to deserialize
'''Output DatenaustauschFreierVerkehrTyp object
'''output Exception value if deserialize failed
'''true if this XmlSerializer can deserialize the object; otherwise, false
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
'''
'''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 XmlSerializer 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 Region
End Class
End Namespace