'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com '' {"TargetFramework":"Net47","NameSpace":"CC015B","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} '' '' ------------------------------------------------------------------------------ #Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace CC015B Partial Public Class CC015BType #Region "Private fields" Private _synIdeMES1 As String Private _synVerNumMES2 As String Private _senIdeCodQuaMES4 As String Private _mesRecMES6 As String Private _recIdeCodQuaMES7 As String Private _datOfPreMES9 As String Private _timOfPreMES10 As String Private _intConRefMES11 As String Private _recRefMES12 As String Private _recRefQuaMES13 As String Private _appRefMES14 As String Private _priMES15 As String Private _ackReqMES16 As String Private _comAgrIdMES17 As String Private _tesIndMES18 As String Private _mesIdeMES19 As String Private _mesTypMES20 As String Private _comAccRefMES21 As String Private _mesSeqNumMES22 As String Private _firAndLasTraMES23 As String Private _hEAHEA As HEAHEAType Private _tRAPRIPC1 As TRAPRIPC1Type Private _tRACONCO1 As TRACONCO1Type Private _tRACONCE1 As TRACONCE1Type Private _tRAAUTCONTRA As TRAAUTCONTRAType Private _cUSOFFDEPEPT As CUSOFFDEPEPTType Private _cUSOFFTRARNS As List(Of CUSOFFTRARNSType) Private _cUSOFFDESEST As CUSOFFDESESTType Private _cONRESERS As CONRESERSType Private _rEPREP As REPREPType Private _sEAINFSLI As SEAINFSLIType Private _gUAGUA As List(Of GUAGUAType) Private _gOOITEGDS As List(Of GOOITEGDSType) Private _iTI As List(Of ITIType) Private _cARTRA100 As CARTRA100Type Private _tRACORSEC037 As TRACORSEC037Type Private _tRACONSEC029 As TRACONSEC029Type Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._tRACONSEC029 = New TRACONSEC029Type() Me._tRACORSEC037 = New TRACORSEC037Type() Me._cARTRA100 = New CARTRA100Type() Me._iTI = New List(Of ITIType)() Me._gOOITEGDS = New List(Of GOOITEGDSType)() Me._gUAGUA = New List(Of GUAGUAType)() Me._sEAINFSLI = New SEAINFSLIType() Me._rEPREP = New REPREPType() Me._cONRESERS = New CONRESERSType() Me._cUSOFFDESEST = New CUSOFFDESESTType() Me._cUSOFFTRARNS = New List(Of CUSOFFTRARNSType)() Me._cUSOFFDEPEPT = New CUSOFFDEPEPTType() Me._tRAAUTCONTRA = New TRAAUTCONTRAType() Me._tRACONCE1 = New TRACONCE1Type() Me._tRACONCO1 = New TRACONCO1Type() Me._tRAPRIPC1 = New TRAPRIPC1Type() Me._hEAHEA = New HEAHEAType() End Sub Public Property SynIdeMES1() As String Get Return Me._synIdeMES1 End Get Set Me._synIdeMES1 = Value End Set End Property Public Property SynVerNumMES2() As String Get Return Me._synVerNumMES2 End Get Set Me._synVerNumMES2 = Value End Set End Property Public Property SenIdeCodQuaMES4() As String Get Return Me._senIdeCodQuaMES4 End Get Set Me._senIdeCodQuaMES4 = Value End Set End Property Public Property MesRecMES6() As String Get Return Me._mesRecMES6 End Get Set Me._mesRecMES6 = Value End Set End Property Public Property RecIdeCodQuaMES7() As String Get Return Me._recIdeCodQuaMES7 End Get Set Me._recIdeCodQuaMES7 = Value End Set End Property Public Property DatOfPreMES9() As String Get Return Me._datOfPreMES9 End Get Set Me._datOfPreMES9 = Value End Set End Property Public Property TimOfPreMES10() As String Get Return Me._timOfPreMES10 End Get Set Me._timOfPreMES10 = Value End Set End Property Public Property IntConRefMES11() As String Get Return Me._intConRefMES11 End Get Set Me._intConRefMES11 = Value End Set End Property Public Property RecRefMES12() As String Get Return Me._recRefMES12 End Get Set Me._recRefMES12 = Value End Set End Property Public Property RecRefQuaMES13() As String Get Return Me._recRefQuaMES13 End Get Set Me._recRefQuaMES13 = Value End Set End Property Public Property AppRefMES14() As String Get Return Me._appRefMES14 End Get Set Me._appRefMES14 = Value End Set End Property Public Property PriMES15() As String Get Return Me._priMES15 End Get Set Me._priMES15 = Value End Set End Property Public Property AckReqMES16() As String Get Return Me._ackReqMES16 End Get Set Me._ackReqMES16 = Value End Set End Property Public Property ComAgrIdMES17() As String Get Return Me._comAgrIdMES17 End Get Set Me._comAgrIdMES17 = Value End Set End Property Public Property TesIndMES18() As String Get Return Me._tesIndMES18 End Get Set Me._tesIndMES18 = Value End Set End Property Public Property MesIdeMES19() As String Get Return Me._mesIdeMES19 End Get Set Me._mesIdeMES19 = Value End Set End Property Public Property MesTypMES20() As String Get Return Me._mesTypMES20 End Get Set Me._mesTypMES20 = Value End Set End Property Public Property ComAccRefMES21() As String Get Return Me._comAccRefMES21 End Get Set Me._comAccRefMES21 = Value End Set End Property Public Property MesSeqNumMES22() As String Get Return Me._mesSeqNumMES22 End Get Set Me._mesSeqNumMES22 = Value End Set End Property Public Property FirAndLasTraMES23() As String Get Return Me._firAndLasTraMES23 End Get Set Me._firAndLasTraMES23 = Value End Set End Property Public Property HEAHEA() As HEAHEAType Get Return Me._hEAHEA End Get Set Me._hEAHEA = Value End Set End Property Public Property TRAPRIPC1() As TRAPRIPC1Type Get Return Me._tRAPRIPC1 End Get Set Me._tRAPRIPC1 = Value End Set End Property Public Property TRACONCO1() As TRACONCO1Type Get Return Me._tRACONCO1 End Get Set Me._tRACONCO1 = Value End Set End Property Public Property TRACONCE1() As TRACONCE1Type Get Return Me._tRACONCE1 End Get Set Me._tRACONCE1 = Value End Set End Property Public Property TRAAUTCONTRA() As TRAAUTCONTRAType Get Return Me._tRAAUTCONTRA End Get Set Me._tRAAUTCONTRA = Value End Set End Property Public Property CUSOFFDEPEPT() As CUSOFFDEPEPTType Get Return Me._cUSOFFDEPEPT End Get Set Me._cUSOFFDEPEPT = Value End Set End Property Public Property CUSOFFTRARNS() As List(Of CUSOFFTRARNSType) Get Return Me._cUSOFFTRARNS End Get Set Me._cUSOFFTRARNS = Value End Set End Property Public Property CUSOFFDESEST() As CUSOFFDESESTType Get Return Me._cUSOFFDESEST End Get Set Me._cUSOFFDESEST = Value End Set End Property Public Property CONRESERS() As CONRESERSType Get Return Me._cONRESERS End Get Set Me._cONRESERS = Value End Set End Property Public Property REPREP() As REPREPType Get Return Me._rEPREP End Get Set Me._rEPREP = Value End Set End Property Public Property SEAINFSLI() As SEAINFSLIType Get Return Me._sEAINFSLI End Get Set Me._sEAINFSLI = Value End Set End Property Public Property GUAGUA() As List(Of GUAGUAType) Get Return Me._gUAGUA End Get Set Me._gUAGUA = Value End Set End Property Public Property GOOITEGDS() As List(Of GOOITEGDSType) Get Return Me._gOOITEGDS End Get Set Me._gOOITEGDS = Value End Set End Property Public Property ITI() As List(Of ITIType) Get Return Me._iTI End Get Set Me._iTI = Value End Set End Property Public Property CARTRA100() As CARTRA100Type Get Return Me._cARTRA100 End Get Set Me._cARTRA100 = Value End Set End Property Public Property TRACORSEC037() As TRACORSEC037Type Get Return Me._tRACORSEC037 End Get Set Me._tRACORSEC037 = Value End Set End Property Public Property TRACONSEC029() As TRACONSEC029Type Get Return Me._tRACONSEC029 End Get Set Me._tRACONSEC029 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CC015BType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CC015BType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CC015BType object ''' ''' string to deserialize ''' Output CC015BType 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 CC015BType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CC015BType) 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 CC015BType) 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 CC015BType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CC015BType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CC015BType Return CType(SerializerXml.Deserialize(s), CC015BType) End Function #End Region ''' ''' Serializes current CC015BType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CC015BType object ''' ''' File to load and deserialize ''' Output CC015BType 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 CC015BType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CC015BType) 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 CC015BType) 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 CC015BType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 HEAHEAType #Region "Private fields" Private _refNumHEA4 As String Private _typOfDecHEA24 As String Private _couOfDesCodHEA30 As String Private _agrLocOfGooCodHEA38 As String Private _agrLocOfGooHEA39 As String Private _agrLocOfGooHEA39LNG As String Private _autLocOfGooCodHEA41 As String Private _plaOfLoaCodHEA46 As String Private _couOfDisCodHEA55 As String Private _cusSubPlaHEA66 As String Private _inlTraModHEA75 As String Private _traModAtBorHEA76 As String Private _ideOfMeaOfTraAtDHEA78 As String Private _ideOfMeaOfTraAtDHEA78LNG As String Private _natOfMeaOfTraAtDHEA80 As String Private _ideOfMeaOfTraCroHEA85 As String Private _ideOfMeaOfTraCroHEA85LNG As String Private _natOfMeaOfTraCroHEA87 As String Private _typOfMeaOfTraCroHEA88 As String Private _conIndHEA96 As String Private _diaLanIndAtDepHEA254 As String Private _nCTSAccDocHEA601LNG As String Private _numOfLoaLisHEA304 As String Private _totNumOfIteHEA305 As String Private _totNumOfPacHEA306 As String Private _totGroMasHEA307 As String Private _decDatHEA383 As String Private _decPlaHEA394 As String Private _decPlaHEA394LNG As String Private _speCirIndHEA1 As String Private _traChaMetOfPayHEA1 As String Private _comRefNumHEA As String Private _secHEA358 As String Private _conRefNumHEA As String Private _codPlUnHEA357 As String Private _codPlUnHEA357LNG As String Private Shared _serializerXml As XmlSerializer #End Region Public Property RefNumHEA4() As String Get Return Me._refNumHEA4 End Get Set Me._refNumHEA4 = Value End Set End Property Public Property TypOfDecHEA24() As String Get Return Me._typOfDecHEA24 End Get Set Me._typOfDecHEA24 = Value End Set End Property Public Property CouOfDesCodHEA30() As String Get Return Me._couOfDesCodHEA30 End Get Set Me._couOfDesCodHEA30 = Value End Set End Property Public Property AgrLocOfGooCodHEA38() As String Get Return Me._agrLocOfGooCodHEA38 End Get Set Me._agrLocOfGooCodHEA38 = Value End Set End Property Public Property AgrLocOfGooHEA39() As String Get Return Me._agrLocOfGooHEA39 End Get Set Me._agrLocOfGooHEA39 = Value End Set End Property Public Property AgrLocOfGooHEA39LNG() As String Get Return Me._agrLocOfGooHEA39LNG End Get Set Me._agrLocOfGooHEA39LNG = Value End Set End Property Public Property AutLocOfGooCodHEA41() As String Get Return Me._autLocOfGooCodHEA41 End Get Set Me._autLocOfGooCodHEA41 = Value End Set End Property Public Property PlaOfLoaCodHEA46() As String Get Return Me._plaOfLoaCodHEA46 End Get Set Me._plaOfLoaCodHEA46 = Value End Set End Property Public Property CouOfDisCodHEA55() As String Get Return Me._couOfDisCodHEA55 End Get Set Me._couOfDisCodHEA55 = Value End Set End Property Public Property CusSubPlaHEA66() As String Get Return Me._cusSubPlaHEA66 End Get Set Me._cusSubPlaHEA66 = Value End Set End Property Public Property InlTraModHEA75() As String Get Return Me._inlTraModHEA75 End Get Set Me._inlTraModHEA75 = Value End Set End Property Public Property TraModAtBorHEA76() As String Get Return Me._traModAtBorHEA76 End Get Set Me._traModAtBorHEA76 = Value End Set End Property Public Property IdeOfMeaOfTraAtDHEA78() As String Get Return Me._ideOfMeaOfTraAtDHEA78 End Get Set Me._ideOfMeaOfTraAtDHEA78 = Value End Set End Property Public Property IdeOfMeaOfTraAtDHEA78LNG() As String Get Return Me._ideOfMeaOfTraAtDHEA78LNG End Get Set Me._ideOfMeaOfTraAtDHEA78LNG = Value End Set End Property Public Property NatOfMeaOfTraAtDHEA80() As String Get Return Me._natOfMeaOfTraAtDHEA80 End Get Set Me._natOfMeaOfTraAtDHEA80 = Value End Set End Property Public Property IdeOfMeaOfTraCroHEA85() As String Get Return Me._ideOfMeaOfTraCroHEA85 End Get Set Me._ideOfMeaOfTraCroHEA85 = Value End Set End Property Public Property IdeOfMeaOfTraCroHEA85LNG() As String Get Return Me._ideOfMeaOfTraCroHEA85LNG End Get Set Me._ideOfMeaOfTraCroHEA85LNG = Value End Set End Property Public Property NatOfMeaOfTraCroHEA87() As String Get Return Me._natOfMeaOfTraCroHEA87 End Get Set Me._natOfMeaOfTraCroHEA87 = Value End Set End Property Public Property TypOfMeaOfTraCroHEA88() As String Get Return Me._typOfMeaOfTraCroHEA88 End Get Set Me._typOfMeaOfTraCroHEA88 = Value End Set End Property Public Property ConIndHEA96() As String Get Return Me._conIndHEA96 End Get Set Me._conIndHEA96 = Value End Set End Property Public Property DiaLanIndAtDepHEA254() As String Get Return Me._diaLanIndAtDepHEA254 End Get Set Me._diaLanIndAtDepHEA254 = Value End Set End Property Public Property NCTSAccDocHEA601LNG() As String Get Return Me._nCTSAccDocHEA601LNG End Get Set Me._nCTSAccDocHEA601LNG = Value End Set End Property Public Property NumOfLoaLisHEA304() As String Get Return Me._numOfLoaLisHEA304 End Get Set Me._numOfLoaLisHEA304 = Value End Set End Property Public Property TotNumOfIteHEA305() As String Get Return Me._totNumOfIteHEA305 End Get Set Me._totNumOfIteHEA305 = Value End Set End Property Public Property TotNumOfPacHEA306() As String Get Return Me._totNumOfPacHEA306 End Get Set Me._totNumOfPacHEA306 = Value End Set End Property Public Property TotGroMasHEA307() As String Get Return Me._totGroMasHEA307 End Get Set Me._totGroMasHEA307 = Value End Set End Property Public Property DecDatHEA383() As String Get Return Me._decDatHEA383 End Get Set Me._decDatHEA383 = Value End Set End Property Public Property DecPlaHEA394() As String Get Return Me._decPlaHEA394 End Get Set Me._decPlaHEA394 = Value End Set End Property Public Property DecPlaHEA394LNG() As String Get Return Me._decPlaHEA394LNG End Get Set Me._decPlaHEA394LNG = Value End Set End Property Public Property SpeCirIndHEA1() As String Get Return Me._speCirIndHEA1 End Get Set Me._speCirIndHEA1 = Value End Set End Property Public Property TraChaMetOfPayHEA1() As String Get Return Me._traChaMetOfPayHEA1 End Get Set Me._traChaMetOfPayHEA1 = Value End Set End Property Public Property ComRefNumHEA() As String Get Return Me._comRefNumHEA End Get Set Me._comRefNumHEA = Value End Set End Property Public Property SecHEA358() As String Get Return Me._secHEA358 End Get Set Me._secHEA358 = Value End Set End Property Public Property ConRefNumHEA() As String Get Return Me._conRefNumHEA End Get Set Me._conRefNumHEA = Value End Set End Property Public Property CodPlUnHEA357() As String Get Return Me._codPlUnHEA357 End Get Set Me._codPlUnHEA357 = Value End Set End Property Public Property CodPlUnHEA357LNG() As String Get Return Me._codPlUnHEA357LNG End Get Set Me._codPlUnHEA357LNG = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize HEAHEAType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 HEAHEAType object ''' ''' string to deserialize ''' Output HEAHEAType 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 HEAHEAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HEAHEAType) 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 HEAHEAType) 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 HEAHEAType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HEAHEAType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As HEAHEAType Return CType(SerializerXml.Deserialize(s), HEAHEAType) End Function #End Region ''' ''' Serializes current HEAHEAType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an HEAHEAType object ''' ''' File to load and deserialize ''' Output HEAHEAType 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 HEAHEAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HEAHEAType) 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 HEAHEAType) 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 HEAHEAType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONSEC029Type #Region "Private fields" Private _nameTRACONSEC033 As String Private _strNumTRACONSEC035 As String Private _posCodTRACONSEC034 As String Private _citTRACONSEC030 As String Private _couCodTRACONSEC031 As String Private _tRACONSEC029LNG As String Private _tINTRACONSEC036 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NameTRACONSEC033() As String Get Return Me._nameTRACONSEC033 End Get Set Me._nameTRACONSEC033 = Value End Set End Property Public Property StrNumTRACONSEC035() As String Get Return Me._strNumTRACONSEC035 End Get Set Me._strNumTRACONSEC035 = Value End Set End Property Public Property PosCodTRACONSEC034() As String Get Return Me._posCodTRACONSEC034 End Get Set Me._posCodTRACONSEC034 = Value End Set End Property Public Property CitTRACONSEC030() As String Get Return Me._citTRACONSEC030 End Get Set Me._citTRACONSEC030 = Value End Set End Property Public Property CouCodTRACONSEC031() As String Get Return Me._couCodTRACONSEC031 End Get Set Me._couCodTRACONSEC031 = Value End Set End Property Public Property TRACONSEC029LNG() As String Get Return Me._tRACONSEC029LNG End Get Set Me._tRACONSEC029LNG = Value End Set End Property Public Property TINTRACONSEC036() As String Get Return Me._tINTRACONSEC036 End Get Set Me._tINTRACONSEC036 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSEC029Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONSEC029Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONSEC029Type object ''' ''' string to deserialize ''' Output TRACONSEC029Type 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 TRACONSEC029Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONSEC029Type) 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 TRACONSEC029Type) 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 TRACONSEC029Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONSEC029Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONSEC029Type Return CType(SerializerXml.Deserialize(s), TRACONSEC029Type) End Function #End Region ''' ''' Serializes current TRACONSEC029Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONSEC029Type object ''' ''' File to load and deserialize ''' Output TRACONSEC029Type 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 TRACONSEC029Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONSEC029Type) 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 TRACONSEC029Type) 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 TRACONSEC029Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACORSEC037Type #Region "Private fields" Private _namTRACORSEC041 As String Private _strNumTRACORSEC043 As String Private _posCodTRACORSEC042 As String Private _citTRACORSEC038 As String Private _couCodTRACORSEC039 As String Private _tRACORSEC037LNG As String Private _tINTRACORSEC044 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamTRACORSEC041() As String Get Return Me._namTRACORSEC041 End Get Set Me._namTRACORSEC041 = Value End Set End Property Public Property StrNumTRACORSEC043() As String Get Return Me._strNumTRACORSEC043 End Get Set Me._strNumTRACORSEC043 = Value End Set End Property Public Property PosCodTRACORSEC042() As String Get Return Me._posCodTRACORSEC042 End Get Set Me._posCodTRACORSEC042 = Value End Set End Property Public Property CitTRACORSEC038() As String Get Return Me._citTRACORSEC038 End Get Set Me._citTRACORSEC038 = Value End Set End Property Public Property CouCodTRACORSEC039() As String Get Return Me._couCodTRACORSEC039 End Get Set Me._couCodTRACORSEC039 = Value End Set End Property Public Property TRACORSEC037LNG() As String Get Return Me._tRACORSEC037LNG End Get Set Me._tRACORSEC037LNG = Value End Set End Property Public Property TINTRACORSEC044() As String Get Return Me._tINTRACORSEC044 End Get Set Me._tINTRACORSEC044 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSEC037Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACORSEC037Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACORSEC037Type object ''' ''' string to deserialize ''' Output TRACORSEC037Type 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 TRACORSEC037Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACORSEC037Type) 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 TRACORSEC037Type) 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 TRACORSEC037Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACORSEC037Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACORSEC037Type Return CType(SerializerXml.Deserialize(s), TRACORSEC037Type) End Function #End Region ''' ''' Serializes current TRACORSEC037Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACORSEC037Type object ''' ''' File to load and deserialize ''' Output TRACORSEC037Type 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 TRACORSEC037Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACORSEC037Type) 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 TRACORSEC037Type) 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 TRACORSEC037Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CARTRA100Type #Region "Private fields" Private _namCARTRA121 As String Private _strAndNumCARTRA254 As String Private _posCodCARTRA121 As String Private _citCARTRA789 As String Private _couCodCARTRA587 As String Private _nADCARTRA121 As String Private _tINCARTRA254 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamCARTRA121() As String Get Return Me._namCARTRA121 End Get Set Me._namCARTRA121 = Value End Set End Property Public Property StrAndNumCARTRA254() As String Get Return Me._strAndNumCARTRA254 End Get Set Me._strAndNumCARTRA254 = Value End Set End Property Public Property PosCodCARTRA121() As String Get Return Me._posCodCARTRA121 End Get Set Me._posCodCARTRA121 = Value End Set End Property Public Property CitCARTRA789() As String Get Return Me._citCARTRA789 End Get Set Me._citCARTRA789 = Value End Set End Property Public Property CouCodCARTRA587() As String Get Return Me._couCodCARTRA587 End Get Set Me._couCodCARTRA587 = Value End Set End Property Public Property NADCARTRA121() As String Get Return Me._nADCARTRA121 End Get Set Me._nADCARTRA121 = Value End Set End Property Public Property TINCARTRA254() As String Get Return Me._tINCARTRA254 End Get Set Me._tINCARTRA254 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CARTRA100Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CARTRA100Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CARTRA100Type object ''' ''' string to deserialize ''' Output CARTRA100Type 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 CARTRA100Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CARTRA100Type) 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 CARTRA100Type) 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 CARTRA100Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CARTRA100Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CARTRA100Type Return CType(SerializerXml.Deserialize(s), CARTRA100Type) End Function #End Region ''' ''' Serializes current CARTRA100Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CARTRA100Type object ''' ''' File to load and deserialize ''' Output CARTRA100Type 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 CARTRA100Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CARTRA100Type) 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 CARTRA100Type) 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 CARTRA100Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 ITIType #Region "Private fields" Private _couOfRouCodITI1 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property CouOfRouCodITI1() As String Get Return Me._couOfRouCodITI1 End Get Set Me._couOfRouCodITI1 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ITIType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize ITIType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 ITIType object ''' ''' string to deserialize ''' Output ITIType 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 ITIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ITIType) 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 ITIType) 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 ITIType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ITIType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As ITIType Return CType(SerializerXml.Deserialize(s), ITIType) End Function #End Region ''' ''' Serializes current ITIType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an ITIType object ''' ''' File to load and deserialize ''' Output ITIType 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 ITIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ITIType) 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 ITIType) 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 ITIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONSECGOO013Type #Region "Private fields" Private _namTRACONSECGOO017 As String Private _strNumTRACONSECGOO019 As String Private _posCodTRACONSECGOO018 As String Private _cityTRACONSECGOO014 As String Private _couCodTRACONSECGOO015 As String Private _tRACONSECGOO013LNG As String Private _tINTRACONSECGOO020 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamTRACONSECGOO017() As String Get Return Me._namTRACONSECGOO017 End Get Set Me._namTRACONSECGOO017 = Value End Set End Property Public Property StrNumTRACONSECGOO019() As String Get Return Me._strNumTRACONSECGOO019 End Get Set Me._strNumTRACONSECGOO019 = Value End Set End Property Public Property PosCodTRACONSECGOO018() As String Get Return Me._posCodTRACONSECGOO018 End Get Set Me._posCodTRACONSECGOO018 = Value End Set End Property Public Property CityTRACONSECGOO014() As String Get Return Me._cityTRACONSECGOO014 End Get Set Me._cityTRACONSECGOO014 = Value End Set End Property Public Property CouCodTRACONSECGOO015() As String Get Return Me._couCodTRACONSECGOO015 End Get Set Me._couCodTRACONSECGOO015 = Value End Set End Property Public Property TRACONSECGOO013LNG() As String Get Return Me._tRACONSECGOO013LNG End Get Set Me._tRACONSECGOO013LNG = Value End Set End Property Public Property TINTRACONSECGOO020() As String Get Return Me._tINTRACONSECGOO020 End Get Set Me._tINTRACONSECGOO020 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSECGOO013Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONSECGOO013Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONSECGOO013Type object ''' ''' string to deserialize ''' Output TRACONSECGOO013Type 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 TRACONSECGOO013Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONSECGOO013Type) 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 TRACONSECGOO013Type) 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 TRACONSECGOO013Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONSECGOO013Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONSECGOO013Type Return CType(SerializerXml.Deserialize(s), TRACONSECGOO013Type) End Function #End Region ''' ''' Serializes current TRACONSECGOO013Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONSECGOO013Type object ''' ''' File to load and deserialize ''' Output TRACONSECGOO013Type 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 TRACONSECGOO013Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONSECGOO013Type) 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 TRACONSECGOO013Type) 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 TRACONSECGOO013Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACORSECGOO021Type #Region "Private fields" Private _namTRACORSECGOO025 As String Private _strNumTRACORSECGOO027 As String Private _posCodTRACORSECGOO026 As String Private _citTRACORSECGOO022 As String Private _couCodTRACORSECGOO023 As String Private _tRACORSECGOO021LNG As String Private _tINTRACORSECGOO028 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamTRACORSECGOO025() As String Get Return Me._namTRACORSECGOO025 End Get Set Me._namTRACORSECGOO025 = Value End Set End Property Public Property StrNumTRACORSECGOO027() As String Get Return Me._strNumTRACORSECGOO027 End Get Set Me._strNumTRACORSECGOO027 = Value End Set End Property Public Property PosCodTRACORSECGOO026() As String Get Return Me._posCodTRACORSECGOO026 End Get Set Me._posCodTRACORSECGOO026 = Value End Set End Property Public Property CitTRACORSECGOO022() As String Get Return Me._citTRACORSECGOO022 End Get Set Me._citTRACORSECGOO022 = Value End Set End Property Public Property CouCodTRACORSECGOO023() As String Get Return Me._couCodTRACORSECGOO023 End Get Set Me._couCodTRACORSECGOO023 = Value End Set End Property Public Property TRACORSECGOO021LNG() As String Get Return Me._tRACORSECGOO021LNG End Get Set Me._tRACORSECGOO021LNG = Value End Set End Property Public Property TINTRACORSECGOO028() As String Get Return Me._tINTRACORSECGOO028 End Get Set Me._tINTRACORSECGOO028 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSECGOO021Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACORSECGOO021Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACORSECGOO021Type object ''' ''' string to deserialize ''' Output TRACORSECGOO021Type 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 TRACORSECGOO021Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACORSECGOO021Type) 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 TRACORSECGOO021Type) 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 TRACORSECGOO021Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACORSECGOO021Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACORSECGOO021Type Return CType(SerializerXml.Deserialize(s), TRACORSECGOO021Type) End Function #End Region ''' ''' Serializes current TRACORSECGOO021Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACORSECGOO021Type object ''' ''' File to load and deserialize ''' Output TRACORSECGOO021Type 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 TRACORSECGOO021Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACORSECGOO021Type) 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 TRACORSECGOO021Type) 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 TRACORSECGOO021Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 SGICODSD2Type #Region "Private fields" Private _senGooCodSD22 As String Private _senQuaSD23 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property SenGooCodSD22() As String Get Return Me._senGooCodSD22 End Get Set Me._senGooCodSD22 = Value End Set End Property Public Property SenQuaSD23() As String Get Return Me._senQuaSD23 End Get Set Me._senQuaSD23 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SGICODSD2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SGICODSD2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 SGICODSD2Type object ''' ''' string to deserialize ''' Output SGICODSD2Type 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 SGICODSD2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SGICODSD2Type) 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 SGICODSD2Type) 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 SGICODSD2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SGICODSD2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As SGICODSD2Type Return CType(SerializerXml.Deserialize(s), SGICODSD2Type) End Function #End Region ''' ''' Serializes current SGICODSD2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SGICODSD2Type object ''' ''' File to load and deserialize ''' Output SGICODSD2Type 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 SGICODSD2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SGICODSD2Type) 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 SGICODSD2Type) 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 SGICODSD2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 PACGS2Type #Region "Private fields" Private _marNumOfPacGS21 As String Private _marNumOfPacGS21LNG As String Private _kinOfPacGS23 As String Private _numOfPacGS24 As String Private _numOfPieGS25 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property MarNumOfPacGS21() As String Get Return Me._marNumOfPacGS21 End Get Set Me._marNumOfPacGS21 = Value End Set End Property Public Property MarNumOfPacGS21LNG() As String Get Return Me._marNumOfPacGS21LNG End Get Set Me._marNumOfPacGS21LNG = Value End Set End Property Public Property KinOfPacGS23() As String Get Return Me._kinOfPacGS23 End Get Set Me._kinOfPacGS23 = Value End Set End Property Public Property NumOfPacGS24() As String Get Return Me._numOfPacGS24 End Get Set Me._numOfPacGS24 = Value End Set End Property Public Property NumOfPieGS25() As String Get Return Me._numOfPieGS25 End Get Set Me._numOfPieGS25 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PACGS2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PACGS2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 PACGS2Type object ''' ''' string to deserialize ''' Output PACGS2Type 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 PACGS2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PACGS2Type) 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 PACGS2Type) 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 PACGS2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PACGS2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As PACGS2Type Return CType(SerializerXml.Deserialize(s), PACGS2Type) End Function #End Region ''' ''' Serializes current PACGS2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PACGS2Type object ''' ''' File to load and deserialize ''' Output PACGS2Type 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 PACGS2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PACGS2Type) 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 PACGS2Type) 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 PACGS2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CONNR2Type #Region "Private fields" Private _conNumNR21 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property ConNumNR21() As String Get Return Me._conNumNR21 End Get Set Me._conNumNR21 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CONNR2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CONNR2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CONNR2Type object ''' ''' string to deserialize ''' Output CONNR2Type 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 CONNR2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CONNR2Type) 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 CONNR2Type) 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 CONNR2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CONNR2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CONNR2Type Return CType(SerializerXml.Deserialize(s), CONNR2Type) End Function #End Region ''' ''' Serializes current CONNR2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CONNR2Type object ''' ''' File to load and deserialize ''' Output CONNR2Type 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 CONNR2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CONNR2Type) 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 CONNR2Type) 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 CONNR2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONCE2Type #Region "Private fields" Private _namCE27 As String Private _strAndNumCE222 As String Private _posCodCE223 As String Private _citCE224 As String Private _couCE225 As String Private _nADLNGGICE As String Private _tINCE259 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamCE27() As String Get Return Me._namCE27 End Get Set Me._namCE27 = Value End Set End Property Public Property StrAndNumCE222() As String Get Return Me._strAndNumCE222 End Get Set Me._strAndNumCE222 = Value End Set End Property Public Property PosCodCE223() As String Get Return Me._posCodCE223 End Get Set Me._posCodCE223 = Value End Set End Property Public Property CitCE224() As String Get Return Me._citCE224 End Get Set Me._citCE224 = Value End Set End Property Public Property CouCE225() As String Get Return Me._couCE225 End Get Set Me._couCE225 = Value End Set End Property Public Property NADLNGGICE() As String Get Return Me._nADLNGGICE End Get Set Me._nADLNGGICE = Value End Set End Property Public Property TINCE259() As String Get Return Me._tINCE259 End Get Set Me._tINCE259 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONCE2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONCE2Type object ''' ''' string to deserialize ''' Output TRACONCE2Type 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 TRACONCE2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCE2Type) 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 TRACONCE2Type) 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 TRACONCE2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONCE2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONCE2Type Return CType(SerializerXml.Deserialize(s), TRACONCE2Type) End Function #End Region ''' ''' Serializes current TRACONCE2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONCE2Type object ''' ''' File to load and deserialize ''' Output TRACONCE2Type 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 TRACONCE2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCE2Type) 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 TRACONCE2Type) 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 TRACONCE2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONCO2Type #Region "Private fields" Private _namCO27 As String Private _strAndNumCO222 As String Private _posCodCO223 As String Private _citCO224 As String Private _couCO225 As String Private _nADLNGGTCO As String Private _tINCO259 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamCO27() As String Get Return Me._namCO27 End Get Set Me._namCO27 = Value End Set End Property Public Property StrAndNumCO222() As String Get Return Me._strAndNumCO222 End Get Set Me._strAndNumCO222 = Value End Set End Property Public Property PosCodCO223() As String Get Return Me._posCodCO223 End Get Set Me._posCodCO223 = Value End Set End Property Public Property CitCO224() As String Get Return Me._citCO224 End Get Set Me._citCO224 = Value End Set End Property Public Property CouCO225() As String Get Return Me._couCO225 End Get Set Me._couCO225 = Value End Set End Property Public Property NADLNGGTCO() As String Get Return Me._nADLNGGTCO End Get Set Me._nADLNGGTCO = Value End Set End Property Public Property TINCO259() As String Get Return Me._tINCO259 End Get Set Me._tINCO259 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONCO2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONCO2Type object ''' ''' string to deserialize ''' Output TRACONCO2Type 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 TRACONCO2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCO2Type) 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 TRACONCO2Type) 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 TRACONCO2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONCO2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONCO2Type Return CType(SerializerXml.Deserialize(s), TRACONCO2Type) End Function #End Region ''' ''' Serializes current TRACONCO2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONCO2Type object ''' ''' File to load and deserialize ''' Output TRACONCO2Type 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 TRACONCO2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCO2Type) 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 TRACONCO2Type) 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 TRACONCO2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 SPEMENMT2Type #Region "Private fields" Private _addInfMT21 As String Private _addInfMT21LNG As String Private _addInfCodMT23 As String Private _expFroECMT24 As String Private _expFroCouMT25 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property AddInfMT21() As String Get Return Me._addInfMT21 End Get Set Me._addInfMT21 = Value End Set End Property Public Property AddInfMT21LNG() As String Get Return Me._addInfMT21LNG End Get Set Me._addInfMT21LNG = Value End Set End Property Public Property AddInfCodMT23() As String Get Return Me._addInfCodMT23 End Get Set Me._addInfCodMT23 = Value End Set End Property Public Property ExpFroECMT24() As String Get Return Me._expFroECMT24 End Get Set Me._expFroECMT24 = Value End Set End Property Public Property ExpFroCouMT25() As String Get Return Me._expFroCouMT25 End Get Set Me._expFroCouMT25 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SPEMENMT2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SPEMENMT2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 SPEMENMT2Type object ''' ''' string to deserialize ''' Output SPEMENMT2Type 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 SPEMENMT2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SPEMENMT2Type) 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 SPEMENMT2Type) 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 SPEMENMT2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SPEMENMT2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As SPEMENMT2Type Return CType(SerializerXml.Deserialize(s), SPEMENMT2Type) End Function #End Region ''' ''' Serializes current SPEMENMT2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SPEMENMT2Type object ''' ''' File to load and deserialize ''' Output SPEMENMT2Type 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 SPEMENMT2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SPEMENMT2Type) 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 SPEMENMT2Type) 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 SPEMENMT2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 PRODOCDC2Type #Region "Private fields" Private _docTypDC21 As String Private _docRefDC23 As String Private _docRefDCLNG As String Private _comOfInfDC25 As String Private _comOfInfDC25LNG As String Private Shared _serializerXml As XmlSerializer #End Region Public Property DocTypDC21() As String Get Return Me._docTypDC21 End Get Set Me._docTypDC21 = Value End Set End Property Public Property DocRefDC23() As String Get Return Me._docRefDC23 End Get Set Me._docRefDC23 = Value End Set End Property Public Property DocRefDCLNG() As String Get Return Me._docRefDCLNG End Get Set Me._docRefDCLNG = Value End Set End Property Public Property ComOfInfDC25() As String Get Return Me._comOfInfDC25 End Get Set Me._comOfInfDC25 = Value End Set End Property Public Property ComOfInfDC25LNG() As String Get Return Me._comOfInfDC25LNG End Get Set Me._comOfInfDC25LNG = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PRODOCDC2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PRODOCDC2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 PRODOCDC2Type object ''' ''' string to deserialize ''' Output PRODOCDC2Type 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 PRODOCDC2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PRODOCDC2Type) 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 PRODOCDC2Type) 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 PRODOCDC2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PRODOCDC2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As PRODOCDC2Type Return CType(SerializerXml.Deserialize(s), PRODOCDC2Type) End Function #End Region ''' ''' Serializes current PRODOCDC2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PRODOCDC2Type object ''' ''' File to load and deserialize ''' Output PRODOCDC2Type 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 PRODOCDC2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PRODOCDC2Type) 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 PRODOCDC2Type) 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 PRODOCDC2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 PREADMREFAR2Type #Region "Private fields" Private _preDocTypAR21 As String Private _preDocRefAR26 As String Private _preDocRefLNG As String Private _comOfInfAR29 As String Private _comOfInfAR29LNG As String Private Shared _serializerXml As XmlSerializer #End Region Public Property PreDocTypAR21() As String Get Return Me._preDocTypAR21 End Get Set Me._preDocTypAR21 = Value End Set End Property Public Property PreDocRefAR26() As String Get Return Me._preDocRefAR26 End Get Set Me._preDocRefAR26 = Value End Set End Property Public Property PreDocRefLNG() As String Get Return Me._preDocRefLNG End Get Set Me._preDocRefLNG = Value End Set End Property Public Property ComOfInfAR29() As String Get Return Me._comOfInfAR29 End Get Set Me._comOfInfAR29 = Value End Set End Property Public Property ComOfInfAR29LNG() As String Get Return Me._comOfInfAR29LNG End Get Set Me._comOfInfAR29LNG = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PREADMREFAR2Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize PREADMREFAR2Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 PREADMREFAR2Type object ''' ''' string to deserialize ''' Output PREADMREFAR2Type 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 PREADMREFAR2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PREADMREFAR2Type) 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 PREADMREFAR2Type) 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 PREADMREFAR2Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PREADMREFAR2Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As PREADMREFAR2Type Return CType(SerializerXml.Deserialize(s), PREADMREFAR2Type) End Function #End Region ''' ''' Serializes current PREADMREFAR2Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an PREADMREFAR2Type object ''' ''' File to load and deserialize ''' Output PREADMREFAR2Type 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 PREADMREFAR2Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PREADMREFAR2Type) 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 PREADMREFAR2Type) 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 PREADMREFAR2Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 GOOITEGDSType #Region "Private fields" Private _iteNumGDS7 As String Private _comCodTarCodGDS10 As String Private _decTypGDS15 As String Private _gooDesGDS23 As String Private _gooDesGDS23LNG As String Private _groMasGDS46 As String Private _netMasGDS48 As String Private _couOfDisGDS58 As String Private _couOfDesGDS59 As String Private _metOfPayGDI12 As String Private _comRefNumGIM1 As String Private _uNDanGooCodGDI1 As String Private _pREADMREFAR2 As List(Of PREADMREFAR2Type) Private _pRODOCDC2 As List(Of PRODOCDC2Type) Private _sPEMENMT2 As List(Of SPEMENMT2Type) Private _tRACONCO2 As TRACONCO2Type Private _tRACONCE2 As TRACONCE2Type Private _cONNR2 As List(Of CONNR2Type) Private _pACGS2 As List(Of PACGS2Type) Private _sGICODSD2 As List(Of SGICODSD2Type) Private _tRACORSECGOO021 As TRACORSECGOO021Type Private _tRACONSECGOO013 As TRACONSECGOO013Type Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._tRACONSECGOO013 = New TRACONSECGOO013Type() Me._tRACORSECGOO021 = New TRACORSECGOO021Type() Me._sGICODSD2 = New List(Of SGICODSD2Type)() Me._pACGS2 = New List(Of PACGS2Type)() Me._cONNR2 = New List(Of CONNR2Type)() Me._tRACONCE2 = New TRACONCE2Type() Me._tRACONCO2 = New TRACONCO2Type() Me._sPEMENMT2 = New List(Of SPEMENMT2Type)() Me._pRODOCDC2 = New List(Of PRODOCDC2Type)() Me._pREADMREFAR2 = New List(Of PREADMREFAR2Type)() End Sub Public Property IteNumGDS7() As String Get Return Me._iteNumGDS7 End Get Set Me._iteNumGDS7 = Value End Set End Property Public Property ComCodTarCodGDS10() As String Get Return Me._comCodTarCodGDS10 End Get Set Me._comCodTarCodGDS10 = Value End Set End Property Public Property DecTypGDS15() As String Get Return Me._decTypGDS15 End Get Set Me._decTypGDS15 = Value End Set End Property Public Property GooDesGDS23() As String Get Return Me._gooDesGDS23 End Get Set Me._gooDesGDS23 = Value End Set End Property Public Property GooDesGDS23LNG() As String Get Return Me._gooDesGDS23LNG End Get Set Me._gooDesGDS23LNG = Value End Set End Property Public Property GroMasGDS46() As String Get Return Me._groMasGDS46 End Get Set Me._groMasGDS46 = Value End Set End Property Public Property NetMasGDS48() As String Get Return Me._netMasGDS48 End Get Set Me._netMasGDS48 = Value End Set End Property Public Property CouOfDisGDS58() As String Get Return Me._couOfDisGDS58 End Get Set Me._couOfDisGDS58 = Value End Set End Property Public Property CouOfDesGDS59() As String Get Return Me._couOfDesGDS59 End Get Set Me._couOfDesGDS59 = Value End Set End Property Public Property MetOfPayGDI12() As String Get Return Me._metOfPayGDI12 End Get Set Me._metOfPayGDI12 = Value End Set End Property Public Property ComRefNumGIM1() As String Get Return Me._comRefNumGIM1 End Get Set Me._comRefNumGIM1 = Value End Set End Property Public Property UNDanGooCodGDI1() As String Get Return Me._uNDanGooCodGDI1 End Get Set Me._uNDanGooCodGDI1 = Value End Set End Property Public Property PREADMREFAR2() As List(Of PREADMREFAR2Type) Get Return Me._pREADMREFAR2 End Get Set Me._pREADMREFAR2 = Value End Set End Property Public Property PRODOCDC2() As List(Of PRODOCDC2Type) Get Return Me._pRODOCDC2 End Get Set Me._pRODOCDC2 = Value End Set End Property Public Property SPEMENMT2() As List(Of SPEMENMT2Type) Get Return Me._sPEMENMT2 End Get Set Me._sPEMENMT2 = Value End Set End Property Public Property TRACONCO2() As TRACONCO2Type Get Return Me._tRACONCO2 End Get Set Me._tRACONCO2 = Value End Set End Property Public Property TRACONCE2() As TRACONCE2Type Get Return Me._tRACONCE2 End Get Set Me._tRACONCE2 = Value End Set End Property Public Property CONNR2() As List(Of CONNR2Type) Get Return Me._cONNR2 End Get Set Me._cONNR2 = Value End Set End Property Public Property PACGS2() As List(Of PACGS2Type) Get Return Me._pACGS2 End Get Set Me._pACGS2 = Value End Set End Property Public Property SGICODSD2() As List(Of SGICODSD2Type) Get Return Me._sGICODSD2 End Get Set Me._sGICODSD2 = Value End Set End Property Public Property TRACORSECGOO021() As TRACORSECGOO021Type Get Return Me._tRACORSECGOO021 End Get Set Me._tRACORSECGOO021 = Value End Set End Property Public Property TRACONSECGOO013() As TRACONSECGOO013Type Get Return Me._tRACONSECGOO013 End Get Set Me._tRACONSECGOO013 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize GOOITEGDSType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 GOOITEGDSType object ''' ''' string to deserialize ''' Output GOOITEGDSType 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 GOOITEGDSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GOOITEGDSType) 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 GOOITEGDSType) 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 GOOITEGDSType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As GOOITEGDSType Return CType(SerializerXml.Deserialize(s), GOOITEGDSType) End Function #End Region ''' ''' Serializes current GOOITEGDSType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an GOOITEGDSType object ''' ''' File to load and deserialize ''' Output GOOITEGDSType 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 GOOITEGDSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GOOITEGDSType) 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 GOOITEGDSType) 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 GOOITEGDSType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 VALLIMNONECLIMType #Region "Private fields" Private _notValForOthConPLIM2 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NotValForOthConPLIM2() As String Get Return Me._notValForOthConPLIM2 End Get Set Me._notValForOthConPLIM2 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMNONECLIMType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VALLIMNONECLIMType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 VALLIMNONECLIMType object ''' ''' string to deserialize ''' Output VALLIMNONECLIMType 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 VALLIMNONECLIMType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VALLIMNONECLIMType) 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 VALLIMNONECLIMType) 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 VALLIMNONECLIMType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VALLIMNONECLIMType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As VALLIMNONECLIMType Return CType(SerializerXml.Deserialize(s), VALLIMNONECLIMType) End Function #End Region ''' ''' Serializes current VALLIMNONECLIMType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VALLIMNONECLIMType object ''' ''' File to load and deserialize ''' Output VALLIMNONECLIMType 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 VALLIMNONECLIMType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VALLIMNONECLIMType) 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 VALLIMNONECLIMType) 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 VALLIMNONECLIMType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 VALLIMECVLEType #Region "Private fields" Private _notValForECVLE1 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NotValForECVLE1() As String Get Return Me._notValForECVLE1 End Get Set Me._notValForECVLE1 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMECVLEType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize VALLIMECVLEType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 VALLIMECVLEType object ''' ''' string to deserialize ''' Output VALLIMECVLEType 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 VALLIMECVLEType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VALLIMECVLEType) 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 VALLIMECVLEType) 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 VALLIMECVLEType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VALLIMECVLEType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As VALLIMECVLEType Return CType(SerializerXml.Deserialize(s), VALLIMECVLEType) End Function #End Region ''' ''' Serializes current VALLIMECVLEType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an VALLIMECVLEType object ''' ''' File to load and deserialize ''' Output VALLIMECVLEType 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 VALLIMECVLEType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VALLIMECVLEType) 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 VALLIMECVLEType) 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 VALLIMECVLEType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 GUAREFREFType #Region "Private fields" Private _guaRefNumGRNREF1 As String Private _curREF8 As Object Private _amoConREF7 As Object Private _othGuaRefREF4 As String Private _accCodREF6 As String Private _vALLIMECVLE As VALLIMECVLEType Private _vALLIMNONECLIM As List(Of VALLIMNONECLIMType) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._vALLIMNONECLIM = New List(Of VALLIMNONECLIMType)() Me._vALLIMECVLE = New VALLIMECVLEType() End Sub Public Property GuaRefNumGRNREF1() As String Get Return Me._guaRefNumGRNREF1 End Get Set Me._guaRefNumGRNREF1 = Value End Set End Property Public Property CurREF8() As Object Get Return Me._curREF8 End Get Set Me._curREF8 = Value End Set End Property Public Property AmoConREF7() As Object Get Return Me._amoConREF7 End Get Set Me._amoConREF7 = Value End Set End Property Public Property OthGuaRefREF4() As String Get Return Me._othGuaRefREF4 End Get Set Me._othGuaRefREF4 = Value End Set End Property Public Property AccCodREF6() As String Get Return Me._accCodREF6 End Get Set Me._accCodREF6 = Value End Set End Property Public Property VALLIMECVLE() As VALLIMECVLEType Get Return Me._vALLIMECVLE End Get Set Me._vALLIMECVLE = Value End Set End Property Public Property VALLIMNONECLIM() As List(Of VALLIMNONECLIMType) Get Return Me._vALLIMNONECLIM End Get Set Me._vALLIMNONECLIM = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GUAREFREFType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize GUAREFREFType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 GUAREFREFType object ''' ''' string to deserialize ''' Output GUAREFREFType 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 GUAREFREFType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GUAREFREFType) 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 GUAREFREFType) 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 GUAREFREFType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GUAREFREFType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As GUAREFREFType Return CType(SerializerXml.Deserialize(s), GUAREFREFType) End Function #End Region ''' ''' Serializes current GUAREFREFType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an GUAREFREFType object ''' ''' File to load and deserialize ''' Output GUAREFREFType 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 GUAREFREFType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GUAREFREFType) 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 GUAREFREFType) 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 GUAREFREFType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 GUAGUAType #Region "Private fields" Private _guaTypGUA1 As String Private _gUAREFREF As List(Of GUAREFREFType) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._gUAREFREF = New List(Of GUAREFREFType)() End Sub Public Property GuaTypGUA1() As String Get Return Me._guaTypGUA1 End Get Set Me._guaTypGUA1 = Value End Set End Property Public Property GUAREFREF() As List(Of GUAREFREFType) Get Return Me._gUAREFREF End Get Set Me._gUAREFREF = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GUAGUAType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize GUAGUAType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 GUAGUAType object ''' ''' string to deserialize ''' Output GUAGUAType 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 GUAGUAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GUAGUAType) 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 GUAGUAType) 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 GUAGUAType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GUAGUAType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As GUAGUAType Return CType(SerializerXml.Deserialize(s), GUAGUAType) End Function #End Region ''' ''' Serializes current GUAGUAType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an GUAGUAType object ''' ''' File to load and deserialize ''' Output GUAGUAType 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 GUAGUAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GUAGUAType) 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 GUAGUAType) 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 GUAGUAType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 SEAIDSIDType #Region "Private fields" Private _seaIdeSID1 As String Private _seaIdeSID1LNG As String Private Shared _serializerXml As XmlSerializer #End Region Public Property SeaIdeSID1() As String Get Return Me._seaIdeSID1 End Get Set Me._seaIdeSID1 = Value End Set End Property Public Property SeaIdeSID1LNG() As String Get Return Me._seaIdeSID1LNG End Get Set Me._seaIdeSID1LNG = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SEAIDSIDType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SEAIDSIDType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 SEAIDSIDType object ''' ''' string to deserialize ''' Output SEAIDSIDType 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 SEAIDSIDType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SEAIDSIDType) 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 SEAIDSIDType) 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 SEAIDSIDType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SEAIDSIDType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As SEAIDSIDType Return CType(SerializerXml.Deserialize(s), SEAIDSIDType) End Function #End Region ''' ''' Serializes current SEAIDSIDType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SEAIDSIDType object ''' ''' File to load and deserialize ''' Output SEAIDSIDType 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 SEAIDSIDType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SEAIDSIDType) 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 SEAIDSIDType) 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 SEAIDSIDType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 SEAINFSLIType #Region "Private fields" Private _seaNumSLI2 As String Private _sEAIDSID As List(Of SEAIDSIDType) Private Shared _serializerXml As XmlSerializer #End Region Public Sub New() MyBase.New Me._sEAIDSID = New List(Of SEAIDSIDType)() End Sub Public Property SeaNumSLI2() As String Get Return Me._seaNumSLI2 End Get Set Me._seaNumSLI2 = Value End Set End Property Public Property SEAIDSID() As List(Of SEAIDSIDType) Get Return Me._sEAIDSID End Get Set Me._sEAIDSID = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SEAINFSLIType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize SEAINFSLIType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 SEAINFSLIType object ''' ''' string to deserialize ''' Output SEAINFSLIType 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 SEAINFSLIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SEAINFSLIType) 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 SEAINFSLIType) 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 SEAINFSLIType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SEAINFSLIType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As SEAINFSLIType Return CType(SerializerXml.Deserialize(s), SEAINFSLIType) End Function #End Region ''' ''' Serializes current SEAINFSLIType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an SEAINFSLIType object ''' ''' File to load and deserialize ''' Output SEAINFSLIType 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 SEAINFSLIType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SEAINFSLIType) 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 SEAINFSLIType) 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 SEAINFSLIType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 REPREPType #Region "Private fields" Private _namREP5 As String Private _repCapREP18 As String Private _repCapREP18LNG As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamREP5() As String Get Return Me._namREP5 End Get Set Me._namREP5 = Value End Set End Property Public Property RepCapREP18() As String Get Return Me._repCapREP18 End Get Set Me._repCapREP18 = Value End Set End Property Public Property RepCapREP18LNG() As String Get Return Me._repCapREP18LNG End Get Set Me._repCapREP18LNG = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(REPREPType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize REPREPType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 REPREPType object ''' ''' string to deserialize ''' Output REPREPType 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 REPREPType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, REPREPType) 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 REPREPType) 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 REPREPType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), REPREPType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As REPREPType Return CType(SerializerXml.Deserialize(s), REPREPType) End Function #End Region ''' ''' Serializes current REPREPType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an REPREPType object ''' ''' File to load and deserialize ''' Output REPREPType 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 REPREPType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, REPREPType) 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 REPREPType) 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 REPREPType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CONRESERSType #Region "Private fields" Private _conResCodERS16 As String Private _datLimERS69 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property ConResCodERS16() As String Get Return Me._conResCodERS16 End Get Set Me._conResCodERS16 = Value End Set End Property Public Property DatLimERS69() As String Get Return Me._datLimERS69 End Get Set Me._datLimERS69 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CONRESERSType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CONRESERSType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CONRESERSType object ''' ''' string to deserialize ''' Output CONRESERSType 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 CONRESERSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CONRESERSType) 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 CONRESERSType) 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 CONRESERSType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CONRESERSType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CONRESERSType Return CType(SerializerXml.Deserialize(s), CONRESERSType) End Function #End Region ''' ''' Serializes current CONRESERSType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CONRESERSType object ''' ''' File to load and deserialize ''' Output CONRESERSType 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 CONRESERSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CONRESERSType) 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 CONRESERSType) 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 CONRESERSType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CUSOFFDESESTType #Region "Private fields" Private _refNumEST1 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property RefNumEST1() As String Get Return Me._refNumEST1 End Get Set Me._refNumEST1 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDESESTType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CUSOFFDESESTType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CUSOFFDESESTType object ''' ''' string to deserialize ''' Output CUSOFFDESESTType 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 CUSOFFDESESTType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFDESESTType) 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 CUSOFFDESESTType) 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 CUSOFFDESESTType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CUSOFFDESESTType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CUSOFFDESESTType Return CType(SerializerXml.Deserialize(s), CUSOFFDESESTType) End Function #End Region ''' ''' Serializes current CUSOFFDESESTType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CUSOFFDESESTType object ''' ''' File to load and deserialize ''' Output CUSOFFDESESTType 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 CUSOFFDESESTType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFDESESTType) 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 CUSOFFDESESTType) 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 CUSOFFDESESTType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CUSOFFTRARNSType #Region "Private fields" Private _refNumRNS1 As String Private _arrTimTRACUS085 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property RefNumRNS1() As String Get Return Me._refNumRNS1 End Get Set Me._refNumRNS1 = Value End Set End Property Public Property ArrTimTRACUS085() As String Get Return Me._arrTimTRACUS085 End Get Set Me._arrTimTRACUS085 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFTRARNSType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CUSOFFTRARNSType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CUSOFFTRARNSType object ''' ''' string to deserialize ''' Output CUSOFFTRARNSType 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 CUSOFFTRARNSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFTRARNSType) 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 CUSOFFTRARNSType) 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 CUSOFFTRARNSType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CUSOFFTRARNSType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CUSOFFTRARNSType Return CType(SerializerXml.Deserialize(s), CUSOFFTRARNSType) End Function #End Region ''' ''' Serializes current CUSOFFTRARNSType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CUSOFFTRARNSType object ''' ''' File to load and deserialize ''' Output CUSOFFTRARNSType 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 CUSOFFTRARNSType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFTRARNSType) 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 CUSOFFTRARNSType) 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 CUSOFFTRARNSType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 CUSOFFDEPEPTType #Region "Private fields" Private _refNumEPT1 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property RefNumEPT1() As String Get Return Me._refNumEPT1 End Get Set Me._refNumEPT1 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDEPEPTType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize CUSOFFDEPEPTType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 CUSOFFDEPEPTType object ''' ''' string to deserialize ''' Output CUSOFFDEPEPTType 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 CUSOFFDEPEPTType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFDEPEPTType) 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 CUSOFFDEPEPTType) 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 CUSOFFDEPEPTType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CUSOFFDEPEPTType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As CUSOFFDEPEPTType Return CType(SerializerXml.Deserialize(s), CUSOFFDEPEPTType) End Function #End Region ''' ''' Serializes current CUSOFFDEPEPTType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an CUSOFFDEPEPTType object ''' ''' File to load and deserialize ''' Output CUSOFFDEPEPTType 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 CUSOFFDEPEPTType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, CUSOFFDEPEPTType) 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 CUSOFFDEPEPTType) 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 CUSOFFDEPEPTType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRAAUTCONTRAType #Region "Private fields" Private _tINTRA59 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property TINTRA59() As String Get Return Me._tINTRA59 End Get Set Me._tINTRA59 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRAAUTCONTRAType)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRAAUTCONTRAType object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRAAUTCONTRAType object ''' ''' string to deserialize ''' Output TRAAUTCONTRAType 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 TRAAUTCONTRAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRAAUTCONTRAType) 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 TRAAUTCONTRAType) 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 TRAAUTCONTRAType Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRAAUTCONTRAType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRAAUTCONTRAType Return CType(SerializerXml.Deserialize(s), TRAAUTCONTRAType) End Function #End Region ''' ''' Serializes current TRAAUTCONTRAType 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRAAUTCONTRAType object ''' ''' File to load and deserialize ''' Output TRAAUTCONTRAType 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 TRAAUTCONTRAType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRAAUTCONTRAType) 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 TRAAUTCONTRAType) 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 TRAAUTCONTRAType Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONCE1Type #Region "Private fields" Private _namCE17 As String Private _strAndNumCE122 As String Private _posCodCE123 As String Private _citCE124 As String Private _couCE125 As String Private _nADLNGCE As String Private _tINCE159 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamCE17() As String Get Return Me._namCE17 End Get Set Me._namCE17 = Value End Set End Property Public Property StrAndNumCE122() As String Get Return Me._strAndNumCE122 End Get Set Me._strAndNumCE122 = Value End Set End Property Public Property PosCodCE123() As String Get Return Me._posCodCE123 End Get Set Me._posCodCE123 = Value End Set End Property Public Property CitCE124() As String Get Return Me._citCE124 End Get Set Me._citCE124 = Value End Set End Property Public Property CouCE125() As String Get Return Me._couCE125 End Get Set Me._couCE125 = Value End Set End Property Public Property NADLNGCE() As String Get Return Me._nADLNGCE End Get Set Me._nADLNGCE = Value End Set End Property Public Property TINCE159() As String Get Return Me._tINCE159 End Get Set Me._tINCE159 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE1Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONCE1Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONCE1Type object ''' ''' string to deserialize ''' Output TRACONCE1Type 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 TRACONCE1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCE1Type) 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 TRACONCE1Type) 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 TRACONCE1Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONCE1Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONCE1Type Return CType(SerializerXml.Deserialize(s), TRACONCE1Type) End Function #End Region ''' ''' Serializes current TRACONCE1Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONCE1Type object ''' ''' File to load and deserialize ''' Output TRACONCE1Type 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 TRACONCE1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCE1Type) 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 TRACONCE1Type) 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 TRACONCE1Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRACONCO1Type #Region "Private fields" Private _namCO17 As String Private _strAndNumCO122 As String Private _posCodCO123 As String Private _citCO124 As String Private _couCO125 As String Private _tRACONCO1LNG As String Private _tINCO159 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamCO17() As String Get Return Me._namCO17 End Get Set Me._namCO17 = Value End Set End Property Public Property StrAndNumCO122() As String Get Return Me._strAndNumCO122 End Get Set Me._strAndNumCO122 = Value End Set End Property Public Property PosCodCO123() As String Get Return Me._posCodCO123 End Get Set Me._posCodCO123 = Value End Set End Property Public Property CitCO124() As String Get Return Me._citCO124 End Get Set Me._citCO124 = Value End Set End Property Public Property CouCO125() As String Get Return Me._couCO125 End Get Set Me._couCO125 = Value End Set End Property Public Property TRACONCO1LNG() As String Get Return Me._tRACONCO1LNG End Get Set Me._tRACONCO1LNG = Value End Set End Property Public Property TINCO159() As String Get Return Me._tINCO159 End Get Set Me._tINCO159 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO1Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRACONCO1Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRACONCO1Type object ''' ''' string to deserialize ''' Output TRACONCO1Type 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 TRACONCO1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCO1Type) 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 TRACONCO1Type) 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 TRACONCO1Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRACONCO1Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRACONCO1Type Return CType(SerializerXml.Deserialize(s), TRACONCO1Type) End Function #End Region ''' ''' Serializes current TRACONCO1Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRACONCO1Type object ''' ''' File to load and deserialize ''' Output TRACONCO1Type 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 TRACONCO1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRACONCO1Type) 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 TRACONCO1Type) 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 TRACONCO1Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 TRAPRIPC1Type #Region "Private fields" Private _namPC17 As String Private _strAndNumPC122 As String Private _posCodPC123 As String Private _citPC124 As String Private _couPC125 As String Private _nADLNGPC As String Private _tINPC159 As String Private _hITPC126 As String Private Shared _serializerXml As XmlSerializer #End Region Public Property NamPC17() As String Get Return Me._namPC17 End Get Set Me._namPC17 = Value End Set End Property Public Property StrAndNumPC122() As String Get Return Me._strAndNumPC122 End Get Set Me._strAndNumPC122 = Value End Set End Property Public Property PosCodPC123() As String Get Return Me._posCodPC123 End Get Set Me._posCodPC123 = Value End Set End Property Public Property CitPC124() As String Get Return Me._citPC124 End Get Set Me._citPC124 = Value End Set End Property Public Property CouPC125() As String Get Return Me._couPC125 End Get Set Me._couPC125 = Value End Set End Property Public Property NADLNGPC() As String Get Return Me._nADLNGPC End Get Set Me._nADLNGPC = Value End Set End Property Public Property TINPC159() As String Get Return Me._tINPC159 End Get Set Me._tINPC159 = Value End Set End Property Public Property HITPC126() As String Get Return Me._hITPC126 End Get Set Me._hITPC126 = Value End Set End Property Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get If (_serializerXml Is Nothing) Then _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRAPRIPC1Type)) End If Return _serializerXml End Get End Property #Region "Serialize/Deserialize" ''' ''' Serialize TRAPRIPC1Type object ''' ''' XML value Public Overridable Function Serialize() As String Dim streamReader As StreamReader = Nothing Dim memoryStream As MemoryStream = Nothing Try memoryStream = New MemoryStream() Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) SerializerXml.Serialize(xmlWriter, Me) memoryStream.Seek(0, SeekOrigin.Begin) streamReader = New 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 TRAPRIPC1Type object ''' ''' string to deserialize ''' Output TRAPRIPC1Type 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 TRAPRIPC1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRAPRIPC1Type) 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 TRAPRIPC1Type) 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 TRAPRIPC1Type Dim stringReader As StringReader = Nothing Try stringReader = New StringReader(input) Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRAPRIPC1Type) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRAPRIPC1Type Return CType(SerializerXml.Deserialize(s), TRAPRIPC1Type) End Function #End Region ''' ''' Serializes current TRAPRIPC1Type 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 StreamWriter = Nothing Try Dim dataString As String = Serialize() Dim outputFile As FileInfo = New FileInfo(fileName) streamWriter = outputFile.CreateText streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' ''' Deserializes xml markup from file into an TRAPRIPC1Type object ''' ''' File to load and deserialize ''' Output TRAPRIPC1Type 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 TRAPRIPC1Type, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRAPRIPC1Type) 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 TRAPRIPC1Type) 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 TRAPRIPC1Type Dim file As FileStream = Nothing Dim sr As StreamReader = Nothing Try file = New FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New StreamReader(file) Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() Return Deserialize(dataString) 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 #Enable Warning