Files
ADMIN/cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.Designer.vb
2025-03-19 15:33:35 +01:00

7871 lines
293 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' 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":{}}
'' </auto-generated>
'' ------------------------------------------------------------------------------
#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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlRoot("CC015B", [Namespace]:="", IsNullable:=False)>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SynIdeMES1() As String
Get
Return Me._synIdeMES1
End Get
Set
Me._synIdeMES1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SynVerNumMES2() As String
Get
Return Me._synVerNumMES2
End Get
Set
Me._synVerNumMES2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SenIdeCodQuaMES4() As String
Get
Return Me._senIdeCodQuaMES4
End Get
Set
Me._senIdeCodQuaMES4 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MesRecMES6() As String
Get
Return Me._mesRecMES6
End Get
Set
Me._mesRecMES6 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RecIdeCodQuaMES7() As String
Get
Return Me._recIdeCodQuaMES7
End Get
Set
Me._recIdeCodQuaMES7 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DatOfPreMES9() As String
Get
Return Me._datOfPreMES9
End Get
Set
Me._datOfPreMES9 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TimOfPreMES10() As String
Get
Return Me._timOfPreMES10
End Get
Set
Me._timOfPreMES10 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IntConRefMES11() As String
Get
Return Me._intConRefMES11
End Get
Set
Me._intConRefMES11 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RecRefMES12() As String
Get
Return Me._recRefMES12
End Get
Set
Me._recRefMES12 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RecRefQuaMES13() As String
Get
Return Me._recRefQuaMES13
End Get
Set
Me._recRefQuaMES13 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AppRefMES14() As String
Get
Return Me._appRefMES14
End Get
Set
Me._appRefMES14 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PriMES15() As String
Get
Return Me._priMES15
End Get
Set
Me._priMES15 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AckReqMES16() As String
Get
Return Me._ackReqMES16
End Get
Set
Me._ackReqMES16 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComAgrIdMES17() As String
Get
Return Me._comAgrIdMES17
End Get
Set
Me._comAgrIdMES17 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TesIndMES18() As String
Get
Return Me._tesIndMES18
End Get
Set
Me._tesIndMES18 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MesIdeMES19() As String
Get
Return Me._mesIdeMES19
End Get
Set
Me._mesIdeMES19 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MesTypMES20() As String
Get
Return Me._mesTypMES20
End Get
Set
Me._mesTypMES20 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComAccRefMES21() As String
Get
Return Me._comAccRefMES21
End Get
Set
Me._comAccRefMES21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MesSeqNumMES22() As String
Get
Return Me._mesSeqNumMES22
End Get
Set
Me._mesSeqNumMES22 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property FirAndLasTraMES23() As String
Get
Return Me._firAndLasTraMES23
End Get
Set
Me._firAndLasTraMES23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HEAHEA() As HEAHEAType
Get
Return Me._hEAHEA
End Get
Set
Me._hEAHEA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRAPRIPC1() As TRAPRIPC1Type
Get
Return Me._tRAPRIPC1
End Get
Set
Me._tRAPRIPC1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACONCO1() As TRACONCO1Type
Get
Return Me._tRACONCO1
End Get
Set
Me._tRACONCO1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACONCE1() As TRACONCE1Type
Get
Return Me._tRACONCE1
End Get
Set
Me._tRACONCE1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRAAUTCONTRA() As TRAAUTCONTRAType
Get
Return Me._tRAAUTCONTRA
End Get
Set
Me._tRAAUTCONTRA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CUSOFFDEPEPT() As CUSOFFDEPEPTType
Get
Return Me._cUSOFFDEPEPT
End Get
Set
Me._cUSOFFDEPEPT = Value
End Set
End Property
<XmlElement("CUSOFFTRARNS", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CUSOFFTRARNS() As List(Of CUSOFFTRARNSType)
Get
Return Me._cUSOFFTRARNS
End Get
Set
Me._cUSOFFTRARNS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CUSOFFDESEST() As CUSOFFDESESTType
Get
Return Me._cUSOFFDESEST
End Get
Set
Me._cUSOFFDESEST = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CONRESERS() As CONRESERSType
Get
Return Me._cONRESERS
End Get
Set
Me._cONRESERS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property REPREP() As REPREPType
Get
Return Me._rEPREP
End Get
Set
Me._rEPREP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SEAINFSLI() As SEAINFSLIType
Get
Return Me._sEAINFSLI
End Get
Set
Me._sEAINFSLI = Value
End Set
End Property
<XmlElement("GUAGUA", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GUAGUA() As List(Of GUAGUAType)
Get
Return Me._gUAGUA
End Get
Set
Me._gUAGUA = Value
End Set
End Property
<XmlElement("GOOITEGDS", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GOOITEGDS() As List(Of GOOITEGDSType)
Get
Return Me._gOOITEGDS
End Get
Set
Me._gOOITEGDS = Value
End Set
End Property
<XmlElement("ITI", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ITI() As List(Of ITIType)
Get
Return Me._iTI
End Get
Set
Me._iTI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CARTRA100() As CARTRA100Type
Get
Return Me._cARTRA100
End Get
Set
Me._cARTRA100 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACORSEC037() As TRACORSEC037Type
Get
Return Me._tRACORSEC037
End Get
Set
Me._tRACORSEC037 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
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"
''' <summary>
''' Serialize CC015BType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CC015BType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CC015BType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CC015BType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CC015BType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CC015BType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RefNumHEA4() As String
Get
Return Me._refNumHEA4
End Get
Set
Me._refNumHEA4 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TypOfDecHEA24() As String
Get
Return Me._typOfDecHEA24
End Get
Set
Me._typOfDecHEA24 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouOfDesCodHEA30() As String
Get
Return Me._couOfDesCodHEA30
End Get
Set
Me._couOfDesCodHEA30 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AgrLocOfGooCodHEA38() As String
Get
Return Me._agrLocOfGooCodHEA38
End Get
Set
Me._agrLocOfGooCodHEA38 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AgrLocOfGooHEA39() As String
Get
Return Me._agrLocOfGooHEA39
End Get
Set
Me._agrLocOfGooHEA39 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AgrLocOfGooHEA39LNG() As String
Get
Return Me._agrLocOfGooHEA39LNG
End Get
Set
Me._agrLocOfGooHEA39LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AutLocOfGooCodHEA41() As String
Get
Return Me._autLocOfGooCodHEA41
End Get
Set
Me._autLocOfGooCodHEA41 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PlaOfLoaCodHEA46() As String
Get
Return Me._plaOfLoaCodHEA46
End Get
Set
Me._plaOfLoaCodHEA46 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouOfDisCodHEA55() As String
Get
Return Me._couOfDisCodHEA55
End Get
Set
Me._couOfDisCodHEA55 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CusSubPlaHEA66() As String
Get
Return Me._cusSubPlaHEA66
End Get
Set
Me._cusSubPlaHEA66 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property InlTraModHEA75() As String
Get
Return Me._inlTraModHEA75
End Get
Set
Me._inlTraModHEA75 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TraModAtBorHEA76() As String
Get
Return Me._traModAtBorHEA76
End Get
Set
Me._traModAtBorHEA76 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IdeOfMeaOfTraAtDHEA78() As String
Get
Return Me._ideOfMeaOfTraAtDHEA78
End Get
Set
Me._ideOfMeaOfTraAtDHEA78 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IdeOfMeaOfTraAtDHEA78LNG() As String
Get
Return Me._ideOfMeaOfTraAtDHEA78LNG
End Get
Set
Me._ideOfMeaOfTraAtDHEA78LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NatOfMeaOfTraAtDHEA80() As String
Get
Return Me._natOfMeaOfTraAtDHEA80
End Get
Set
Me._natOfMeaOfTraAtDHEA80 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IdeOfMeaOfTraCroHEA85() As String
Get
Return Me._ideOfMeaOfTraCroHEA85
End Get
Set
Me._ideOfMeaOfTraCroHEA85 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IdeOfMeaOfTraCroHEA85LNG() As String
Get
Return Me._ideOfMeaOfTraCroHEA85LNG
End Get
Set
Me._ideOfMeaOfTraCroHEA85LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NatOfMeaOfTraCroHEA87() As String
Get
Return Me._natOfMeaOfTraCroHEA87
End Get
Set
Me._natOfMeaOfTraCroHEA87 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TypOfMeaOfTraCroHEA88() As String
Get
Return Me._typOfMeaOfTraCroHEA88
End Get
Set
Me._typOfMeaOfTraCroHEA88 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ConIndHEA96() As String
Get
Return Me._conIndHEA96
End Get
Set
Me._conIndHEA96 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DiaLanIndAtDepHEA254() As String
Get
Return Me._diaLanIndAtDepHEA254
End Get
Set
Me._diaLanIndAtDepHEA254 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NCTSAccDocHEA601LNG() As String
Get
Return Me._nCTSAccDocHEA601LNG
End Get
Set
Me._nCTSAccDocHEA601LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NumOfLoaLisHEA304() As String
Get
Return Me._numOfLoaLisHEA304
End Get
Set
Me._numOfLoaLisHEA304 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TotNumOfIteHEA305() As String
Get
Return Me._totNumOfIteHEA305
End Get
Set
Me._totNumOfIteHEA305 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TotNumOfPacHEA306() As String
Get
Return Me._totNumOfPacHEA306
End Get
Set
Me._totNumOfPacHEA306 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TotGroMasHEA307() As String
Get
Return Me._totGroMasHEA307
End Get
Set
Me._totGroMasHEA307 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DecDatHEA383() As String
Get
Return Me._decDatHEA383
End Get
Set
Me._decDatHEA383 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DecPlaHEA394() As String
Get
Return Me._decPlaHEA394
End Get
Set
Me._decPlaHEA394 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DecPlaHEA394LNG() As String
Get
Return Me._decPlaHEA394LNG
End Get
Set
Me._decPlaHEA394LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SpeCirIndHEA1() As String
Get
Return Me._speCirIndHEA1
End Get
Set
Me._speCirIndHEA1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TraChaMetOfPayHEA1() As String
Get
Return Me._traChaMetOfPayHEA1
End Get
Set
Me._traChaMetOfPayHEA1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComRefNumHEA() As String
Get
Return Me._comRefNumHEA
End Get
Set
Me._comRefNumHEA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SecHEA358() As String
Get
Return Me._secHEA358
End Get
Set
Me._secHEA358 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ConRefNumHEA() As String
Get
Return Me._conRefNumHEA
End Get
Set
Me._conRefNumHEA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CodPlUnHEA357() As String
Get
Return Me._codPlUnHEA357
End Get
Set
Me._codPlUnHEA357 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize HEAHEAType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes HEAHEAType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output HEAHEAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current HEAHEAType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an HEAHEAType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output HEAHEAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NameTRACONSEC033() As String
Get
Return Me._nameTRACONSEC033
End Get
Set
Me._nameTRACONSEC033 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrNumTRACONSEC035() As String
Get
Return Me._strNumTRACONSEC035
End Get
Set
Me._strNumTRACONSEC035 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodTRACONSEC034() As String
Get
Return Me._posCodTRACONSEC034
End Get
Set
Me._posCodTRACONSEC034 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitTRACONSEC030() As String
Get
Return Me._citTRACONSEC030
End Get
Set
Me._citTRACONSEC030 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCodTRACONSEC031() As String
Get
Return Me._couCodTRACONSEC031
End Get
Set
Me._couCodTRACONSEC031 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TRACONSEC029LNG() As String
Get
Return Me._tRACONSEC029LNG
End Get
Set
Me._tRACONSEC029LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONSEC029Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONSEC029Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONSEC029Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONSEC029Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONSEC029Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONSEC029Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamTRACORSEC041() As String
Get
Return Me._namTRACORSEC041
End Get
Set
Me._namTRACORSEC041 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrNumTRACORSEC043() As String
Get
Return Me._strNumTRACORSEC043
End Get
Set
Me._strNumTRACORSEC043 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodTRACORSEC042() As String
Get
Return Me._posCodTRACORSEC042
End Get
Set
Me._posCodTRACORSEC042 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitTRACORSEC038() As String
Get
Return Me._citTRACORSEC038
End Get
Set
Me._citTRACORSEC038 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCodTRACORSEC039() As String
Get
Return Me._couCodTRACORSEC039
End Get
Set
Me._couCodTRACORSEC039 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TRACORSEC037LNG() As String
Get
Return Me._tRACORSEC037LNG
End Get
Set
Me._tRACORSEC037LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACORSEC037Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACORSEC037Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACORSEC037Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACORSEC037Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACORSEC037Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACORSEC037Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamCARTRA121() As String
Get
Return Me._namCARTRA121
End Get
Set
Me._namCARTRA121 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumCARTRA254() As String
Get
Return Me._strAndNumCARTRA254
End Get
Set
Me._strAndNumCARTRA254 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodCARTRA121() As String
Get
Return Me._posCodCARTRA121
End Get
Set
Me._posCodCARTRA121 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitCARTRA789() As String
Get
Return Me._citCARTRA789
End Get
Set
Me._citCARTRA789 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCodCARTRA587() As String
Get
Return Me._couCodCARTRA587
End Get
Set
Me._couCodCARTRA587 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NADCARTRA121() As String
Get
Return Me._nADCARTRA121
End Get
Set
Me._nADCARTRA121 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CARTRA100Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CARTRA100Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CARTRA100Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CARTRA100Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CARTRA100Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CARTRA100Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ITIType
#Region "Private fields"
Private _couOfRouCodITI1 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize ITIType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes ITIType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ITIType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current ITIType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an ITIType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ITIType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamTRACONSECGOO017() As String
Get
Return Me._namTRACONSECGOO017
End Get
Set
Me._namTRACONSECGOO017 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrNumTRACONSECGOO019() As String
Get
Return Me._strNumTRACONSECGOO019
End Get
Set
Me._strNumTRACONSECGOO019 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodTRACONSECGOO018() As String
Get
Return Me._posCodTRACONSECGOO018
End Get
Set
Me._posCodTRACONSECGOO018 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CityTRACONSECGOO014() As String
Get
Return Me._cityTRACONSECGOO014
End Get
Set
Me._cityTRACONSECGOO014 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCodTRACONSECGOO015() As String
Get
Return Me._couCodTRACONSECGOO015
End Get
Set
Me._couCodTRACONSECGOO015 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TRACONSECGOO013LNG() As String
Get
Return Me._tRACONSECGOO013LNG
End Get
Set
Me._tRACONSECGOO013LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONSECGOO013Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONSECGOO013Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONSECGOO013Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONSECGOO013Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONSECGOO013Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONSECGOO013Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamTRACORSECGOO025() As String
Get
Return Me._namTRACORSECGOO025
End Get
Set
Me._namTRACORSECGOO025 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrNumTRACORSECGOO027() As String
Get
Return Me._strNumTRACORSECGOO027
End Get
Set
Me._strNumTRACORSECGOO027 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodTRACORSECGOO026() As String
Get
Return Me._posCodTRACORSECGOO026
End Get
Set
Me._posCodTRACORSECGOO026 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitTRACORSECGOO022() As String
Get
Return Me._citTRACORSECGOO022
End Get
Set
Me._citTRACORSECGOO022 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCodTRACORSECGOO023() As String
Get
Return Me._couCodTRACORSECGOO023
End Get
Set
Me._couCodTRACORSECGOO023 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TRACORSECGOO021LNG() As String
Get
Return Me._tRACORSECGOO021LNG
End Get
Set
Me._tRACORSECGOO021LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACORSECGOO021Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACORSECGOO021Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACORSECGOO021Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACORSECGOO021Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACORSECGOO021Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACORSECGOO021Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class SGICODSD2Type
#Region "Private fields"
Private _senGooCodSD22 As String
Private _senQuaSD23 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SenGooCodSD22() As String
Get
Return Me._senGooCodSD22
End Get
Set
Me._senGooCodSD22 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize SGICODSD2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes SGICODSD2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SGICODSD2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current SGICODSD2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an SGICODSD2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SGICODSD2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MarNumOfPacGS21() As String
Get
Return Me._marNumOfPacGS21
End Get
Set
Me._marNumOfPacGS21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MarNumOfPacGS21LNG() As String
Get
Return Me._marNumOfPacGS21LNG
End Get
Set
Me._marNumOfPacGS21LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property KinOfPacGS23() As String
Get
Return Me._kinOfPacGS23
End Get
Set
Me._kinOfPacGS23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NumOfPacGS24() As String
Get
Return Me._numOfPacGS24
End Get
Set
Me._numOfPacGS24 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize PACGS2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes PACGS2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PACGS2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current PACGS2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an PACGS2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PACGS2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class CONNR2Type
#Region "Private fields"
Private _conNumNR21 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CONNR2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CONNR2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CONNR2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CONNR2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CONNR2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CONNR2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamCE27() As String
Get
Return Me._namCE27
End Get
Set
Me._namCE27 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumCE222() As String
Get
Return Me._strAndNumCE222
End Get
Set
Me._strAndNumCE222 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodCE223() As String
Get
Return Me._posCodCE223
End Get
Set
Me._posCodCE223 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitCE224() As String
Get
Return Me._citCE224
End Get
Set
Me._citCE224 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCE225() As String
Get
Return Me._couCE225
End Get
Set
Me._couCE225 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NADLNGGICE() As String
Get
Return Me._nADLNGGICE
End Get
Set
Me._nADLNGGICE = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONCE2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONCE2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONCE2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONCE2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONCE2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONCE2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamCO27() As String
Get
Return Me._namCO27
End Get
Set
Me._namCO27 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumCO222() As String
Get
Return Me._strAndNumCO222
End Get
Set
Me._strAndNumCO222 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodCO223() As String
Get
Return Me._posCodCO223
End Get
Set
Me._posCodCO223 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitCO224() As String
Get
Return Me._citCO224
End Get
Set
Me._citCO224 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCO225() As String
Get
Return Me._couCO225
End Get
Set
Me._couCO225 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NADLNGGTCO() As String
Get
Return Me._nADLNGGTCO
End Get
Set
Me._nADLNGGTCO = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONCO2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONCO2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONCO2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONCO2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONCO2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONCO2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AddInfMT21() As String
Get
Return Me._addInfMT21
End Get
Set
Me._addInfMT21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AddInfMT21LNG() As String
Get
Return Me._addInfMT21LNG
End Get
Set
Me._addInfMT21LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AddInfCodMT23() As String
Get
Return Me._addInfCodMT23
End Get
Set
Me._addInfCodMT23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ExpFroECMT24() As String
Get
Return Me._expFroECMT24
End Get
Set
Me._expFroECMT24 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize SPEMENMT2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes SPEMENMT2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SPEMENMT2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current SPEMENMT2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an SPEMENMT2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SPEMENMT2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DocTypDC21() As String
Get
Return Me._docTypDC21
End Get
Set
Me._docTypDC21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DocRefDC23() As String
Get
Return Me._docRefDC23
End Get
Set
Me._docRefDC23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DocRefDCLNG() As String
Get
Return Me._docRefDCLNG
End Get
Set
Me._docRefDCLNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComOfInfDC25() As String
Get
Return Me._comOfInfDC25
End Get
Set
Me._comOfInfDC25 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize PRODOCDC2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes PRODOCDC2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PRODOCDC2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current PRODOCDC2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an PRODOCDC2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PRODOCDC2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PreDocTypAR21() As String
Get
Return Me._preDocTypAR21
End Get
Set
Me._preDocTypAR21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PreDocRefAR26() As String
Get
Return Me._preDocRefAR26
End Get
Set
Me._preDocRefAR26 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PreDocRefLNG() As String
Get
Return Me._preDocRefLNG
End Get
Set
Me._preDocRefLNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComOfInfAR29() As String
Get
Return Me._comOfInfAR29
End Get
Set
Me._comOfInfAR29 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize PREADMREFAR2Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes PREADMREFAR2Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PREADMREFAR2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current PREADMREFAR2Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an PREADMREFAR2Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PREADMREFAR2Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property IteNumGDS7() As String
Get
Return Me._iteNumGDS7
End Get
Set
Me._iteNumGDS7 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComCodTarCodGDS10() As String
Get
Return Me._comCodTarCodGDS10
End Get
Set
Me._comCodTarCodGDS10 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property DecTypGDS15() As String
Get
Return Me._decTypGDS15
End Get
Set
Me._decTypGDS15 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property GooDesGDS23() As String
Get
Return Me._gooDesGDS23
End Get
Set
Me._gooDesGDS23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property GooDesGDS23LNG() As String
Get
Return Me._gooDesGDS23LNG
End Get
Set
Me._gooDesGDS23LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property GroMasGDS46() As String
Get
Return Me._groMasGDS46
End Get
Set
Me._groMasGDS46 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NetMasGDS48() As String
Get
Return Me._netMasGDS48
End Get
Set
Me._netMasGDS48 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouOfDisGDS58() As String
Get
Return Me._couOfDisGDS58
End Get
Set
Me._couOfDisGDS58 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouOfDesGDS59() As String
Get
Return Me._couOfDesGDS59
End Get
Set
Me._couOfDesGDS59 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property MetOfPayGDI12() As String
Get
Return Me._metOfPayGDI12
End Get
Set
Me._metOfPayGDI12 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ComRefNumGIM1() As String
Get
Return Me._comRefNumGIM1
End Get
Set
Me._comRefNumGIM1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property UNDanGooCodGDI1() As String
Get
Return Me._uNDanGooCodGDI1
End Get
Set
Me._uNDanGooCodGDI1 = Value
End Set
End Property
<XmlElement("PREADMREFAR2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PREADMREFAR2() As List(Of PREADMREFAR2Type)
Get
Return Me._pREADMREFAR2
End Get
Set
Me._pREADMREFAR2 = Value
End Set
End Property
<XmlElement("PRODOCDC2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PRODOCDC2() As List(Of PRODOCDC2Type)
Get
Return Me._pRODOCDC2
End Get
Set
Me._pRODOCDC2 = Value
End Set
End Property
<XmlElement("SPEMENMT2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SPEMENMT2() As List(Of SPEMENMT2Type)
Get
Return Me._sPEMENMT2
End Get
Set
Me._sPEMENMT2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACONCO2() As TRACONCO2Type
Get
Return Me._tRACONCO2
End Get
Set
Me._tRACONCO2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACONCE2() As TRACONCE2Type
Get
Return Me._tRACONCE2
End Get
Set
Me._tRACONCE2 = Value
End Set
End Property
<XmlElement("CONNR2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CONNR2() As List(Of CONNR2Type)
Get
Return Me._cONNR2
End Get
Set
Me._cONNR2 = Value
End Set
End Property
<XmlElement("PACGS2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PACGS2() As List(Of PACGS2Type)
Get
Return Me._pACGS2
End Get
Set
Me._pACGS2 = Value
End Set
End Property
<XmlElement("SGICODSD2", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SGICODSD2() As List(Of SGICODSD2Type)
Get
Return Me._sGICODSD2
End Get
Set
Me._sGICODSD2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACORSECGOO021() As TRACORSECGOO021Type
Get
Return Me._tRACORSECGOO021
End Get
Set
Me._tRACORSECGOO021 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
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"
''' <summary>
''' Serialize GOOITEGDSType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes GOOITEGDSType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output GOOITEGDSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current GOOITEGDSType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an GOOITEGDSType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output GOOITEGDSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class VALLIMNONECLIMType
#Region "Private fields"
Private _notValForOthConPLIM2 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize VALLIMNONECLIMType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes VALLIMNONECLIMType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output VALLIMNONECLIMType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current VALLIMNONECLIMType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an VALLIMNONECLIMType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output VALLIMNONECLIMType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class VALLIMECVLEType
#Region "Private fields"
Private _notValForECVLE1 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize VALLIMECVLEType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes VALLIMECVLEType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output VALLIMECVLEType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current VALLIMECVLEType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an VALLIMECVLEType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output VALLIMECVLEType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property GuaRefNumGRNREF1() As String
Get
Return Me._guaRefNumGRNREF1
End Get
Set
Me._guaRefNumGRNREF1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CurREF8() As Object
Get
Return Me._curREF8
End Get
Set
Me._curREF8 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AmoConREF7() As Object
Get
Return Me._amoConREF7
End Get
Set
Me._amoConREF7 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property OthGuaRefREF4() As String
Get
Return Me._othGuaRefREF4
End Get
Set
Me._othGuaRefREF4 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property AccCodREF6() As String
Get
Return Me._accCodREF6
End Get
Set
Me._accCodREF6 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VALLIMECVLE() As VALLIMECVLEType
Get
Return Me._vALLIMECVLE
End Get
Set
Me._vALLIMECVLE = Value
End Set
End Property
<XmlElement("VALLIMNONECLIM", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
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"
''' <summary>
''' Serialize GUAREFREFType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes GUAREFREFType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output GUAREFREFType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current GUAREFREFType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an GUAREFREFType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output GUAREFREFType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property GuaTypGUA1() As String
Get
Return Me._guaTypGUA1
End Get
Set
Me._guaTypGUA1 = Value
End Set
End Property
<XmlElement("GUAREFREF", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
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"
''' <summary>
''' Serialize GUAGUAType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes GUAGUAType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output GUAGUAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current GUAGUAType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an GUAGUAType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output GUAGUAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class SEAIDSIDType
#Region "Private fields"
Private _seaIdeSID1 As String
Private _seaIdeSID1LNG As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SeaIdeSID1() As String
Get
Return Me._seaIdeSID1
End Get
Set
Me._seaIdeSID1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize SEAIDSIDType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes SEAIDSIDType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SEAIDSIDType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current SEAIDSIDType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an SEAIDSIDType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SEAIDSIDType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property SeaNumSLI2() As String
Get
Return Me._seaNumSLI2
End Get
Set
Me._seaNumSLI2 = Value
End Set
End Property
<XmlElement("SEAIDSID", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
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"
''' <summary>
''' Serialize SEAINFSLIType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes SEAINFSLIType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SEAINFSLIType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current SEAINFSLIType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an SEAINFSLIType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SEAINFSLIType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamREP5() As String
Get
Return Me._namREP5
End Get
Set
Me._namREP5 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RepCapREP18() As String
Get
Return Me._repCapREP18
End Get
Set
Me._repCapREP18 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize REPREPType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes REPREPType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output REPREPType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current REPREPType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an REPREPType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output REPREPType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class CONRESERSType
#Region "Private fields"
Private _conResCodERS16 As String
Private _datLimERS69 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property ConResCodERS16() As String
Get
Return Me._conResCodERS16
End Get
Set
Me._conResCodERS16 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CONRESERSType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CONRESERSType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CONRESERSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CONRESERSType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CONRESERSType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CONRESERSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class CUSOFFDESESTType
#Region "Private fields"
Private _refNumEST1 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CUSOFFDESESTType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CUSOFFDESESTType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CUSOFFDESESTType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CUSOFFDESESTType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CUSOFFDESESTType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CUSOFFDESESTType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class CUSOFFTRARNSType
#Region "Private fields"
Private _refNumRNS1 As String
Private _arrTimTRACUS085 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property RefNumRNS1() As String
Get
Return Me._refNumRNS1
End Get
Set
Me._refNumRNS1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CUSOFFTRARNSType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CUSOFFTRARNSType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CUSOFFTRARNSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CUSOFFTRARNSType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CUSOFFTRARNSType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CUSOFFTRARNSType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class CUSOFFDEPEPTType
#Region "Private fields"
Private _refNumEPT1 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize CUSOFFDEPEPTType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes CUSOFFDEPEPTType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output CUSOFFDEPEPTType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current CUSOFFDEPEPTType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an CUSOFFDEPEPTType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output CUSOFFDEPEPTType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TRAAUTCONTRAType
#Region "Private fields"
Private _tINTRA59 As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRAAUTCONTRAType object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRAAUTCONTRAType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRAAUTCONTRAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRAAUTCONTRAType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRAAUTCONTRAType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRAAUTCONTRAType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamCE17() As String
Get
Return Me._namCE17
End Get
Set
Me._namCE17 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumCE122() As String
Get
Return Me._strAndNumCE122
End Get
Set
Me._strAndNumCE122 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodCE123() As String
Get
Return Me._posCodCE123
End Get
Set
Me._posCodCE123 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitCE124() As String
Get
Return Me._citCE124
End Get
Set
Me._citCE124 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCE125() As String
Get
Return Me._couCE125
End Get
Set
Me._couCE125 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NADLNGCE() As String
Get
Return Me._nADLNGCE
End Get
Set
Me._nADLNGCE = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONCE1Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONCE1Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONCE1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONCE1Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONCE1Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONCE1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamCO17() As String
Get
Return Me._namCO17
End Get
Set
Me._namCO17 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumCO122() As String
Get
Return Me._strAndNumCO122
End Get
Set
Me._strAndNumCO122 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodCO123() As String
Get
Return Me._posCodCO123
End Get
Set
Me._posCodCO123 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitCO124() As String
Get
Return Me._citCO124
End Get
Set
Me._citCO124 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouCO125() As String
Get
Return Me._couCO125
End Get
Set
Me._couCO125 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TRACONCO1LNG() As String
Get
Return Me._tRACONCO1LNG
End Get
Set
Me._tRACONCO1LNG = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRACONCO1Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRACONCO1Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRACONCO1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRACONCO1Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRACONCO1Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRACONCO1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.4084.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
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
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NamPC17() As String
Get
Return Me._namPC17
End Get
Set
Me._namPC17 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property StrAndNumPC122() As String
Get
Return Me._strAndNumPC122
End Get
Set
Me._strAndNumPC122 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property PosCodPC123() As String
Get
Return Me._posCodPC123
End Get
Set
Me._posCodPC123 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CitPC124() As String
Get
Return Me._citPC124
End Get
Set
Me._citPC124 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property CouPC125() As String
Get
Return Me._couPC125
End Get
Set
Me._couPC125 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property NADLNGPC() As String
Get
Return Me._nADLNGPC
End Get
Set
Me._nADLNGPC = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
Public Property TINPC159() As String
Get
Return Me._tINPC159
End Get
Set
Me._tINPC159 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, DataType:="token")>
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"
''' <summary>
''' Serialize TRAPRIPC1Type object
''' </summary>
''' <returns>XML value</returns>
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
''' <summary>
''' Deserializes TRAPRIPC1Type object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TRAPRIPC1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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
''' <summary>
''' Serializes current TRAPRIPC1Type object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
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
''' <summary>
''' Deserializes xml markup from file into an TRAPRIPC1Type object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TRAPRIPC1Type object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
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