'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 4.4.0.7 '' TR100ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Xml Imports System.Collections.Generic Namespace TR100 _ Public Enum MsgTyp ''' TR100 End Enum _ Partial Public Class Msg #Region "Private fields" Private _msgSdr As String Private _msgRcp As String Private _prepDT As String Private _iCRef As String Private _appl As String Private _test as boolean Private _msgTyp As MsgTyp Private _refs As MsgRefs Private _uCRs As List(Of MsgUCRs) Private _hea As MsgHea Private _locs As MsgLocs Private _transp As MsgTransp Private _princTra As MsgPrincTra Private _conorTra As MsgConorTra Private _coneeTra As MsgConeeTra Private _conorSecTra As MsgConorSecTra Private _coneeSecTra As MsgConeeSecTra Private _carrTra As MsgCarrTra Private _authCsgeeTrad As MsgAuthCsgeeTrad Private _desTra As MsgDesTra Private _represent As MsgRepresent Private _grtee As List(Of MsgGrtee) Private _depCO As MsgDepCO Private _tranCO As List(Of MsgTranCO) Private _destCO As MsgDestCO Private _gdsItem As List(Of MsgGdsItem) Private _seals As MsgSeals Private _ctrlRslt As MsgCtrlRslt Private _itin As List(Of MsgItin) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._itin = New List(Of MsgItin)() Me._ctrlRslt = New MsgCtrlRslt() Me._seals = New MsgSeals() Me._gdsItem = New List(Of MsgGdsItem)() Me._destCO = New MsgDestCO() Me._tranCO = New List(Of MsgTranCO)() Me._depCO = New MsgDepCO() Me._grtee = New List(Of MsgGrtee)() Me._represent = New MsgRepresent() Me._desTra = New MsgDesTra() Me._authCsgeeTrad = New MsgAuthCsgeeTrad() Me._carrTra = New MsgCarrTra() Me._coneeSecTra = New MsgConeeSecTra() Me._conorSecTra = New MsgConorSecTra() Me._coneeTra = New MsgConeeTra() Me._conorTra = New MsgConorTra() Me._princTra = New MsgPrincTra() Me._transp = New MsgTransp() Me._locs = New MsgLocs() Me._hea = New MsgHea() Me._uCRs = New List(Of MsgUCRs)() Me._refs = New MsgRefs() End Sub Public Property MsgSdr() As String Get Return Me._msgSdr End Get Set(value As String) Me._msgSdr = Value End Set End Property Public Property MsgRcp() As String Get Return Me._msgRcp End Get Set(value As String) Me._msgRcp = Value End Set End Property Public Property PrepDT() As String Get Return Me._prepDT End Get Set(value As String) Me._prepDT = Value End Set End Property Public Property ICRef() As String Get Return Me._iCRef End Get Set(value As String) Me._iCRef = Value End Set End Property Public Property Appl() As String Get Return Me._appl End Get Set(value As String) Me._appl = Value End Set End Property Public Property Test() as boolean Get Return Me._test End Get Set(value as boolean) Me._test = value End Set End Property Public Property MsgTyp() As MsgTyp Get Return Me._msgTyp End Get Set(value As MsgTyp) Me._msgTyp = Value End Set End Property Public Property Refs() As MsgRefs Get Return Me._refs End Get Set(value As MsgRefs) Me._refs = Value End Set End Property _ Public Property UCRs() As List(Of MsgUCRs) Get Return Me._uCRs End Get Set(value As List(Of MsgUCRs)) Me._uCRs = Value End Set End Property Public Property Hea() As MsgHea Get Return Me._hea End Get Set(value As MsgHea) Me._hea = Value End Set End Property Public Property Locs() As MsgLocs Get Return Me._locs End Get Set(value As MsgLocs) Me._locs = Value End Set End Property Public Property Transp() As MsgTransp Get Return Me._transp End Get Set(value As MsgTransp) Me._transp = Value End Set End Property Public Property PrincTra() As MsgPrincTra Get Return Me._princTra End Get Set(value As MsgPrincTra) Me._princTra = Value End Set End Property Public Property ConorTra() As MsgConorTra Get Return Me._conorTra End Get Set(value As MsgConorTra) Me._conorTra = Value End Set End Property Public Property ConeeTra() As MsgConeeTra Get Return Me._coneeTra End Get Set(value As MsgConeeTra) Me._coneeTra = Value End Set End Property Public Property ConorSecTra() As MsgConorSecTra Get Return Me._conorSecTra End Get Set(value As MsgConorSecTra) Me._conorSecTra = Value End Set End Property Public Property ConeeSecTra() As MsgConeeSecTra Get Return Me._coneeSecTra End Get Set(value As MsgConeeSecTra) Me._coneeSecTra = Value End Set End Property Public Property CarrTra() As MsgCarrTra Get Return Me._carrTra End Get Set(value As MsgCarrTra) Me._carrTra = Value End Set End Property Public Property AuthCsgeeTrad() As MsgAuthCsgeeTrad Get Return Me._authCsgeeTrad End Get Set(value As MsgAuthCsgeeTrad) Me._authCsgeeTrad = Value End Set End Property Public Property DesTra() As MsgDesTra Get Return Me._desTra End Get Set(value As MsgDesTra) Me._desTra = Value End Set End Property Public Property Represent() As MsgRepresent Get Return Me._represent End Get Set(value As MsgRepresent) Me._represent = Value End Set End Property _ Public Property Grtee() As List(Of MsgGrtee) Get Return Me._grtee End Get Set(value As List(Of MsgGrtee)) Me._grtee = Value End Set End Property Public Property DepCO() As MsgDepCO Get Return Me._depCO End Get Set(value As MsgDepCO) Me._depCO = Value End Set End Property _ Public Property TranCO() As List(Of MsgTranCO) Get Return Me._tranCO End Get Set(value As List(Of MsgTranCO)) Me._tranCO = Value End Set End Property Public Property DestCO() As MsgDestCO Get Return Me._destCO End Get Set(value As MsgDestCO) Me._destCO = Value End Set End Property _ Public Property GdsItem() As List(Of MsgGdsItem) Get Return Me._gdsItem End Get Set(value As List(Of MsgGdsItem)) Me._gdsItem = Value End Set End Property Public Property Seals() As MsgSeals Get Return Me._seals End Get Set(value As MsgSeals) Me._seals = Value End Set End Property Public Property CtrlRslt() As MsgCtrlRslt Get Return Me._ctrlRslt End Get Set(value As MsgCtrlRslt) Me._ctrlRslt = Value End Set End Property _ Public Property Itin() As List(Of MsgItin) Get Return Me._itin End Get Set(value As List(Of MsgItin)) Me._itin = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Msg)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Msg object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an Msg object ''' ''' string workflow markup to deserialize ''' Output Msg 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 Msg, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, Msg) 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 Msg) 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 Msg Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Msg) 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 Msg Return CType(Serializer.Deserialize(s), Msg) End Function #End Region ''' ''' Serializes current Msg 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 Msg object ''' ''' string xml file to load and deserialize ''' Output Msg 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 Msg, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, Msg) 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 Msg) 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 Msg Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgRefs #Region "Private fields" Private _lRN As String Private Shared sSerializer As XmlSerializer #End Region Public Property LRN() As String Get Return Me._lRN End Get Set(value As String) Me._lRN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgRefs)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgRefs object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgRefs object ''' ''' string workflow markup to deserialize ''' Output MsgRefs 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 MsgRefs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgRefs) 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 MsgRefs) 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 MsgRefs Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgRefs) 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 MsgRefs Return CType(Serializer.Deserialize(s), MsgRefs) End Function #End Region ''' ''' Serializes current MsgRefs 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 MsgRefs object ''' ''' string xml file to load and deserialize ''' Output MsgRefs 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 MsgRefs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgRefs) 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 MsgRefs) 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 MsgRefs Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgUCRs #Region "Private fields" Private _uCR As String Private Shared sSerializer As XmlSerializer #End Region Public Property UCR() As String Get Return Me._uCR End Get Set(value As String) Me._uCR = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgUCRs)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgUCRs object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgUCRs object ''' ''' string workflow markup to deserialize ''' Output MsgUCRs 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 MsgUCRs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgUCRs) 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 MsgUCRs) 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 MsgUCRs Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgUCRs) 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 MsgUCRs Return CType(Serializer.Deserialize(s), MsgUCRs) End Function #End Region ''' ''' Serializes current MsgUCRs 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 MsgUCRs object ''' ''' string xml file to load and deserialize ''' Output MsgUCRs 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 MsgUCRs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgUCRs) 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 MsgUCRs) 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 MsgUCRs Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgHea #Region "Private fields" Private _decTy As String Private _totItem As String Private _totPack As String Private _totGross As String Private _depLNG As String Private _nCTSLNG As String Private _simp as boolean Private _authID As String Private _transDat as boolean Private _secInd As String Private _specCirc As String Private _transPayTy As String Private _comRef As String Private _convRef As String Private _decDT As String Private _decPlc As String Private _decPlcLNG As String Private Shared sSerializer As XmlSerializer #End Region Public Property DecTy() As String Get Return Me._decTy End Get Set(value As String) Me._decTy = Value End Set End Property Public Property TotItem() As String Get Return Me._totItem End Get Set(value As String) Me._totItem = Value End Set End Property Public Property TotPack() As String Get Return Me._totPack End Get Set(value As String) Me._totPack = Value End Set End Property Public Property TotGross() As String Get Return Me._totGross End Get Set(value As String) Me._totGross = Value End Set End Property Public Property DepLNG() As String Get Return Me._depLNG End Get Set(value As String) Me._depLNG = Value End Set End Property Public Property NCTSLNG() As String Get Return Me._nCTSLNG End Get Set(value As String) Me._nCTSLNG = Value End Set End Property Public Property Simp() as boolean Get Return Me._simp End Get Set(value as boolean) Me._simp = Value End Set End Property Public Property AuthID() As String Get Return Me._authID End Get Set(value As String) Me._authID = Value End Set End Property Public Property TransDat() as boolean Get Return Me._transDat End Get Set(value as boolean) Me._transDat = Value End Set End Property Public Property SecInd() As String Get Return Me._secInd End Get Set(value As String) Me._secInd = Value End Set End Property Public Property SpecCirc() As String Get Return Me._specCirc End Get Set(value As String) Me._specCirc = Value End Set End Property Public Property TransPayTy() As String Get Return Me._transPayTy End Get Set(value As String) Me._transPayTy = Value End Set End Property Public Property ComRef() As String Get Return Me._comRef End Get Set(value As String) Me._comRef = Value End Set End Property Public Property ConvRef() As String Get Return Me._convRef End Get Set(value As String) Me._convRef = Value End Set End Property Public Property DecDT() As String Get Return Me._decDT End Get Set(value As String) Me._decDT = Value End Set End Property Public Property DecPlc() As String Get Return Me._decPlc End Get Set(value As String) Me._decPlc = Value End Set End Property Public Property DecPlcLNG() As String Get Return Me._decPlcLNG End Get Set(value As String) Me._decPlcLNG = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgHea)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgHea object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgHea object ''' ''' string workflow markup to deserialize ''' Output MsgHea 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 MsgHea, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgHea) 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 MsgHea) 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 MsgHea Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgHea) 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 MsgHea Return CType(Serializer.Deserialize(s), MsgHea) End Function #End Region ''' ''' Serializes current MsgHea 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 MsgHea object ''' ''' string xml file to load and deserialize ''' Output MsgHea 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 MsgHea, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgHea) 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 MsgHea) 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 MsgHea Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgLocs #Region "Private fields" Private _disp As String Private _dest As String Private _gdsLocCd As String Private _gdsLocAuth As String Private _loadPlcCd As String Private _custPlc As String Private _unloadPlc As String Private _unloadPlcLNG As String Private Shared sSerializer As XmlSerializer #End Region Public Property Disp() As String Get Return Me._disp End Get Set(value As String) Me._disp = Value End Set End Property Public Property Dest() As String Get Return Me._dest End Get Set(value As String) Me._dest = Value End Set End Property Public Property GdsLocCd() As String Get Return Me._gdsLocCd End Get Set(value As String) Me._gdsLocCd = Value End Set End Property Public Property GdsLocAuth() As String Get Return Me._gdsLocAuth End Get Set(value As String) Me._gdsLocAuth = Value End Set End Property Public Property LoadPlcCd() As String Get Return Me._loadPlcCd End Get Set(value As String) Me._loadPlcCd = Value End Set End Property Public Property CustPlc() As String Get Return Me._custPlc End Get Set(value As String) Me._custPlc = Value End Set End Property Public Property UnloadPlc() As String Get Return Me._unloadPlc End Get Set(value As String) Me._unloadPlc = Value End Set End Property Public Property UnloadPlcLNG() As String Get Return Me._unloadPlcLNG End Get Set(value As String) Me._unloadPlcLNG = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgLocs)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgLocs object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgLocs object ''' ''' string workflow markup to deserialize ''' Output MsgLocs 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 MsgLocs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgLocs) 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 MsgLocs) 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 MsgLocs Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgLocs) 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 MsgLocs Return CType(Serializer.Deserialize(s), MsgLocs) End Function #End Region ''' ''' Serializes current MsgLocs 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 MsgLocs object ''' ''' string xml file to load and deserialize ''' Output MsgLocs 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 MsgLocs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgLocs) 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 MsgLocs) 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 MsgLocs Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgTransp #Region "Private fields" Private _inMo As String Private _bordMo As String Private _depTy As String Private _depIdnt As String Private _depIdntLNG As String Private _depNat As String Private _crossTy As String Private _crossIdnt As String Private _crossIdntLNG As String Private _crossIdntNat As String Private _contInd as boolean Private Shared sSerializer As XmlSerializer #End Region Public Property InMo() As String Get Return Me._inMo End Get Set(value As String) Me._inMo = Value End Set End Property Public Property BordMo() As String Get Return Me._bordMo End Get Set(value As String) Me._bordMo = Value End Set End Property Public Property DepTy() As String Get Return Me._depTy End Get Set(value As String) Me._depTy = Value End Set End Property Public Property DepIdnt() As String Get Return Me._depIdnt End Get Set(value As String) Me._depIdnt = Value End Set End Property Public Property DepIdntLNG() As String Get Return Me._depIdntLNG End Get Set(value As String) Me._depIdntLNG = Value End Set End Property Public Property DepNat() As String Get Return Me._depNat End Get Set(value As String) Me._depNat = Value End Set End Property Public Property CrossTy() As String Get Return Me._crossTy End Get Set(value As String) Me._crossTy = Value End Set End Property Public Property CrossIdnt() As String Get Return Me._crossIdnt End Get Set(value As String) Me._crossIdnt = Value End Set End Property Public Property CrossIdntLNG() As String Get Return Me._crossIdntLNG End Get Set(value As String) Me._crossIdntLNG = Value End Set End Property Public Property CrossIdntNat() As String Get Return Me._crossIdntNat End Get Set(value As String) Me._crossIdntNat = Value End Set End Property Public Property ContInd() as boolean Get Return Me._contInd End Get Set(value as boolean) Me._contInd = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgTransp)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgTransp object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgTransp object ''' ''' string workflow markup to deserialize ''' Output MsgTransp 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 MsgTransp, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgTransp) 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 MsgTransp) 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 MsgTransp Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgTransp) 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 MsgTransp Return CType(Serializer.Deserialize(s), MsgTransp) End Function #End Region ''' ''' Serializes current MsgTransp 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 MsgTransp object ''' ''' string xml file to load and deserialize ''' Output MsgTransp 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 MsgTransp, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgTransp) 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 MsgTransp) 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 MsgTransp Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgPrincTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private _tIRHID As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Public Property TIRHID() As String Get Return Me._tIRHID End Get Set(value As String) Me._tIRHID = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgPrincTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgPrincTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgPrincTra object ''' ''' string workflow markup to deserialize ''' Output MsgPrincTra 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 MsgPrincTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgPrincTra) 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 MsgPrincTra) 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 MsgPrincTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgPrincTra) 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 MsgPrincTra Return CType(Serializer.Deserialize(s), MsgPrincTra) End Function #End Region ''' ''' Serializes current MsgPrincTra 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 MsgPrincTra object ''' ''' string xml file to load and deserialize ''' Output MsgPrincTra 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 MsgPrincTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgPrincTra) 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 MsgPrincTra) 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 MsgPrincTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgConorTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConorTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgConorTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgConorTra object ''' ''' string workflow markup to deserialize ''' Output MsgConorTra 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 MsgConorTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConorTra) 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 MsgConorTra) 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 MsgConorTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConorTra) 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 MsgConorTra Return CType(Serializer.Deserialize(s), MsgConorTra) End Function #End Region ''' ''' Serializes current MsgConorTra 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 MsgConorTra object ''' ''' string xml file to load and deserialize ''' Output MsgConorTra 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 MsgConorTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConorTra) 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 MsgConorTra) 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 MsgConorTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgConeeTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConeeTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgConeeTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgConeeTra object ''' ''' string workflow markup to deserialize ''' Output MsgConeeTra 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 MsgConeeTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConeeTra) 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 MsgConeeTra) 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 MsgConeeTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConeeTra) 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 MsgConeeTra Return CType(Serializer.Deserialize(s), MsgConeeTra) End Function #End Region ''' ''' Serializes current MsgConeeTra 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 MsgConeeTra object ''' ''' string xml file to load and deserialize ''' Output MsgConeeTra 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 MsgConeeTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConeeTra) 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 MsgConeeTra) 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 MsgConeeTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgConorSecTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConorSecTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgConorSecTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgConorSecTra object ''' ''' string workflow markup to deserialize ''' Output MsgConorSecTra 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 MsgConorSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConorSecTra) 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 MsgConorSecTra) 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 MsgConorSecTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConorSecTra) 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 MsgConorSecTra Return CType(Serializer.Deserialize(s), MsgConorSecTra) End Function #End Region ''' ''' Serializes current MsgConorSecTra 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 MsgConorSecTra object ''' ''' string xml file to load and deserialize ''' Output MsgConorSecTra 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 MsgConorSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConorSecTra) 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 MsgConorSecTra) 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 MsgConorSecTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgConeeSecTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConeeSecTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgConeeSecTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgConeeSecTra object ''' ''' string workflow markup to deserialize ''' Output MsgConeeSecTra 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 MsgConeeSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConeeSecTra) 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 MsgConeeSecTra) 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 MsgConeeSecTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConeeSecTra) 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 MsgConeeSecTra Return CType(Serializer.Deserialize(s), MsgConeeSecTra) End Function #End Region ''' ''' Serializes current MsgConeeSecTra 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 MsgConeeSecTra object ''' ''' string xml file to load and deserialize ''' Output MsgConeeSecTra 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 MsgConeeSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgConeeSecTra) 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 MsgConeeSecTra) 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 MsgConeeSecTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgCarrTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgCarrTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgCarrTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgCarrTra object ''' ''' string workflow markup to deserialize ''' Output MsgCarrTra 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 MsgCarrTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgCarrTra) 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 MsgCarrTra) 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 MsgCarrTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgCarrTra) 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 MsgCarrTra Return CType(Serializer.Deserialize(s), MsgCarrTra) End Function #End Region ''' ''' Serializes current MsgCarrTra 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 MsgCarrTra object ''' ''' string xml file to load and deserialize ''' Output MsgCarrTra 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 MsgCarrTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgCarrTra) 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 MsgCarrTra) 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 MsgCarrTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgAuthCsgeeTrad #Region "Private fields" Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgAuthCsgeeTrad)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgAuthCsgeeTrad object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgAuthCsgeeTrad object ''' ''' string workflow markup to deserialize ''' Output MsgAuthCsgeeTrad 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 MsgAuthCsgeeTrad, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad Return CType(Serializer.Deserialize(s), MsgAuthCsgeeTrad) End Function #End Region ''' ''' Serializes current MsgAuthCsgeeTrad 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 MsgAuthCsgeeTrad object ''' ''' string xml file to load and deserialize ''' Output MsgAuthCsgeeTrad 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 MsgAuthCsgeeTrad, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgDesTra #Region "Private fields" Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDesTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgDesTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgDesTra object ''' ''' string workflow markup to deserialize ''' Output MsgDesTra 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 MsgDesTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDesTra) 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 MsgDesTra) 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 MsgDesTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDesTra) 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 MsgDesTra Return CType(Serializer.Deserialize(s), MsgDesTra) End Function #End Region ''' ''' Serializes current MsgDesTra 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 MsgDesTra object ''' ''' string xml file to load and deserialize ''' Output MsgDesTra 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 MsgDesTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDesTra) 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 MsgDesTra) 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 MsgDesTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgRepresent #Region "Private fields" Private _rIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property RIN() As String Get Return Me._rIN End Get Set(value As String) Me._rIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgRepresent)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgRepresent object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgRepresent object ''' ''' string workflow markup to deserialize ''' Output MsgRepresent 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 MsgRepresent, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgRepresent) 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 MsgRepresent) 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 MsgRepresent Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgRepresent) 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 MsgRepresent Return CType(Serializer.Deserialize(s), MsgRepresent) End Function #End Region ''' ''' Serializes current MsgRepresent 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 MsgRepresent object ''' ''' string xml file to load and deserialize ''' Output MsgRepresent 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 MsgRepresent, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgRepresent) 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 MsgRepresent) 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 MsgRepresent Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGrtee #Region "Private fields" Private _gTy As String Private _grteeRef As List(Of MsgGrteeGrteeRef) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._grteeRef = New List(Of MsgGrteeGrteeRef)() End Sub Public Property GTy() As String Get Return Me._gTy End Get Set(value As String) Me._gTy = Value End Set End Property _ Public Property GrteeRef() As List(Of MsgGrteeGrteeRef) Get Return Me._grteeRef End Get Set(value As List(Of MsgGrteeGrteeRef)) Me._grteeRef = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrtee)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGrtee object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGrtee object ''' ''' string workflow markup to deserialize ''' Output MsgGrtee 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 MsgGrtee, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrtee) 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 MsgGrtee) 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 MsgGrtee Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrtee) 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 MsgGrtee Return CType(Serializer.Deserialize(s), MsgGrtee) End Function #End Region ''' ''' Serializes current MsgGrtee 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 MsgGrtee object ''' ''' string xml file to load and deserialize ''' Output MsgGrtee 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 MsgGrtee, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrtee) 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 MsgGrtee) 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 MsgGrtee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGrteeGrteeRef #Region "Private fields" Private _gRN As String Private _oGR As String Private _acc As String Private _gTIN As String Private _gVal As String Private _curr As String Private _vaLimEC As MsgGrteeGrteeRefVaLimEC Private _vaLimNEC As List(Of MsgGrteeGrteeRefVaLimNEC) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._vaLimNEC = New List(Of MsgGrteeGrteeRefVaLimNEC)() Me._vaLimEC = New MsgGrteeGrteeRefVaLimEC() End Sub Public Property GRN() As String Get Return Me._gRN End Get Set(value As String) Me._gRN = Value End Set End Property Public Property OGR() As String Get Return Me._oGR End Get Set(value As String) Me._oGR = Value End Set End Property Public Property Acc() As String Get Return Me._acc End Get Set(value As String) Me._acc = Value End Set End Property Public Property GTIN() As String Get Return Me._gTIN End Get Set(value As String) Me._gTIN = Value End Set End Property Public Property GVal() As String Get Return Me._gVal End Get Set(value As String) Me._gVal = Value End Set End Property Public Property Curr() As String Get Return Me._curr End Get Set(value As String) Me._curr = Value End Set End Property Public Property VaLimEC() As MsgGrteeGrteeRefVaLimEC Get Return Me._vaLimEC End Get Set(value As MsgGrteeGrteeRefVaLimEC) Me._vaLimEC = Value End Set End Property _ Public Property VaLimNEC() As List(Of MsgGrteeGrteeRefVaLimNEC) Get Return Me._vaLimNEC End Get Set(value As List(Of MsgGrteeGrteeRefVaLimNEC)) Me._vaLimNEC = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRef)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGrteeGrteeRef object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGrteeGrteeRef object ''' ''' string workflow markup to deserialize ''' Output MsgGrteeGrteeRef 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 MsgGrteeGrteeRef, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRef) End Function #End Region ''' ''' Serializes current MsgGrteeGrteeRef 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 MsgGrteeGrteeRef object ''' ''' string xml file to load and deserialize ''' Output MsgGrteeGrteeRef 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 MsgGrteeGrteeRef, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGrteeGrteeRefVaLimEC #Region "Private fields" Private _nValEC as boolean Private Shared sSerializer As XmlSerializer #End Region Public Property NValEC() as boolean Get Return Me._nValEC End Get Set(value as boolean) Me._nValEC = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRefVaLimEC)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGrteeGrteeRefVaLimEC object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGrteeGrteeRefVaLimEC object ''' ''' string workflow markup to deserialize ''' Output MsgGrteeGrteeRefVaLimEC 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 MsgGrteeGrteeRefVaLimEC, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRefVaLimEC) End Function #End Region ''' ''' Serializes current MsgGrteeGrteeRefVaLimEC 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 MsgGrteeGrteeRefVaLimEC object ''' ''' string xml file to load and deserialize ''' Output MsgGrteeGrteeRefVaLimEC 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 MsgGrteeGrteeRefVaLimEC, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGrteeGrteeRefVaLimNEC #Region "Private fields" Private _nVal As String Private Shared sSerializer As XmlSerializer #End Region Public Property NVal() As String Get Return Me._nVal End Get Set(value As String) Me._nVal = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRefVaLimNEC)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGrteeGrteeRefVaLimNEC object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGrteeGrteeRefVaLimNEC object ''' ''' string workflow markup to deserialize ''' Output MsgGrteeGrteeRefVaLimNEC 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 MsgGrteeGrteeRefVaLimNEC, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRefVaLimNEC) End Function #End Region ''' ''' Serializes current MsgGrteeGrteeRefVaLimNEC 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 MsgGrteeGrteeRefVaLimNEC object ''' ''' string xml file to load and deserialize ''' Output MsgGrteeGrteeRefVaLimNEC 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 MsgGrteeGrteeRefVaLimNEC, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgDepCO #Region "Private fields" Private _ref As String Private Shared sSerializer As XmlSerializer #End Region Public Property Ref() As String Get Return Me._ref End Get Set(value As String) Me._ref = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDepCO)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgDepCO object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgDepCO object ''' ''' string workflow markup to deserialize ''' Output MsgDepCO 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 MsgDepCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDepCO) 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 MsgDepCO) 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 MsgDepCO Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDepCO) 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 MsgDepCO Return CType(Serializer.Deserialize(s), MsgDepCO) End Function #End Region ''' ''' Serializes current MsgDepCO 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 MsgDepCO object ''' ''' string xml file to load and deserialize ''' Output MsgDepCO 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 MsgDepCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDepCO) 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 MsgDepCO) 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 MsgDepCO Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgTranCO #Region "Private fields" Private _ref As String Private _tranArrDT As String Private Shared sSerializer As XmlSerializer #End Region Public Property Ref() As String Get Return Me._ref End Get Set(value As String) Me._ref = Value End Set End Property Public Property TranArrDT() As String Get Return Me._tranArrDT End Get Set(value As String) Me._tranArrDT = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgTranCO)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgTranCO object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgTranCO object ''' ''' string workflow markup to deserialize ''' Output MsgTranCO 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 MsgTranCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgTranCO) 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 MsgTranCO) 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 MsgTranCO Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgTranCO) 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 MsgTranCO Return CType(Serializer.Deserialize(s), MsgTranCO) End Function #End Region ''' ''' Serializes current MsgTranCO 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 MsgTranCO object ''' ''' string xml file to load and deserialize ''' Output MsgTranCO 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 MsgTranCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgTranCO) 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 MsgTranCO) 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 MsgTranCO Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgDestCO #Region "Private fields" Private _ref As String Private Shared sSerializer As XmlSerializer #End Region Public Property Ref() As String Get Return Me._ref End Get Set(value As String) Me._ref = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDestCO)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgDestCO object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgDestCO object ''' ''' string workflow markup to deserialize ''' Output MsgDestCO 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 MsgDestCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDestCO) 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 MsgDestCO) 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 MsgDestCO Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDestCO) 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 MsgDestCO Return CType(Serializer.Deserialize(s), MsgDestCO) End Function #End Region ''' ''' Serializes current MsgDestCO 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 MsgDestCO object ''' ''' string xml file to load and deserialize ''' Output MsgDestCO 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 MsgDestCO, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgDestCO) 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 MsgDestCO) 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 MsgDestCO Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItem #Region "Private fields" Private _itNr As String Private _dec As String Private _comCd As String Private _gdsDes As String Private _lNG As String Private _gross As String Private _net As String Private _transPayTy As String Private _comRef As String Private _uNDangCd As String Private _locs As MsgGdsItemLocs Private _conorTra As MsgGdsItemConorTra Private _coneeTra As MsgGdsItemConeeTra Private _conorSecTra As MsgGdsItemConorSecTra Private _coneeSecTra As MsgGdsItemConeeSecTra Private _container As List(Of MsgGdsItemContainer) Private _pack As List(Of MsgGdsItemPack) Private _supplUnt As List(Of MsgGdsItemSupplUnt) Private _prevAdmRef As List(Of MsgGdsItemPrevAdmRef) Private _docCerts As List(Of MsgGdsItemDocCerts) Private _sGI As List(Of MsgGdsItemSGI) Private _specMent As List(Of MsgGdsItemSpecMent) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._specMent = New List(Of MsgGdsItemSpecMent)() Me._sGI = New List(Of MsgGdsItemSGI)() Me._docCerts = New List(Of MsgGdsItemDocCerts)() Me._prevAdmRef = New List(Of MsgGdsItemPrevAdmRef)() Me._supplUnt = New List(Of MsgGdsItemSupplUnt)() Me._pack = New List(Of MsgGdsItemPack)() Me._container = New List(Of MsgGdsItemContainer)() Me._coneeSecTra = New MsgGdsItemConeeSecTra() Me._conorSecTra = New MsgGdsItemConorSecTra() Me._coneeTra = New MsgGdsItemConeeTra() Me._conorTra = New MsgGdsItemConorTra() Me._locs = New MsgGdsItemLocs() End Sub Public Property ItNr() As String Get Return Me._itNr End Get Set(value As String) Me._itNr = Value End Set End Property Public Property Dec() As String Get Return Me._dec End Get Set(value As String) Me._dec = Value End Set End Property Public Property ComCd() As String Get Return Me._comCd End Get Set(value As String) Me._comCd = Value End Set End Property Public Property GdsDes() As String Get Return Me._gdsDes End Get Set(value As String) Me._gdsDes = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property Gross() As String Get Return Me._gross End Get Set(value As String) Me._gross = Value End Set End Property Public Property Net() As String Get Return Me._net End Get Set(value As String) Me._net = Value End Set End Property Public Property TransPayTy() As String Get Return Me._transPayTy End Get Set(value As String) Me._transPayTy = Value End Set End Property Public Property ComRef() As String Get Return Me._comRef End Get Set(value As String) Me._comRef = Value End Set End Property Public Property UNDangCd() As String Get Return Me._uNDangCd End Get Set(value As String) Me._uNDangCd = Value End Set End Property Public Property Locs() As MsgGdsItemLocs Get Return Me._locs End Get Set(value As MsgGdsItemLocs) Me._locs = Value End Set End Property Public Property ConorTra() As MsgGdsItemConorTra Get Return Me._conorTra End Get Set(value As MsgGdsItemConorTra) Me._conorTra = Value End Set End Property Public Property ConeeTra() As MsgGdsItemConeeTra Get Return Me._coneeTra End Get Set(value As MsgGdsItemConeeTra) Me._coneeTra = Value End Set End Property Public Property ConorSecTra() As MsgGdsItemConorSecTra Get Return Me._conorSecTra End Get Set(value As MsgGdsItemConorSecTra) Me._conorSecTra = Value End Set End Property Public Property ConeeSecTra() As MsgGdsItemConeeSecTra Get Return Me._coneeSecTra End Get Set(value As MsgGdsItemConeeSecTra) Me._coneeSecTra = Value End Set End Property _ Public Property Container() As List(Of MsgGdsItemContainer) Get Return Me._container End Get Set(value As List(Of MsgGdsItemContainer)) Me._container = Value End Set End Property _ Public Property Pack() As List(Of MsgGdsItemPack) Get Return Me._pack End Get Set(value As List(Of MsgGdsItemPack)) Me._pack = Value End Set End Property _ Public Property SupplUnt() As List(Of MsgGdsItemSupplUnt) Get Return Me._supplUnt End Get Set(value As List(Of MsgGdsItemSupplUnt)) Me._supplUnt = Value End Set End Property _ Public Property PrevAdmRef() As List(Of MsgGdsItemPrevAdmRef) Get Return Me._prevAdmRef End Get Set(value As List(Of MsgGdsItemPrevAdmRef)) Me._prevAdmRef = Value End Set End Property _ Public Property DocCerts() As List(Of MsgGdsItemDocCerts) Get Return Me._docCerts End Get Set(value As List(Of MsgGdsItemDocCerts)) Me._docCerts = Value End Set End Property _ Public Property SGI() As List(Of MsgGdsItemSGI) Get Return Me._sGI End Get Set(value As List(Of MsgGdsItemSGI)) Me._sGI = Value End Set End Property _ Public Property SpecMent() As List(Of MsgGdsItemSpecMent) Get Return Me._specMent End Get Set(value As List(Of MsgGdsItemSpecMent)) Me._specMent = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItem object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItem object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItem 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 MsgGdsItem, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItem) 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 MsgGdsItem) 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 MsgGdsItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItem) 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 MsgGdsItem Return CType(Serializer.Deserialize(s), MsgGdsItem) End Function #End Region ''' ''' Serializes current MsgGdsItem 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 MsgGdsItem object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItem 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 MsgGdsItem, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItem) 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 MsgGdsItem) 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 MsgGdsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemLocs #Region "Private fields" Private _disp As String Private _dest As String Private Shared sSerializer As XmlSerializer #End Region Public Property Disp() As String Get Return Me._disp End Get Set(value As String) Me._disp = Value End Set End Property Public Property Dest() As String Get Return Me._dest End Get Set(value As String) Me._dest = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemLocs)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemLocs object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemLocs object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemLocs 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 MsgGdsItemLocs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemLocs) 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 MsgGdsItemLocs) 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 MsgGdsItemLocs Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemLocs) 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 MsgGdsItemLocs Return CType(Serializer.Deserialize(s), MsgGdsItemLocs) End Function #End Region ''' ''' Serializes current MsgGdsItemLocs 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 MsgGdsItemLocs object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemLocs 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 MsgGdsItemLocs, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemLocs) 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 MsgGdsItemLocs) 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 MsgGdsItemLocs Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemConorTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConorTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemConorTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemConorTra object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemConorTra 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 MsgGdsItemConorTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConorTra) 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 MsgGdsItemConorTra) 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 MsgGdsItemConorTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConorTra) 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 MsgGdsItemConorTra Return CType(Serializer.Deserialize(s), MsgGdsItemConorTra) End Function #End Region ''' ''' Serializes current MsgGdsItemConorTra 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 MsgGdsItemConorTra object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemConorTra 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 MsgGdsItemConorTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConorTra) 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 MsgGdsItemConorTra) 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 MsgGdsItemConorTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemConeeTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConeeTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemConeeTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemConeeTra object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemConeeTra 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 MsgGdsItemConeeTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra Return CType(Serializer.Deserialize(s), MsgGdsItemConeeTra) End Function #End Region ''' ''' Serializes current MsgGdsItemConeeTra 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 MsgGdsItemConeeTra object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemConeeTra 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 MsgGdsItemConeeTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemConorSecTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConorSecTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemConorSecTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemConorSecTra object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemConorSecTra 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 MsgGdsItemConorSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra Return CType(Serializer.Deserialize(s), MsgGdsItemConorSecTra) End Function #End Region ''' ''' Serializes current MsgGdsItemConorSecTra 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 MsgGdsItemConorSecTra object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemConorSecTra 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 MsgGdsItemConorSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemConeeSecTra #Region "Private fields" Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _tIN As String Private Shared sSerializer As XmlSerializer #End Region Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property TIN() As String Get Return Me._tIN End Get Set(value As String) Me._tIN = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConeeSecTra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemConeeSecTra object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemConeeSecTra object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemConeeSecTra 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 MsgGdsItemConeeSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra Return CType(Serializer.Deserialize(s), MsgGdsItemConeeSecTra) End Function #End Region ''' ''' Serializes current MsgGdsItemConeeSecTra 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 MsgGdsItemConeeSecTra object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemConeeSecTra 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 MsgGdsItemConeeSecTra, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemContainer #Region "Private fields" Private _cNr As String Private Shared sSerializer As XmlSerializer #End Region Public Property CNr() As String Get Return Me._cNr End Get Set(value As String) Me._cNr = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemContainer)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemContainer object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemContainer object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemContainer 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 MsgGdsItemContainer, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemContainer) 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 MsgGdsItemContainer) 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 MsgGdsItemContainer Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemContainer) 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 MsgGdsItemContainer Return CType(Serializer.Deserialize(s), MsgGdsItemContainer) End Function #End Region ''' ''' Serializes current MsgGdsItemContainer 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 MsgGdsItemContainer object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemContainer 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 MsgGdsItemContainer, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemContainer) 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 MsgGdsItemContainer) 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 MsgGdsItemContainer Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemPack #Region "Private fields" Private _mark As String Private _lNG As String Private _kind As String Private _nr As String Private _piec As String Private Shared sSerializer As XmlSerializer #End Region Public Property Mark() As String Get Return Me._mark End Get Set(value As String) Me._mark = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property Kind() As String Get Return Me._kind End Get Set(value As String) Me._kind = Value End Set End Property Public Property Nr() As String Get Return Me._nr End Get Set(value As String) Me._nr = Value End Set End Property Public Property Piec() As String Get Return Me._piec End Get Set(value As String) Me._piec = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemPack)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemPack object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemPack object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemPack 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 MsgGdsItemPack, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemPack) 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 MsgGdsItemPack) 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 MsgGdsItemPack Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemPack) 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 MsgGdsItemPack Return CType(Serializer.Deserialize(s), MsgGdsItemPack) End Function #End Region ''' ''' Serializes current MsgGdsItemPack 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 MsgGdsItemPack object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemPack 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 MsgGdsItemPack, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemPack) 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 MsgGdsItemPack) 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 MsgGdsItemPack Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemSupplUnt #Region "Private fields" Private _unit As String Private _sUQuant As String Private Shared sSerializer As XmlSerializer #End Region Public Property Unit() As String Get Return Me._unit End Get Set(value As String) Me._unit = Value End Set End Property Public Property SUQuant() As String Get Return Me._sUQuant End Get Set(value As String) Me._sUQuant = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSupplUnt)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemSupplUnt object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemSupplUnt object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemSupplUnt 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 MsgGdsItemSupplUnt, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt Return CType(Serializer.Deserialize(s), MsgGdsItemSupplUnt) End Function #End Region ''' ''' Serializes current MsgGdsItemSupplUnt 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 MsgGdsItemSupplUnt object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemSupplUnt 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 MsgGdsItemSupplUnt, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemPrevAdmRef #Region "Private fields" Private _pDTy As String Private _dRef As String Private _lNG As String Private _cInf As String Private _infoLNG As String Private Shared sSerializer As XmlSerializer #End Region Public Property PDTy() As String Get Return Me._pDTy End Get Set(value As String) Me._pDTy = Value End Set End Property Public Property DRef() As String Get Return Me._dRef End Get Set(value As String) Me._dRef = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property CInf() As String Get Return Me._cInf End Get Set(value As String) Me._cInf = Value End Set End Property Public Property InfoLNG() As String Get Return Me._infoLNG End Get Set(value As String) Me._infoLNG = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemPrevAdmRef)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemPrevAdmRef object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemPrevAdmRef object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemPrevAdmRef 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 MsgGdsItemPrevAdmRef, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef Return CType(Serializer.Deserialize(s), MsgGdsItemPrevAdmRef) End Function #End Region ''' ''' Serializes current MsgGdsItemPrevAdmRef 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 MsgGdsItemPrevAdmRef object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemPrevAdmRef 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 MsgGdsItemPrevAdmRef, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemDocCerts #Region "Private fields" Private _docCd As String Private _dTy As String Private _refLNG As String Private _dRef As String Private _issD As String Private _issCtry As String Private _na As String Private _strt As String Private _pst As String Private _cty As String Private _ctry As String Private _lNG As String Private _dTIN As String Private _uidVid As String Private _issAdm As String Private _valD As String Private _maxValD As String Private _cInf As String Private _infoLNG As String Private Shared sSerializer As XmlSerializer #End Region Public Property DocCd() As String Get Return Me._docCd End Get Set(value As String) Me._docCd = Value End Set End Property Public Property DTy() As String Get Return Me._dTy End Get Set(value As String) Me._dTy = Value End Set End Property Public Property RefLNG() As String Get Return Me._refLNG End Get Set(value As String) Me._refLNG = Value End Set End Property Public Property DRef() As String Get Return Me._dRef End Get Set(value As String) Me._dRef = Value End Set End Property Public Property IssD() As String Get Return Me._issD End Get Set(value As String) Me._issD = Value End Set End Property Public Property IssCtry() As String Get Return Me._issCtry End Get Set(value As String) Me._issCtry = Value End Set End Property Public Property Na() As String Get Return Me._na End Get Set(value As String) Me._na = Value End Set End Property Public Property Strt() As String Get Return Me._strt End Get Set(value As String) Me._strt = Value End Set End Property Public Property Pst() As String Get Return Me._pst End Get Set(value As String) Me._pst = Value End Set End Property Public Property Cty() As String Get Return Me._cty End Get Set(value As String) Me._cty = Value End Set End Property Public Property Ctry() As String Get Return Me._ctry End Get Set(value As String) Me._ctry = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property DTIN() As String Get Return Me._dTIN End Get Set(value As String) Me._dTIN = Value End Set End Property Public Property UidVid() As String Get Return Me._uidVid End Get Set(value As String) Me._uidVid = Value End Set End Property Public Property IssAdm() As String Get Return Me._issAdm End Get Set(value As String) Me._issAdm = Value End Set End Property Public Property ValD() As String Get Return Me._valD End Get Set(value As String) Me._valD = Value End Set End Property Public Property MaxValD() As String Get Return Me._maxValD End Get Set(value As String) Me._maxValD = Value End Set End Property Public Property CInf() As String Get Return Me._cInf End Get Set(value As String) Me._cInf = Value End Set End Property Public Property InfoLNG() As String Get Return Me._infoLNG End Get Set(value As String) Me._infoLNG = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemDocCerts)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemDocCerts object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemDocCerts object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemDocCerts 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 MsgGdsItemDocCerts, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts Return CType(Serializer.Deserialize(s), MsgGdsItemDocCerts) End Function #End Region ''' ''' Serializes current MsgGdsItemDocCerts 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 MsgGdsItemDocCerts object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemDocCerts 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 MsgGdsItemDocCerts, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemSGI #Region "Private fields" Private _sGCd As String Private _quant As String Private Shared sSerializer As XmlSerializer #End Region Public Property SGCd() As String Get Return Me._sGCd End Get Set(value As String) Me._sGCd = Value End Set End Property Public Property Quant() As String Get Return Me._quant End Get Set(value As String) Me._quant = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSGI)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemSGI object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemSGI object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemSGI 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 MsgGdsItemSGI, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSGI) 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 MsgGdsItemSGI) 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 MsgGdsItemSGI Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSGI) 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 MsgGdsItemSGI Return CType(Serializer.Deserialize(s), MsgGdsItemSGI) End Function #End Region ''' ''' Serializes current MsgGdsItemSGI 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 MsgGdsItemSGI object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemSGI 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 MsgGdsItemSGI, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSGI) 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 MsgGdsItemSGI) 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 MsgGdsItemSGI Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgGdsItemSpecMent #Region "Private fields" Private _inf As String Private _lNG As String Private _cd As String Private _exEC as boolean Private _exCtry As String Private Shared sSerializer As XmlSerializer #End Region Public Property Inf() As String Get Return Me._inf End Get Set(value As String) Me._inf = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Public Property Cd() As String Get Return Me._cd End Get Set(value As String) Me._cd = Value End Set End Property Public Property ExEC() as boolean Get Return Me._exEC End Get Set(value as boolean) Me._exEC = Value End Set End Property Public Property ExCtry() As String Get Return Me._exCtry End Get Set(value As String) Me._exCtry = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSpecMent)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgGdsItemSpecMent object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgGdsItemSpecMent object ''' ''' string workflow markup to deserialize ''' Output MsgGdsItemSpecMent 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 MsgGdsItemSpecMent, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent Return CType(Serializer.Deserialize(s), MsgGdsItemSpecMent) End Function #End Region ''' ''' Serializes current MsgGdsItemSpecMent 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 MsgGdsItemSpecMent object ''' ''' string xml file to load and deserialize ''' Output MsgGdsItemSpecMent 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 MsgGdsItemSpecMent, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgSeals #Region "Private fields" Private _sNr As String Private _id As List(Of MsgSealsID) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New() Me._id = New List(Of MsgSealsID)() End Sub Public Property SNr() As String Get Return Me._sNr End Get Set(value As String) Me._sNr = Value End Set End Property _ Public Property ID() As List(Of MsgSealsID) Get Return Me._id End Get Set(value As List(Of MsgSealsID)) Me._id = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgSeals)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgSeals object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgSeals object ''' ''' string workflow markup to deserialize ''' Output MsgSeals 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 MsgSeals, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgSeals) 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 MsgSeals) 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 MsgSeals Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgSeals) 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 MsgSeals Return CType(Serializer.Deserialize(s), MsgSeals) End Function #End Region ''' ''' Serializes current MsgSeals 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 MsgSeals object ''' ''' string xml file to load and deserialize ''' Output MsgSeals 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 MsgSeals, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgSeals) 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 MsgSeals) 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 MsgSeals Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgSealsID #Region "Private fields" Private _idnt As String Private _lNG As String Private Shared sSerializer As XmlSerializer #End Region Public Property Idnt() As String Get Return Me._idnt End Get Set(value As String) Me._idnt = Value End Set End Property Public Property LNG() As String Get Return Me._lNG End Get Set(value As String) Me._lNG = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgSealsID)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgSealsID object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgSealsID object ''' ''' string workflow markup to deserialize ''' Output MsgSealsID 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 MsgSealsID, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgSealsID) 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 MsgSealsID) 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 MsgSealsID Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgSealsID) 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 MsgSealsID Return CType(Serializer.Deserialize(s), MsgSealsID) End Function #End Region ''' ''' Serializes current MsgSealsID 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 MsgSealsID object ''' ''' string xml file to load and deserialize ''' Output MsgSealsID 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 MsgSealsID, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgSealsID) 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 MsgSealsID) 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 MsgSealsID Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgCtrlRslt #Region "Private fields" Private _resCd As String Private _dLimit As String Private Shared sSerializer As XmlSerializer #End Region Public Property ResCd() As String Get Return Me._resCd End Get Set(value As String) Me._resCd = Value End Set End Property Public Property DLimit() As String Get Return Me._dLimit End Get Set(value As String) Me._dLimit = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgCtrlRslt)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgCtrlRslt object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgCtrlRslt object ''' ''' string workflow markup to deserialize ''' Output MsgCtrlRslt 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 MsgCtrlRslt, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgCtrlRslt) 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 MsgCtrlRslt) 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 MsgCtrlRslt Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgCtrlRslt) 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 MsgCtrlRslt Return CType(Serializer.Deserialize(s), MsgCtrlRslt) End Function #End Region ''' ''' Serializes current MsgCtrlRslt 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 MsgCtrlRslt object ''' ''' string xml file to load and deserialize ''' Output MsgCtrlRslt 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 MsgCtrlRslt, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgCtrlRslt) 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 MsgCtrlRslt) 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 MsgCtrlRslt Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class _ Partial Public Class MsgItin #Region "Private fields" Private _routCtry As String Private Shared sSerializer As XmlSerializer #End Region Public Property RoutCtry() As String Get Return Me._routCtry End Get Set(value As String) Me._routCtry = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgItin)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current MsgItin object into an XML string ''' ''' string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() xmlWriterSettings.Indent = True xmlWriterSettings.IndentChars = " " Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) Serializer.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' ''' Deserializes workflow markup into an MsgItin object ''' ''' string workflow markup to deserialize ''' Output MsgItin 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 MsgItin, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgItin) 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 MsgItin) 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 MsgItin Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgItin) 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 MsgItin Return CType(Serializer.Deserialize(s), MsgItin) End Function #End Region ''' ''' Serializes current MsgItin 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 MsgItin object ''' ''' string xml file to load and deserialize ''' Output MsgItin 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 MsgItin, ByRef exception As System.Exception) as boolean exception = Nothing obj = CType(Nothing, MsgItin) 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 MsgItin) 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 MsgItin Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file) Dim xmlString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(xmlString) Finally If (Not (file) Is Nothing) Then file.Dispose() End If If (Not (sr) Is Nothing) Then sr.Dispose() End If End Try End Function End Class End Namespace