'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
'' MitteilungAbschreibung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue
''
'' ------------------------------------------------------------------------------
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 MitteilungAbschreibung_004
Partial Public Class MitteilungAbschreibungNOATyp
Inherits DatenaustauschFreierVerkehrTyp
Private einzelMitteilungAbschreibungField As EinzelMitteilungAbschreibungTyp
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.einzelMitteilungAbschreibungField = New EinzelMitteilungAbschreibungTyp()
End Sub
Public Property EinzelMitteilungAbschreibung() As EinzelMitteilungAbschreibungTyp
Get
Return Me.einzelMitteilungAbschreibungField
End Get
Set
Me.einzelMitteilungAbschreibungField = 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(MitteilungAbschreibungNOATyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current MitteilungAbschreibungNOATyp 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 MitteilungAbschreibungNOATyp object
'''
'''string workflow markup to deserialize
'''Output MitteilungAbschreibungNOATyp 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 MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, MitteilungAbschreibungNOATyp)
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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), MitteilungAbschreibungNOATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current MitteilungAbschreibungNOATyp 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 MitteilungAbschreibungNOATyp object
'''
'''string xml file to load and deserialize
'''Output MitteilungAbschreibungNOATyp 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 MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, MitteilungAbschreibungNOATyp)
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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp
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 EinzelMitteilungAbschreibungTyp
Private objektIdentifizierungField As ObjektIdentifizierungNOATyp
Private kopfDatenField As KopfDatenMitteilungAbschreibungTyp
Private positionField As List(Of PositionMitteilungAbschreibungTyp)
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.positionField = New List(Of PositionMitteilungAbschreibungTyp)()
Me.kopfDatenField = New KopfDatenMitteilungAbschreibungTyp()
Me.objektIdentifizierungField = New ObjektIdentifizierungNOATyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungNOATyp
Get
Return Me.objektIdentifizierungField
End Get
Set
Me.objektIdentifizierungField = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenMitteilungAbschreibungTyp
Get
Return Me.kopfDatenField
End Get
Set
Me.kopfDatenField = Value
End Set
End Property
Public Property Position() As List(Of PositionMitteilungAbschreibungTyp)
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(EinzelMitteilungAbschreibungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current EinzelMitteilungAbschreibungTyp 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 EinzelMitteilungAbschreibungTyp object
'''
'''string workflow markup to deserialize
'''Output EinzelMitteilungAbschreibungTyp 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 EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelMitteilungAbschreibungTyp)
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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelMitteilungAbschreibungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current EinzelMitteilungAbschreibungTyp 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 EinzelMitteilungAbschreibungTyp object
'''
'''string xml file to load and deserialize
'''Output EinzelMitteilungAbschreibungTyp 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 EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelMitteilungAbschreibungTyp)
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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp
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 ObjektIdentifizierungNOATyp
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(ObjektIdentifizierungNOATyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current ObjektIdentifizierungNOATyp 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 ObjektIdentifizierungNOATyp object
'''
'''string workflow markup to deserialize
'''Output ObjektIdentifizierungNOATyp 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 ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungNOATyp)
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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungNOATyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current ObjektIdentifizierungNOATyp 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 ObjektIdentifizierungNOATyp object
'''
'''string xml file to load and deserialize
'''Output ObjektIdentifizierungNOATyp 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 ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungNOATyp)
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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp
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 AbschreibungRestmengeWertNOATYp
Private abschreibungMengeWertField As String
Private restMengeWertField As String
Private abschreibungRestMasseinheitField As String
Private abschreibungRestQualifikatorField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property AbschreibungMengeWert() As String
Get
Return Me.abschreibungMengeWertField
End Get
Set
Me.abschreibungMengeWertField = Value
End Set
End Property
Public Property RestMengeWert() As String
Get
Return Me.restMengeWertField
End Get
Set
Me.restMengeWertField = Value
End Set
End Property
Public Property AbschreibungRestMasseinheit() As String
Get
Return Me.abschreibungRestMasseinheitField
End Get
Set
Me.abschreibungRestMasseinheitField = Value
End Set
End Property
Public Property AbschreibungRestQualifikator() As String
Get
Return Me.abschreibungRestQualifikatorField
End Get
Set
Me.abschreibungRestQualifikatorField = 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(AbschreibungRestmengeWertNOATYp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current AbschreibungRestmengeWertNOATYp 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 AbschreibungRestmengeWertNOATYp object
'''
'''string workflow markup to deserialize
'''Output AbschreibungRestmengeWertNOATYp 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 AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbschreibungRestmengeWertNOATYp)
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 AbschreibungRestmengeWertNOATYp) 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 AbschreibungRestmengeWertNOATYp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbschreibungRestmengeWertNOATYp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current AbschreibungRestmengeWertNOATYp 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 AbschreibungRestmengeWertNOATYp object
'''
'''string xml file to load and deserialize
'''Output AbschreibungRestmengeWertNOATYp 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 AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbschreibungRestmengeWertNOATYp)
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 AbschreibungRestmengeWertNOATYp) 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 AbschreibungRestmengeWertNOATYp
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 PositionMitteilungAbschreibungTyp
Private positionsNrField As String
Private unterlageArtField As String
Private unterlageNrField As String
Private abschreibungDatumField As Date
Private abschreibungDatumFieldSpecified As Boolean
Private abschreibungUhrzeitField As Date
Private abschreibungUhrzeitFieldSpecified As Boolean
Private abschreibungStornierungKzField As String
Private abschreibungRestmengeWertField As List(Of AbschreibungRestmengeWertNOATYp)
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.abschreibungRestmengeWertField = New List(Of AbschreibungRestmengeWertNOATYp)()
End Sub
Public Property PositionsNr() As String
Get
Return Me.positionsNrField
End Get
Set
Me.positionsNrField = Value
End Set
End Property
Public Property UnterlageArt() As String
Get
Return Me.unterlageArtField
End Get
Set
Me.unterlageArtField = Value
End Set
End Property
Public Property UnterlageNr() As String
Get
Return Me.unterlageNrField
End Get
Set
Me.unterlageNrField = Value
End Set
End Property
Public Property AbschreibungDatum() As Date
Get
Return Me.abschreibungDatumField
End Get
Set
Me.abschreibungDatumField = Value
End Set
End Property
Public Property AbschreibungDatumSpecified() As Boolean
Get
Return Me.abschreibungDatumFieldSpecified
End Get
Set
Me.abschreibungDatumFieldSpecified = Value
End Set
End Property
Public Property AbschreibungUhrzeit() As Date
Get
Return Me.abschreibungUhrzeitField
End Get
Set
Me.abschreibungUhrzeitField = Value
End Set
End Property
Public Property AbschreibungUhrzeitSpecified() As Boolean
Get
Return Me.abschreibungUhrzeitFieldSpecified
End Get
Set
Me.abschreibungUhrzeitFieldSpecified = Value
End Set
End Property
Public Property AbschreibungStornierungKz() As String
Get
Return Me.abschreibungStornierungKzField
End Get
Set
Me.abschreibungStornierungKzField = Value
End Set
End Property
Public Property AbschreibungRestmengeWert() As List(Of AbschreibungRestmengeWertNOATYp)
Get
Return Me.abschreibungRestmengeWertField
End Get
Set
Me.abschreibungRestmengeWertField = 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(PositionMitteilungAbschreibungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current PositionMitteilungAbschreibungTyp 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 PositionMitteilungAbschreibungTyp object
'''
'''string workflow markup to deserialize
'''Output PositionMitteilungAbschreibungTyp 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 PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionMitteilungAbschreibungTyp)
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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionMitteilungAbschreibungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current PositionMitteilungAbschreibungTyp 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 PositionMitteilungAbschreibungTyp object
'''
'''string xml file to load and deserialize
'''Output PositionMitteilungAbschreibungTyp 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 PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionMitteilungAbschreibungTyp)
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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp
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 KopfDatenMitteilungAbschreibungTyp
Private registrierNrField As String
Private uebermittlerEORIField As String
Private uebermittlerNLNRField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property RegistrierNr() As String
Get
Return Me.registrierNrField
End Get
Set
Me.registrierNrField = Value
End Set
End Property
Public Property UebermittlerEORI() As String
Get
Return Me.uebermittlerEORIField
End Get
Set
Me.uebermittlerEORIField = Value
End Set
End Property
Public Property UebermittlerNLNR() As String
Get
Return Me.uebermittlerNLNRField
End Get
Set
Me.uebermittlerNLNRField = 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(KopfDatenMitteilungAbschreibungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''
'''Serializes current KopfDatenMitteilungAbschreibungTyp 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 KopfDatenMitteilungAbschreibungTyp object
'''
'''string workflow markup to deserialize
'''Output KopfDatenMitteilungAbschreibungTyp 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 KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp)
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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenMitteilungAbschreibungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''
'''Serializes current KopfDatenMitteilungAbschreibungTyp 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 KopfDatenMitteilungAbschreibungTyp object
'''
'''string xml file to load and deserialize
'''Output KopfDatenMitteilungAbschreibungTyp 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 KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp)
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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp
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