'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 4.4.0.7 '' QuittungEingangsverarbeitungNCTSListVisualBasicFalseTrueTrueOnlyIfDifferentFalseSilverlightNoneTrueTrueTrueTrueFalseFalseFalseTrueDefaultStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseTrueTrueFalseFalseTrueFalseTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseFalseIndent1SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseTrueTrue '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Xml Imports System.Collections.Generic Imports System.Runtime.Serialization Imports System.IO.IsolatedStorage Namespace QuittungEingangsverarbeitungNCTS #Region "Base entity class" Partial Public Class EntityBase(Of T) Private Shared sSerializer As XmlSerializer Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(T)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current EntityBase object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an EntityBase object ''' ''' string workflow markup to deserialize ''' Output EntityBase object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As T, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, T) Try obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As T) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(input, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal input As String) As T Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), T) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As T Return CType(Serializer.Deserialize(s), T) End Function #End Region ''' ''' Serializes current EntityBase 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 Dim isoFile As System.IO.IsolatedStorage.IsolatedStorageFile = Nothing Dim isoStream As System.IO.IsolatedStorage.IsolatedStorageFileStream = Nothing Try isoFile = IsolatedStorageFile.GetUserStoreForApplication isoStream = New System.IO.IsolatedStorage.IsolatedStorageFileStream(fileName, FileMode.Create, isoFile) streamWriter = New System.IO.StreamWriter(isoStream) Dim xmlString As String = Serialize Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() isoStream.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If If (Not (isoFile) Is Nothing) Then isoFile.Dispose() End If If (Not (isoStream) Is Nothing) Then isoStream.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an EntityBase object ''' ''' string xml file to load and deserialize ''' Output EntityBase object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As T, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, T) 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 T) 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 T Dim isoFile As System.IO.IsolatedStorage.IsolatedStorageFile = Nothing Dim isoStream As System.IO.IsolatedStorage.IsolatedStorageFileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try isoFile = IsolatedStorageFile.GetUserStoreForApplication isoStream = New System.IO.IsolatedStorage.IsolatedStorageFileStream(fileName, FileMode.Open, isoFile) sr = New System.IO.StreamReader(isoStream) Dim xmlString As String = sr.ReadToEnd isoStream.Close() sr.Close() Return Deserialize(xmlString) Finally If (Not (isoFile) Is Nothing) Then isoFile.Dispose() End If If (Not (isoStream) Is Nothing) Then isoStream.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function #Region "Clone method" ''' ''' Create a clone of this T object ''' Public Overridable Function Clone() As T Return CType(Me.MemberwiseClone, T) End Function #End Region End Class #End Region _ Partial Public Class QuittungEingangsverarbeitungBQTyp Inherits DatenaustauschAllgemeinTyp _ Private _einzelQuittung As List(Of EinzelQuittungTyp) _ Public Property EinzelQuittung() As List(Of EinzelQuittungTyp) Get Return Me._einzelQuittung End Get Set(value As List(Of EinzelQuittungTyp)) Me._einzelQuittung = value End Set End Property End Class _ Partial Public Class EinzelQuittungTyp Inherits EntityBase(Of EinzelQuittungTyp) _ Private _transaktionsreferenz As String _ Private _quittungsobjekt As QuittungsObjektBQTyp _ Public Property Transaktionsreferenz() As String Get Return Me._transaktionsreferenz End Get Set(value As String) Me._transaktionsreferenz = value End Set End Property _ Public Property Quittungsobjekt() As QuittungsObjektBQTyp Get Return Me._quittungsobjekt End Get Set(value As QuittungsObjektBQTyp) Me._quittungsobjekt = value End Set End Property End Class _ Partial Public Class QuittungsObjektBQTyp Inherits EntityBase(Of QuittungsObjektBQTyp) _ Private _quittungTech As List(Of QuittungTechBQTyp) _ Private _abbruchGrund As String _ Private _fehlerValidierung As List(Of String) _ Private _quittungFach As List(Of QuittungFachBQTyp) _ Public Property QuittungTech() As List(Of QuittungTechBQTyp) Get Return Me._quittungTech End Get Set(value As List(Of QuittungTechBQTyp)) Me._quittungTech = value End Set End Property _ Public Property AbbruchGrund() As String Get Return Me._abbruchGrund End Get Set(value As String) Me._abbruchGrund = value End Set End Property _ Public Property FehlerValidierung() As List(Of String) Get Return Me._fehlerValidierung End Get Set(value As List(Of String)) Me._fehlerValidierung = value End Set End Property _ Public Property QuittungFach() As List(Of QuittungFachBQTyp) Get Return Me._quittungFach End Get Set(value As List(Of QuittungFachBQTyp)) Me._quittungFach = value End Set End Property End Class _ Partial Public Class QuittungTechBQTyp Inherits EntityBase(Of QuittungTechBQTyp) _ Private _objektWdhTech As String _ Private _bezugsObjekt As String _ Private _ergebnisTech As String _ Private _fehlerTech As List(Of String) _ Private _korrekturen As List(Of String) _ Public Property ObjektWdhTech() As String Get Return Me._objektWdhTech End Get Set(value As String) Me._objektWdhTech = value End Set End Property _ Public Property BezugsObjekt() As String Get Return Me._bezugsObjekt End Get Set(value As String) Me._bezugsObjekt = value End Set End Property _ Public Property ErgebnisTech() As String Get Return Me._ergebnisTech End Get Set(value As String) Me._ergebnisTech = value End Set End Property _ Public Property FehlerTech() As List(Of String) Get Return Me._fehlerTech End Get Set(value As List(Of String)) Me._fehlerTech = value End Set End Property _ Public Property Korrekturen() As List(Of String) Get Return Me._korrekturen End Get Set(value As List(Of String)) Me._korrekturen = value End Set End Property End Class _ Partial Public Class QuittungFachBQTyp Inherits EntityBase(Of QuittungFachBQTyp) _ Private _objektWdhFach As String _ Private _bezugsObjektFach As String _ Private _gesamtErgebnis As String _ Private _ergebnisGrund As String _ Private _aktionErfolg As List(Of String) _ Private _aktionNdf As List(Of String) _ Private _fehlerAnwendung As List(Of String) _ Public Property ObjektWdhFach() As String Get Return Me._objektWdhFach End Get Set(value As String) Me._objektWdhFach = value End Set End Property _ Public Property BezugsObjektFach() As String Get Return Me._bezugsObjektFach End Get Set(value As String) Me._bezugsObjektFach = value End Set End Property _ Public Property GesamtErgebnis() As String Get Return Me._gesamtErgebnis End Get Set(value As String) Me._gesamtErgebnis = value End Set End Property _ Public Property ErgebnisGrund() As String Get Return Me._ergebnisGrund End Get Set(value As String) Me._ergebnisGrund = value End Set End Property _ Public Property AktionErfolg() As List(Of String) Get Return Me._aktionErfolg End Get Set(value As List(Of String)) Me._aktionErfolg = value End Set End Property _ Public Property AktionNdf() As List(Of String) Get Return Me._aktionNdf End Get Set(value As List(Of String)) Me._aktionNdf = value End Set End Property _ Public Property FehlerAnwendung() As List(Of String) Get Return Me._fehlerAnwendung End Get Set(value As List(Of String)) Me._fehlerAnwendung = value End Set End Property End Class _ Partial Public Class TransaktionAllgemeinTyp Inherits EntityBase(Of TransaktionAllgemeinTyp) _ Private _iOPartner As String _ Private _iODivision1 As String _ Private _iODivision2 As String _ Private _iODivision3 As String _ Private _iOReferenz As String _ Private _iODatumZeit As Date _ Private _version As String _ Public Property IOPartner() As String Get Return Me._iOPartner End Get Set(value As String) Me._iOPartner = value End Set End Property _ Public Property IODivision1() As String Get Return Me._iODivision1 End Get Set(value As String) Me._iODivision1 = value End Set End Property _ Public Property IODivision2() As String Get Return Me._iODivision2 End Get Set(value As String) Me._iODivision2 = value End Set End Property _ Public Property IODivision3() As String Get Return Me._iODivision3 End Get Set(value As String) Me._iODivision3 = value End Set End Property _ Public Property IOReferenz() As String Get Return Me._iOReferenz End Get Set(value As String) Me._iOReferenz = value End Set End Property _ Public Property IODatumZeit() As Date Get Return Me._iODatumZeit End Get Set(value As Date) Me._iODatumZeit = value End Set End Property _ Public Property Version() As String Get Return Me._version End Get Set(value As String) Me._version = value End Set End Property End Class _ Partial Public Class DatenaustauschAllgemeinTyp Inherits EntityBase(Of DatenaustauschAllgemeinTyp) _ Private _transaktion As TransaktionAllgemeinTyp _ Public Property Transaktion() As TransaktionAllgemeinTyp Get Return Me._transaktion End Get Set(value As TransaktionAllgemeinTyp) Me._transaktion = value End Set End Property End Class End Namespace