'' ------------------------------------------------------------------------------ '' '' 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